VB程序员博客
VB程序开发
在 wmi 中调用 PhysicalMedia 获得硬盘序列号时 提示null
Dim DiskDriveSet As SWbemObjectSet
Dim dd As SWbemObject
Set DiskDriveSet = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_PhysicalMedia")
For Each dd In DiskDriveSet
text1.text=dd.SerialNumber
Next
自己顶吧
mark一下
标签: , PhysicalMedia, 使用