Ako sa k odomknutiu skript účet

Správca siete má veľa úloh , jedným z nich je sledovať prihlasovacie činnosť a správa používateľských účtov . Použitie programovací jazyk , správca siete môže povoliť alebo zakázať , alebo zámok , užívateľa z prístupu k účtu . Ak používateľ bol zablokovaný z účtu , môže správca začleniť skript , ktorý vám otvorí účet , takže používateľ môže dostať späť na účet a prístup k dátam . Pokyny dovolená 1

Otvorte " Používatelia a počítače služby Active Directory " na počítači , ktorý je súčasťou väčšieho servera , čo je tiež známy ako DSA.msc modulu snap - in
< br . > 2

Vytvorte nasledujúci skript jazyka :

Const E_ADS_PROPERTY_NOT_FOUND = -2147463155

Set wshArguments = WScript.Arguments

Set objUser = GetObject ( wshArguments ( 0 ) )

Ak IsLockedOut ( objUser ) Potom

objUser.Put " lockOutTime " , " 0 "

objUser.SetInfo

MsgBox " užívateľ bol odomknutý - " a objUser.sAMAccountName

Else

MsgBox " užívateľský účet nie je uzamknutý - " a objUser.sAMAccountName

End If

Funkcia IsLockedOut ( objUser )

On Error Resume ďalšie

Set objLockout = objUser.get ( " lockOutTime " )

ak err.number = E_ADS_PROPERTY_NOT_FOUND potom

IsLockedOut = false

Exit Function

End If

On Error GoTo 0

ak objLockout.lowpart = 0 A objLockout.highpart = 0 Then

IsLockedOut = False

Else

IsLockedOut = TRUE

End If

End Function

Uložiť skript ako " UNLOCK_USER . VBS . " v systéme servera
3

Vytvorte tento skript jazyka Visual Basic :

Const E_ADS_PROPERTY_NOT_FOUND = -2147463155

strSummary = " "

Nastaviť wshArguments = WScript.Arguments

Set objOU = GetObject ( wshArguments ( 0 ) )

každý objIADs v objOU

Ak LCase ( objIADs.Class ) = " user " Tak

Ak IsLockedOut ( objIADs ) Potom

objIADs.Put " lockOutTime " , " 0 "

objIADs.SetInfo

strSummary = strSummary & objIADs.Get ( " sAMAccountName " ) a vbNewLine

End If

End If

Ďalšie

Ak strSummary = " " Tak

MsgBox " Nie ! zamknuté užívatelia nájdený"

Else

MsgBox " Nasledujúci používatelia boli odomknuté " a vbNewLine _

& " ----- -------------------------------------------- " a vbNewLine & strSummary

End If

Funkcia IsLockedOut ( objUser )

On Error Resume ďalšie

Set objLockout = objUser.get ( " lockOutTime " )

ak err.number = E_ADS_PROPERTY_NOT_FOUND potom

IsLockedOut = false

Exit Function

End If

On Error GoTo 0

ak objLockout.lowpart = 0 A objLockout.highpart = 0 Then

IsLockedOut = False

Else

IsLockedOut = TRUE

End If

End Function

Uložiť skript ako " UNLOCK_USERS_IN_OU.VBS . "
4

Otvoriť " Adsiedit.msc " a prejdite do cesty CN = user - Display , CN = 409 , CN = DisplaySpecifiers , CN = Configuration , DC = dpetri , DC = net . Kliknite pravým tlačidlom myši na užívateľa , zobrazenie objektu a zvoľte " Vlastnosti " . Prvý atribút v zozname stanovenom je " adminContextMenu " , double - kliknite na neho a pridajte riadok skriptu " 4 , a Odomknúť užívateľa , \\ \\ zeus \\ Netlogon \\ unlock_user.vbs . " Kliknite na " Pridať " pridajte riadok .
5

Vráťte sa do " Adsiedit.msc " a prejsť na cestu CN = organizationalUnit displej , CN = 409 , CN = DisplaySpecifiers , CN = Configuration , DC = dpetri , DC = net . Nájdite organizationalUnit - objekt zobrazenia, kliknite pravým tlačidlom myši na neho a zvoľte " Vlastnosti " . Nájdite organizationalUnit - zobrazenie a dvakrát kliknite na neho. Pridajte nasledujúci riadok do atribútu : " 3 , a Odomknúť užívateľa v organizačnej jednotke , \\ \\ zeus \\ Netlogon \\ unlock_users_in_ou.vbs . " Kliknite na " Pridať " pridajte riadok .
6

Close " Adsiedit.msc " dokončiť proces pridávania skript , ktorý bude odblokovanie užívateľa .

• Predchádzajúca strana: Ako načítať Flash Stream Sockets vo VB.NET 
• Ďalšia strana: Ako napísať kód pre Tangent vo VB.NET