script vbs pour profile firefox

Version imprimable

06/02/2008, 16h27
gallux

script vbs pour profile firefox

Bonjour et merci d'avance a ceux qui prendront le temps de m'aider.

pour commencer je ne connais rien en vbscript

Voila dans le cadre d'une mission il m'est demandé de faire un script vbs qui sera integré dans l'AD pour ce lancer au demarrage.

Ce script doit permettre la copie du fichier bookmarks.html de firefox situé dans C:\Documents and Settings\%username%\Application Data\Mozilla\Firefox\Profiles\xxxxxxx.default sur lecteur réseaux "x:\" et inversement celui dans le lecteur réseau au demarage de l'ordi.

pour résumer a chaque connection prendre le bookmarks.html dans x:\ et le copier dans C:\Documents and Settings\%username%\Application Data\Mozilla\Firefox\Profiles\xxxxxxx.default

et chaque deconnection copie inverse.

il faut peut être 2 scripts je sais pas.

merci de votre aide.
06/02/2008, 17h16
ced600

Commence par regarder dans ce forum tout ce qui concerne la copie de fichier d'un répertoire vers un autre, et aussi les sujets concernant les elcteurs réseaux.
Il y a plein de sujet de ce genre qui ont été ouvert avec beaucoup d'explication et plein d'exemple de code.

du coup j'ai trouver ça qui marche en test
Code:

1 2 3 4 Const OverWriteFiles = TRUE Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.CopyFile "C:\Documents and Settings\xxxxxxx\Application Data\Mozilla\Firefox\Profiles\yyyyyy.default\bookmarks.html" , "X:\" , OverWriteFiles
mais comment dire qu'il prenne a la place xxxxxx le nom du profil (j'ai essayer %username% marche pas)
et que yyyyy.default n'est jamais le même nom.

Merci de votre aide.

Citation:
Envoyé par gallux
du coup j'ai trouver ça qui marche en test
Code:

1 2 3 4 Const OverWriteFiles = TRUE Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.CopyFile "C:\Documents and Settings\xxxxxxx\Application Data\Mozilla\Firefox\Profiles\yyyyyy.default\bookmarks.html" , "X:\" , OverWriteFiles
mais comment dire qu'il prenne a la place xxxxxx le nom du profil (j'ai essayer %username% marche pas)
et que yyyyy.default n'est jamais le même nom.

Merci de votre aide.
Première chose, paufinement de tes posts : utilise le bouton # de l'éditeur pour faire apparaitre des balises de code et met à l'intérieur de ces balises ton code.

Pour le username il va falloir le récupérer avec un objet WMI, ou dans les variables d'envirronement si windows en place de telles mais je ne pense aps que ce soit le cas.
Ce code devrait marcher :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & strComputer & "\root\cimv2") Set colComputer = objWMIService.ExecQuery _ ("Select * from Win32_ComputerSystem") For Each objComputer in colComputer Wscript.Echo "User Name = " & objComputer.UserName _ & VBNewLine & "Computer Name = " & objComputer.Name WScript.Echo objComputer.UserName Next
Je l'ai récupéré ici : l'aide en ligne MSDn pour WMI.

Déclare une variable name par exemple :

Code:

Dim name

Et remplace le code suivant :
Code:

1 2 3 Wscript.Echo "User Name = " & objComputer.UserName _ & VBNewLine & "Computer Name = " & objComputer.Name WScript.Echo objComputer.UserName
par :

Code:

name = objComputer.UserName

Puis dans ton code tu peux concaténer des chaines de caractères ensemble et des chaines de caractères avec le contenu de variable :

Code:

objFSO.CopyFile "C:\Documents and Settings\" & name & "\Application Data\Mozilla\Firefox\Profiles\yyyyyy.default\bookmarks.html" , "X:\" , OverWriteFiles

Pour dire :
Copier moi tous les bookmarks.html des sous dossiers yyyyyy.default vers un répertoire de destination.
Il faut récupérer la liste de ces sous répertoires, et effectuer une action pour chacun d'eux.
Donc il va falloir mettre ton code dans une fonction, et l'appeler dans une boucle pour l'appliquer à chaque sous répertoires.

Enumérer les sous dossiers d'un répertoire.

Mais avant tout cela, comme tu commences en VBS je te conseille de regarder la FAQ ne serait que pour apprendre la syntaxe, savoir faire une boucle, des if, déclarer et affecter des variables, des objets.
Car sinon tu auras du mal à comprendre les codes exemples.

13/02/2008, 10h01
gallux

encore besoin d'aide

merci pour tout

j'aimerais maintenant créer un fichier .ini si ce fichier n'existe pas.

c'est a dire si C:\Documents and Settings\xxxxxx\Application Data\Mozilla\Firefox\profiles.ini

n'existe pas le créer sinon rien faire.

2 chose me pause probleme:
- comment dire le "si C:\...n'existe pas" "alors" "sinon"...

-indiquer le contenu de profiles.ini
13/02/2008, 10h46
ced600

Vérifier que le fichier existe (le code tout en bas)

Citation:

-indiquer le contenu de profiles.ini

Qu'est ce que tu veux dire par là ? Afficher le contenu du fichier ?

créer un fichier profiles.ini et mettre se code dedans.
Code:

1 2 3 4 5 6 7 [General] StartWithLastProfile=1 [Profile0] Name=default IsRelative=0 Path=X:\ProfileFirefox

13/02/2008, 11h38
gallux
voici le script en français qu'il me faut :

si le fichier "C:\Documents and Settings\xxxxx\Application Data\Mozilla\Firefox\profiles.ini" existe pas

alors le créer avec comme contenu ceci:
Code:

1 2 3 4 5 6 7 [General] StartWithLastProfile=1 [Profile0] Name=default IsRelative=0 Path=X:\ProfileFirefox
sinon si le fichier existe ne rien faire.
13/02/2008, 12h06
ced600

As tu regardé le lien que je t'ai passé ?

FileSystemObject possede des méthodes pour ouvrir un fihcier en mode texte, et copier des chaines de caractères dedans.

Regarde la FAQ ou fait des recherches sur ce forum ou sur google.
15/02/2008, 10h05
gallux

personne aurait un truc un peu tou fait SVP car pas trop le temps de me plonger dans le filsystem:cry:object.
15/02/2008, 10h41
ced600

Citation:

Envoyé par gallux

personne aurait un truc un peu tou fait SVP car pas trop le temps de me plonger dans le filsystem:cry:object.

C'est dommage car moi j'ai pas le temps et l'envie de faire ton travail !!!!
15/02/2008, 12h31
SfJ5Rpw8
Tu as tout dans la :faq:

Citation:

Envoyé par gallux

voici le script en français qu'il me faut :

si le fichier "C:\Documents and Settings\xxxxx\Application Data\Mozilla\Firefox\profiles.ini" existe pas

Comment tester l'existence d'un fichier ?
Citation:
Envoyé par gallux

alors le créer avec comme contenu ceci:

Code:

1 2 3 4 5 6 7 [General] StartWithLastProfile=1 [Profile0] Name=default IsRelative=0 Path=X:\ProfileFirefox
Comment écrire dans un fichier texte ?

vous avez raison:lol: donc apres 3 heure intensif sur le sujet j'ai enfin réussi :yaisse2:grace a toutes les pistes fourni ici et là donc merci bien je vous donne quand même le code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
'Script pour que les nouveaux Profilefirefox travaillent sur x:\
'
'
'Auteur : gallux
'Date : 15/02/08
'
'
On Error Resume Next
 
Set Shell = Wscript.CreateObject ("wscript.shell")
username = Shell.ExpandenvironmentStrings ("%USERNAME%")
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists("C:\Documents and Settings\" & username & "\Application Data\Mozilla\Firefox\profiles.ini") Then
   Set objFolder = objFSO.GetFile("C:\Documents and Settings\" & username & "\Application Data\Mozilla\Firefox\profiles.ini")
Else
 objFSO.CreateFolder("X:\ProfileFirefox")
 objFSO.CreateFolder("C:\Documents and Settings\" & username & "\Application Data\Mozilla")
 objFSO.CreateFolder("C:\Documents and Settings\" & username & "\Application Data\Mozilla\Firefox")
   Set MonFic = objFSO.CreateTextFile("C:\Documents and Settings\" & username & "\Application Data\Mozilla\Firefox\profiles.ini")
 With MonFic 'Pour écrire dans le fichier texte
 .writeLine "[General]"
 .writeLine "StartWithLastProfile=1"
 .writeLine ""
 .writeLine "[Profile0]"
 .writeLine "Name=default"
 .writeLine "IsRelative=0"
 .writeLine "Path=X:\ProfileFirefox"
 End With
 Msg = "Écriture réussie dans fichier.txt"
End If
 
Wscript.Quit(0)

Par contre j'aimerais etendre l'astuce pour openoffice mais avez vous une piste sur comment ce comporte openoffice car pour firefox c'est simple il y a le profile.ini mais pour OpOf je vois pas comment lui dire ala premiere ouverture de travailler sur le lecteur réseau

15/02/2008, 16h43
ced600

Aucune idée, je te conseillerais d'aller voir sur le site d'openoffice quelque fois que ce que tu souhaites faire serait expliqué.

Citation:

Envoyé par gallux

merci pour tout

j'aimerais maintenant créer un fichier .ini si ce fichier n'existe pas.

c'est a dire si C:\Documents and Settings\xxxxxx\Application Data\Mozilla\Firefox\profiles.ini

n'existe pas le créer sinon rien faire.

2 chose me pause probleme:
- comment dire le "si C:\...n'existe pas" "alors" "sinon"...

-indiquer le contenu de profiles.ini
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Set objNetwork = CreateObject("Wscript.Network") strUser = objNetwork.UserName strPath = "C:\Documents and Settings\xxxxxx\Application Data\Mozilla\Firefox\profiles.ini" Set objFSO = CreateObject("Scripting.FileSystemObject") If objFSO.FilerExists(strPath) Then Wscript.Echo "The folder exists." Else Wscript.Echo "The folder does not exist." End If