Utilisation GetSecurityDescriptor pour retourner Username

**MarcelG** · 30/11/2020, 16h48

Bonjour à tous,

(Désolé pour mon absence, débordé)

J'aurais souhaité connaître l'utilisateur actuel d'un applicatif que j'ai développé.

Pour ce faire, je dispose de la fonction suivante

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function nom_utilisateur(name_dossier As String, name_fichier As String) As String
 
Dim propriétés As Object
Dim Description As Object
 
Set propriétés = CreateObject("ADsSecurityUtility")
Set Description = propriétés.GetSecurityDescriptor(name_dossier & name_fichier, 1, 1)
 
nom_utilisateur = Description.owner
 
Set Description = Nothing
Set propriétés = Nothing
 
End Function

Le problème est que celle-ci retourne le matricule de l'utilisateur, soit

Code :

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

Environ("username")

(exemple: A3369)

, non son username (Marcel G....).

Or, lorsqu'un fichier est occupé, le pop-up d'Excel retourne la valeur dont j'ai besoin, soit le Username.

Y a-t-il un moyen pour aboutir à ce résultat?

Cette question est peut-être corrélée aux paramètres de la propriété

GetSecurityDescriptor

En effet, à quoi correspondent les paramètres

Code :

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