' ---------------------------------------------------------- ' Script de restauration des valeurs par défaut des clefs ' de la BDR modifiées par le virus Svenn ' ' JC BELLAMY © 2003 ' ---------------------------------------------------------- Set shell = WScript.CreateObject("WScript.Shell") FileType = array( _ "exefile", _ "regfile", _ "scrfile", _ "scrfile", _ "piffile", _ "batfile", _ "comfile") Command= array( _ """%1"" %*", _ "regedit.exe ""%1""", _ """%1"" /S", _ "%1", _ """%1"" %*", _ """%1"" %*", _ """%1"" %*") Subkey= array( _ "open", _ "open", _ "open", _ "config", _ "open", _ "open", _ "open") Ntype=Ubound(FileType) wscript.echo "Restauration des valeurs par défaut des " _ & Ntype+1 & " clefs suivantes de la BDR : " For i = 0 To NType Key="HKCR\" & Filetype(i) & "\shell\" _ & Subkey(i) & "\command\" wscript.echo Key & " -> " & Command(i) shell.RegWrite Key, Command(i),"REG_SZ" Next wscript.echo On error resume next Key="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools" shell.RegDelete Key If err.number=0 Then wscript.echo "Rétablissement d'utilisation de REGEDIT et REGDT32" err.clear Key="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr" shell.RegDelete Key If err.number=0 Then wscript.echo "Rétablissement d'utilisation du gestionnaire de tâches" Wscript.quit