Parcourir les profils firefox par utilisateur.

Version imprimable

Bonjour tout le monde je me met de plus en plus au script et je suis tomber sur se problème.
J'essaie de coller un fichier dans l'ensemble des dossier profil firefox de l'ensemble des utilisateur de la totalité de mon parc informatique. Pour se faire j'ai décider de parcourir les dossier profils de chaque user. J'arrive bien a parcourir chaque utilisateur avec le code suivant mais pas les profils de l'utilisateur concerner. J'ai l'impression qu'un bug se créer quand utilisateur n'a pas de profil et je n'arrive pas a gérer la chose. ^^ si vous avez des conseil pour moi je suis preneur.
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 Dim stRep,stsRep 'Nom du répertoire à parcourir Dim oFSO,oFld,osFld,osFSO Set oFSO = CreateObject("Scripting.FileSystemObject") stRep = "C:\Users" If oFSO.FolderExists(stRep) Then For each oFld in oFSO.GetFolder(stRep).SubFolders Wscript.Echo oFld.Name dim fichier fichier = oFld.Name Set osFSO = CreateObject("Scripting.FileSystemObject") stsRep = "C:\"&fichier&"\AppData\Roaming\Mozilla\Firefox\Profiles" Wscript.Echo stsRep 'le soucie semble se trouver ici If osFSO.FolderExists(stsRep) Then For each osFld in osFSO.GetFolder(stsRep).SubFolders Wscript.Echo osFld.Name Next End If Next End If

Essaie avec ce

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
 Option Explicit 
Dim stRep, stsRep 'Nom du répertoire à parcourir 
Dim oFSO,oFld,osFld
 
Set oFSO = CreateObject("Scripting.FileSystemObject") 
stRep = "C:\Users"
If oFSO.FolderExists(stRep) Then 
    For each oFld in  oFSO.GetFolder(stRep).SubFolders 
        Wscript.Echo oFld.Name
        dim Dossier
        Dossier = oFld.Path ' Utilise le chemin complet
       ' =>>  Pas besoin de créer l'objet osFSO, utilise plutôt oFSO déjà créé
        'Set osFSO = CreateObject("Scripting.FileSystemObject") 
        stsRep =  Dossier & "\AppData\Roaming\Mozilla\Firefox\Profiles" 
 
            ' le soucie semble se trouver ici.  ==> Quel souci ?
        If oFSO.FolderExists(stsRep) Then
            Wscript.Echo stsRep
            For each osFld in  oFSO.GetFolder(stsRep).SubFolders 
            Wscript.Echo osFld.Name ' ou osFld.Path pour un chemin complet
            Next
        End If
 
     Next 
End If

11/12/2018, 09h32
Herzas974

Merci

En effet oFld.Path et non du oFld.name a résolut mon problème en effet avec le oFld.name la condition if n'était jamais remplie et dans le cas ou le fichier n'existait pas interrompait l’exécution du script. Merci beaucoup. Bonne journée a tous.