CLR: .Net / Mono / Boo / Otros CLR > VB .NET

 Como Conectarme A Un Dominio?

(1/1)

Widark:
Como estan?

Como el dermatologo: "al grano", quiero conectarme a una carpeta en el servidor desde mi aplicacion, esto con el fin de comparar las versiones de mi aplicación para saber si tengo que actualizar la aplicacion que esta en el cliente. Claro esta, que se crearia un usuario que solo pueda acceder a esa carpeta, pero ese usuario solo seria para la aplicacion.

Por su atencion muchas gracias. (espero haberme explicado bien)

Widark:
Investigando en Internet me encontre con esto, lo pongo por si a alguien le interesa. Esto va en un form con dos botones y dos cajas de texto para que ingresen el nombre de usuario y la contraseña:

--- Código: Text ---Public Declare Function WNetAddConnection2 Lib "mpr.dll" Alias "WNetAddConnection2A" _                        (ByRef lpNetResource As NETRESOURCE, ByVal lpPassword As String, _                         ByVal lpUserName As String, ByVal dwFlags As Integer) As Integer     Public Declare Function WNetCancelConnection2 Lib "mpr" Alias "WNetCancelConnection2A" _            (ByVal lpName As String, ByVal dwFlags As Integer, ByVal fForce As Integer) As Integer     Public Structure NETRESOURCE        Public dwScope As Integer        Public dwType As Integer        Public dwDisplayType As Integer        Public dwUsage As Integer        Public lpLocalName As String        Public lpRemoteName As String        Public lpComment As String        Public lpProvider As String    End Structure     Public Const ForceDisconnect As Integer = 1    Public Const RESOURCETYPE_DISK As Long = &H1     Public Function MapDrive(ByVal DriveLetter As String, ByVal UNCPath As String) As Boolean         Dim nr As NETRESOURCE        Dim strUsername As String        Dim strPassword As String         nr = New NETRESOURCE        nr.lpRemoteName = UNCPath        nr.lpLocalName = DriveLetter & ":"        strUsername = TextBox1.Text ' Nothing '(add parameters to pass this if necessary)        strPassword = TextBox2.Text 'Nothing '(add parameters to pass this if necessary)        nr.dwType = RESOURCETYPE_DISK         Dim result As Integer        result = WNetAddConnection2(nr, strPassword, strUsername, 0)         If result = 0 Then            Return True        Else            Return False        End If    End Function     Public Function UnMapDrive(ByVal DriveLetter As String) As Boolean        Dim rc As Integer        rc = WNetCancelConnection2(DriveLetter & ":", 0, ForceDisconnect)         If rc = 0 Then            Return True        Else            Return False        End If     End Function     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        If MapDrive("X", "\\NombreServidor\RecursoCompartido") Then            MessageBox.Show("Se conecto felizmente.")        Else            MessageBox.Show("¡¡¡¡¡PERDISTE!!!!!")        End If    End Sub     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click        UnMapDrive("X")    End Sub 

Navegación

[0] Índice de Mensajes