［求助］如何用ＶＦ识别硬盘的物理序列号？
急求高手解决！如何用ＶＦ识别硬盘的物理序列号？
[[it] 本帖最后由 betterman 于 2008-4-24 12:27 编辑 [/it]]
oWMI=CREATEOBJECT("WbemScripting.SWbemLocator")
oLocal=oWMI.ConnectServer(".", "root\cimv2")
oHardware=oLocal.ExecQuery("SELECT * FROM Win32_PhysicalMedia")
FOR EACH object1 IN oHardware
lcHDID=object1.Properties_('SerialNumber').VALUE
EXIT
ENDFOR
?'硬盘序号:',lcHDID
RELEASE oWMI
RETURN
