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

find

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

'Handle Errors
On Error Resume Next
'Get the provider object
Set prov = GetObject("WinNT:")

'Examine the available domains the provider can reach
For each dom in prov

'Examine the objects in the domain and check for Computer objects
For each o in dom
If o.Class = "Computer" Then

'Display properties of the Computer
WScript.Echo o.Class & " " & o.Name
WScript.Echo " Owner: " & o.Owner
WScript.Echo " Division: " & o.Division
WScript.Echo " OperatingSystem: " & o.OperatingSystem
WScript.Echo " OS Version: " & o.OperatingSystemVersion
WScript.Echo " Processor: " & o.Processor
WScript.Echo " ProcessorCount: " & o.ProcessorCount

End If

Next
Next
复制代码

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

find

回复 2# Demon


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