用VF识别硬盘的物理序列号(转载)

默认分类 | 2021-05-13 16:23:41 | 阅读 130 次 | 评论(1)
作者:Tiger5392
转载:https://bbs.bccn.net/thread-210804-1-1.html



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
文章评论,共1条
访盖示曲(游客)
2021-06-10 15:53
1
游客请输入验证码
文章分类
最新评论