Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

Parcourir les profils firefox par utilisateur.


Sujet :

VBScript

  1. #1
    Candidat au Club
    Homme Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    décembre 2018
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 32
    Localisation : France

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : décembre 2018
    Messages : 2
    Points : 3
    Points
    3
    Par défaut Parcourir les profils firefox par utilisateur.
    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 : 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
     
    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

  2. #2
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    juillet 2009
    Messages
    2 287
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 64
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : juillet 2009
    Messages : 2 287
    Points : 5 408
    Points
    5 408
    Par défaut
    Essaie avec ce
    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
     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
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA) et Ne jamais typer variables et/ou fonctions en VBS.
    Vous pouvez consulter mes contributions
    Ne pas oublier de consulter les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr

  3. #3
    Candidat au Club
    Homme Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    décembre 2018
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 32
    Localisation : France

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : décembre 2018
    Messages : 2
    Points : 3
    Points
    3
    Par défaut 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.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [OL-2010] parcourir les dossiers d'un utilisateur
    Par Aposto dans le forum VBA Outlook
    Réponses: 3
    Dernier message: 31/03/2015, 16h09
  2. Master Page par defaut non visible depuis les profils utilisateurs
    Par jubourbon dans le forum Développement Sharepoint
    Réponses: 4
    Dernier message: 24/09/2012, 15h51
  3. [Plugin] Parcourir les dépots SVN par un bouton browse
    Par bulldo dans le forum Eclipse Platform
    Réponses: 0
    Dernier message: 11/08/2010, 13h11
  4. Réponses: 12
    Dernier message: 21/12/2006, 12h49
  5. Réponses: 44
    Dernier message: 14/03/2005, 10h43

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo