XProfan

DEF @LookupAccountName(7) !"advapi32","LookupAccountNameA"
DEF @LogonUser(6) !"advapi32","LogonUserA"
DEF @CreateProcessAsUser(11) !"advapi32","CreateProcessAsUserA"
DEF @SetLastError(1) !"kernel32","SetLastError"
DEF @GetLastError(0) !"kernel32","GetLastError" Liefert letzten API Fehler.
DEF @ZeroMemory(2) ! "Kernel32","RtlZeroMemory"
DEF @CloseHandle(1) !"kernel32","CloseHandle" Schließt ein Handle (Programm).
DEF @CreateProcessWithLogonW(11) !"advapi32","CreateProcessWithLogonW"
DEF @MultiByteToWideChar(6) !"kernel32","MultiByteToWideChar"
DEF @GetACP(0) !"kernel32","GetACP"
DEF @ConvertSidToStringSid(2) !"ADVAPI32","ConvertSidToStringSidA"
DEF @LocalFree(1) !"KERNEL32","LocalFree"
DEF @CopyMemory(3) !"kernel32","RtlMoveMemory"

Proc GET_SID

    Parameters PUSERNAME$
    Declare FEHLER&,SID_Size#,DOMAINNAME_SIZE_ADDR#,Zähler&
    Declare SID#,DOMAIN#,SID_TYPE_INDICATOR#,DOMAIN#,SID#,P_STRSID#,STRSID#
    DIM DOMAIN#,256
    DIM SID#,1
    DIM SID_Size#,4
    DIM DOMAINNAME_SIZE_ADDR#,4
    DIM SID_TYPE_INDICATOR#,256
    DIM P_STRSID#,4
    Dim STRSID#,256
    CLEAR SID#,DOMAIN#,SID_TYPE_INDICATOR#,DOMAIN#,SID#,DOMAINNAME_SIZE_ADDR#
    Long SID_Size#,0=1
    LONG DOMAINNAME_SIZE_ADDR#,0=255
    ADDSTRING "Gruppen- oder Username="+PUSERNAME$
    LET Fehler&=@LookupAccountName(0,@addr(PUSERNAME$),SID#,SID_Size#,DOMAIN#,DOMAINNAME_SIZE_ADDR#,SID_TYPE_INDICATOR#)
    DISPOSE SID#
    DIM SID#,@LONG(SID_Size#,0)
    Clear SID#,Domain#,SID_TYPE_INDICATOR#
    LET Fehler&=@LookupAccountName(0,@addr(PUSERNAME$),SID#,SID_Size#,DOMAIN#,DOMAINNAME_SIZE_ADDR#,SID_TYPE_INDICATOR#)
    ADDSTRING "Fehler LookupAccountName: "+@str$(Fehler&)
    ADDSTRING "Domain="+@STRING$(DOMAIN#,0)
    ADDSTRING "SID Länge in Bytes="+@STR$(@LONG(SID_Size#,0))
    ADDSTRING ""
    ADDSTRING "LongInts des SIDs:"
    LET ZÄHLER&=0

    While Zähler&<@LONG(SID_Size#,0)

        ADDSTRING @STR$(@LONG(SID#,Zähler&))
        LET Zähler&=Zähler&+4

    wend

    ADDSTRING ""

    IF @Val(@Left$($WINVER,3))>=5.0

        LET FEHLER&=@ConvertSidToStringSid(SID#,P_STRSID#)
        @CopyMemory(STRSID#,@LONG(P_STRSID#,0),255)
        ADDSTRING "String-SID des Besitzers="+@STRING$(STRSID#,0)
        ADDSTRING "Rückgabe von ConvertSidToStringSid="+@STR$(Fehler&)
        ADDSTRING "Letzter API-Fehler="+@STR$(@GetLastError())
        LET Fehler&=@LocalFree(@LONG(P_STRSID#,0))
        ADDSTRING "Rückgabe von LocalFree für den String-SID="+@STR$(Fehler&)
        ADDSTRING "Letzter API-Fehler="+@STR$(@GetLastError())

    endif

    DISPOSE SID#
    DISPOSE DOMAIN#
    DISPOSE SID_Size#
    DISPOSE DOMAINNAME_SIZE_ADDR#
    DISPOSE SID_TYPE_INDICATOR#
    DISPOSE P_STRSID#
    DISPOSE STRSID#

ENDPROC

ADDSTRING "Windowsversion="+$WINVER
GET_SID @INPUT$("Usernamen oder Gruppe eingeben:","SID ermitteln","Kein")
@EDITBOX("Rückgaben",1)