Wie man ein Konto Script freischalten . Mit Programmiersprache kann ein Netzwerkadministrator aktivieren oder zu deaktivieren , oder Schloss, ein Benutzer den Zugriff auf ein Konto. Wenn ein Benutzer wurde von einem Konto gesperrt ist, kann der Administrator ein Skript zu übernehmen , die ein Konto entsperren , so kann der Benutzer wieder auf das Konto und die Daten zugreifen . Anleitung
1
Zugriff auf die " Active Directory-Benutzer und-Computer " auf Ihrem Computer, die Teil der größeren Server ist ; . Dies wird auch als DSA.MSC Snap- in Madrid
2
erstellen Sie den folgenden Visual Basic Script:
Const E_ADS_PROPERTY_NOT_FOUND = -2147463155
Set wshArguments = WScript.Arguments
Set objUser = GetObject ( wshArguments (0) )
Wenn IsLockedOut ( objUser ) Dann
objUser.Put " LockoutTime ", " 0"
objUser.SetInfo
MsgBox " Der Benutzer hat freigeschaltet - " & objUser.sAMAccountName
Else
MsgBox" Das Benutzerkonto nicht gesperrt ist - " & objUser.sAMAccountName
End If
Funktion IsLockedOut ( objUser )
on Error Resume Next Set
objLockout = objUser.get ( " LockoutTime " )
wenn Err.Number = E_ADS_PROPERTY_NOT_FOUND dann
IsLockedOut = False
Exit Function End If
On Error GoTo 0
wenn objLockout.lowpart = 0 und objLockout.highpart = 0 Then
IsLockedOut = False Else
IsLockedOut = True
End If End Function
speichern dieses Skript als " UNLOCK_USER . VBS " . in das System des Servers
3
erstellen Sie diese Visual Basic-Skript :
Const E_ADS_PROPERTY_NOT_FOUND = -2147463155
strSummary =" "
Set wshArguments = WScript.Arguments
objOU = GetObject ( wshArguments (0))
For Each objIADs in objOU
Set Wenn LCase ( objIADs.Class ) = "user " Dann
Wenn IsLockedOut ( objIADs ) Dann
objIADs.Put " LockoutTime ", " 0"
objIADs.SetInfo
strSummary = strSummary & objIADs.Get ( " samaccountname ") & vbNewLine
End If End If
Weiter
Wenn strSummary = "" Then
MsgBox " ! Keine gesperrten Benutzern gefunden "
Else
MsgBox " Die folgenden Benutzer wurden entsperrt :" & vbNewLine _
& "----- -------------------------------------------- " & vbNewLine & strSummary
End If
Funktion IsLockedOut ( objUser )
on Error Resume Next Set
objLockout = objUser.get ( " LockoutTime " )
< p > if Err.Number = E_ADS_PROPERTY_NOT_FOUND dann
IsLockedOut = False
Exit Function End If
On Error GoTo 0
wenn objLockout.lowpart = 0 und objLockout.highpart = 0 Then
IsLockedOut = False Else
IsLockedOut = True End If
< p > End Function
speichern dieses Skript als " UNLOCK_USERS_IN_OU.VBS . "
4
öffnen " adsiEdit.msc " und navigieren Sie zu dem Pfad CN = user-Display , CN = 409 , CN = DisplaySpecifiers , CN = Configuration, DC = dpetri , DC = net . Auf der user-Display Objekt die rechte Maustaste und wählen Sie "Eigenschaften". Das erste Attribut in der Liste vorgesehen ist " adminContextMenu "; darauf doppelklicken Sie auf und fügen Sie die Zeile des Skripts " 4 & Benutzer entsperren , \\ \\ zeus \\ netlogon \\ unlock_user.vbs . " Klicken Sie auf " Hinzufügen", um die Leitung hinzuzufügen.
5
Zurück zum " AdsiEdit.msc " und gehen Sie zu dem Pfad CN = organizationalUnit -Display , CN = 409 , CN = DisplaySpecifiers , CN = Configuration, DC = dpetri , DC = net . Finden Sie die organizationalUnit - Objekt anzeigen , auf der rechten Maustaste darauf und wählen Sie "Eigenschaften". Finden Sie die organizationalUnit -Display und doppelklicken Sie darauf . Fügen Sie die folgende Zeile in dem Attribut : " 3 & Schalte Benutzer in OU \\ \\ zeus \\ netlogon \\ unlock_users_in_ou.vbs . " Klicken Sie auf " Hinzufügen", um die Leitung hinzuzufügen.
6
Close " AdsiEdit.msc ", um den Prozess des Hinzufügens das Skript, das den Benutzer entsperren beenden .