Local Accounts and Windows NT 4.0 Accounts

Verify Whether an Account Exists in a Windows NT 4.0 Domain








' Verify Whether an Account Exists in a Windows NT 4.0 Domain



strUserName = "kenmyer"
Set objDomain = GetObject("WinNT://fabrikam")
objDomain.Filter = Array("user")
intFound = 0

For Each User In objDomain
    If lcase(User.Name) = lcase(strUserName) Then
        intFound = 1   
    End If    
Next

If intFound = 1 Then
    WScript.Echo "The " & strUserName & " account already exists."
Else
    WScript.Echo "The " & strUserName & " account does not exist in the domain."
End If



search for scripts

VbsEdit contains all these sample scripts!

Download Now!