Usb Geräte Name und ID auslesen

  • VB.NET

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von Hoffi.

    Usb Geräte Name und ID auslesen

    Hi Leute,

    ich möchte ein Programm schreiben, dass den Geräte Namen und die SerialID ausliest. Ich weiß leider nicht genau, ob der Code unten der richtige ist, denn er liest nur einen Stick aus. Würde auch gerne Wissen, wie man alle USB-Geräte ausliest, sodass der Name und die ID da steht. :) danke an alle im Vorraus ;)

    VB.NET-Quellcode

    1. Imports System.Management
    2. Public Class Anmelden
    3. Dim DeviceID As String = ""
    5. Function GetDeviceID()
    6. Try
    7. Dim MS As ManagementObjectSearcher = New ManagementObjectSearcher("SELECT * FROM Win32_diskdrive where interfacetype = 'USB'")
    8. For Each Mo As ManagementObject In MS.Get
    9. For Each Data As PropertyData In Mo.Properties
    10. If Data.Name = "PNPDeviceID" Then
    11. DeviceID = Convert.ToString(Data.Value)
    12. Dim ArrUSBInfo() As String = DeviceID.Split("\")
    13. Return ArrUSBInfo(UBound(ArrUSBInfo))
    14. End If
    15. Next
    16. Next
    17. Catch ex As Exception
    18. Return 0
    19. End Try
    20. End Function
    21. Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
    23. Private Sub Anmelden_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    24. Label1.Text = GetDriveType(nDrive:="USB")
    25. End Sub
    26. End Class


    *Topic verschoben*
    Mit dem Computer können wir Probleme lösen, die wir ohne ihn nicht hätten.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

    Wie kann ich den Text dann so verändern, dass er automatisch zu dem Namen die richtige ID ausliest? Stehe gerade auf dem Schlauch ^^ Die SerialID ließt er aber richtig aus oder? Den habe ich grade in einer Datei von mir gefunden ^^

    VB.NET-Quellcode

    1. Option Explicit On
    2. Option Strict On
    4. Imports System.Management
    6. Public Class Form1
    7. Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
    8. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    9. Dim gui As GetUSBInformation = New GetUSBInformation()
    10. Try
    11. ListBox1.Items.Add(gui.GetModel)
    12. Catch ex As Exception
    13. MessageBox.Show(ex.Message.ToString(), "Info")
    14. End Try
    15. ListBox1.Items.Add(GetDriveType(nDrive:=(gui.GetModel)))
    16. End Sub
    18. Private Class GetUSBInformation
    20. Private _model As String
    23. Public Sub New()
    24. Me.GetUSBDriveInformations()
    25. End Sub
    29. Public ReadOnly Property GetModel() As String
    30. Get
    31. Return Me._model
    32. End Get
    33. End Property
    37. Public Sub GetUSBDriveInformations()
    38. Try
    39. Dim query As String = "SELECT * FROM Win32_DiskDrive WHERE InterfaceType='USB'"
    40. Dim mos As ManagementObjectSearcher = New ManagementObjectSearcher(query)
    42. For Each mo As ManagementObject In mos.Get()
    43. Me._model = mo("Model").ToString()
    44. Next
    46. Catch ex As ManagementException
    47. MessageBox.Show(ex.Message.ToString(), "ManagementException")
    48. Catch ex As Exception
    49. MessageBox.Show(ex.Message.ToString(), "Exception")
    50. End Try
    51. End Sub
    53. End Class
    54. End Class


    Da schmeißt er mir auch immer nur eins raus und ich weiß nicht, ob es die richtige ID ist :(
    Mit dem Computer können wir Probleme lösen, die wir ohne ihn nicht hätten.

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

    zb:

    VB.NET-Quellcode

    1. Dim theSearcher = New ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive WHERE InterfaceType='USB'")
    2. For Each mo As ManagementObject In theSearcher.Get
    3. Dim SerialQuery = New ManagementObject("Win32_PhysicalMedia.Tag='" & CStr(mo("DeviceID")) & "'")
    4. Debug.Print("Serial (if any) : " & SerialQuery("SerialNumber").ToString)
    5. Next



    abgwandelt von: stackoverflow.com/questions/45…r-of-usb-stick-in-c-sharp

    Habe es geschafft^^. Wenn ich den Code posten soll, dann schreibt bis zum 23.04.2012 hier ins Forum rein, wenn nicht markiere ich es als erledigt.

    Trotzdem danke für die Hilfe :).
    Mit dem Computer können wir Probleme lösen, die wir ohne ihn nicht hätten.

    Hoffi schrieb:

    Wenn ich den Code posten soll,
    Klar, wir freuen uns immer, wenn win Stück lauffähiger Code veröffentlicht wird, denn der nächte mit einem vergleichbaren Problem kommt bestimmt. :thumbup:
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hoffi schrieb:

    wenn nicht markiere ich es als erledigt.
    <offtopic>
    ich glaub du hast "erledigt" mit "geschlossen" verwechselt - bei erledigt wird es nur so markiert, man kann aber trotzdem noch schreiben, schließen können nur die Mods, dann kann man nicht mehr antworten.
    </offtopic>

    Ansonsten kann ich mich Rod nur anschließen ;)

    VB.NET-Quellcode

    1. Option Strict On
    2. Imports System.IO
    3. Imports System.Management
    5. ' (Den Verweis auf System.Management nicht vergessen!) Die Klasse im Anhang ist ebenfalls dazu notwendig (Sie wurde nicht von mir erstellt).
    7. Dim cdrive As System.IO.DriveInfo
    8. Dim ans As String
    10. cdrive = My.Computer.FileSystem.GetDriveInfo("Den Laufwerkbuchstaben hier eintragen")
    11. Steuerelement.Text = "Geräte Name: " + cdrive.VolumeLabel
    12. ans = usb.GetSerialNumber("Den Laufwerkbuchstaben hier eintragen")
    13. Steuerelement.Text = "SerialID: " + ans
    15. ' Es kann sein, dass man mehrere Try-Blöcke einfügen muss, da es zu Fehlern kommen könnte.


    Eigentlich übelst einfach :D und Beachtet die C&P Bremse!!!
    Dateien

    • USB_Serial2.vb

      (3,05 kB, 456 mal heruntergeladen, zuletzt: )
    Mit dem Computer können wir Probleme lösen, die wir ohne ihn nicht hätten.

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