; ------------------------------------------------------------------------------
;
; AutoIt Version: 1.79
; Author(s):      XXXXXXXXX
; Date:	          XX.XX.XXXX	
; Description:    Ändert das Passwort eines lokalen Benutzers
;
; PW History:	  Vers. 1.0 - Test1234 geändert am XX.XX.XXXX
;                 Vers. 1.1 - 08154711 geändert am XX.XX.XXXX
;				 
; ------------------------------------------------------------------------------

#NoTrayIcon

$strLocalUser1 = "Administrator"  ; Alter Lokaler Benutzer
$strLocalUser2= "Admin"			  ; Neuer Lokaler Benutzer, Name kann beliebig vergeben werden
$strUserPW = "08154711"			  ; Selbst definiertes Passwort
$strPWVersion = "1.1"			  ; Versions Nummer für Eventlog

$objShell = ObjCreate("Wscript.Shell")

; The password of the local user will only be changed, if the enteo Agent is installed
If FileExists(@ProgramFilesDir & "\netinst\niagnt32.exe") Then
   $rc=_RunDos("cusrmgr.exe -u " & $strLocalUser1 & " -m \\%Computername% -r " & $strLocalUser2)
   $rc=_RunDos("net user " & $strLocalUser2 & " " & $strUserPW)
   If $rc = 0 Then
      $objShell.LogEvent(0,"Password for " & $strLocalUser2 & " successfully changed to PWVersion=" & $strPWVersion)
   Else
      $objShell.LogEvent(1,"Password for " & $strLocalUser2 & " couldn't be changed. Error=" & $rc)
   EndIf
Else
   $objShell.LogEvent(1,"Password for " & $strLocalUser2 & " not changed. niagnt32.exe isn't installed.")
EndIf

Exit

;------------------------------------------------------------------------------

Func _RunDOS($sCommand)
	Return RunWait(@ComSpec & " /C " & $sCommand, "", @SW_HIDE)
EndFunc   ;==>_RunDOS