Hersteller-Seriennummer von Laufwerken ermitteln Mithilfe von WMI lässt sich unter Windows Vista u.a. auch die Hersteller-Seriennummer von beliebigen installierten Laufwerken ermitteln (Harddisk, CD/DVD-ROM, USB-Sticks, ...)
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  12.715
https://www.tools4vb.com	System:  Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 7 Bewertung insgesamt: sehr gut Durchschnittliche Bewertung: 5.0 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Wie man die Seriennummer eines Laufwerks ermittelt, die beim Formatieren des Datenträgers vergeben wird, haben wir bereits mehrfach gezeigt.

Heute zeigen wir, wie sich die Hersteller-Seriennummer eines Laufwerks mit Hilfe des Windows-Managment-Instrument (WMI) ermitteln lässt.

Der SerialNo-Eigenschaft wird jedoch erst ab Windows Vista vom WMI-Objekt unterstützt!

Dim oWMI As Object
Dim sComputer As String
Dim oItems As Object
Dim oItem As Object
 
' aktueller Rechner
sComputer = "."
 
' WMI-Objekt erstellen
Set oWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" _
  & sComputer & "\root\cimv2")
 
' WMI-Abfrage erstellen
Set oItems = oWMI.ExecQuery("Select * from Win32_DiskDrive")
For Each oItem In oItems
  On Error Resume Next
  Debug.Print "Index: " & oItem.Index
  Debug.Print "InterfaceType: " & oItem.InterfaceType
  Debug.Print "DeviceID: " & oItem.DeviceID
  Debug.Print "Model: " & oItem.Model
 
  ' Hersteller-Serien-Nr. (wird erst ab Vista unterstützt!)
  Debug.Print "SerialNo: " & oItem.SerialNumber
  Debug.Print "-------------------------------------" & vbCrLf
  On Error GoTo 0
Next 
Set oItem = Nothing
Set oItems = Nothing
Set oWMI = Nothing