!define TokenUser 1
system::call 'kernel32::GetCurrentProcess()i.s'
system::call 'advapi32::OpenProcessToken(is,i 0x00020008,*i.r1)i.r0' ;TOKEN_READ
${If} $0 <> 0
    System::Call 'advapi32::GetTokenInformation(ir1,i ${TokenUser},i0,i0,*i.r2)'
    System::Alloc $2
    pop $3
    System::Call 'advapi32::GetTokenInformation(ir1,i ${TokenUser},ir3,ir2,*i.r2)i.r0'
    ${If} $0 <> 0
        System::Call '*$3(i.r4)'
        System::Call 'advapi32::ConvertSidToStringSid(i r4,*i.r2)i.r0'
        ${If} $0 <> 0
            System::Call '*$2(&t1000 .r4)'
            System::Call 'kernel32::LocalFree(ir2)'
            MessageBox mb_ok $4
        ${EndIf}
    ${EndIf}
    System::Free $3
    FileClose $1
${EndIf}