复制代码 代码如下:
'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脚本收集远程计算机或本地计算机安装的软件