Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
On Error Resume Next
strComputer = InputBox("Enter Computer Name:","Logged-in User Check")
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)
For Each objItem in colItems
Result = MsgBox("UserName: " & objItem.UserName, 65, "Logged-in User Check")
Next