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

184 阅读 0 评论 122 点赞

我是靠谱客的博主舒心大白，这篇文章主要介绍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 