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