AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Delphi-PRAXiS - Lounge Betriebssysteme Übersetzen der SID in echten Namen
Thema durchsuchen
Ansicht
Themen-Optionen

Übersetzen der SID in echten Namen

Ein Thema von p80286 · begonnen am 5. Nov 2015 · letzter Beitrag vom 5. Nov 2015
Antwort Antwort
Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#1

Übersetzen der SID in echten Namen

  Alt 5. Nov 2015, 11:31
Betriebssystem: Win 7
Hallo zusammen,

ich habe eine liste mit SIDs und suche hierzu den Klarnamen.
Für den aktuellen Benutzer bekomme ich das über GetUserNameEx mit 3=NameDisplay oder 8=NameUserPrincipal (etwas anderes Format aber für meine Zwecke ausreichend)

Die einzige Möglichkeit SIDs zu übersetzen, die ich kenne, ist LookupAccountSidA die aber nur den Benutzer im Format Domäne\UserID ausspuckt.

Gibt es da etwas, was ich übersehen habe, oder müßte ich mich um andere Lösungen (LDAP) bemühen ?

Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat
nahpets
(Gast)

n/a Beiträge
 
#2

AW: Übersetzen der SID in echten Namen

  Alt 5. Nov 2015, 11:55
Ansätze zum Weitersuchen:

c-sid-einer-lokalen-gruppe-in-den-gruppenname-bersetzen

how-can-i-convert-from-a-sid-to-an-account-name-in-c-sharp

the-best-way-to-resolve-display-username-by-sid
  Mit Zitat antworten Zitat
Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#3

AW: Übersetzen der SID in echten Namen

  Alt 5. Nov 2015, 12:33
Vielen dank!

Über diese Wege bin ich gerade an TransLateName geraten, mal schauen ob das funktioniert

Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat
Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#4

AW: Übersetzen der SID in echten Namen

  Alt 5. Nov 2015, 17:07
@napeths
Noch mal vielen Dank für den Schubser

Falls es jemanden interessiert:
Delphi-Quellcode:
Type
EXTENDED_NAME_FORMAT=(
    NameUnknown = 0,
    NameFullyQualifiedDN = 1,
    NameSamCompatible = 2,
    NameDisplay = 3,
    NameUniqueId = 6,
    NameCanonical = 7,
    NameUserPrincipal = 8,
    NameCanonicalEx = 9,
    NameServicePrincipal = 10,
    NameDnsDomain = 12
    );
...
function TranslateNameA(lpAccountName: LPCSTR; AccountNameFormat,
  DesiredNameFormat: EXTENDED_NAME_FORMAT; lpTranslatedName: LPSTR;
  var nSize: ULONG
  ): ByteBool; stdcall; external 'secur32.dllName 'TranslateNameA';

...
    StrSIDToName(dummy,name,domain,SIDTYPE);
    sidlist[i]:=sidlist[i]+'#'+format('%s\%s',[domain,name]);
    if SIDType=1 then begin
      indummy:=format('%s\%s',[domain,name]);
      buffersize:=0;
      {-- to determin buffersize }
      TranslateNameA(pansichar(indummy),NameSamCompatible,NameDisplay,nil,buffersize);
      getmem(buffer,buffersize*sizeof(char));
      if TranslateNameA(pansichar(indummy),NameSamCompatible,NameDisplay,buffer,buffersize) then begin
        setstring(dummy,buffer,buffersize);
        sidlist[i]:=sidlist[i]+' : '+trimright(dummy);
      end
      else
        showmessage(SysErrorMessage(GetLastError));
      freemem(buffer,buffersize);
Vielen Dank an Luckie, seine Beiträge zu diesem Themenbereich StrSIDToNamesind wirklich hilfreich.

Wenn ich mal Zeit habe, mach ich es etwas hübscher, aber im Augenblick reicht es.

Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#5

AW: Übersetzen der SID in echten Namen

  Alt 5. Nov 2015, 17:34
Ich wusste doch, dass es da was von mir gibt. Aber warum hat meine Funktion dir nicht gereicht?
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#6

AW: Übersetzen der SID in echten Namen

  Alt 5. Nov 2015, 17:43
Du und ich wir wissen was eine UID ist, Chefs brauchen da etwas mehr
und bevor ich da eine Übersetzungstabelle mit ein paar hundert Einträgen bastele, bemühe ich doch das System.
Und bei uns lehnen sich die UIDs an den Familiennamen an, falls dann jemand heiratet oder geschieden wird oder ..., behält er die alte UID.

(btw. gibt's eigentlich eine Möglichkeit Gruppen und Aliasmitglieder auszulesen?)

Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 13:52 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz