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:	Views:  12.064
www.tools4vb.de	System:  Win7, Win8, Win10, Win11	Beispielprojekt auf CD

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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.