Discussion :

[Jon Shannow]

Bonjour,

Je cherche à obtenir le nom complet de l'utilisateur, sous Windows 10 avec un domaine & active directory.

J'obtiens le login avec le code suivant

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
Function Fgbo_initappli : Boolean;
Var
	pBuffer 	: Array[0..255] Of Char;
	dwl_Buffer	: DWORD;
Begin
	Result := True;
	Try
	   dwl_Buffer := 256;
	   If GetUserName( pBuffer, dwl_Buffer) Then //dans l'unité Windows
	   Begin
	      cg_usrlog := pBuffer;
	   End
	   Else Begin
	      cg_usrlog := '<Erreur Windows>';
	      Result := False;
	   End;
	Except
           Result := False;
	End;
End;

Mais j'aimerais aussi récupérer le nom complet associé au Login. Je ne trouve pas la fonction qui me permettrai de le faire.
Avez-vous une idée, voire un code ?

Merci d'avance
JS

[jurassic pork]

hello,
tu peux essayer de faire une requête wmi sur la classe Win32_NetworkLoginProfile en cherchant les bonnes propriétés.
Pour faire cette requête sous lazarus le plus simple est d'utiliser l'unité utilwmi que j'ai développé avec Molly et qui est disponible ici
cette unité possède la fonction getwmiinfo qui permet de chercher des infos par wmi :

Code :

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

1
2
Function GetWMIInfo(const WMIClass: string ; const WMIProperty:tstringList;
                     const Condition: string = ''):tlist;

WMIClass : Class in which to find infos example : Win32_NetworkAdapter
WMIProperty : a list of properties to get example : Name,MACAddress
Condition : a Condition to limit results example : WHERE NETENABLED = TRUE

le résultat est une liste de propriétés.
Voici un exemple d'utilisation dans le cas qui t'interesse :

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
 
// unités à ajouter 
implementation
uses  utilwmi, contnrs;
// ....
 
var WMIResult         : TFPObjectList;
 f             : integer;
 retVal            : String;
begin
  WMIResult := GetWMIInfo('Win32_NetworkLoginProfile', ['Name', 'FullName', 'Description'],
                          'WHERE FullName is not NULL');
  for f := 0 to Pred(WMIResult.Count) do
  begin
    retVal := TStringList(WMIResult[f]).ValueFromIndex[0] + ' - FullName : ' +
              TStringList(WMIResult[f]).ValueFromIndex[1] +  ' - Descript : ' +
              TStringList(WMIResult[f]).ValueFromIndex[2];
    Memo1.Lines.add(Retval);
  end;
  WMIResult.Free;

Ami calmant, J.P

[Jon Shannow]

Merci,

Super unité... Joli travail.

A+
JS