Получить информацию о текущем вошедшем в систему пользователе.

Можно ли получить информацию о текуще вошедшем в систему пользователе на машине? Я знаю, что это можно сделать с помощью wscript с помощью следующего кода:

Function QPO
On Error Resume next
strLookFor = “Kbyrum”
Set objWMIService = GetObject(“winmgmts:” & “{impersonationLevel=impersonate}!\” & strComputer & “\root\cimv2”)
Set colProcessList = objWMIService.ExecQuery (“Select * from Win32_Process Where Name = ‘explorer.exe’”)
For Each objProcess in colProcessList
objProcess.GetOwner
strUserName, strUserDomain
'WScript.StdOut.Write strInput
Wscript.stdout.write strComputer &",Is logged into by “&strUserDomain & “" & strUserName &”,”&time
if strUserName = strLookfor then
Wscript.echo strUserName & "is logged into " & strComputer
end if
Next
End Function