手机
当前位置:查字典教程网 >脚本专栏 >vbs >vbs列出内网的中计算机(工作组也可以)
vbs列出内网的中计算机(工作组也可以)
摘要:复制代码代码如下:'HandleErrorsOnErrorResumeNext'GettheproviderobjectSetprov=Ge...

复制代码 代码如下:

'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列出注册表中 Run 项中的所有项目

vbs 获取当前目录的实现代码

用vbs检索在运行对话框中键入的一系列命令的代码

更牛的一句话asp木马加密(去掉asp里的%)

vbs 多线程下载实现代码

使用 Iisftp.vbs 列出FTP站点的方法

用vbs得到计算机的 IP 地址

用vbs确定计算机是否有 USB 2.0 端口的代码

用vbs实现向任何电子邮件发送邮件

vbs复制文件的脚本

精品推荐
分类导航