'############## Edi Pfisterer -- 28/3/2011 -- RegistryKeys löschen ##############

on Error resume next

logdatei = "c:\registry.txt"       ' Pfad zur Logdatei

Set fs = CreateObject("Scripting.FileSystemObject")
If NOT fs.FileExists (logdatei) then

'############################ registryKeys löschen ############################'

Set WshShell = WScript.CreateObject("WScript.Shell")
key = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList\"
dim ergaenzung(3)
ergaenzung(1)= "S-1-5-21-3195515648-4063550529-2982841958-3286.bak" ' SSID von Lehrer 1
ergaenzung(2)= "S-1-5-21-3195515648-4063550529-2982841958-3296.bak" 'SSID von Lehrer 2
ergaenzung(3)= "S-1-5-21-3195515648-4063550529-2982841958-3304.bak" ' SSID von Lehrer 3


        for i = 1 to 3
        WshShell.RegDelete key & ergaenzung(i) & "\"
        next

'##########################   LOGDATEI schreiben ########################

    Set a = fs.CreateTextFile(logdatei, True)
    a.WriteLine("registry wurde verändert am " & now())
    a.Close
  
END IF