2010-07-16 20:49

/* 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"
objwmiservice = getobject("winmgmts:{impersonationLevel=impersonate}!\\" || strcomputer || "\root\cimv2") 
colcomputer = objwmiservice~execquery("Select * from Win32_ComputerSystem")
DO objcomputer OVER colcomputer
	SAY "Logged-on user:" objcomputer~username
END

2010-07-16 20:49