Erstellen / Löschen / Editieren / Überprüfen von Registrierungsschlüsseln

[James Blond]

 
' This sample demonstrates how to write/delete entries in the registry. 
 
 
L_Welcome_MsgBox_Message_Text = "Dieses Skript demonstriert das Erstellen und Löschen von Registrierungsschlüsseln."
L_Welcome_MsgBox_Title_Text = "Windows Scripting Host-Beispiel"
Call Welcome()
 
 
' ********************************************************************************
' *
' * Registry related methods.
' *
 
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\"
 
' ********************************************************************************
' *
' * Welcome
' *
Sub Welcome()
Dim intDoIt
 
intDoIt = MsgBox(L_Welcome_MsgBox_Message_Text, vbInformation, L_Welcome_MsgBox_Title_Text )
End Sub

Im letzten Beitrag in diesem Thema wird die Überprüfung, ob ein Schlüssel vorhanden ist, behandelt