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

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

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

1. on error resume next 
2. strComputer =  Inputbox("Computer Name:","Name") 
3. Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\" & strComputer & "rootcimv2")  
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 

转载于: