Visual Basic

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    ' Important!!  MUST use \root\cimv2 here!  \root\default does NOT work!
    Dim scope As New ManagementScope("\\.\root\cimv2")

    ' Clear out the ListView we're using to show the drives and serial numbers.
    ListView1.Items.Clear()

    Dim query As New ObjectQuery("SELECT * FROM Win32_PhysicalMedia")
    Dim searcher As New ManagementObjectSearcher(scope, query)
    Dim objectCollection As ManagementObjectCollection = searcher.Get()
    For Each obj As ManagementObject In objectCollection
        ' The ListView is assumed to have two columns setup to old these.
        Dim newItem As New ListViewItem(New String() {CStr(obj("Tag")), CStr(obj("SerialNumber")).Trim})
        ListView1.Items.Add(newItem)
    Next

    ' It's very important to dispose these objects when your done with them!  If
    ' you don't, you'll end up with a handle leak and eventually crash the system.
    objectCollection.Dispose()
    searcher.Dispose()
End Sub

Thoombath wrote:

Do we need to change the scope from machine to machine?

Thoombath wrote:

When i tried your code am getting Error Msg as "Object reference not set to an instance of an object."

Nothing.Trim

For Each obj As ManagementObject In objectCollection
    ' The ListView is assumed to have two columns setup to old these.
    Try
        Dim newItem As New ListViewItem(New String() {CStr(obj("Tag")), CStr(obj("SerialNumber")).Trim})
        ListView1.Items.Add(newItem)
    Catch
        ' Warning!  This will ignore ANY AND ALL ERRORS with the above two lines of code!
        ' In a production environment, this is usually NOT a good idea!
    End Try
Next

kubben wrote:

You know it is sort of funny they don't include it. It is not like you don't need to deploy your apps.