【开源】&&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

阿杰

1. 
   
2. FUNCTION   GetDiskNumber() AS STRING
   
3. oWMI = CREATEOBJECT("WbemScripting.SWbemLocator")
   
4. oLocal = oWMI.ConnectServer(".", "root\cimv2")
   
5. oHardware = oLocal.ExecQuery("SELECT * FROM Win32_PhysicalMedia")
   
6. FOR EACH object1 IN oHardware
   
7.         RETURN ALLTRIM(object1.Properties_("SerialNumber").VALUE)
   
8. ENDFOR
   
9. ENDFUNC
   

复制代码