#NoTrayIcon

$CName = @ComputerName
$strUserPW = ($CName & "08154711") ; Selbst definiertes Passwort inkl. Computername
$strLocalUser1 = "Administrator"   ; Alter Lokaler Benutzer
$strLocalUser2= "Admin"  		   ; Neuer Lokaler Benutzer		  
$strPWVersion = "1.0"			   ; Versions Nummer für Eventlog

$objShell = ObjCreate("Wscript.Shell")

; Das Passwort des lokalen Benutzers wird nur dann geändert, wenn der Enteo Agent installiert ist.
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