Utilisation GetSecurityDescriptor pour retourner Username
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:
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:
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é
Citation:
GetSecurityDescriptor
En effet, à quoi correspondent les paramètres Maniaque incorrigible, j'aurais souhaité les préciser
Code:
paramètre1:=1, paramètre2:=1
Or, je n'ai pas trouvé de correspondance.
Par avance, merci pour vos lumières.
