spinnifex
Goto Top

Wmic liefert per VBA aufgerufen zufällige Ergebnisse

'n Abend zusammen!

mit folgendem Code versuche ich die ProcessorID meines PCs auszulesen:
Public Sub ProcID()
Dim sProcID As String, sCommand As String
sCommand = "wmic cpu get ProcessorId"  

sProcID = Shell(sCommand, vbHide)
MsgBox sProcID

End Sub

Allerdings zeigt mir die Messagebox bei jedem neuen Aufruf eine zufällige Zahl, die mit dem Ergebnis an der CLI "wmic cpu get ProcessorId" genau nichts zu tun hat.

Wie macht man das richtig?

Vielen Dank
Spinnifex

Content-ID: 1915138227

Url: https://administrator.de/contentid/1915138227

Ausgedruckt am: 22.11.2024 um 06:11 Uhr

1915348599
Lösung 1915348599 14.02.2022 aktualisiert um 22:37:43 Uhr
Goto Top
Public Sub ProcID()
    set props = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2").ExecQuery("Select ProcessorId from Win32_Processor")  
    for each prop in props
        msgbox prop.ProcessorId
    Next
End Sub
spinnifex
spinnifex 14.02.2022 um 22:40:16 Uhr
Goto Top
Hallo Pretty,

so simpel, so schnell!!

Ganz lieben Dank
... und eine geruhsame Nacht!!
Spinnifex