1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. VB.NET

Vbs pour rechercher-remplacer par fichier spécifique

Signaler
Messages postés
2
Date d'inscription
vendredi 29 décembre 2006
Statut
Membre
Dernière intervention
16 mars 2009
 -
Messages postés
2
Date d'inscription
vendredi 29 décembre 2006
Statut
Membre
Dernière intervention
16 mars 2009
 -
Bonjour, bonsoir...je viens à vous tous et toutes parce que je ne sais plus à quel saint me vouer...j'ai un petit soucis...
je dois remplacer le fichier pref.js (de firefox) par un autre (divers paramètres doivent changer...), le soucis et le suivant:
- il existe (sur le domaine) divers types de versions de firefox installées sur les pc... 1.2 jusqu'à la dernière...
- lorsque l'on lance pour la première fois firefox, il crée un profil qui ne porte pas le même nom sur toutes les machines...

Ma question, est-il possible de réaliser un vbs qui me permette de...scanner les machines, et à chaque fois qu'il rencontre le fichier pref.js il le remplace par un autre (et il se peut qu'il y soit parfois dans plusieurs profils firefox sur une machine)...???!!!

Je n'y connais pas grand chose en vbs, donc si vos pouviez m'aiguiller un peu, cela serait hyper sympathique à vous !!!

Par avance merci !!
Afficher la suite

1 réponse

Réponse 1 / 1
Messages postés
2
Date d'inscription
vendredi 29 décembre 2006
Statut
Membre
Dernière intervention
16 mars 2009
ai ceci, mais je n'arrive pas à l'adapter...

strComputer = "."
strDirPath = "c:\\chemin du profil"
strFile = "*837i*.dat "

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
   
wscript.echo "File: " & strFile
   
strFile = Replace(strFile,"*", "%")
wscript.echo "NewFile: " & strFile

Set colFiles = objWMIService.ExecQuery _        (" Select * From CIM_Datafile where Path '" & strDirPath & "' and Name '" & strFile & "'")

if colFiles.Count > 0 Then
       wscript.echo "Found files: " & colFiles.Count
       Wscript.Quit
Else
        Wscript.Echo "The file does not exist."
End If    

cela peut-il n'aider ???
Répondre Posez votre question