Rubrik: System/Windows · Sonstiges | VB-Versionen: VB6 | 04.06.10 |
CPU-Geschwindigkeit via WMI ermitteln Diese Funktion ermittelt die CPU-Geschwindigkeit über WMI. | ||
Autor: Dennis Hemken | Bewertung: | Views: 9.063 |
gadgets.hemken.org | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Was ist denn WMI?
WMI ist - Windows Management Instrumentation.
Über WMI kann lesend und schreibend, lokal oder vom Netzwerk aus, auf nahezu alle Einstellungen eines Windows-Computers zugegriffen werden. WMI ist daher unter Windows eine der wichtigsten Schnittstellen für die Administration und Fernwartung von Workstations und Servern.
Und hier der Code:
' Ermittelt die CPU-Geschwindigkeit via WMI Public Function fct_CPUSpeed(ByVal strComputer As String) Dim strOutput As String Dim objWMIS As Object Dim colWMI As Object Dim objProcessor As Object On Error Resume Next Set objWMIS = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colWMI = objWMIS.ExecQuery( _ "SELECT DeviceID, MaxClockSpeed, Name, Status FROM Win32_Processor") For Each objProcessor In colWMI strOutput = strOutput & objProcessor.Name & ": " & objProcessor.DeviceID & _ "-Speed: " & objProcessor.MaxClockSpeed & _ "Mhz (Status:" & objProcessor.Status & ")" & vbCrLf Next On Error GoTo 0 fct_CPUSpeed = strOutput End Function
Beispielaufruf:
Dim strComputer As String ' Der Punkt (.) ist sowas wie der localhost, also für den eigenen PC ' es geht aber auch mit einer IP-Adresse, oder einem Computernamen, ' vorausgesetzt, dieser befindet sich im gleichen Netz. strComputer = "." Debug.Print fct_CPUSpeed(strComputer)