硬盘物理序列号的得到方法_hemfanings

硬盘物理序列号的得到方法_hemfanings百度空间 | 百度首页 | 登录 hemfanings踏雪无痕|王者归来主页博客相册|个人档案 |好友
|有啊店铺查看文章
硬盘物理序列号的得到方法2009年06月30日星期二 15:00MsgValue = ""
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

类别：个人心得 | 添加到搜藏 | 浏览(75) | 评论 (0) 上一篇：北京网通劫持VeryCD网站下一篇：基于硬件指纹的软件加密和注册技...
相关文章：•VB获取硬盘物理序列号源码 •获得硬盘物理序列号的方法 vc/C+...
•DELPHI中读取硬盘的物理序列号 •C++ 硬盘物理序列号
•获取硬盘物理序列号 •取得硬盘物理和逻辑序列号
•VB 利用硬盘物理序列号进行软件... •初步实现系统级拦截应用程序取硬...
•c#如何获得cpu,硬盘的物理序列号 •取硬盘物理序列号的完整代码
更多>>
最近读者：登录后，您就出现在这里。
郁乐唯可乐mystlone
网友评论：发表评论：姓　名：注册 | 登录 *姓名最长为50字节

网址或邮箱： (选填)

内　容：插入表情▼ 闪光字

验证码：请点击后输入四位验证码，字