Option Explicit
Dim WMI As Object, Objs As Object, Obj As Object, Bian()
Private Sub Form_Load()
Set WMI = GetObject("WinMgmts:root\WMI")
Set Objs = WMI.ExecQuery("SELECT * FROM MSStorageDriver_ATAPISmartData")
For Each Obj In Objs
Bian = Obj.VendorSpecific
Next
MsgBox Join(Bian)
End Sub
Private Sub Form_Load()
Set WMI = GetObject("WinMgmts:root\WMI")
Set Objs = WMI.ExecQuery("SELECT * FROM MSStorageDriver_ATAPISmartData")
For Each Obj In Objs
Debug.Print "Active:" & vbTab & Obj.active
Debug.Print "TotalTime:" & vbTab & Obj.TotalTime
Debug.Print "InstanceName:" & vbTab & Obj.InstanceName
Debug.Print "SelfTestStatus:" & vbTab & Obj.SelfTestStatus
Next
End Sub
