Discussion :

[gallux]

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]

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]

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]

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]

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]

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 ?

[koKoTis]

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