当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > vbs wmi获取电脑硬件信息实例

VBScript
VBS教程：对象-正则表达式(RegExp)对象
VBS教程：对象-Matches 集合
VBS教程：对象-Match 对象
VBS教程：对象-Err
VBS教程：对象-Class 对象
VBS教程：VBScript 对象
VBS教程：字符集 (0 - 127)
VBS教程：方法-Test 方法
VBS教程：方法-Replace 方法
VBS教程：方法-Raise 方法
VBS教程：方法-Execute 方法
VBS教程：方法-Clear 方法
VBS教程：函数-Year 函数
VBS教程：函数-WeekDayName 函数
VBS教程：函数-Weekday 函数
VBS教程：函数-VarType 函数
VBS教程：函数-UCase 函数
VBS教程：函数-UBound 函数
VBS教程：函数-TypeName 函数
VBS教程：函数-TimeValue

No. « 9 10 11 12 »

技术文章搜索

关键字

VBScript 中的 vbs wmi获取电脑硬件信息实例

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-09-11   浏览: 278 ::
收藏到网摘: n/a

Set wmi=GetObject("winmgmts:\\")
Set board=wmi.instancesof("win32_baseboard")
For Each b In board
msg="主板："&b.Manufacturer&vbTab&b.product&vbTab&Chr(13)
Next
msg=msg&Chr(13)&"---"+Chr(13)
Set cpus=wmi.instancesof("win32_processor")
msg=msg&"CPU 特征:"+Chr(13)
For Each cpu In cpus
msg=msg+cpu.deviceid&vbTab&cpu.name&Chr(13) _
&vbtab&cpu.SocketDesignation&vbtab&cpu.CurrentClockSpeed&"MHz"&vbtab&cpu.l2cachesize&"Kb_L2"&Chr(13)
Next
msg=msg&Chr(13)&"---"+Chr(13)
Set mem=wmi.instancesof("win32_physicalmemory")
msg=msg&"内存容量："+Chr(13)
For Each m In mem
msg=msg&m.tag&space(10)&m.capacity&+Chr(13)
Next
Set mem=wmi.instancesof("win32_computersystem")
For Each m In mem
msg=msg&"内存总容量："&Round((m.totalphysicalmemory/1024^2),2)&"M"+Chr(13)
Next
msg=msg&Chr(13)&"---"+Chr(13)
Set display=wmi.instancesof("Win32_videocontroller")
msg=msg&"显示系统："+Chr(13)
For Each video In display
msg=msg&video.deviceid&vbTab&video.name&Chr(13)
Next
msg=msg&Chr(13)&"---"+Chr(13)

Set disks=wmi.instancesof("win32_diskdrive")
msg=msg&"硬盘容量："+Chr(13)
For Each d In disks
If int(d.size/(1024^3))=0 Then
n=Round(d.size/(1024^2),2)&"M"
Else
n=Round(d.size/(1024^3),2)&"G"
End If
msg=msg+d.deviceid&" 空间为： "&n&Chr(13)
Next
msg=msg&Chr(13)&"---"+Chr(13)

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