九乡新闻网魔兽世界流沙法袍:WMI的经典应用举例(VBS)
来源：百度文库 编辑：九乡新闻网 时间：2024/07/07 13:25:21
WMI的经典应用举例(VBS)
MsgValue = “”
Set objWMIService = GetObject(“winmgmts:\\.\root\cimv2″)
‘获取硬盘序列号
Set colItems = objWMIService.ExecQuery(“SELECT * FROM Win32_PhysicalMedia”, , 48)
For Each objItem In colItems
MsgValue = MsgValue & vbCrLf & “硬盘 = ” & objItem.SerialNumber
Next
‘获取主板序列号
Set colItems = objWMIService.ExecQuery(“Select * from Win32_BaseBoard”, , 48)
For Each objItem In colItems
MsgValue = MsgValue & vbCrLf & “主板=” & objItem.SerialNumber
Next
‘获取CPU ID
Set colItems = objWMIService.ExecQuery(“Select * from Win32_Processor”, , 48)
For Each objItem In colItems
MsgValue = MsgValue & vbCrLf & “CPU = ” & objItem.ProcessorId
Next
‘获取BIOS序列号
Set colItems = objWMIService.ExecQuery(“Select * from Win32_BIOS”, , 48)
For Each objItem In colItems
MsgValue = MsgValue & vbCrLf & “BIOS= ” & objItem.SerialNumber
Next
‘获取网卡MAC地址
Set colItems = objWMIService.ExecQuery(“SELECT MACAddress FROM Win32_NetworkAdapter WHERE ((MACAddress Is Not NULL) AND (Manufacturer <> ‘Microsoft’))”, , 48)
For Each objItem In colItems
MsgValue = MsgValue & vbCrLf & “网卡 = ” & objItem.MACAddress
Next
Wscript.Echo MsgValue