复制代码 代码如下:

'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