vbs pour rechercher-remplacer par fichier spécifique

Version imprimable

14/03/2009, 23h44
chicano

vbs pour rechercher-remplacer par fichier spécifique

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... 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 est parfois 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 !!! :king:

Je n'y connais pas grand chose en profil firefox, mais pour remplacer des fichiers je fais cà :
Code:

1 2 3 4 5 6 7 Set objFSO = CreateObject("Scripting.FileSystemObject") 'Ajout de l'historisation histoFile = "c:\Running.txt" BackupFolder = "c:\Backup\" objFSO.CopyFile histoFile , BackupFolder, OverwriteExisting

16/03/2009, 17h45
pitchalov

Ben la méthode, selon moi, serait une petite boucle dans Document and Seetings qui vérifie les fichiers dans tous tes profils firefox, et qui renomerait les fichiers en question avec la méthode MoveFile de l'objet FileSystem.

Et si tes profils firefox sont stockés dans des arborescences différentes en fonction des versions, alors il faudra faire une fonction récursive qui parcourra tous les dossiers de Documents And Seetings à la recherche de tes fichiers à renommer.

Déjà un grand merci pour vos réponses...!!!

spantemonium, juste comme cela...
Code:

1 2 3 4 5 6 Set objFSO = CreateObject("Scripting.FileSystemObject") 'Ajout de l'historisation histoFile = "c:\Running.txt" BackupFolder = "c:\Backup\" objFSO.CopyFile histoFile , BackupFolder, OverwriteExisting
à quoi correpond running.txt, le fichier à remplacer ??? Si c'est bien cela tu le remplaces par lequel ???

pitchalov

Ben la méthode, selon moi, serait une petite boucle dans Document and Seetings qui vérifie les fichiers dans tous tes profils firefox, et qui renomerait les fichiers en question avec la méthode MoveFile de l'objet FileSystem...

je désire remplacer les dits fichiers trouver...en gros..."tu scannes et lorsque tu trouves pref.js tu le remplaces par un autre pref.js situé sur le réseau..."
Et une fonction récurssive, c'est quoi au juste ??? Et comment cela fonctionne...???

Par avance merci !!!

ai ceci...mais je n'arrive pas à l'adapter...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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

ça peut être utile ou non ???

Je dirais que c'est bof utile, je pense pas que t'aies besoin d'objet WMI.

Donc comme je disais, si tous tes profils se trouvent dans la même arborescence dans Docs and Seetings alors la démarche à suivre est comme celà :
Code:

1 2 3 4 5 6 7 Set objFso = CreateObject("Scripting.FileSystemObject") Set objDocAndSeetingsFolder = objFso.GetFolder("C:\Documents And Seetings") For Each objSubFolder in objDocAndSeetingsFolder If FileExists objSubFolder.Path & strCheminDuProfil & strNomDuFichierAVirer ojFso.MoveFile objSubFolder.Path & strCheminDuProfil & strNomDuFichierAVirer, objSubFolder.Path & strCheminDuProfil & strNomDuFichierAVirer & ".bak" End If Next
Sinon une fonction récursive est une fonction qui parcourra complètement ton arborescence à partir d'un dossier de base, et là il faut contrôler chacun des fichiers rencontrés pour trouver le bon, et le renommer ou le virer.

En espérant que ça puisse t'aider

pareil, j'éviterais WMI si j'étais toi, ca rajoute de la complexité et ca n'apporte pas de fonctionnalité.

Je t'ai mis la version simple dessous, le principe c'est t'as un fichier tu le colle dans un dossier il ecrase le fichier qui porte le meme nom s'il le trouve.
Code:

1 2 3 4 5 6 Const OverwriteExisting = True Set objFSO = CreateObject("Scripting.FileSystemObject") fichier = "c:\fichier_a_deplacer.txt" dossier= "c:\dossier_ou_tu_veux_le_mettre\" objFSO.CopyFile fichier , dossier, OverwriteExisting

17/03/2009, 13h25
ced600

Citation:

fonction récursive

-> c'est une fonction qui s'appelle elle même.
Pratique pour les parcours d'arborescence, mais dangereux pour les débutants.
Si tu te trompes sur les conditions de sortie de la fonction, celle-ci s'appelle indéfiniment, te prenant toutes tes ressources, et si en plus elle fait des actions comme de la suppression, cela peut endomager ton système.

En dehors de cela, je suis d'accord avec les autres intervenants, FileSystemObject est suffisant, et la FAQ VBS propose plein d'exemple de son utilisation.

Commence par faire ton algorithme : décris les étapes que tu ferais à la main pour faire ce que tu as besoin.
Puis essaye de regrouper ce que tu peux sous formes de phrases.
Puis pense d'un point de vue code ce que cela peu donner.
Et essaye de le créer en VBS à l'aide des exemples de la FAQ par exemples.

Et au cours de ton avancement reviens nous demander conseil si tu es bloqués.