Visual Basic - comandos para conectar unidades de red

Life is soft - evento anual de software empresarial
 
Vista:

comandos para conectar unidades de red

Publicado por ernesto (22 intervenciones) el 06/01/2003 13:46:26
alguien me puede decir cuales son los comandos para poder conectar unidades de red desde V.B., desde ya muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:comandos para conectar unidades de red

Publicado por Rodolfo del Peru (454 intervenciones) el 06/01/2003 20:08:28
En www.ambsoftware.com hay este codigo:

Conectarse y desconectarse de una unidad de red

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
Public Const RESOURCETYPE_ANY = &H0
Public Const RESOURCETYPE_DISK = &H1
Public Const RESOURCETYPE_PRINT = &H2
Public Const RESOURCETYPE_UNKNOWN = &HFFFF

Sub ConectarUnidadRed(Unidad As String)
Dim Disco As NETRESOURCE, Res As Long
Disco.lpRemoteName = Unidad 'Dispositivo al que conectarse en formato UNC
Disco.dwType = RESOURCETYPE_DISK ' Tipo de dispositivo
Disco.lpLocalName = UnidadDisponible ' Esta línea la sustituyes por la letra que necesites "F:"
Respuesta = WNetAddConnection2(Disco, "", "", 0)
End Sub

Sub DesconectarUnidadRed(Unidad As String)
WNetCancelConnection2 Unidad, 0, True ' Puedes enviar como Unidad un UNC o una normal "F:"
End Sub

Saludos desde Lima
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar