Supportnet / Forum / Skripte(PHP,ASP,Perl...)
VB Script
Frage
Ich möchte mit einem Script die vom System Gesperrten Benutzerkonten wieder entsperren (Win2000) Habe ein Script erstellt. Es erkennt die Domäne und Den KontenDC aber es erkennt nicht die Gesperrten Konten. Hier ein Ausschnitt des Zweiges.
computer.Filter = Array("User")
counter = 0
check = 0
For each user in computer
On Error Resume Next
flags = user.Get("UserFlags")
If Err.number = 0 Then
counter = counter + 1
If (flags And 16)<>0 Then
'Anzeige der gesperrten Konten und Abfrage wieder entsperren oder nicht
antwort = MsgBox("Konto " & user.Name _
& " ist vom System gesperrt worden. Reaktivieren?", vbQuestion + vbYesNo)
If antwort = vbYes Then
' Konto aufschließen
user.UserFlags = user.UserFlags And Not 16
user.SetInfo
If Err.number = 0 Then
check = check + 1
'Bestätigung Konto Aktiviert
MsgBox "Reaktiviert."
Else
MsgBox "Es ist ein Fehler aufgetreten."
End If
End If
End If
End If
On Error Goto 0
Next
'Auswertung
If counter = 0 Then
MsgBox "Es wurden keine gesperrten Konten gefunden."
Else
MsgBox "Es wurden " & counter & " gesperrte Konten gefunden. Davon wurden " & check _
& " Konten entsperrt."
End If
Er durchläuft zwar das Script aber es gibt immer die Meldung das er Keine Gesperrten Konten Vorhanden sind, Obwohl vorher welche vom System gesperrt worden sind.