[问题求助] 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

东方月

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

东方月

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