Set objWshShell = WScript.CreateObject("WScript.Shell")
'
' Aktuelle Einstellungen auslesen
'
intDisableRegistryTools = Int(objWshShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools"))
'
' Aktuelle Einstellung umschalten
'
If intDisableRegistryTools = 0 Then
    objWshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", 2, "REG_DWORD"
    WScript.Echo "Der Registrierungs-Editor ist deaktiviert!"
Else
    objWshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", 0, "REG_DWORD"
    WScript.Echo "Der Registrierungs-Editor ist aktiviert!."
End If