vbs列出内网的中计算机（工作组也可以）

复制代码 代码如下:

'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


您可能感兴趣的文章:

• 域内计算机和用户获取实现vbs代码
• 用vbs实现判断计算机是笔记本还是台式机的代码
• vbs实现计算机重启
• 用vbs得到计算机的 IP 地址
• 如何用VBS脚本收集远程计算机或本地计算机安装的软件

本文由 华域联盟 原创撰写：华域联盟 » vbs列出内网的中计算机（工作组也可以）

转载请保留出处和原文链接：https://www.cnhackhy.com/16138.htm