bonjour,
 
 
alors voici le code d'erreur que j'ai :  
 
800706be
 
il me dis :
 
echec de l'appel de procédure distante
 
 
je l'ai essayé sur mon poste, aucun pb, et la j'essai sur un autre et voila ce qu'il me donne !
 
 
 
edit : je dois etre en admin de domaine pour que ça marche ici
 
 
 
svp aidez-moi ^_^
 
 
voici mon code : (il plante vers la fin, je l'ai signalé)
 
Dim chListe, champ, i
Set fso = CreateObject("Scripting.FileSystemObject" )
Set objFSO = CreateObject("Scripting.FileSystemObject" )
Dim wshShell
Set wshShell = WScript.CreateObject("WScript.Shell" )
'On Error Resume next
 
i = 0
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
Set objReseau = CreateObject("Wscript.Network" )
Set colFiles = objWMIService.ExecQuery _
("Select * from CIM_DataFile where FileName = 'Vue Paradisiaque.exe' and Extension = 'zip'" )
'(requête permettant de trouver tous les fichiers infectés grâce à leur nom.)
chListe = "Nom d'utilisateur : " & objReseau.UserName & VbCrLf & "Nom du poste : " & objReseau.ComputerName & VbCrLf & "Nom de domaine : " & ObjReseau.UserDomain & VbCrLf & VbCrLf
chListe = chListe & "____________________________________________________________" & VbCrLf & VbCrLf
 
For Each objFile in colFiles '             IL PLANTE ICI <--------------------------------------------------------------------  
 i = i + 1
 champ = objFile.Name
 chListe = chliste & champ & VbCrLf
 objFile.delete
Next
 
 
... la suite du code envoi un mail

j'ai trouvé d'où l'erreur viens. mais je ne sais pas pourquoi il y a une erreur.
 
ce code non plus ne marche pas sur la machine.
 
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _  
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
Set colFiles = objWMIService.ExecQuery _
("Select * from CIM_DataFile where Extension = 'mp3'" )
For Each objFile in colFiles
Wscript.Echo objFile.Name  
Next
 
 
il y a un rapport avec wmi ?