Astuce en vbs pour restaurer les clefs bdr

Cette source est considérée comme dangereuse, elle a néamoins été gardée dans un but pédagogique :
Cette source est considérée comme dangereuse, elle a néamoins été gardée dans un but pédagogique.

Commenter

Contenu du snippet

une petite astuce en VBS pour restaure les valeurs par Default des clefs base de registre modifiées par le virus Svenn (c pas mon code j'ai trouver sur le net mais très utile)

Source / Exemple : 


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

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (djebbipgm)