|
|
| 查看权限： |
需要 [年费会员] 级别以上才能查看。 |
| 发布时间： |
2022-11-13 17:44:55 |
| 信息简介： |
Public Code
Private Function DiscSerialNumber() '获取硬盘唯一ID
Dim oWMI As Object, oItems As Object, oItem As Object
Set oWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set oItems = oWMI.ExecQuery("Select * |
|
