5/5 (14 avis)
Snippet vu 23 341 fois - Téléchargée 31 fois
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colFiles = objWMIService.ExecQuery _ ("Select * from CIM_DataFile where Extension = 'mp3' OR Extension = 'wma'") For Each objFile in colFiles Wscript.Echo objFile.Name Next 'ici les fichiers rechercher sont les *.mp3 et *.wma...
7 nov. 2009 à 18:40
Is good
strComputer = "."
set fso =CreateObject ("Scripting.FileSystemObject")
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
("Select * from CIM_DataFile where Extension = 'exe'")
For Each objFile in colFiles
dim DriveRoot, DrivePath
Set fso = CreateObject("Scripting.FileSystemObject")
DriveRoot = objFile.drive
DrivePath = objFile.path
If (fso.FileExists(DriveRoot&DrivePath&"File.exe" ))Then
Wscript.echo "ok"
End If
Next
Si sa intéresse quelqu'un !! voila
7 nov. 2009 à 01:09
A partir de se bout de script je voulais savoir, comment retrouver un fichier en particulier dont on sait déjà le nom mais son chemin et inconnu merci bien pour toute réponse(s).
28 juin 2006 à 16:23
28 juin 2006 à 15:25
17 mai 2006 à 21:50
é ba tant pis...
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.