VBScript - Get user logged name from remote host

Programming
1

Run this script from administrative domain account:

'============================================ 
'Lang - VBScript
'Author - sysadmin aka xck http://sys-admin.kz
'Date - 10.12.2012
'============================================ 
Computer = InputBox("Computer name") 

Set objWMIService = GetObject("winmgmts:" _ 
& "{impersonationLevel=impersonate}!\\" & Computer & "\root\cimv2") 

Set colComputer = objWMIService.ExecQuery _ 
("Select * from Win32_ComputerSystem") 

For Each objComputer in colComputer 
Wscript.Echo "Logged-on user: " & objComputer.UserName 

Next