VBS脚本列出内网的中计算机（工作组也可以）

find

用vbs列出内网的中计算机（工作组也可以）的代码，需要的朋友可以参考下。

1. 'Handle Errors
   
2. On Error Resume Next
   
3. 'Get the provider object
   
4. Set prov = GetObject("WinNT:")
   
5. 
   
6. 'Examine the available domains the provider can reach
   
7. For each dom in prov
   
8. 
   
9. 'Examine the objects in the domain and check for Computer objects
   
10. For each o in dom
    
11. If o.Class = "Computer" Then
    
12. 
    
13. 'Display properties of the Computer
    
14. WScript.Echo o.Class & " " & o.Name
    
15. WScript.Echo " Owner: " & o.Owner
    
16. WScript.Echo " Division: " & o.Division
    
17. WScript.Echo " OperatingSystem: " & o.OperatingSystem
    
18. WScript.Echo " OS Version: " & o.OperatingSystemVersion
    
19. WScript.Echo " Processor: " & o.Processor
    
20. WScript.Echo " ProcessorCount: " & o.ProcessorCount
    
21. 
    
22. End If
    
23. 
    
24. Next
    
25. Next

复制代码

转自：http://www.jb51.net/article/27133.htm

Demon

垃圾脚本之家

http://hi.baidu.com/myvbscript/b ... 8fac6fcb99858ee90da

find

回复 2# Demon


嗯，不知道。
如果垃圾百度也是抄别人的那该肿么办呢？

Demon

回复  Demon


嗯，不知道。
如果垃圾百度也是抄别人的那该肿么办呢？
find 发表于 2012-1-18 23:50

那就看你自己的判断了，反正垃圾脚本之家的都是抄的，而且不注明出处。

http://demon.tw/mood-story/the-infringement-of-jb51.html