Discussion :

[chicano]

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 !!!

[spantemonium]

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

Code :

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

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

[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.

[chicano]

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

spantemonium, juste comme cela...

Code :

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

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 !!!

[chicano]

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

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
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 ???

[pitchalov]

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 :

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

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