Discussion :

[Detonio]

Salut à tous !

Je suis face a un problème que je n'arrive pas a résoudre !

Je cherche a récuperer les différentes sessions disponibles sous Windows XP afin de pouvoir accéder à leurs "Mes Documents" respectifs.
J'ai essayer avec les dossiers spéciaux avec :

Code :

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

Private Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" (ByVal hwndOwner As Long, ByVal nFolder As Long, pidl As ITEMIDLIST) As Long

Mais apparemment aucun ne convient a ce que je veut faire.
Je me suis donc dirigé vaire les sessions mais malheureusement je n'y arrive pas :s

Si quelqu'un a le courage de m'aider merci !!!

[LiBasic]

J' ai eu le même problème que toi il y a environ 3 jours.
J' ai donc cherché un peu partout (surtout au niveau des variables d' environnement) et je suis arrivé à ceci :

Ce code liste tous les dossiers du dossier système de "documents and settings" et ajoute les noms dans la listbox1 .Il trouve donc tous les utilisateurs sur XP (note : même si ton dossier ne s' appelle pas "documents and settings" et qu' il se trouve sur un autre lecteur que "C:" les sessions seront trouvées..

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim chemindoc As String
chemindoc = Left(Environ("USERPROFILE"), Len(Environ("USERPROFILE")) - Len(Environ("USERNAME")))
Dim rep As String
rep = Dir(chemindoc & "*.*", vbDirectory)
'boucle tant que le répertoire n'a pas été entièrement parcouru
Do While (rep <> "")
    'teste si c'est un fichier ou un répertoire
    If (GetAttr(chemindoc & rep) And vbDirectory) = vbDirectory Then
        If rep <> "." And rep <> ".." And rep <> "All Users" Then listbox1.AddItem rep
    End If
    rep = Dir
Loop

Le test :

Code :

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

If rep <> "." And rep <> ".." And rep <> "All Users"

permet de ne pas inclure la session "All Users", quand au niveau des "." ".." c' est ce que mon code me retourne chaque fois, pourtant aucun dossier ne se nomme "." ...

[zazaraignée]

Les "." et ".." sont respectivement des alias pour le dossier courant et le dossier parent. C'est l'appellation standard pour un système de fichiers dans la plupart des systèmes d'exploitation.

Si vous essayiez avec "C:\Documents and Settings\" comme valeur de la variable chemindoc ?

[LiBasic]

Si vous essayiez avec "C:\Documents and Settings\" comme valeur de la variable chemindoc ?

Le problème c' est que en tapant "C:\Documents and Settings\", si l' utilisateur a modifié ce dossier ou que l' installation de Windows n' est pas faites sur le lecteur C, alors erreur...

[LeForestier]

PS: si tu est utilisateur limité, n'espère pas, par ce procédé, accéder aux 'Documents' des autres utilisateurs, admin et limités.
A+

[LiBasic]

Dur dur d' être un utilisateur limité... ^^
Parfois un simple programme qui tente d' écrire un fichier est refusé...
Perso je conseille pas cette limitation (il y en a d' autre bien plus efficaces et moins chi.....)

[Detonio]

Merci a tous de votre aide surtout a LiBasic mais je n'obtient toujours pas ce que je veux ...

J'ai donc décidé de laisser tomber surtout que maintenant je rencontre un nouveau problème ... lié à l'ajout de "mes documents" :
http://www.developpez.net/forums/sho...=1#post2659736

[LiBasic]

Pourquoi n' arrives-tu pas à ce que tu veux ?
Exposes ton problème, il y a toujours une solution...

[DarkVader]

WMI ayant de forte chance d'être limité sur le sujet
tu devrais t'intéresser entr'autre à NetUserEnum de netapi32.
Toute la boîte à outils s'y trouve.

[Detonio]

Pourquoi n' arrives-tu pas à ce que tu veux ?

Je n'arrive pas a ce que je veut car lorsque j'utilise ta méthode j'obtiens 4 sessions.
Or sur mon ordinateur j'en est seulement 2. Et en plus de ces 2 là j'ai Administrateur et hp ....
Après je en sais pas si c'est un problème lier à mon ordinateur mais moi je voudrais uniquement mes 2 sessions.

Voila ...

[LiBasic]

ben la session administrateur c' est normal, toutes les installations windows XP en ont une( à ma connaissance)et tu peux l' éviter en remplacant la ligne :

Code :

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

If rep <> "." And rep <> ".." And rep <> "All Users" Then listbox1.AddItem

par

Code :

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

If rep <> "." And rep <> ".." And rep <> "All Users" and rep <> "Administrateur" Then listbox1.AddItem

mais en ce qui est de la hp, je ne peut pas t' aider plus. en tout cas, le code que je t' ai donné fonctionne très bien chez moi.