VBS获取硬盘序列号
使用VBS调用WMI获取硬盘序列号,没什么技术含量,核心是Win32_PhysicalMedia类。
把以下代码,保存为扩展名是vbs的文件中
'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
出处:http://demon.tw/programming/vbs-harddisk-serialnumber.html