获得域内包括工作组内的所有计算机及其信息

On Error Resume Next 
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

　　 欢迎加入QQ技术群聊：70539804