硬盘物理序列号的得到方法_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字节
网址或邮箱： (选填)
内 容：插入表情▼ 闪光字
验证码： 请点击后输入四位验证码，字
母不区分大小写
看不清?
取消回复
©2009 Baidu
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论