static extern IntPtr GetSidSubAuthorityCount(IntPtr psid);

Declare Function GetSidSubAuthorityCount Lib "advapi32.dll" (

Dim numSubAuthorities As Byte = Runtime.InteropServices.Marshal.ReadByte(GetSidSubAuthorityCount(pSID), 0)

   iptr = GetSidSubAuthorityCount(Sid)

     iptr = GetSidSubAuthority(Sid, i)

static extern TODO GetSidSubAuthorityCount(TODO);

Declare Function GetSidSubAuthorityCount Lib "advapi32.dll" (

Dim numSubAuthorities As Byte = Runtime.InteropServices.Marshal.ReadByte(GetSidSubAuthorityCount(pSID), 0)

   iptr = GetSidSubAuthorityCount(Sid)

     iptr = GetSidSubAuthority(Sid, i)

        static extern IntPtr GetSidSubAuthority(IntPtr sid, UInt32 subAuthorityIndex);

        static extern IntPtr GetSidSubAuthorityCount(IntPtr sid);

                            int dwIntegrityLevel = Marshal.ReadInt32(GetSidSubAuthority(pSid, (Marshal.ReadByte(GetSidSubAuthorityCount(pSid)) - 1U)));