VBS获取硬盘序列号

标签： , , , ,

标题: VBS获取硬盘序列号
作者: Demon
链接: http://demon.tw/programming/vbs-harddisk-serialnumber.html
版权: 本博客的所有文章，都遵守“署名-非商业性使用-相同方式共享 2.5 中国大陆”协议条款。

VBS调用WMI获取硬盘序列号，没什么技术含量，核心是Win32_PhysicalMedia类。

'SerialNumber
'By Demon
'http://demon.tw
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_PhysicalMedia",,48)

Dim objItem 'as Win32_PhysicalMedia
For Each objItem in colItems
    WScript.Echo "SerialNumber: " & objItem.SerialNumber
Next

参考链接：http://msdn.microsoft.com/en-us/library/windows/desktop/aa394346%28v=vs.85%29.aspx

赞赏

微信赞赏支付宝赞赏

相关文章:

  1. 用VBS判断操作系统是32位（x86）还是64位（x64）
  2. 用VBS获取屏幕分辨率
  3. VBS调用WMI获取CPU使用率
  4. WMI中的Win32_PingStatus类
  5. VBS调用WMI监视注册表变动

随机文章:

  1. PHP调用COM组件
  2. VBS模拟POST上传文件
  3. VBS调用IE对象直接打印网页
  4. VB中的命名参数
  5. OpenTextFile与Unicode

这篇文章发布于 2012年11月21日，星期三，09:15，归类于 程序设计。 您可以跟踪这篇文章的评论通过 RSS 2.0 feed。 您可以留下评论，或者从您的站点trackback。

留下回复