Author: water and smoke
Use Managementclass . The following example shows how to search hard disk information. Private Sub button#click () Sub Button#click ( Byval Sender As System. object, Byval E As System. eventargs) Handles Button1.click
Dim Disks As New Managementclass ( " Win32_diskdrive " )
Dim Observer As New Managementoperationobserver
Addhandler Observer. objectready, Addressof Onenumobjectready
Disks. getinstances (observer)
End sub
Sub onenumobjectready () Sub Onenumobjectready ( Byval Sender As Object , Byval E As Objectreadyeventargs)
Console. writeline ( " **************************************** ************** " )
Console. writeline (E. newobject. properties ( " Description " ). Value)
Console. writeline (E. newobject. properties ( " Caption " ). Value)
Console. writeline (E. newobject. properties ( " DeviceID " ). Value)
End sub
