Desktop Management Scripts - Logon Sessions
List Logon Session InformationList the User Logged on to a Remote Computer
List User Passport Information
You can use any of the VBScript programs below in ActiveXperts Network Monitor. Click here for an explanation about how to include scripts in ActiveXperts Network Monitor.
List Logon Session Information
Returns information about logon sessions associated with the user currently logged on to a computer.
On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_LogonSession") For Each objItem in colItems Wscript.Echo "Authentication Package: " & objItem.AuthenticationPackage Wscript.Echo "Logon ID: " & objItem.LogonId Wscript.Echo "Logon Type: " & objItem.LogonType Wscript.Echo "Start Time: " & objItem.StartTime Wscript.Echo Next
List the User Logged on to a Remote Computer
Returns the user name of the user currently logged on to a remote computer. To use this script, replace atl-ws-01 with the name of the remote computer you want to check. Although this script will run on Windows NT 4.0, Windows 98, and Windows 2000, it will not always return information.
strComputer = "atl-ws-o1" Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colComputer = objWMIService.ExecQuery _ ("Select * from Win32_ComputerSystem") For Each objComputer in colComputer Wscript.Echo "Logged-on user: " & objComputer.UserName Next
List User Passport Information
Returns information about the .NET passport for the user currently logged-on to a computer.
Set objUser = CreateObject("UserAccounts.PassportManager") Wscript.Echo "Current Passport: " & objUser.CurrentPassport Wscript.Echo "Member services URL: " & objUser.MemberServicesURL