XProfan

Français

Beschreibung:

LookupAccountSid ermittelt aus dem Security Identifier (SID) den dazugehörigen User ou bien Gruppennamen et la première Domain, sur qui cette SID trouvé wurde.

Deklaration:

DEF @LookupAccountSid(7) !ADVAPI32,LookupAccountSidA

paramètre:

1.paramètre: Adresse des Cordes, qui den Systemnamen contient ou bien 0 pour den aktuellen ordinateur.

2.paramètre: Bereichsvariable avec dem SID.

3.paramètre: Bereichsvariable, qui den Gruppen- ou bien Usernamen comme String aufnimmt.

4.paramètre: 4 Byte grand Bereichsvariable, qui la taille des Bereichs de paramètre 3 contient. Wurde paramètre 3 trop petite dimensioniert, steht ici später qui erforderliche Taille de paramètre 3, si le Funktion zurückkehrt.

5.paramètre: une ausreichend grand Bereichsvariable, qui den Domainnamen aufnimmt.

6.paramètre: 4 Byte grand Bereichsvariable, qui la taille des Bereichs de paramètre 5 contient. Wurde paramètre 5 trop petite dimensioniert, steht ici später qui erforderliche Taille de paramètre 5, si le Funktion zurückkehrt.

7.paramètre: SID_NAME_USE Struktur ou bien 4 Byte grand Bereichsvariable, qui une Flag pour qui Art des Accounts aufnimmt, si le Funktion zurückkehrt..=>
-$1 = Username (SidTypeUser)
-$2 = Gruppenname (SidTypeGroup)
-$3 = Domain (SidTypeDomain)
-$4 = SidTypeAlias
-$5 = SidTypeWellKnownGroup
-$6 = Gelöschter Account (SidTypeDeletedAccount)
-$7 = SidTypeInvalid
-$8 = SidTypeUnknown

Rückgabewert:

1 chez Erfolg, 0 chez faute

Beispiele:

Kompilieren Marque Séparation

DEF @LookupAccountSid(7) !"ADVAPI32","LookupAccountSidA"
DEF @GetLastError(0) !"KERNEL32","GetLastError"
DEF @IsValidSid(1) !"ADVAPI32","IsValidSid"
Declare Fehler&

Proc GET_Group_Name

    Parameters Name$
    Declare SYS$,SEC_ID#,CBNAME_SIZE#,CBNAME#,ReferencedDomainName#,RDN_SIZE#
    Declare SID_NAME_USE#,CBNAME$
    SID wird erstellt.

    IF @UPPER$(Name$)="JEDER"

        DIM SEC_ID#,12

    ElseIF @UPPER$(Name$)="ADMINISTRATOREN"

        DIM SEC_ID#,16

    else

        DIM SEC_ID#,12
        @Messagebox("Falscher Parameter!","Fehler",16)

    endif

    DIM CBNAME_SIZE#,4
    DIM CBNAME#,256
    DIM ReferencedDomainName#,256
    DIM RDN_SIZE#,4
    DIM SID_NAME_USE#,4
    Clear SYS$,SID_NAME_USE#,CBNAME#,ReferencedDomainName#,SEC_ID#

    IF @UPPER$(Name$)="JEDER"

        LONG SEC_ID#,0=257
        LONG SEC_ID#,4=16777216
        LONG SEC_ID#,8=0

    elseIF @UPPER$(Name$)="ADMINISTRATOREN"

        LONG SEC_ID#,0=513
        LONG SEC_ID#,4=83886080
        LONG SEC_ID#,8=32
        LONG SEC_ID#,12=544

    endif

    LONG CBNAME_SIZE#,0=255
    LONG RDN_SIZE#,0=255
    LET Fehler&=@IsValidSid(SEC_ID#)
    ADDSTRING "Fehlercode IsValidSid="+@STR$(FEHLER&)
    ADDSTRING "Letzter API Fehler="+@STR$(@GetLastError())
    CASE FEHLER&=1 : LET FEHLER&=@LookupAccountSid(@ADDR(SYS$),SEC_ID#,CBNAME#,CBNAME_SIZE#,ReferencedDomainName#,RDN_SIZE#,SID_NAME_USE#)
    ADDSTRING "Fehlercode LookupAccountSid="+@STR$(FEHLER&)
    ADDSTRING "Letzter API Fehler="+@STR$(@GetLastError())
    ADDSTRING @STRING$(CBNAME#,0)
    LET CBNAME$=@STRING$(CBNAME#,0)
    Dispose SID_NAME_USE#
    Dispose RDN_SIZE#
    Dispose ReferencedDomainName#
    Dispose CBNAME#
    DISPOSE SEC_ID#
    DISPOSE CBNAME_SIZE#
    Return CBNAME$

endproc

GET_Group_Name "Jeder"
PRINT @$(0)
@Editbox(&quo