Récuperer les différentes Session de Windows XP

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:

---

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 :D !!!

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:

---

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:

---

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

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 ?

Citation:

---

Envoyé par zazaraignée

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

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+

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

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

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

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.

Citation:

---

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

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:

---

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

---

par

Code:

---

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.

ok bon ben je vais essayer ta méthode ... et tester sur une autre machine