Discussion :

[nnj]

Slut à tous,
svp je recherche une fonction ou une API qui pourrait me retourner non seulement l'utilisateur courant, mais aussi le groupe d'utilisateurs auquel il appartient.

Mersi d'avance

[Vesta]

Déja pour la question 1

Déclaration

Code :

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

Declare Function RecupNomUtilisateur Lib     "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize     As Long) As Long

Implémentation

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Function NomUtilisateur() As String
    Dim StrNomUtilisateur As String
    Dim Resultat As Long ' Contiendra simplement 1 si l'appel s'est bien déroulé
    StrNomUtilisateur = String$(255, 0)
    Resultat = RecupNomUtilisateur(StrNomUtilisateur, 255)
    If Resultat = 1 Then
    NomUtilisateur = StrNomUtilisateur
    Else
    NomUtilisateur = "UTILISATEUR INCONNU"
    End If
    End Function

[ouskel'n'or]

J'ai ça, pris sur le forum il y a plusieurs mois

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
26
27
28
29
30
31
32
 
Sub VariablesEnvironnement()
Dim EnvString, Indx, Msg, PathLen
Indx = 1    ' Initialise l'index à 1.
    Do
        ' Extrait la variable d'environnement.
        EnvString = Environ(Indx)
        ' Vérifie l'entrée PATH.
        If Left(EnvString, 5) = "PATH=" Then
                ' Extrait la longueur.
                PathLen = Len(Environ("PATH"))
                Msg = "Entrée PATH = " & Indx & _
                    " et longueur = " & PathLen
                Exit Do
            Else
                ' Pas d'entrée PATH, donc incrémente.
                Indx = Indx + 1
        End If
    Loop Until EnvString = ""
    If PathLen > 0 Then
        MsgBox Msg  ' Affiche le message.
    Else
        MsgBox " Il n'existe pas de variable " & _
            "d'environnement PATH."
    End If
    For i = 1 To Indx   '30
        If InStr(Environ(i), "USERNAME") <> 0 Then
        MsgBox Environ(i)
        Debug.Print Environ(i)
        End If
    Next
End Sub

Si ça peut te servir...

A+