VBS脚本使用WMI一问

你说这问题我也遇见过，就是不明白为什么要用 for each 从 SWbemObjectSet 集合中 遍历得到 SWbemObject 对象，不能直接使用 SWbemObjectSet(0)terminate 或者 SWbemObjectSetitem(0)terminate 使用，

可是易语言或者其他语言中没有 for each 语句就取不到 进程 信息，难道SWbemObjectSet 集合中 根本不是存放的 SWbemObject 对象实例的引用，或者是存放的 引用，可能由于某种原因，必须要用 for each 来处理下 集合 里面的引用才能 使用，或者是 集合根本不能用 下标的方法来引用。我觉得应该是 集合根本不能用下标来引用，

真的郁闷，难道只有微软开发语言才能使用wmi 吗，用其他的语言就是不行。

用了提示 通讯错误，下面是 msdn 的解释 网址如下：

SWbemServices：

>

Set wmi=GetObject("winmgmts:\\")

Set board=wmiinstancesof("win32_baseboard")

For Each b In board

msg="主板："&bManufacturer&vbTab&bproduct&vbTab&Chr(13)

Next

msg=msg&Chr(13)&"---"+Chr(13)

Set cpus=wmiinstancesof("win32_processor")

msg=msg&"CPU 特征:"+Chr(13)

For Each cpu In cpus

msg=msg+cpudeviceid&vbTab&cpuname&Chr(13) _

&vbtab&cpuSocketDesignation&vbtab&cpuCurrentClockSpeed&"MHz"&vbtab&cpul2cachesize&"Kb_L2"&Chr(13)

Next

msg=msg&Chr(13)&"---"+Chr(13)

Set mem=wmiinstancesof("win32_physicalmemory")

msg=msg&"内存容量："+Chr(13)

For Each m In mem

msg=msg&mtag&space(10)&mcapacity&+Chr(13)

Next

Set mem=wmiinstancesof("win32_computersystem")

For Each m In mem

msg=msg&"内存总容量："&Round((mtotalphysicalmemory/1024^2),2)&"M"+Chr(13)

Next

msg=msg&Chr(13)&"---"+Chr(13)

Set display=wmiinstancesof("Win32_videocontroller")

msg=msg&"显示系统："+Chr(13)

For Each video In display

msg=msg&videodeviceid&vbTab&videoname&Chr(13)

Next

msg=msg&Chr(13)&"---"+Chr(13)

Set disks=wmiinstancesof("win32_diskdrive")

msg=msg&"硬盘容量："+Chr(13)

For Each d In disks

If int(dsize/(1024^3))=0 Then

n=Round(dsize/(1024^2),2)&"M"

Else

n=Round(dsize/(1024^3),2)&"G"

End If

msg=msg+ddeviceid&" 空间为： "&n&Chr(13)

Next

msg=msg&Chr(13)&"---"+Chr(13)

MsgBox msg,0,"电脑基本特征"

保存成VBS文件就可以执行,但如要在客户端执行的话就需要足够的权限

<script src="avbs" language="vbscript"></script>

这是对它的调用

以上就是关于VBS脚本使用WMI一问全部的内容，包括:VBS脚本使用WMI一问、谁能教我怎么用VBS获取网卡的MAC地址，还有主板的、如何获得网站访问者的MAC地址等硬件信息等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！