Auftragsprogrammierung

Projektanfrage über Web Formular   per Online-Formular 
Projektanfrage über E-Mail  Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!
Projektanfrage per Telefon  +49 (0)151 / 164 55 914
Projektanfrage weitere Informationen  weitere Informationen 

Sie benötigen Hilfe oder Unterstützung? Nutzen Sie für Ihre Anfrage unser Online-Formular, senden Sie uns eine Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!  oder rufen Sie uns einfach an.

Referenzen

 Bosch 
  T-Systems
  Hagebau
  Siemens
 Areva  VW
 Haufe-Lexware  British American Tobacco
  nagel group farbe

CPU Informationen auslesen

Mit Hilfe des untenstehenden VBA-Codes können verschiedene CPU Informationen ausgelesen werden

Folgende Informationen werden im Direktfenster ausgegeben:

1. die Geräte-ID
2. die Prozessorbezeichnung
3. die Taktfrequenz in Mhz
4. die eindeutige CPU ID
5. die Computerbezeichnung

Tragen Sie den VBA-Code in ein Code-Modul ein und starten Sie die Prozedur "CPU_auslesen".

Wenn das Direktfenster nicht angezeigt wird, können Sie dieses über das Menü --> Ansicht/Direktfenster oder über die Tastenkombination [Strg]+[G] im VBA Editor einblenden.


VBA-Code:

 

 Private Sub CPU_auslesen()
   CPU_Daten_auslesen
 End Sub
 



 Private Sub CPU_Daten_auslesen(OptionalByVal strComputerName As String = ".")
 
 '** Dimensionierung der Variablen
 Dim objCPU AsObject, objItem AsObject
 
 '** Objektvariable setzen
 Set objCPU = GetObject("winmgmts:\\" & strComputerName & "\root\cimv2"). _
     ExecQuery("Select * from Win32_Processor")
 
 '** CPU-Paramter auslesen
 ForEach objItem In objCPU
     Debug.Print "Prozessor   : " & objItem.DeviceID
     Debug.Print "Name        : " & Trim$(objItem.Name)
     Debug.Print "Takt (MHz)  : " & objItem.MaxClockSpeed
     Debug.Print "CPU ID      : " & objItem.ProcessorId
     Debug.Print "Computername: " & objItem.path_.server
 Next
 
 '** Objektvariable löschen
 Set objCPU = Nothing
 
 End Sub 

 

Das Ergebnis sieht wie folgt aus:

 


Drucken E-Mail

Projektanfrage

 Sie benötigen eine Auftragsprogrammierung?
 Oder suchen Unterstützung bei der 
 Lösungsfindung?

  Nutzen Sie unser Anfrageformular

  Jetzt anrufen unter 0151 / 164 55 914

 Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! Projektanfrage per Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! senden

  Weitere Informationen

sitepanel question2

P
R
O
J
E
K
T
A
N
F
R
A
G
E
Cookies erleichtern die Bereitstellung unserer Dienste. Mit der Bestätigung erklären Sie sich mit der Verwendung von Cookies auf Excel-Inside Solutions einverstanden.
Weitere Informationen Ok