Code:
' **************************************************************************** ' This function checks if the user account is disabled ' Requires ADSI ' **************************************************************************** ' Check out http://www.activxperts.com 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