WNetGetConnection VB声明 
Declare Function WNetGetConnection Lib "mpr.dll" Alias "WNetGetConnectionA" (ByVal lpszLocalName As String, ByVal lpszRemoteName As String, cbRemoteName As Long) As Long 
说明 
获取本地或已连接的一个资源的网络名称 
返回值 
Long,零表示成功。会设置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR,则可用WNetGetLastError取得额外的错误信息 
参数表 
参数 类型及说明 
lpszLocalName String,本地设备的名字 
lpszRemoteName String,指定一个字串缓冲区,用于装载设备的资源名称 
cbRemoteName Long,lpszRemoteName缓冲区的字符数量。如缓冲区不够大,则设为需要的缓冲区长度 WNetCancelConnection VB声明 
Declare Function WNetCancelConnection Lib "mpr.dll" Alias "WNetCancelConnectionA" (ByVal lpszName As String, ByVal bForce As Long) As Long 
说明 
结束一个网络连接 
返回值 
Long,零表示成功。会设置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR,则可用WNetGetLastError取得额外的错误信息 
参数表 
参数 类型及说明 
lpszName String,已连接资源的远程名称或本地名称 
bForce Long,如为TRUE,表示断开连接(即使连接的资源上正有打开的文件或作业) 
使用以上两个API可以实现你的要求!!!