Table of Contents

toc01. mit FF-BefehlenSchreiben und LesenLöschenBoolsche Werte2. mit Mitteln des BetriebssystemsErstellen, Verändern, LöschenPrüfen, ob Schlüssel existiert / LesenLöschenWindows-VersionPrüfen, ob Knoten existiertalle Knoten einer Ebene ermittelnalle Schlüssel einer Ebene ermitteln3. weiterführende Informationentoc14

Die Befehle FF_WriteProfile und FF_GetProfile schreiben bzw. lesen (nur!) im Registry-Pfad HKEY_CURRENT_USER\Software\Joachim Koopmann Software\FixFoto\Script\. Der Befehl FF_DeleteProfile löscht einzelne Schlüssel oder die gesamte Sektion.

RegSection = "DemoScript"

FF_WriteProfile RegSection,"Key", "Wert des Schlüssels"   ' Wert schreiben
Variable = FF_GetProfile(RegSection,"Key")                ' Wert lesen

RegSection = "DemoScript"

FF_WriteProfile RegSection,"Key", "Wert des Schlüssels"   ' Wert schreiben

FF_DeleteProfile RegSection,"Key"                         ' löscht einen Schlüssel (ab 3.10 B41)
FF_DeleteProfile RegSection,""                            ' löscht die gesamte Sektion (ab 3.10 B41)

Wird der letzte verbliebene Schlüssel gelöscht, so erfolgt zugleich auch die Löschung der Sektion.

True wird in der Registry als "-1" gespeichert.
False wird der Registry als "0" gespeichert.

Die Registry kann auch mit Hilfe des WshShell-Object (Windows Script Host) oder der Windows Management Instrumentation (WMI) manipuliert werden.

Quelle

Dim WSHShell
Set WSHShell = CreateObject("WScript.Shell")

WSHShell.Popup "Erstellt Key HKCU\MyRegKey mit Wert 'Top level key'"
WSHShell.RegWrite "HKCU\MyRegKey\", "Top level key"

WSHShell.Popup "Erstellt Key HKCU\MyRegKey\Entry mit Wert 'Second level key'"
WSHShell.RegWrite "HKCU\MyRegKey\Entry\", "Second level key"

WSHShell.Popup "Wert HKCU\MyRegKey\Value auf REG_SZ 1 setzen"
WSHShell.RegWrite "HKCU\MyRegKey\Value", 1

WSHShell.Popup "Wert HKCU\MyRegKey\Entry auf REG_DWORD 2 setzen"
WSHShell.RegWrite "HKCU\MyRegKey\Entry", 2, "REG_DWORD"

WSHShell.Popup "Wert HKCU\MyRegKey\Entry\Value1 auf REG_BINARY 3 setzen"
WSHShell.RegWrite "HKCU\MyRegKey\Entry\Value1", 3, "REG_BINARY"

WSHShell.Popup "Löscht Wert HKCU\MyRegKey\Entry\Value1"
WSHShell.RegDelete "HKCU\MyRegKey\Entry\Value1"

WSHShell.Popup "Löscht Key HKCU\MyRegKey\Entry"
WSHShell.RegDelete "HKCU\MyRegKey\Entry\"

WSHShell.Popup "Löscht Key HKCU\MyRegKey"
WSHShell.RegDelete "HKCU\MyRegKey\"

Function CheckRegKey(Key)
     ' prüft, ob ein bestimmter Schlüssel vorhanden ist
     ' z.B. "HKEY_CURRENT_USER\Software\Joachim Koopmann Software\FixFoto\Path"
     ' nicht geeignet für die Prüfung von Registryknoten
     Dim result
     Dim WSHShell
     Set WSHShell = CreateObject("WScript.Shell")
     On Error Resume Next
     result = WSHShell.RegRead(Key)
     If result = "" then
          CheckRegKey = false        ' Schlüssel existiert nicht
     Else
          CheckRegKey = true        ' Schlüssel existiert
     End If
End Function

' Bsp.: Löschen einer Sektion (funktioniert nicht, wenn Unterzweige existieren)
RegSchluessel = "\FF_ScaleAll\"        ' wichtig ist das "\" am Ende
TempS = "HKEY_CURRENT_USER\Software\Joachim Koopmann Software\FixFoto\Script" & RegSchluessel

Set WshShell = CreateObject("WScript.Shell")
WshShell.RegDelete(TempS)

Sub DeleteKey(Rootkey, KeyPath)
     ' Zweige in der Registry löschen, einschließlich aller Unterzweige
     ' Autor: Thomas@Gartner-IT.net
     ' http://www.it-visions.de/foren/display_message.asp?mid=568
     ' verwendet: WMI
     ' Rootkey bezeichnet den RootKey
         ' HKEY_CLASSES_ROOT = &H80000000
         ' HKEY_CURRENT_USER = &H80000001
         ' HKEY_LOCAL_MACHINE = &H80000002
         ' HKEY_USERS = &H80000003
         ' HKEY_CURRENT_CONFIG = &H80000005
         ' HKEY_DYN_DATA = &H80000006
    ' KeyPath bezeichnet den zu löschenden Zweig
        ' z.B. "Software\Joachim Koopmann Software\FixFoto\SaveState\Ansicht2"
     Dim objReg
     Set objReg = GetObject("winmgmts:\\.\root\default:StdRegProv")
     Dim ValueArray, Value
     ' Unterschlüssel auflisten
     objReg.EnumKey Rootkey, KeyPath, ValueArray
     If Not IsNull(ValueArray) Then
         For Each Value In ValueArray
            ' Rekursion starten
            DeleteKey Rootkey, KeyPath + "\" + Value
         Next
     End If
     ' Schlüssel löschen
     objReg.DeleteKey Rootkey, KeyPath + "\" + Value
 End Sub

' Windows-Version ermitteln
Set WshShell = CreateObject("WScript.Shell")
winversion = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductName")

Function CheckRegNode (Rootkey, SubPath, Node)
     ' prüft, ob ein bestimmter Unterknoten in einem Registrypfad vorhanden ist
     ' GroßKleinSchreibung ist egal
     ' Rootkey bezeichnet den RootKey
          ' HKEY_CLASSES_ROOT     = &H80000000
          ' HKEY_CURRENT_USER     = &H80000001
          ' HKEY_LOCAL_MACHINE    = &H80000002
          ' HKEY_USERS            = &H80000003
          ' HKEY_CURRENT_CONFIG   = &H80000005
     ' Subpath bezeichnet den weiteren Pfad
          ' Bsp.: "Software\Joachim Koopmann Software\FixFoto"
     ' Node bezeichnet den zu prüfenden Knoten
        ' Bsp.: "Options"
     Dim objReg, i
     Dim arrSubKeys, strSubKey, strKeys
     Set objReg = GetObject("winmgmts://./root/default:StdRegProv")
     objReg.EnumKey Rootkey, SubPath, arrSubKeys
     CheckRegNode = False
     Node = UCase(Node)
     for i = 0 to UBound(arrSubKeys) -1
        if UCase(arrSubKeys(i)) = Node then CheckRegNode = True
     next
     Set objReg = Nothing
End Function

Function RegSubKeys (Rootkey, SubPath)
     ' liefert ein Array mit allen Unterknoten zu einem Registrypfad
     ' Rootkey bezeichnet den RootKey
          ' HKEY_CLASSES_ROOT     = &H80000000
          ' HKEY_CURRENT_USER     = &H80000001
          ' HKEY_LOCAL_MACHINE    = &H80000002
          ' HKEY_USERS            = &H80000003
          ' HKEY_CURRENT_CONFIG   = &H80000005
     ' Subpath bezeichnet den weiteren Pfad
          ' Bsp.: Software\Joachim Koopmann Software\FixFoto
     Dim objReg
     Dim arrSubKeys, strSubKey, strKeys
     Set objReg = GetObject("winmgmts://./root/default:StdRegProv")
     objReg.EnumKey Rootkey, SubPath, arrSubKeys
     RegSubKeys = arrSubKeys
     Set objReg = Nothing
End Function

Function RegSubValues (Rootkey, SubPath)
    ' liefert ein Array mit allen Schlüsseln zu einem Registrypfad
    ' und dem Typ des jeweiligen Schlüssels
    ' Rootkey bezeichnet den RootKey
    '     HKEY_CLASSES_ROOT     = &H80000000
    '     HKEY_CURRENT_USER     = &H80000001
    '     HKEY_LOCAL_MACHINE    = &H80000002
    '     HKEY_USERS            = &H80000003
    '     HKEY_CURRENT_CONFIG   = &H80000005
    ' Subpath bezeichnet den weiteren Pfad
    '     Bsp.: Software\Joachim Koopmann Software\Text
    Dim oReg
    Dim arrValueNames, arrValueTypes
    Dim i, sammelarr()
    Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
    oReg.EnumValues Rootkey, SubPath, arrValueNames, arrValueTypes
    ReDim sammelarr (UBound(arrValueNames),1)
    For i=0 To UBound(arrValueNames)
        sammelarr(i,0) = arrValueNames(I)
        Select Case arrValueTypes(I)
            Case 1    sammelarr(i,1) = "String"
            Case 2    sammelarr(i,1) = "Expanded String"
            Case 3    sammelarr(i,1) = "Binary"
            Case 4    sammelarr(i,1) = "DWORD"
            Case 7    sammelarr(i,1) = "Multi String"
        End Select
    Next
    RegSubValues = sammelarr
    Set oReg = Nothing
End Function

weiteres Bsp.: Auslesen der FTP-Einstellungen von FF

http://www.wintotal.de/artikel/artikel-2004/7125.html
http://www.source-center.de/forum/showthread.php?758-Erstellen-L%F6schen-Editieren-%DCberpr%FCfen-von-Registrierungsschl%FCsseln
http://msdn.microsoft.com/en-us/library/windows/desktop/aa393664(v=VS.85).aspx
zu Regedit:
http://www.winfaq.de/faq_html/Content/tip2000/onlinefaq.php?h=tip2045.htm

arrValueNames, arrValueTypesRegSubKeys = arrSubKeys
Set objReg = Nothing