复制代码 代码如下:

‘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


您可能感兴趣的文章:

声明：本站（华域联盟www.cnhackhy.com）所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。