Something Changed ...

[Dizzy]

Hi All!

I've got a little script which changes my local admin PW.

It works fine with 3.0.94 but now - after working under 3.0.100 i didn't get my log-file.

Here is my code which works under 3.0.94 :

$reg = 0
$akt = 4
$vname = EnvGet("COMPUTERNAME")
$vday = @MDAY & "-" & @MON & "-" & @YEAR

$reg = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\ADPW", "Version")

If $reg < $akt Then
   $val = RunWait(@comspec & ' /C net user administrator goodpw /expires:NEVER /passwordchg:YES', "", @SW_HIDE)
 
   If $val = 0 Then
      RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\ADPW", "Version", "REG_SZ", $akt)
      RunWait(@comspec & ' /C net use t: /d', "", @SW_HIDE)
      $vnet = RunWait(@comspec & ' /C net use t: \\server01\myshare$', "", @SW_HIDE)
      If $vnet = 0 Then
  $file = FileOpen("t:\Log\" & $vname & ".txt", 1)
  FileWriteLine($file, "Letzte Aenderung am : " & $vday & " auf Version : " & $akt & @LF)
  FileClose($file)
         RunWait(@comspec & ' /C net use t: /d', "", @SW_HIDE)
      EndIf
   EndIf
EndIf

So - can anybody help me to fix my problem?

I mean following lines :

RunWait(@comspec & ' /C net use t: /d', "", @SW_HIDE)
$vnet = RunWait(@comspec & ' /C net use t: \\server01\myshare$', "", @SW_HIDE)
$file = FileOpen("t:\Log\" & $vname & ".txt", 1)
  FileWriteLine($file, "Letzte Aenderung am : " & $vday & " auf Version : " & $akt & @LF)
FileClose($file)
RunWait(@comspec & ' /C net use t: /d', "", @SW_HIDE)

:iamstupid:

Thx

[Jon]

In the FileWriteLine command remove the @LF at the end (Or, if you prefer change it to @CRLF)

[Dizzy]

Hi Jon,

thanks, but this is not my problem.

It seems that following code didn't work naymore under x.100

RunWait(@comspec & ' /C net use t: /d', "", @SW_HIDE)

I get an file open error ..

An ideas?

[Dizzy]

Upps - sorry

Wrong line ...

I mean this lines :

$vnet = RunWait(@comspec & ' /C net use t: \\server01\myshare$', "", @SW_HIDE)
      If $vnet = 0 Then
  $file = FileOpen("t:\Log\" & $vname & ".txt", 1)

Here i get an file open error ..

[Jos]

Tried your script logic and it works fine for me with 3.0.100...

Are your sure that the "t:\Log" directory exists and have Write rights on it?

[Dizzy]

shoudn'd change to much

There was a missing space or a wrong sign ...

I step back to a working version a changed this script up to the final version and - who wonders - it works

Sorry and thanks for your help

Its a super scripting tool!