arreter urgenment un script

**maikess** · 21/07/2010, 21h51

A l'aide SVP j'ai exécuté par erreur le script ci-dessous sur ma machine. que puisse-je faire pour l'arreter sinon il va supprimer tous mes fichier .exe et cela va destabiliser mon système. SVP aider moi. merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
Dim chListe, champ, i 
 
i = 0 
strComputer = "." 
 
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" ) 
 
Set colFiles = objWMIService.ExecQuery _  
("Select * from CIM_DataFile where FileName = 'vie paradisiaque.zip' and Extension = 'exe'" ) 
 
For Each objFile in colFiles 
 'objFile.delete 
 i = i + 1 
 'wscript.echo objfile.Name 
 champ = objFile.Name 
 chListe = "Le ou les fichier(s) suivant(s) ont bien été supprimé." & VbCrLf & VbCrLf 
 chListe = chListe & champ & VbCrLf 
 objFile.delete 
Next 
 
if i = 0 then 
 MsgBox("Aucun fichier trouvé" ) 
 else 
 if i = 1 then 
  Wscript.Echo "Un seul fichier a été trouvé et va être effacé" 
  Wscript.Echo chListe 
  else 
  if i > 1 then 
   Wscript.Echo i & " fichiers ont été trouvé et vont être effacé." 
   Wscript.Echo chListe 
  end if 
 end if 
end if