Using NetFileEnum to determine which files are open on server

Private Function GetPointerToByteStringW(ByVal dwData As Long) As String
 Dim tmp() As Byte
 Dim tmplen As Long
 
 If dwData <> 0 Then
 tmplen = lstrlenW(dwData) * 2
 If tmplen <> 0 Then
  ReDim tmp(0 To (tmplen - 1)) As Byte
  CopyMemory tmp(0), ByVal dwData, tmplen
  GetPointerToByteStringW = tmp
 End If
 End If
End Function
Private Sub Form_Load()
 Dim bufptr As Long 
 Dim dwServer As Long 
 Dim dwEntriesread As Long 
 Dim dwTotalentries As Long 
 Dim dwResumehandle As Long 
 Dim success As Long
 Dim nStructSize As Long
 Dim cnt As Long
 Dim usrname As String
 Dim bServer As String
 Dim fi3 As FILE_INFO_3
 bServer = "\\" & ComputerName & vbNullString
 dwServer = StrPtr(bServer)
 
 success = NetFileEnum(dwServer, 0&, 0&, 3,bufptr,MAX_PREFERRED_LENGTH, dwEntriesread,dwTotalentries,dwResumehandle)
 If success = NERR_SUCCESS And success <> ERROR_MORE_DATA Then
 nStructSize = LenB(fi3)
 For cnt = 0 To dwEntriesread - 1
  CopyMemory fi3, ByVal bufptr + (nStructSize * cnt), nStructSize
 
  usrname = GetPointerToByteStringW(fi3.fi3_username)
  If Len(usrname) > 0 Then
  Print usrname & vbTab & fi3.fi3_permissions & vbTab & fi3.fi3_num_locks & vbTab & GetPointerToByteStringW(fi3.fi3_Pathname)
  End If
 Next
 End If
 
Call NetApiBufferFree(bufptr)
End Sub