Question

VBS 如何获取硬盘序列号？

Answer 1

Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_DiskDrive", "WQL", _
wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objItem In colItems
WScript.Echo "硬盘序列号: " & objItem.Signature
WScript.Echo
Next
直接保存成*.vbs，双击，运行就可以看到了

Answer 2

ASP环境的VBS：
Dim fso,d,dc,WshShell,drive,fname
Set fso = CreateObject(Scripting.FileSystemObject)
Set WshShell = CreateObject(WScript.Shell)
Set fname=fso.CreateTextFile(cdiskinfo.txt,true)
Set dc = fso.Drives
For Each d in dc
fname.WriteLine(d.DriveLetter & &d.SerialNumber & & d.VolumeName)
Next
fname.Close
set fname=nothing

Answer 3

使用getvolumeno函数