'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