Аудит общей папки filesystemwatcher и netapi32.dll

    <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Auto, Pack:=4)>
    Structure FILE_INFO_3
        Dim fi3_id As Integer
        Dim fi3_permission As Integer
        Dim fi3_num_locks As Integer
        <MarshalAs(UnmanagedType.LPWStr)>
        Dim fi3_pathname As String
        <MarshalAs(UnmanagedType.LPWStr)>
        Dim fi3_username As String
    End Structure
 
 
    <DllImport("netapi32.dll", CharSet:=CharSet.Unicode, SetLastError:=True)>
    Private Shared Function NetFileEnum(ByVal servername As String, ByVal basepath As String, ByVal username As String, ByVal level As Integer, ByRef bufptr As IntPtr, ByVal prefmaxlen As Integer,
    ByRef entriesread As Integer, ByRef totalentries As Integer, ByRef resume_handle As Integer) As Integer
    End Function
 
 
    Private Shared Function GetFileIdFromPath(ByVal filepath As String) As Integer
        Const MAX_PREFERRED_LENGTH As Integer = -1
 
        Dim dwIndex, dwStatus, dwReadEntries, dwTotalEntries As Integer
        Dim iPtr, pBuffer As IntPtr
        Dim pCurrent As FILE_INFO_3 = New FILE_INFO_3
        Try
            dwStatus = NetFileEnum(Nothing, filepath, Nothing, 3, pBuffer, MAX_PREFERRED_LENGTH, dwReadEntries, dwTotalEntries, IntPtr.Zero)
            If dwStatus = 0 Then
                For dwIndex = 0 To dwReadEntries - 1
                    iPtr = New IntPtr(pBuffer.ToInt32 + (dwIndex * Marshal.SizeOf(pCurrent)))
 
                    pCurrent = CType(Marshal.PtrToStructure(iPtr, GetType(FILE_INFO_3)), FILE_INFO_3)
 
                    'Dim fileId = pCurrent.fi3_id
                    NetApiBufferFree(pBuffer)
                    Return pCurrent.fi3_id
                Next
            End If
 
            NetApiBufferFree(pBuffer)
        Catch ex As Exception
 
        End Try
 
        Return -1
 
    End Function