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
Please also mark the comments that contributed to the solution of the article
Content-Key: 108866
Url: https://administrator.de/contentid/108866
Printed on: May 4, 2024 at 12:05 o'clock
2 Comments
Latest comment