[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
东方月

Rank: 1

帖子
5 
积分
26 
技术
0  
捐助
0  
注册时间
2011-4-19 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2011-7-14 18:45 | 只看该作者

[问题求助] VBS如何实现获取远程机子里的所有用户和所属组？

本帖最后由 pcl_test 于 2016-8-5 19:50 编辑

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
1

评分人数

    • batman: 请将代码用code标签括起来，方便他人复制PB -2
收藏 分享

broly

Rank: 7Rank: 7Rank: 7

帖子
881 
积分
2103 
技术
95  
捐助
55  
注册时间
2010-5-23 
2楼
发表于 2011-7-14 22:05 | 只看该作者
如果你这段代码可以使用，那么修改点东西就可以远程使用，前提你要有访问和操作那台计算机的权限
  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
复制代码
---学无止境---

TOP

东方月

Rank: 1

帖子
5 
积分
26 
技术
0  
捐助
0  
注册时间
2011-4-19 
3楼
发表于 2011-7-15 10:32 | 只看该作者
谢谢版主，这段代码可以运行，但是运行效率极低，平均15秒显示一个用户，如果碰上用户名多的机器简直无法想象，有没有效率高些的代码？？

TOP

东方月

Rank: 1

帖子
5 
积分
26 
技术
0  
捐助
0  
注册时间
2011-4-19 
4楼
发表于 2011-7-15 10:43 | 只看该作者
另外，有些机器要求输入用户名密码，这段代码哪里可以插入用户名密码

TOP

broly

Rank: 7Rank: 7Rank: 7

帖子
881 
积分
2103 
技术
95  
捐助
55  
注册时间
2010-5-23 
5楼
发表于 2011-7-15 11:45 | 只看该作者
这样，可以考虑用另外一个控件，不过现在没空先，晚上回去再帮你看看
---学无止境---

TOP

broly

Rank: 7Rank: 7Rank: 7

帖子
881 
积分
2103 
技术
95  
捐助
55  
注册时间
2010-5-23 
6楼
发表于 2011-7-17 21:24 | 只看该作者
我写了一个实现了半成方法，不知道会不会比较快，但是支持用户密码。这个缺点是只能列出“用户名+用户组”（没有分开的）和“用户名”，效果自己看：
  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.     
复制代码
要完全实现可能就得用那个效率不高的方法了
---学无止境---

TOP

broly

Rank: 7Rank: 7Rank: 7

帖子
881 
积分
2103 
技术
95  
捐助
55  
注册时间
2010-5-23 
7楼
发表于 2011-7-17 21:26 | 只看该作者
参考资料：

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
---学无止境---

TOP

返回列表