USB-Stick Serien nummer auslesen
- VB.NET
Sie verwenden einen veralteten Browser (%browser%) mit Sicherheitsschwachstellen und können nicht alle Funktionen dieser Webseite nutzen.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von Gelöschter Benutzer.
-
-
schaue mal hier:
[VB 2008] Hardware ID auslesen
und hier:
microsoft.com/downloads/en/det…bbc145c30e&displaylang=en
sollte eigentlich iwie mit wmi funktionierenFür ein Mindestmaß an Rechtschreibung, Interpunktion und Majuskeln! -
Ich habe folgendes getestet:
VB.NET-Quellcode
- Imports System.Management
- Public Class Form1
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Try
- Dim searcher As New ManagementObjectSearcher("SELECT * FROM Win32_PhysicalMedia")
- For Each wmi_HD As ManagementObject In searcher.Get()
- ListBox1.Items.Add((wmi_HD("SerialNumber")).ToString())
- Next
- Catch ex As Exception
- End Try
- End Sub
- End Class
Aber es geht nicht -
Win32_PhysicalMedia ist falsch.
Siehe hier: visual-basic5.de/net/usbdriveinformations.htm
das + wmi code creater von oben, sollten dir auf jeden fall helfenFür ein Mindestmaß an Rechtschreibung, Interpunktion und Majuskeln! -
emmet-gray.com/Articles/USB_SerialNumbers.htm
vbforums.com/showthread.php?t=598027
oder du benutzt wmi. -
Ich habe diesen code:
Spoiler anzeigen VB.NET-Quellcode
- 'Beispiel: VB .Net - WMI - USB - Informationen ermitteln
- 'Hinweis : Um das Beispiel zu Testen ist es erforderlich ein USB Laufwerk anzuschliessen.
- '
- Option Explicit On
- Option Strict On
- Imports System.Management
- Public Class Form1
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Dim gui As GetUSBInformation = New GetUSBInformation()
- Try
- Me.ListBox1.Items.Add(gui.GetInterfaceType)
- Me.ListBox1.Items.Add(gui.GetModel)
- Me.ListBox1.Items.Add(gui.GetManufacturer)
- Me.ListBox1.Items.Add(gui.GetDescription)
- Me.ListBox1.Items.Add(gui.GetId)
- TextBox1.Text = gui.GetId
- Catch ex As Exception
- MessageBox.Show(ex.Message.ToString(), "Info")
- End Try
- End Sub
- Private Class GetUSBInformation
- Private _interfacetype As String
- Private _model As String
- Private _manufacturer As String
- Private _description As String
- Private _id As String
- Private _name As String
- Public Sub New()
- Me.GetUSBDriveInformations()
- End Sub
- Public ReadOnly Property GetInterfaceType() As String
- Get
- Return Me._interfacetype
- End Get
- End Property
- Public ReadOnly Property GetName() As String
- Get
- Return Me._name
- End Get
- End Property
- Public ReadOnly Property GetId() As String
- Get
- Return Me._id
- End Get
- End Property
- Public ReadOnly Property GetModel() As String
- Get
- Return Me._model
- End Get
- End Property
- Public ReadOnly Property GetManufacturer() As String
- Get
- Return Me._manufacturer
- End Get
- End Property
- Public ReadOnly Property GetDescription() As String
- Get
- Return Me._description
- End Get
- End Property
- Public Sub GetUSBDriveInformations()
- Try
- Dim query As String = "SELECT * FROM Win32_DiskDrive WHERE InterfaceType = 'USB'"
- Dim mos As ManagementObjectSearcher = New ManagementObjectSearcher(query)
- For Each mo As ManagementObject In mos.Get()
- Me._interfacetype = mo("InterfaceType").ToString()
- Me._model = mo("Model").ToString()
- Me._manufacturer = mo("Manufacturer").ToString()
- Me._description = mo("Description").ToString()
- Me._id = mo("PNPDeviceID").ToString()
- Me._name = mo("Name").ToString()
- Next
- Catch ex As ManagementException
- MessageBox.Show(ex.Message.ToString(), "ManagementException")
- Catch ex As Exception
- MessageBox.Show(ex.Message.ToString(), "Exception")
- End Try
- End Sub
- End Class
- End Class
wieso gibt der code immer nur einen von 3 Sticks aus???
Bei WMI sihe Bild!
Was ist der fehler?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
- Imports System.Management
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Dim PID As String
- Dim mos As ManagementObjectSearcher = New ManagementObjectSearcher("SELECT * FROM Win32_diskdrive where interfacetype = 'USB'")
- For Each mo As ManagementObject In mos.Get()
- For Each pd As PropertyData In mo.Properties
- If pd.Value IsNot Nothing Then
- PID = Convert.ToString(pd.Value)
- If pd.Name = "PNPDeviceID" Then MsgBox(PID)
- End If
- Next
- Next
- End Sub
Ciao... -
-
Du musst einen Verweis auf System.Management setzen. (Rechtsklick auf Projekt --> Verweis hinzufügen)
P.S: Der Thread ist 3 Jahre alt. Nächstes mal einen eigenen Thread erstellen.KaskadekingDE on GitHub
Bitte keine Fragen über Programmierung per PN! Dafür ist das Forum hier.
Who cares? ¯\_(ツ)_/¯
-
-
Ähnliche Themen
-
HEREZnfos - - Sonstige Problemstellungen
-
FloWxD - - Sonstige Problemstellungen
-
3 Benutzer haben hier geschrieben
- Gast (8)
- bla (2)
- KaskadekingDE (1)