Dim DomainString
Dim UserObj
Dim GroupObj
Dim lstrUserName
Dim lbTrueFalse

' Put your domain name HERE

DomainString = "DOMAIN"

lstrUserName = GetUserName

Set UserObj = GetObject("WinNT://" & DomainString & "/" & lstrUserName)
wscript.echo "UserAuthor:         " & UserObj.Name
wscript.echo "Full Author:        " & UserObj.FullName
wscript.echo "Login ~~Script~~.     " & UserObj.LoginScript
wscript.echo "Description:      " & UserObj.Description
wscript.echo "Home Directory:   " & UserObj.HomeDirectory
wscript.echo "Profile Path:     " & UserObj.Profile
wscript.echo "Account Locked:   " & UserObj.IsAccountLocked
wscript.echo "Account Disabled: " & UserObj.AccountDisabled

wscript.echo "User is a member of:"
For Each GroupObj in UserObj.Groups
        wscript.echo GroupObj.Name & " (" & GroupObj.Description & ")"
Next
            

'********************************************************************************************************************
'***    Get user's name from command line parameters or prompt for input
'********************************************************************************************************************

Function GetUserName()

        Dim tempUserName

        set oArgs=wscript.arguments

        If oArgs.Count <> 1 Then
                tempUserName = InputBox ("Enter the Users Author:","User Info Inquiry")
                If tempUserName = "" Then
                  WScript.Quit
                End If
        Else
            tempUserName = oArgs.item(0)
        End If

        GetUserName = tempUserName
End Function