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一下


标签: , ,