comment obtenir le nom d'utilisateur complet?

J'ai le code suivant dans VBS qui fonctionne parfaitement. il requêtes AD pour obtenir le nom complet de l'utilisateur :

Set objSysInfo = CreateObject("ADSystemInfo")
strUser = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)
strFullName = objUser.Get("displayName")
MsgBox strFullName

je voudrais faire la même mince, mais dans Foxpro 7. quelqu'un a de l'expérience avec VFP 7 ou 9 ?

OriginalL'auteur user1327073 | 2013-01-29