vbs列出内网中计算机或工作组的代码
用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脚本运行库手册(1)-磁盘操作
VBS脚本运行库手册(12)-创建Dictionary对象
网络编程是做什么的?
VBS显示系统服务列表的实例代码
用vbs生成若干个随机数并写入txt文件中的代码
VBS 添加右键以计算文件MD5值的代码(图文)
Win7中打印机共享怎么设置
电脑升级Windows 8.1系统问题与解决办法