Dator
 |  Startsida |  Hårdvara |  Nätverk |  Programmering |  Programvara |  Felsökning |  System |   
Programmering
  • C /C + + -programmering
  • Computer Programspråk
  • Delphi Programmering
  • Java Programming
  • JavaScript programmering
  • PHP /MySQL Programmering
  • perl Programmering
  • python Programming
  • Ruby programmering
  • Visual Basics Programmering
  • * Dator Kunskap >> Programmering >> Visual Basics Programmering >> Content

    Hur till låsa upp ett konto Script

    En nätverksadministratör har många uppgifter , en av dessa är att övervaka inloggning aktivitet och administrera användarkonton . Använda programmeringsspråk , kan en nätverksadministratör aktivera eller inaktivera , eller lås , en användare från att komma åt ett konto . Om en användare har blivit spärrat av ett konto , kan administratören införliva ett skript som kommer att låsa upp ett konto , så att användaren kan komma tillbaka in på kontot och komma åt data . Instruktioner
    1

    Öppna " Active Directory Användare och datorer " på din dator , som är en del av det större server , det är också känd som den dsa.msc snap - in

    2

    Skapa följande Visual Basic Script :

    Const E_ADS_PROPERTY_NOT_FOUND = -2147463155

    Set wshArguments = WScript.Arguments

    Set objUser = GetObject ( wshArguments ( 0 ) ) katalog

    Om IsLockedOut ( objUser ) Sen

    objUser.Put " lockouttime " , " 0 "

    objUser.SetInfo

    MsgBox " användaren har olåst - " & objUser.sAMAccountName

    Else

    MsgBox " användarkontot är inte låst - " & objUser.sAMAccountName

    End If

    Funktion IsLockedOut ( objUser ) katalog

    On Error Resume Next
    objLockout

    Set = objUser.get ( " lockouttime " ) katalog p Om Err.Number = E_ADS_PROPERTY_NOT_FOUND sedan

    IsLockedOut = False

    Exit Function

    End If

    On Error GoTo 0

    om objLockout.lowpart = 0 och objLockout.highpart = 0 Then

    IsLockedOut = False

    Else

    IsLockedOut = Sant

    End If

    End Function

    Spara skriptet som " UNLOCK_USER . VBS " . in serverns systemet
    3

    Skapa denna Visual Basic script :

    Const E_ADS_PROPERTY_NOT_FOUND = -2147463155

    strSummary = " "

    Set wshArguments = WScript.Arguments

    Set objOU = GetObject ( wshArguments ( 0 ) ) katalog

    för varje objIADs i objOU
    p Om LCase ( objIADs.Class ) = " user " Då
    p Om IsLockedOut ( objIADs ) Sen

    objIADs.Put " lockouttime " , " 0 "

    objIADs.SetInfo

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

    End If

    End If

    Nästa
    p Om strSummary = " " Då

    MsgBox " Inga låsta hittades användare "

    Else

    MsgBox " har följande användare låsts upp : " & vbNewLine _

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

    End If

    Funktion IsLockedOut ( objUser ) katalog

    On Error Resume Next

    Set objLockout = objUser.get ( " lockouttime " ) katalog

    Om Err.Number = E_ADS_PROPERTY_NOT_FOUND sedan

    IsLockedOut = False

    Exit Function

    End If

    On Error GoTo 0

    om objLockout.lowpart = 0 och objLockout.highpart = 0 Then

    IsLockedOut = False

    Else

    IsLockedOut = Sant

    End If

    End Function

    Spara skriptet som " UNLOCK_USERS_IN_OU.VBS . "
    4

    Open " adsiedit.msc " och navigera till sökvägen CN = user - Display , CN = 409 , CN = DisplaySpecifiers , CN = Configuration , DC = dpetri , DC = net . Högerklicka på användaren - Display objektet och välj " Egenskaper . " Det första attributet i listan som är " adminContextMenu " , dubbelklicka på den och lägg till raden av manus " 4 , och låsa upp användare , \\ \\ zeus \\ netlogon \\ unlock_user.vbs . " Klicka på " Lägg till " för att lägga till raden .
    5

    Gå tillbaka till " adsiedit.msc " och gå till sökvägen CN = organizationalUnit - Display , CN = 409 , CN = DisplaySpecifiers , CN = Configuration , DC = dpetri , DC = net . Hitta organizationalUnit - Display objektet , högerklicka på den och välj " Egenskaper . " Hitta organizationalUnit - Display och dubbelklicka på den . Lägg till följande rad till attribut : " 3 , och låsa upp användare i OU , \\ \\ zeus \\ netlogon \\ unlock_users_in_ou.vbs . " Klicka på " Add " för att lägga till raden .
    6

    Close " adsiedit.msc " för att avsluta processen att lägga till skript som kommer att låsa användaren . Addera

    Tidigare:

    nästa:
    relaterade artiklar
    ·Hur man använder Kryssruta i GridView
    ·Hur man använder ISTEXT i VBA
    ·Hur man uppdaterar en rad i Grid View
    ·Hur du gör din egen VB.NET Add- Ins
    ·Hur man använder Crystal Report kontroll i Visual Basi…
    ·Hur man använder VBA för beräkningar
    ·Lägga till en rad i en textruta i Visual Basic
    ·Hur man tar bort de XML- taggar från en XML- fil i VB6…
    ·Hur får man en användarprofil i VBS
    ·Hur Invertera Bråk i Visual Basic
    Utvalda artiklarna
    ·Hur kan man växla text i Java
    ·Hur man använder Arv i Python
    ·Hur man använder CreateProcess i VB6
    ·Hur man använder en scanner för flera ord i Java
    ·DIV rollover-effekter
    ·Hur att skapa en metod med ett variabelt antal ingånga…
    ·Hur ansluta till MDB Through Visual Basic
    ·Hur skapar jag en JTable med flera kolumnrubriker
    ·Hur man öppnar en URL genom att klicka på Kod Bild VB…
    ·Hur lär jag Pseudokod & Flödesscheman
    Copyright © Dator Kunskap http://www.dator.xyz