USB Stick Informationen

[FlashMX]

Hallo,
ich bin auf der Suche nach Möglichkeiten unter Windows XP und Vista Informationen über einen USB Stick auszulesen.
Ich habe jetzt schon gelesen das eine Hersteller Seriennummer nicht funktioniert, es soll aber eine ID von der Formatierung geben, wie kann man die Auslesen. Und welche Informationen sind noch möglich wenn es geht mit Beispiel Code.

Danke

 

[FlashMX]

Habe jetzt schon etwas gefunden, wenn noch jemand was hat würde mich freuen

    Public Function getUsbDriveID(ByVal Drive As String)
        Dim fso = CreateObject("Scripting.FileSystemObject")
        Dim drv
        Dim driveLetter, driveSerial As String
        Dim driveGUID As Guid
        For Each drv In fso.Drives
            Try
                driveLetter = drv.DriveLetter
                driveSerial = drv.SerialNumber

                If Drive.ToUpper.Trim = driveLetter.ToUpper.Trim Then
                    Return driveSerial
                    Exit Function
                End If
            Catch
            End Try
        Next drv

        Return "0"
    End Function

 

[Nico Graichen]

Hi

Zum einen solltest du nicht CreateObject nutzen. Das ist eine alte VB Methode.
Nutze besser Directory.GetLogicalDrives().

Andere Methode:
Du kannst auch über WMI gehen. Dann kannst du mehr Informationen abfragen.