Jump to content
Sign in to follow this  
Dizzy

Something Changed ...

Recommended Posts

Dizzy

Hi All! :whistle:

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

Share this post


Link to post
Share on other sites
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 .. :whistle:

An ideas?

Share this post


Link to post
Share on other sites
Dizzy

Upps - sorry :whistle:

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 ..

Share this post


Link to post
Share on other sites
Jos

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

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


Visit the SciTE4AutoIt3 Download page for the latest versions  - Beta files                                How to post scriptsource        Forum Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites
Dizzy

B) shoudn'd change to much :angry::evil:

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

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

Sorry and thanks for your help

Its a super scripting tool!

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.