script vbs pour profile firefox

**gallux** · 06/02/2008, 16h27

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.

**ced600** · 06/02/2008, 17h16

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.

**gallux** · 07/02/2008, 16h24

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

Code :

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

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.

**ced600** · 07/02/2008, 16h46

Envoyé par gallux

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

Code :

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

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 :

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

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 :

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

Dim name

Et remplace le code suivant :

Code :

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

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

par :

Code :

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

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 :

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

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.

**gallux** · 13/02/2008, 10h01

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

**ced600** · 13/02/2008, 10h46

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

-indiquer le contenu de profiles.ini

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

**gallux** · 13/02/2008, 11h19

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

Code :

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

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

**gallux** · 13/02/2008, 11h38

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 :

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

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.

**ced600** · 13/02/2008, 12h06

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.

**gallux** · 15/02/2008, 10h05

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

object.

**ced600** · 15/02/2008, 10h41

Envoyé par gallux

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

object.

C'est dommage car moi j'ai pas le temps et l'envie de faire ton travail !!!!

**SfJ5Rpw8** · 15/02/2008, 12h31

Tu as tout dans la

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 ?

Envoyé par gallux

alors le créer avec comme contenu ceci:

Code :

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

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

Comment écrire dans un fichier texte ?

**gallux** · 15/02/2008, 16h19

vous avez raison

donc apres 3 heure intensif sur le sujet j'ai enfin réussi

grace a toutes les pistes fourni ici et là donc merci bien je vous donne quand même le code:

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

**ced600** · 15/02/2008, 16h43

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

**koKoTis** · 17/02/2008, 17h48

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 :

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

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

script vbs pour profile firefox

VBScript

Discussions similaires

Partager

Partager