VBScript für PW änderung der Lokalen Admins im Netzwerk

'#######################SCRIPT BEGINN###########################  

'Setzen von Lokalen Administratorpasswörtern bei PC`s die in der Datenbank angegeben sind  
' ==============================  
Option Explicit
'Deklarieren der Variablen  
Dim DBConnection, SqlString, Ergebnismenge, Benutzer, Tabelle, computer, SqlString2, SqlString3
' Erstellen eines Connection-Objektes  
Set DBConnection = CreateObject("ADODB.Connection")  
' Öffnen der Verbindung zur Datenbank  
' Die MDB-Datei muss im selben Verzeichnis liegen wie das Skript  
DBConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=.computer.MDB;"  
' Abfrage der Tabelle Computer  
Set Tabelle = CreateObject("ADODB.Recordset")  
	' Verwendete Connection festlegen  
	Tabelle.ActiveConnection = DBConnection
	' Zugriffsart festlegen  
	Tabelle.CursorType = 2
	' Sperrart festlegen  
	Tabelle.LockType = 3
	' Verwendete Quelle angeben  
	Tabelle.Source="Computer"  
	' Tabelle öffnen  
	Tabelle.Open
' Abfragen der Computer auf den das Passwort geändert werden soll  
SqlString="SELECT * FROM computer WHERE change = 0"  
' Ausführen der Abfrage und Rückgabe eines Recordsets  
Set Ergebnismenge = DBConnection.Execute(SqlString)
' An den Anfang des Recordsets springen  
Ergebnismenge.MoveFirst
' Durchlaufe gesamtes Ergebnis  
Do While Not Ergebnismenge.eof
    If isOnline(Ergebnismenge("Computer"))= "Wahr" then  
	   Set Benutzer = GetObject("WinNT://" & Ergebnismenge("Computer") & "/Administrator,user")  
   	   
' Hier wird das zu setztende Passwort eingestellt  
Benutzer.SetPassword "hier pw eintragen"  

	   ' Echo zum Debuggen  
	   ' wscript.echo Ergebnismenge("Computer") & " pw gesetzt"  
	   SqlString2="UPDATE computer set pw=date() WHERE computer=" & "'" & Ergebnismenge("Computer") & "'"  
	   ' Eintragen des Datums  
	   SqlString3="UPDATE computer set change=1 WHERE computer=" & "'" & Ergebnismenge("Computer") & "'"  
	   DBConnection.Execute(SqlString2)
	   ' Eintragen des Changewertes  
	   DBConnection.Execute(SqlString3)
	Else
	   ' Echo zum Debuggen  
	   'wscript.echo Ergebnismenge("Computer") & " pw nicht gesetzt"  
	End If
	'Datensatzzeiger auf den nächsten Datensatz positionieren  
    Ergebnismenge.MoveNext
Loop
' Recordset schliessen  
Ergebnismenge.Close
' Connection schliessen  
DBConnection.Close
' Fertigmeldung ausgeben  
wscript.echo "Fertsch"  

'Funktion zum Überprüfen ob der PC Online ist  
Function isOnline(computername)
  On Error Resume Next
  Set Computer = GetObject("WinNT://" & ComputerName & ",Computer")  
   isOnline = (Err.number = 0)
   On Error Goto 0
End Function

'#######################SCRIPT ENDE#############################