急求高手解决！
如何用ＶＦ识别硬盘的物理序列号？

[[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

多谢Tiger5392!你真的让我佩服呀,成功解决了!

留个脚印