Tipos de usuarios en XP
Saludos cordiales,
Me gustaría conocer un listado de los usuarios que hay en un equipo bajo Windows XP y saber qué tipo de usuarios son.
Haciendo lo siguiente sé cuantos usuarios hay pero NO SE CÓMO SABER A QUE TIPO PERTENECEN ("Administradores", "duplicadores" etc....).
¿Me pueden ayudar?. Gracias.
procedure TForm1.Button1Click(Sender: TObject);
var
UserList: Variant;
Index: Cardinal;
begin
UserList := CreateOleObject('Shell.Users');
for Index := 0 to UserList.length - 1 do
MessageBox(0, PChar(string(UserList.item(Index).setting['LoginName'])), nil, 0);
end;
|