Board logo

标题: [转贴] VBS脚本列出内网的中计算机(工作组也可以) [打印本页]

作者: find    时间: 2012-1-18 23:41     标题: VBS脚本列出内网的中计算机(工作组也可以)

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

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

转自:http://www.jb51.net/article/27133.htm
作者: Demon    时间: 2012-1-18 23:47

本帖最后由 Demon 于 2012-1-18 23:49 编辑

垃圾脚本之家

http://hi.baidu.com/myvbscript/b ... 8fac6fcb99858ee90da
作者: find    时间: 2012-1-18 23:50

回复 2# Demon


嗯,不知道。
如果垃圾百度也是抄别人的那该肿么办呢?
作者: Demon    时间: 2012-1-18 23:55

本帖最后由 Demon 于 2012-1-18 23:56 编辑
回复  Demon


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


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

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




欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2