• Home
 · 
• Windows System Services
 · 
• ADSI sample - checks if the user account is disabled. Written in VBScript, using ADSI.

ADSI sample - checks if the user account is disabled. Written in VBScript, using ADSI.

ADSI sample - checks if the user account is disabled. Written in VBScript, using ADSI.

Rate ADSI sample - checks if the user account is disabled. Written in VBScript, using ADSI.

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

' This function checks if the user account is disabled
' Requires ADSI

' Check out http://www.activexperts.com/activmonitor for more samples and 
' components


Function IsAccountDisabled( strDomain, strAccount )
    Dim objUser
    Set objUser = GetObject("WinNT://" & strDomain & "/" & strAccount & ",user")
    IsAccountDisabled = objUser.AccountDisabled
End Function 



' Main

Dim strUser, strDomain
Do
   strUsr = inputbox("Please enter the user account name", "Input")
loop until strUsr <> ""

' Request the domain name for this user
do
   strDom = inputbox("Please enter the domain for this account.", "Input")
loop until strDom <> ""


If( IsAccountDisabled( strDom, strUsr ) = True ) Then
    WScript.Echo "Account disabled"
Else
    WScript.Echo "Account enabled"
End If

WScript.Echo( "For more samples, goto http://www.activexperts.com/activmonitor and click" )
WScript.Echo( "on ADSI" )