INFO: Disconnecting from a NetWare File Server by Using WNetCancelConnection2() API

Option Explicit

Declare Function WNetAddConnection2 Lib "mpr.dll" Alias _
"WNetAddConnection2A" (lpNetResource As NETRESOURCE, _
ByVal lpPassword As String, ByVal lpUserName As String, _
ByVal dwFlags As Long) As Long

Declare Function WNetCancelConnection2 Lib "mpr.dll" Alias _
"WNetCancelConnection2A" (ByVal lpName As String, _
ByVal dwFlags As Long, ByVal fForce As Long) As Long

Type NETRESOURCE
  dwScope As Long
  dwType As Long
  dwDisplayType As Long
  dwUsage As Long
  lpLocalName As String
  lpRemoteName As String
  lpComment As String
  lpProvider As String
End Type

Const NO_ERROR = 0
' The following includes all the constants defined for NETRESOURCE,
' not just the ones used in this example.
Const RESOURCETYPE_DISK = &H1
Const RESOURCE_GLOBALNET = &H2
Const RESOURCEDISPLAYTYPE_SHARE = &H3
Const RESOURCEUSAGE_CONNECTABLE = &H1

Sub Attach_FileServer()
  Dim rc As Integer
  Dim NetR As NETRESOURCE
  Dim MyPass, MyUser As String
    
  NetR.dwScope = RESOURCE_GLOBALNET
  NetR.dwType = RESOURCETYPE_DISK
  NetR.dwDisplayType = RESOURCEDISPLAYTYPE_SHARE
  NetR.dwUsage = RESOURCEUSAGE_CONNECTABLE
  NetR.lpLocalName = "" ' If undefined, Connect with no device
  NetR.lpRemoteName = "\\FILE_SERVER"
  
  ' If the UserName and Password arguments are NULL, the user context
  ' for the process provides the default user name.
  MyUser = "Guest"
  MyPass = "guest"
      
  rc = WNetAddConnection2(NetR, MyPass, MyUser, 0)
    
  If (rc <> NO_ERROR) Then
    MsgBox "Error " & CStr(rc) & ": Cannot Attach to FileServer"
  Else
    MsgBox "Attached"
  End If
End Sub

Sub Detach_FileServer()
  Dim rc As Integer
  
  ' To disconnect from a NetWare server, we have to use just the 
  ' file server name. 
  rc = WNetCancelConnection2("\\FILE_SERVER", 0, True)
  
  If (rc <> NO_ERROR) Then
    MsgBox "Error " & CStr(rc) & ": Cannot Detach from FileServer"
  Else
    MsgBox "Detached"
  End If
End Sub