VBS获取硬盘序列号

标签： , , , ,

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

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

'SerialNumber
'By Demon
'https://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. MSDN上MS-DOS 6.22的安装方法
  2. VBS过程和函数参数传递的方式默认是ByVal还是ByRef？
  3. 一个复杂的VBS脚本问题——变量的变量
  4. 用C语言实现凯撒密码算法
  5. 用VBS控制鼠标（获取鼠标坐标、鼠标移动、鼠标单击、鼠标双击、鼠标右击）

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

留下回复