Discussion :

[marsup54]

Bonjour,

Il existe plusieurs méthode pour trouver le nom de l'utlisateur connecté :
http://vb.developpez.com/faq/?page=Systeme#nom_user

Par contre, je n'ai rien trouvé concernant les groupes (local, réseau, ...).

Existe-t-il une variable d'environnement qui donne ces informations ?

J'ai essayé :

Code :

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

environ("GROUPNAME")

et plein d'autres variantes, mais cela ne retourne rien.

Merci d'avance pour vos réponses.

PS : C'est un peu hors sujet, mais existe-t-il un lien qui liste toutes les api/dll windows que l'on peut utiliser en VB, ainsi que la description des méthodes !
Une sorte de documentation comme la JavaDoc !
De même, une référence de toutes les variables d'environnements.

[ThierryAIM]

existe-t-il un lien qui liste toutes les api/dll windows que l'on peut utiliser en VB,.

http://www.mentalis.org/agnet/apiviewer.shtml

pour les variable d'environnement, DarkVader avait ecrit ca il y a déjà qque temps

Code :

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

1
2
3
4
 
For i = 1 To 30
    Debug.Print Environ(i)
Next

[marsup54]

For i = 1 To 30
Debug.Print Environ(i)
Next

Merci pour cette info !
Je connaissais pas !

J'ai donc pu récupérer mon domaine avec les variables :

Code :

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

1
2
USERDNSDOMAIN=inrs.fr
USERDOMAIN=INRS

Par contre pour ce qui est du groupe, il n'y a rien apparemmment au niveau des variables d'environnement.
Je regarde si je trouve quelque chose au niveau des api.

++

[marsup54]

J'ai trouvé un WScript que j'ai adapté :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim strComputer As String
Dim colGroups As Object, objGroup As Object, objUser As Object
strComputer = "Nom du PC" 
 
Set colGroups = GetObject("WinNT://" & strComputer & "")
colGroups.Filter = Array("group")
For Each objGroup In colGroups
    Debug.Print "Group : " & objGroup.name
    For Each objUser In objGroup.Members
        Debug.Print "Utilisateur : " & objUser.name
    Next
Next

Ca retourne les groupes locaux ainsi que leurs membres.

Après, reste à faire le traitement des groupes de l'active directory ...

Ca devient vite une usine à gaz ...

Je pensais que c'était un peu mieux gérer ces histoires de groupes, héritages et droits ... mais apparemment ce n'est pas le cas !

A l'occasion, si j'ai le temps, j'essayerai de faire une fonction qui vérifie dans quel groupe local se trouve un utilisateur (du domaine ou local).

++