阿杰 发表于 2009-8-25 09:48:43

【开源】&&VF直接读取硬盘序号_取第一块硬盘的物理序号

&&VF直接读取硬盘序号
oWMI=CREATEOBJECT("WbemScripting.SWbemLocator")
oLocal=oWMI.ConnectServer(".", "root\cimv2")
oHardware=oLocal.ExecQuery("SELECT * FROM Win32_PhysicalMedia")
FOR EACH object1 IN oHardware
lcHDID=SUBSTR(object1.Properties_('SerialNumber').VALUE,1,16)
EXIT
ENDFOR
?'硬盘序号:',lcHDID
RELEASE oWMI

阿杰 发表于 2010-3-9 21:30:50


FUNCTION   GetDiskNumber() AS STRING
oWMI = CREATEOBJECT("WbemScripting.SWbemLocator")
oLocal = oWMI.ConnectServer(".", "root\cimv2")
oHardware = oLocal.ExecQuery("SELECT * FROM Win32_PhysicalMedia")
FOR EACH object1 IN oHardware
      RETURN ALLTRIM(object1.Properties_("SerialNumber").VALUE)
ENDFOR
ENDFUNC
页: [1]
查看完整版本: 【开源】&&VF直接读取硬盘序号_取第一块硬盘的物理序号