JSI Tip 10493. Where is <UserName> and where is <ComputerName>?

If you implement How can I record logon and logoff information in both the user account description and the computer account description?, you can use getUdesc.vbs to determine a user's is logon status and getCdesc.vbs to determine a computer's user status.

The syntax for using getUdesc.vbs is:

cscript //nologo Drive:\Folder\getudesc.vbs User

Where User is the NetBIOS user name, or a wildcard expression of the NetBIOS user name. if User is Jerry, then the output is a CSV formatted line like:

"Jerry";"CN=Jerold Schulman,CN=Users,DC=JSIINC,DC=ORG";"ON 20060516 074011;JSI009;CN=JSI009,CN=Computers,DC=JSIINC,DC=COM;OFF 00000000 000000"

If User is J*, then all users who's sAMAccountName starts with J are displayed. If User is *, all users are displayed.

NOTE: Users who have NOT logged on since tip 10492 was implemented are NOT displayed.

The syntax for using getCdesc.vbs is:

cscript //nologo Drive:\Folder\getcdesc.vbs Computer

Where Computer is the NetBIOS computer name, or a wildcard expression of the NetBIOS computer name. if Computer is JSI009, then the output is a CSV formatted line like:

"JSI009";"CN=JSI009,CN=Computers,DC=JSIINC,DC=ORG";"ON 20060516 074011;Jerry;CN=Jerold Schulman,CN=Users,DC=JSIINC,DC=COM;OFF 00000000 000000"

If computer is J*, then all computer who's Name starts with J are displayed. If computer is *, all computers are displayed.

NOTE: Computers that have NOT been logged onto since tip 10492 was implemented are NOT displayed.

getUdesc.vbs contains:

On Error Resume Next
Dim objConnection, objCommand, objRootDSE, strDNSDomain
Dim strFilter, strQuery, objRecordSet, objArgs, objUser
Set objArgs = Wscript.Arguments
if objArgs.Count = 0 then 
 Wscript.Echo  "sAMAccountName argument required. ""Jerry"" or ""*"" or ""J*"" or etc.."
 WScript.Quit (1)
End If
sam = objArgs(0)
Set oShell = CreateObject( "WScript.Shell" )
domain =oShell.ExpandEnvironmentStrings("%USERDOMAIN%")
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOOBject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
Set objRootDSE = GetObject("LDAP://RootDSE")
'Get domain
strDNSDomain = objRootDSE.Get("defaultNamingContext")
strBase = "<LDAP://" & strDNSDomain & ">"
'Define the filter elements
strFilter = "(&(objectCategory=person)(objectClass=user)(sAMAccountName=" & sam & "))"
'List all attributes you will require
strAttributes = "sAMAccountName,distinguishedName"
'compose query
strQuery = strBase & ";" & strFilter & ";" & strAttributes & ";subtree"
objCommand.CommandText = strQuery
objCommand.Properties("Page Size") = 99999
objCommand.Properties("Timeout") = 300
objCommand.Properties("Cache Results") = False
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
    strSA = objRecordSet.Fields("sAMAccountName")
    strDN = objRecordSet.Fields("distinguishedName")
    strDomainUser = domain & "/" & strSA
    Set objUser = GetObject("WinNT://" & strDomainUser ) 
    Desc = objUser.Description
    wrk1 = inStr(Desc, "ON ")
    wrk2 = inStr(Desc, ";OFF ")
    if wrk1 = 1 AND wrk2 > 1 Then 
        Wscript.Echo 
" & strSA & 
;
 & strDN  & 
;
 & Desc  & 
"
    End If
    objRecordSet.MoveNext
Loop
' Clean up.
objConnection.Close
Set objConnection = Nothing
Set objCommand = Nothing
Set objRootDSE = Nothing
Set objRecordSet = Nothing

getCdesc.vbs contains:

On Error Resume Next
Dim objConnection, objCommand, objRootDSE, strDNSDomain
Dim strFilter, strQuery, objRecordSet, objArgs, objUser
Set objArgs = Wscript.Arguments
if objArgs.Count = 0 then 
 Wscript.Echo  "Computer Name argument required. ""JSI001"" or ""*"" or ""J*"" or etc.."
 WScript.Quit (1)
End If
sam = objArgs(0)
Set oShell = CreateObject( "WScript.Shell" )
domain =oShell.ExpandEnvironmentStrings("%USERDOMAIN%")
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOOBject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
Set objRootDSE = GetObject("LDAP://RootDSE")
'Get domain
strDNSDomain = objRootDSE.Get("defaultNamingContext")
strBase = "<LDAP://" & strDNSDomain & ">"
'Define the filter elements
strFilter = "(&(objectCategory=computer)(objectClass=computer)(Name=" & sam & "))"
'List all attributes you will require
strAttributes = "Name,distinguishedName,sAMAccountName"
'compose query
strQuery = strBase & ";" & strFilter & ";" & strAttributes & ";subtree"
objCommand.CommandText = strQuery
objCommand.Properties("Page Size") = 99999
objCommand.Properties("Timeout") = 300
objCommand.Properties("Cache Results") = False
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
    strSA = objRecordSet.Fields("Name")
    strDN = objRecordSet.Fields("distinguishedName")
    strSac = objRecordSet.Fields("sAMAccountName")
    strDomainCmp = domain & "/" & strSAc
    Set objCmp = GetObject("WinNT://" & strDomainCmp)
    Desc = objCmp.Description
    wrk1 = inStr(Desc, "ON ")
    wrk2 = inStr(Desc, ";OFF ")
    if wrk1 = 1 AND wrk2 > 1 Then 
        Wscript.Echo 
" & strSA & 
;
 & strDN  & 
;
 & Desc  & 
"
    End If
    objRecordSet.MoveNext
Loop
' Clean up.
objConnection.Close
Set objConnection = Nothing
Set objCommand = Nothing
Set objRootDSE = Nothing
Set objRecordSet = Nothing