Public Declare Function WNetOpenEnum Lib "mpr.dll" Alias "WNetOpenEnumA" _
(ByVal dwScope As Long, ByVal dwType As Long, ByVal dwUsage As Long, _
lpNetResource As NETRESOURCE, lphEnum As Long) As Long
' We need a separate declaration for the null case
Public Declare Function WNetOpenEnumRoot Lib "mpr.dll" Alias "WNetOpenEnumA" _
(ByVal dwScope As Long, ByVal dwType As Long, _
ByVal dwUsage As Long, ByVal lpNetResource As Long, lphEnum As Long) As Long
Public Declare Function WNetEnumResource Lib "mpr.dll" Alias "WNetEnumResourceA" _
(ByVal hEnum As Long, lpcCount As Long, _
lpBuffer As NETRESOURCELONG, lpBufferSize As Long) As Long
Public Declare Function WNetCloseEnum Lib "mpr.dll" (ByVal hEnum As Long) As Long
Public Declare Function WNetAddConnection Lib "mpr.dll" _
Alias "WNetAddConnectionA" _
(ByVal lpszNetPath As String, _
ByVal lpszPassword As String, _
ByVal lpszLocalName As String) As Long
Public Declare Function WNetCancelConnection Lib "mpr.dll" _
Alias "WNetCancelConnectionA" _
(ByVal lpszName As String, _
ByVal bForce As Long) As Long
Пояснения: Есть два момента:
1) Перечисление ресурсов сети. Очень трудоёмкая для понимания вещь с подводными камнями. перечисление идёт иерархически
2) подключение к общему известному ресурсу
Могу порекомендовать поискать информацию на
http://www.allapi.net/ ,
http://vbs.r2.ru/Articles/Communication ... tions.html
http://www.delphifaq.com/fq/q2068.shtml
http://www.sources.ru/vb/network/netconnect.shtml