USB-Stick Serien nummer auslesen

  • VB.NET

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von Gelöschter Benutzer.

    USB-Stick Serien nummer auslesen

    Hallo!
    Ich suche jetzt schon seit längerem nach einer Möglichkeit, mit der ich die eindeutige Hardware seien nummer meines USB-Sticks auslesen kann.
    per WMI hat es bei mir noch nicht geklappt.
    Gruß, big-d

    Ich habe folgendes getestet:

    VB.NET-Quellcode

    1. Imports System.Management
    2. Public Class Form1
    4. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    5. Try
    6. Dim searcher As New ManagementObjectSearcher("SELECT * FROM Win32_PhysicalMedia")
    7. For Each wmi_HD As ManagementObject In searcher.Get()
    8. ListBox1.Items.Add((wmi_HD("SerialNumber")).ToString())
    9. Next
    10. Catch ex As Exception
    12. End Try
    14. End Sub
    16. End Class


    Aber es geht nicht

    Ich habe diesen code:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. 'Beispiel: VB .Net - WMI - USB - Informationen ermitteln
    2. 'Hinweis : Um das Beispiel zu Testen ist es erforderlich ein USB Laufwerk anzuschliessen.
    3. '
    4. Option Explicit On
    5. Option Strict On
    7. Imports System.Management
    10. Public Class Form1
    12. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    13. Dim gui As GetUSBInformation = New GetUSBInformation()
    14. Try
    15. Me.ListBox1.Items.Add(gui.GetInterfaceType)
    16. Me.ListBox1.Items.Add(gui.GetModel)
    17. Me.ListBox1.Items.Add(gui.GetManufacturer)
    18. Me.ListBox1.Items.Add(gui.GetDescription)
    19. Me.ListBox1.Items.Add(gui.GetId)
    20. TextBox1.Text = gui.GetId
    21. Catch ex As Exception
    22. MessageBox.Show(ex.Message.ToString(), "Info")
    23. End Try
    24. End Sub
    26. Private Class GetUSBInformation
    28. Private _interfacetype As String
    29. Private _model As String
    30. Private _manufacturer As String
    31. Private _description As String
    32. Private _id As String
    33. Private _name As String
    35. Public Sub New()
    36. Me.GetUSBDriveInformations()
    37. End Sub
    39. Public ReadOnly Property GetInterfaceType() As String
    40. Get
    41. Return Me._interfacetype
    42. End Get
    43. End Property
    45. Public ReadOnly Property GetName() As String
    46. Get
    47. Return Me._name
    48. End Get
    49. End Property
    51. Public ReadOnly Property GetId() As String
    52. Get
    53. Return Me._id
    55. End Get
    56. End Property
    58. Public ReadOnly Property GetModel() As String
    59. Get
    60. Return Me._model
    61. End Get
    62. End Property
    64. Public ReadOnly Property GetManufacturer() As String
    65. Get
    66. Return Me._manufacturer
    67. End Get
    68. End Property
    70. Public ReadOnly Property GetDescription() As String
    71. Get
    72. Return Me._description
    73. End Get
    74. End Property
    76. Public Sub GetUSBDriveInformations()
    77. Try
    78. Dim query As String = "SELECT * FROM Win32_DiskDrive WHERE InterfaceType = 'USB'"
    79. Dim mos As ManagementObjectSearcher = New ManagementObjectSearcher(query)
    81. For Each mo As ManagementObject In mos.Get()
    82. Me._interfacetype = mo("InterfaceType").ToString()
    83. Me._model = mo("Model").ToString()
    84. Me._manufacturer = mo("Manufacturer").ToString()
    85. Me._description = mo("Description").ToString()
    86. Me._id = mo("PNPDeviceID").ToString()
    87. Me._name = mo("Name").ToString()
    88. Next
    89. Catch ex As ManagementException
    90. MessageBox.Show(ex.Message.ToString(), "ManagementException")
    91. Catch ex As Exception
    92. MessageBox.Show(ex.Message.ToString(), "Exception")
    93. End Try
    94. End Sub
    96. End Class
    97. End Class

    wieso gibt der code immer nur einen von 3 Sticks aus???

    Bei WMI sihe Bild!
    Was ist der fehler?
    Bilder

    • prob.jpg

      192,98 kB, 809×469, 528 mal angesehen

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „da-kid“ ()


    wieso giebt der code immer nur einen von 3 Sticks aus???

    Das wird nicht gehen.

    Du muß die Angeschlossene Laufwerke (USB Stick) aufliesten und mit eine For Each Schleife die Laufwerke durchlaufen und Infos von jeden angeschlossenen Laufwerk (USB Stick) auslesen.
    Infos kannst in eine Array zwieschen speichern und spähter in einem ListView/ListBox/ComboBox oder etc anzeigen lassen.

    USB Laufwerke erkennen (Code muß du noch anpassen):
    Erkennen, wann ein Laufwerk hinzugefügt bzw. entfernt wurde (USB-Stick)

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „SystemUnknow“ ()

    Hi,

    versuch mal das, diesen Code habe ich aus diesem Forum, jedoch weiß ich nicht mehr von wem das war, siehe:

    VB.NET-Quellcode

    1. Imports System.Management
    3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    4. Dim PID As String
    5. Dim mos As ManagementObjectSearcher = New ManagementObjectSearcher("SELECT * FROM Win32_diskdrive where interfacetype = 'USB'")
    6. For Each mo As ManagementObject In mos.Get()
    7. For Each pd As PropertyData In mo.Properties
    8. If pd.Value IsNot Nothing Then
    9. PID = Convert.ToString(pd.Value)
    10. If pd.Name = "PNPDeviceID" Then MsgBox(PID)
    11. End If
    12. Next
    13. Next
    14. End Sub


    Ciao...

Facebook