VBS Script mit Random Passwort bei jedem Systemstart

Set objUser = GetObject("WinNT://" & strComputer & "/USER, user")  

'Passwort änderungs Script für Locale User  
'gpedit.msc > Computer Configuration >Windows Settings > Scritps > Startup  
'add Script > Path to Script   
'Username in Zeile 46 Editieren  46 ""/USER," nur Lokale Benutzer  
'cc und bcc fals nötig ändern  
'Set computer name (Network Name)  
'Set user name (for email only)  

strComputer = "PC-NAME"  
strUser = "USERNAME"  

'sleep time in ms 1000 = 1 sec.  
wscript.sleep 20000

' Password generator  
Dim NumChar, Count, strRdm, intRdm
NumChar = 8
If NOT IsNumeric(NumChar) Then
  MsgBox Chr(34) & NumChar & Chr(34) & " is invalid input." & vbcrlf & _  
         vbcrlf & "Input must be a number between 1 and 100",, Title  
  WScript.Quit
Else
  NumChar = CInt(NumChar)
  If NumChar < 1 OR NumChar > 100 Then
    MsgBox Chr(34) & NumChar & Chr(34) & " is invalid input." & vbcrlf & _  
           vbcrlf & "Input must be a number between 1 and 100",, Title  
    WScript.Quit
  End If
End If
 
Randomize Timer

Do Until Count = NumChar
  Count = Count + 1
  GetRdm
  strRdm = strRdm & Chr(intRdm)
Loop

Sub GetRdm
  intRdm = Int((122 - 49) * Rnd + 48)
  If intRdm > 57 And intRdm < 65 Or intRdm > 90 And intRdm < 97 Then GetRdm
End Sub
'Debug PW  
'WScript.echo "" & strRdm  

Set objUser = GetObject("WinNT://" & strComputer & "/USER, user")  
objUser.SetPassword "" & strRdm  
objUser.SetInfo

Set objMessage = CreateObject("CDO.Message")    
objMessage.Subject = "Password for PC:"  & strComputer  
objMessage.From = """ABSENDER"" <DOMAIN>"    
objMessage.To = "DOMAIN"    
objMessage.CC = ""    
objMessage.BCC = ""    
objMessage.TextBody = "PC name:" & strComputer & vbCRLF & "User name:" &  strUser & vbCRLF & "Password:" &  strRdm    

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2    
objMessage.Configuration.Fields.Item _ 
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = ""   
objMessage.Configuration.Fields.Item _ 
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1   
objMessage.Configuration.Fields.Item _ 
("http://schemas.microsoft.com/cdo/configuration/sendusername") = ""   
objMessage.Configuration.Fields.Item _ 
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = ""   
objMessage.Configuration.Fields.Item _ 
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25    
objMessage.Configuration.Fields.Item _ 
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False   
objMessage.Configuration.Fields.Item _ 
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60   
objMessage.Configuration.Fields.Update 
objMessage.Send