CreateFile - WriteFile com privilégios elevados

Question

Estou recebendo o Erro 5 Acesso negado exceção ao tentar sobrescrever setores pertencentes a arquivos do sistema, mas pode ser bem-sucedido em outros setores. Eu então desmontei (mountvol X: / p) a Partição particular que está ligada a eles Setores, mas sem sucesso. Preciso de uma solução porque estou conduzindo um experimento com o objetivo de entender melhor e, finalmente, conseguir reparar o $ MFT danificado. Obrigado.

O caminho é "\.\PhysicalDrive1"

    Public Function WriteBytes(ByVal path As String, _
                  ByVal OFFSET_POS As Long, ByVal data As Byte()) As Boolean

   Dim handle As IntPtr = IntPtr.Zero
   handle = CreateFile(path, FileAccess.ReadWrite, FileShare.ReadWrite, _
                  IntPtr.Zero, FileMode.Open, FileAttributes.Normal, IntPtr.Zero)

   Dim bytesWritten As UInteger
   Dim nativeOverlapped = New NativeOverlapped With {
                .OffsetLow = 0,
                .OffsetHigh = 0
   }


   Dim msg As Boolean = SetFilePointerEx(handle, OFFSET_POS, IntPtr.Zero, 
                  MoveMethod.FILE_CURRENT)

   Debug.WriteLine(String.Format("{0}: Setting Sector to position {1} ", _
   msg, OFFSET_POS \ 512))


   If Not WriteFile(handle, data, CUInt(data.Length), _
                  bytesWritten, nativeOverlapped) Then


        Debug.WriteLine(String.Format("Unable to write to the volume. Error code: {0}", Marshal.GetLastWin32Error()))


        Return False
   End If 
   Return True
End Function