Property Descriptor As Variant

PACL g_pDACL;
PSECURITY_DESCRIPTOR* g_pSecurityDescriptor;

        BOOL fFlag;
        BOOL fDaclPresent = FALSE;
        BOOL fDaclDefaulted = TRUE;
        VARIANT vDescriptor;
        VariantInit(&vDescriptor);

        //Get the security descriptor from FaxSecurity
        hr = pFaxSecurity->put_InformationType(DACL_SECURITY_INFORMATION);
        hr = pFaxSecurity->get_Descriptor(&vDescriptor);    
        hr = SafeArrayAccessData(vDescriptor.parray, (void **) &g_pSecurityDescriptor);
        //Get the DACL
        fFlag = GetSecurityDescriptorDacl(g_pSecurityDescriptor,&fDaclPresent, &g_pDACL, &fDaclDefaulted);

  Public Declare Function GetSecurityDescriptorDacl Lib "advapi32.dll" _
   (ByVal pSecurityDescriptor As IntPtr, ByRef lpbDaclPresent As Boolean, ByRef pDacl As IntPtr, ByRef lpbDaclDefaulted As Boolean) As Boolean


    Private Sub ButtonSecurity_Click(sender As Object, e As EventArgs) Handles ButtonSecurity.Click
    Dim objFaxSecurity As FAXCOMEXLib.FaxSecurity
    objFaxSecurity = g_objFaxServer.Security
    objFaxSecurity.InformationType = DACL_SECURITY_INFORMATION
    Dim oSecurity As Object = objFaxSecurity.Descriptor
    Dim vSecurity As IntPtr = Marshal.AllocCoTaskMem(1024)
    Marshal.GetNativeVariantForObject(oSecurity, vSecurity)
    Dim fFlag As Boolean
    Dim fDaclPresent As Boolean = False
    Dim fDaclDefaulted As Boolean = True
    Dim pOldDACL As IntPtr
    fFlag = GetSecurityDescriptorDacl(vSecurity, fDaclPresent, pOldDACL, fDaclDefaulted)
    If fFlag = False Then
      MsgBox(RaiseAPIError())
    End If

    'objFaxSecurity.Descriptor = pNewDACL
    'objFaxSecurity.Save()
    Marshal.FreeCoTaskMem(vSecurity)

  End Sub

 <StructLayout(LayoutKind.Sequential)>
  Private Structure tagVARIANTparray
    Dim vt As Short
    Dim wReserved1 As Short
    Dim wReserved2 As Short
    Dim wReserved3 As Short
    Dim parray As IntPtr
  End Structure

  Public Declare Function SafeArrayAccessData Lib "OleAut32.dll" _
   (ByVal psa As IntPtr, ByRef ppvData As IntPtr) As Integer
  Public Declare Function GetSecurityDescriptorDacl Lib "advapi32.dll" _
   (ByVal pSecurityDescriptor As IntPtr, ByRef lpbDaclPresent As Boolean, ByRef pDacl As IntPtr, ByRef lpbDaclDefaulted As Boolean) As Boolean


Dim g_pSecurityDescriptor As IntPtr 'PSECURITY_DESCRIPTOR*
Dim g_pDACL As IntPtr

Dim objFaxSecurity As FAXCOMEXLib.FaxSecurity = objFaxServer.Security
objFaxSecurity.InformationType = DACL_SECURITY_INFORMATION
Dim objDescriptor As Object = oFaxSecurity.Descriptor
Dim vDescriptor As IntPtr =  Marshal.AllocCoTaskMem(16) ' VARIANT – это 16 байт
Marshal.GetNativeVariantForObject(objDescriptor, vDescriptor)
Dim tV As tagVARIANTparray = CType(Marshal.PtrToStructure(vDescriptor, GetType(tagVARIANTparray)), tagVARIANTparray)
hr = SafeArrayAccessData(tV.parray, g_pSecurityDescriptor)
fFlag = GetSecurityDescriptorDacl(g_pSecurityDescriptor, fDaclPresent, g_pDACL, fDaclDefaulted)
'… <To do>
Marshal.FreeCoTaskMem(vDescriptor)