Registry auslesen

Im folgenden Code-Beispiel wird mit VBA die Registry ausgelesen. Neben der Information über den Prozessor kann auch jede andere Information aus der Registry ausgelesen werden.

Es ist zu beachten, dass der Zugriff auf die Registry mit der Methode System.PrivateProfileString nur aus Word möglich ist. Darum wird zunächst ein Word-Objekt mit CreateObject erstellt.

'------------------------------------------------------------------
' Procedure : ProzessorErmitteln
' DateTime  : 19.03.2009 21:52
' Author    : Tobias - tobiasschmid.de - vba-blog.de
' Purpose   : Prozessor ermitteln
'------------------------------------------------------------------
Sub ProzessorErmitteln()
    Dim strReg As String
    'Word-Objekt, für das Excel-Objekt ist die Methode _
        .System.PrivateProfileString nicht verfügbar

    Dim AppWord As Object

    'Word-Objekt erstellen
    Set AppWord = CreateObject("Word.Application")
    'Registry-Eintrag
    strReg = "HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0"

    'Zugriff auf die Registry
    MsgBox AppWord.System.PrivateProfileString("", strReg, "ProcessorNameString")
    MsgBox AppWord.System.PrivateProfileString("", strReg, "~MHz")

    'Word beenden
    AppWord.Quit
    Set AppWord = Nothing
End Sub

Code eingefügt mit Syntaxhighlighter 4.15
Your rating: Keine Average: 4.6 (5 votes)