Projektanfrage

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 Unter-stü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
   
     Programmierung
Excel Auftragsprogrammierung Access Auftragsprogrammierung
Word Auftragsprogrammierung Outlook Auftragsprogrammierung
   
   

Projektanfrage

 Sie benötigen eine Auftragsprogrammierung?
 Oder suchen Unterstützung bei der Lösungs-
 findung?

  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
   

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(Optional ByVal strComputerName As String = ".")

'** Dimensionierung der Variablen
Dim objCPU As Object, objItem As Object

'** Objektvariable setzen
Set objCPU = GetObject("winmgmts:\\" & strComputerName & "\root\cimv2"). _
    ExecQuery("Select * from Win32_Processor")

'** CPU-Paramter auslesen
For Each 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:

 


   

Relevante Artikel

  • Tastencodes für die Funktion OnKey()

    108040 Möchten Sie bspw. das Makro "Test_Makro" über die Tastenkombination [Strg] + [t] starten, dann können Sie dies mit dem OnKey-Befehl per VBA erledigen. Gehen Sie dazu wie folgt vor. Erfassen Sie...

  • Übersicht aller Excel Schlüsselwörter

    108000a Nachfolgend eine Übersicht aller VBA-Schlüsselwörter   A B 1 Deutsch Englisch 2     3 Abs Abs 4 AktiviereAnw AppActivate 5 AktVerz CurDir 6 Alle Each 7 Als As 8 AlsWert ByVal 9 AlsZeiger ByRef 10...

  • Online-Status prüfen

    Dieses Beispiel zeigt, wie sich der Online-Status per VBA überprüfen lässt. Mit Hilfe des Codes wird geprüft, ob der Computer mit dem Internet verbunden ist oder nicht und gibt eine entsprechende...

  • XML Datei per VBA erzeugen

    In diesem Beispiel zeigen wir Ihnen, wie XML Dateien per VBA erzeugt werden können. Als Ausgangsdatei dient eine kleine Adressliste, die als XML-Datei abgespeichert werden soll, siehe Abbildung. Abb:...

  • Übersicht aller VBA Schlüsselwörter

    108000b Nachfolgend eine Übersicht aller VBA-Schlüsselwörter   A B 1 Deutsch Englisch 2     3 Abs Abs 4 AktiviereAnw AppActivate 5 AktVerz CurDir 6 Alle Each 7 Als As 8 AlsWert ByVal 9 AlsZeiger ByRef 10...