How to list the medium computers in the intranet by vbs

This article is about how vbs lists the computers on the intranet. The editor thinks it is very practical, so share it with you as a reference and follow the editor to have a look.

The code is as follows:

'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

Thank you for reading! This is the end of this article on "how to list intranet computers in vbs". I hope the above content can be of some help to you, so that you can learn more knowledge. if you think the article is good, you can share it for more people to see!