VBS如何实现获取远程机子里的所有用户和所属组？

东方月

VBS怎样实现收集用户信息功能扩展？
以下代码是列出本机所有用户和所属组，格式是：
用户名 ： 所属组
现在需要把这个功能扩展成能够远程执行，收集其他服务器的用户信息，请各位高手不吝赐教，推翻重写也行
不是为了干坏事，只是工作需要，本人是新手，这段代码也是网上找到，改成符合自己要求的
谢谢
代码无误，可以直接执行，使用方法：cscript 文件名.vbs

option explicit

Dim wsnetwork,compu,oUser,oGroup

Set wsnetwork=WScript.CreateObject("WScript.Network")
Set compu=GetObject("WinNT://"& wsnetwork.ComputerName)

compu.Filter = Array("User")

For Each oUser In compu
     wscript.echo  oUser.Name & " : " & GetItsGroup(oUser.Name)
Next
WScript.quit

Function GetItsGroup(sUser)
    Set oUser = GetObject("WinNT://./" & sUser & ",user")
    For Each oGroup In oUser.Groups
        GetItsGroup = GetItsGroup & oGroup.Name & " "
    Next
End Function

broly

如果你这段代码可以使用，那么修改点东西就可以远程使用，前提你要有访问和操作那台计算机的权限

1. option explicit
   
2. 
   
3. Dim ComputerName,compu,oUser,oGroup
   
4. 
   
5. ComputerName = "此处为那台计算机的名字"
   
6. Set compu=GetObject("WinNT://"& ComputerName)   
   
7. 
   
8. compu.Filter = Array("User")
   
9. 
   
10. For Each oUser In compu
    
11.      wscript.echo  oUser.Name & " : " & GetItsGroup(oUser.Name)
    
12. Next
    
13. WScript.quit
    
14. 
    
15. Function GetItsGroup(sUser)
    
16.     Set oUser = GetObject("WinNT://这里填那台机器的IP/" & sUser & ",user")
    
17.     For Each oGroup In oUser.Groups
    
18.         GetItsGroup = GetItsGroup & oGroup.Name & " "
    
19.     Next
    
20. End Function

复制代码

东方月

谢谢版主，这段代码可以运行，但是运行效率极低，平均15秒显示一个用户，如果碰上用户名多的机器简直无法想象，有没有效率高些的代码？？

东方月

另外，有些机器要求输入用户名密码，这段代码哪里可以插入用户名密码

broly

这样，可以考虑用另外一个控件，不过现在没空先，晚上回去再帮你看看

broly

我写了一个实现了半成方法，不知道会不会比较快，但是支持用户密码。这个缺点是只能列出“用户名+用户组”（没有分开的）和“用户名”，效果自己看：

1. Dim strComputer,strUsername,strPassword
   
2. Dim colSWbemObjectSet,objSWbemObject,strOut
   
3. 
   
4. strComputer = "计算机名"
   
5. strUsername = "用户名"   '没有就留空
   
6. strPassword = "密码"     '没有就留空
   
7. 
   
8. Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
   
9. Set objSWbemServices = objSWbemLocator.ConnectServer _
   
10.     (strComputer, "root\cimv2", strUsername, strPassword)
    
11. Set colSWbemObjectSet = objSWbemServices.ExecQuery( _
    
12.     "SELECT * FROM Win32_Account",,48)
    
13. 
    
14. strOut = "用户名+用户组：" & vbCrLf
    
15. For Each objSWbemObject In colSWbemObjectSet
    
16.   strOut = strOut & objSWbemObject.Name & vbCrLf
    
17. Next
    
18. 
    
19. WScript.Echo strOut
    
20. 
    
21. strOut = "用户组：" & vbCrLf
    
22. 
    
23. Set colSWbemObjectSet = objSWbemServices.ExecQuery( _
    
24.     "SELECT * FROM Win32_Group",,48)
    
25.    
    
26. For Each objSWbemObject In colSWbemObjectSet
    
27.   strOut = strOut & objSWbemObject.Name & vbCrLf
    
28. Next
    
29. 
    
30. WScript.Echo strOut
    
31.    

复制代码

要完全实现可能就得用那个效率不高的方法了

broly

参考资料：

SWbemLocator
http://msdn.microsoft.com/en-us/library/aa393719(v=vs.85).aspx

Win32_GroupUser Class
http://msdn.microsoft.com/en-us/library/aa394153

Win32_Account Class
http://msdn.microsoft.com/en-us/library/aa394061(v=VS.85).aspx

Win32_Group Class
http://msdn.microsoft.com/en-us/library/aa394151(VS.85).aspx