这个vbs是用于查看某台机有那些用户登陆，主要用于日常系统管理之用，所以并不是考虑各种可能出现的情况，请根据自己的系统情况作适当的调试。（机器需要开启RPC)

 
  
  1. on error resume next 
  2. strComputer =  Inputbox("Computer Name:","Name") 
  3. Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")  
  4. If Err.Number <> 0 Then 
  5.   WScript.Echo "Error: " & Err.Description 
  6.   Err.Clear 
  7.   Else 
  8.   Set colComputer = objWMIService.ExecQuery("Select * from Win32_ComputerSystem") 
  9.   For Each objComputer in colComputer 
  10.   Wscript.Echo objComputer.UserName 
  11.   Next 
  12. End If