VBS: 看看某台机有那些用户登陆

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

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