Dim ptr As IntPtr
      MsgBox(Wow64DisableWow64FsRedirection(ptr))

      dwRes = GetRegistryEntryOwner(GetRegEntryString(hKey, sSubKey), Acct_Name, Domain_Name)
      If dwRes = ERROR_SUCCESS Then
        MsgBox("  Owner = " & Domain_Name & "\" & Acct_Name)
      Else
        MsgBox("  Getting information about the current owner... Failed. Error " & RaiseAPIErrorByNumber(dwRes))
      MsgBox(Wow64RevertWow64FsRedirection(ptr))


  Public Function GetRegistryEntryOwner(ByVal RegistryPath As String, _
   ByRef AcctName As String, ByRef DomainName As String) As Integer
    'возвращает владельца ветки реестра
    GetRegistryEntryOwner = GetSecurityOwner(RegistryPath, _
     SE_OBJECT_TYPE.SE_REGISTRY_KEY, _
     AcctName, _
     DomainName)
  End Function
  'http://support.microsoft.com/kb/218965/ru
  'http://msdn.microsoft.com/en-us/library/windows/desktop/aa446629(v=vs.85).aspx

  Public Function GetSecurityOwner(ByVal pszObjName As String, _
   ByVal ObjectType As SE_OBJECT_TYPE, _
   ByRef AcctName As String, ByRef DomainName As String) As Integer
    'ф-ция возвращает владельца объекта

    'AcctName - account name, DomainName - domain name
    Dim dwRes As Integer
    Dim pSidOwner As IntPtr 'security identifier
    Dim pSD As IntPtr
    Dim bRtnBool As Boolean
    Dim dwAcctName As Integer 'size of account name buffer
    Dim dwDomainName As Integer 'size of domain name buffer
    Dim eUse As Integer 'SID type

    If (pszObjName = "") Then
      GetSecurityOwner = ERROR_INVALID_PARAMETER
      'Debug.Print "ERROR_INVALID_PARAMETER"
      Exit Function
    End If

    'Get a pointer to the owner SID of the file
    dwRes = GetNamedSecurityInfo(pszObjName, ObjectType, _
     OWNER_SECURITY_INFORMATION, _
     pSidOwner, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero, pSD)
    If dwRes <> ERROR_SUCCESS Then
      'Debug.Print "GetNamedSecurityInfo Error " & CStr(dwRes)
      GoTo Cleanup
    End If

    'First call to LookupAccountSid to get the buffer sizes.
    bRtnBool = LookupAccountSid(vbNullString, pSidOwner, AcctName, dwAcctName, _
     DomainName, dwDomainName, eUse)
    If (bRtnBool = False) And (Err.LastDllError <> ERROR_INSUFFICIENT_BUFFER) Then
      'Debug.Print "LookupAccountSid (1) Error " & Err.LastDllError
      dwRes = Err.LastDllError
      GoTo Cleanup
    End If

    'Allocate the required space in the AcctName and DomainName string
    'variables. Allocate 1 byte less to avoid the appended NULL character.
    AcctName = Space(dwAcctName - 1)
    DomainName = Space(dwDomainName - 1)

    'Second call to LookupAccountSid to get the account name.
    bRtnBool = LookupAccountSid(vbNullString, pSidOwner, AcctName, dwAcctName, _
     DomainName, dwDomainName, eUse)
    If bRtnBool = False Then
      'Debug.Print "LookupAccountSid (2) Error " & Err.LastDllError
      dwRes = Err.LastDllError
      GoTo Cleanup
    End If

Cleanup:
    If pSD <> IntPtr.Zero Then LocalFree(pSD)

    GetSecurityOwner = dwRes

  End Function