Supportnet Computer
Planet of Tech

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.

Antwort von



Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: