• Home
 · 
• Miscellaneous
 · 
• ADSI sample showing how to check if a user account is disabled on a computer or domain controller.

ADSI sample showing how to check if a user account is disabled on a computer or domain controller.

ADSI sample showing how to check if a user account is disabled on a computer or domain controller.

Rate ADSI sample showing how to check if a user account is disabled on a computer or domain controller.

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

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

' Check out http://www.activxperts.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.activxperts.com/activmonitor and click" )
WScript.Echo( "on ADSI" )