2
WMI Hardware SN eines USB Sticks
Hy Leute,
Mein Ziel ist es in VBA(Access) die Seriennummer(Hardware SN) eines USB Sticks auszugeben. Da ich in einem Beitrag gelesen habe, das es einen WMI Code Creator gibt, hab ich mir ihn gleich gezogen.
Hier mein Code:
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_DiskDrive WHERE InterfaceType = 'USB'", , 48)
For Each objItem In colItems
MsgBox (objItem.SerialNumber)
Next
Wenn ich im WMI Code Creator mir die SN anschauen will ist das Feld dort leer und die MsgBox in Access ist ebenfalls leer.
Kann mir vl wer helfen???
Mit freundlichen Grüßen
Mein Ziel ist es in VBA(Access) die Seriennummer(Hardware SN) eines USB Sticks auszugeben. Da ich in einem Beitrag gelesen habe, das es einen WMI Code Creator gibt, hab ich mir ihn gleich gezogen.
Hier mein Code:
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_DiskDrive WHERE InterfaceType = 'USB'", , 48)
For Each objItem In colItems
MsgBox (objItem.SerialNumber)
Next
Wenn ich im WMI Code Creator mir die SN anschauen will ist das Feld dort leer und die MsgBox in Access ist ebenfalls leer.
Kann mir vl wer helfen???
Mit freundlichen Grüßen
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 108866
Url: https://administrator.de/contentid/108866
Printed on: April 16, 2024 at 05:04 o'clock
2 Comments
Latest comment
Es gibts auch kein Attribut SerialNumber. Und in der Microsoft Scriptomatic ausgeführt kommt auch die Fehlermeldung das SerialNumber nicht unterstützt wird.
Wie wäre es mit PNPDeviceID?
Also: MsgBox (objItem.PNPDeviceID)
Wie wäre es mit PNPDeviceID?
Also: MsgBox (objItem.PNPDeviceID)
Hy,
Danke schön. Gelöst
Mit freundlichen Grüßen
Danke schön. Gelöst
Mit freundlichen Grüßen