Autor Tema: Como Conectarme A Un Dominio? (Leído 1162 veces)

Widark · « **en:** Miércoles 14 de Febrero de 2007, 23:41 »

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 &#34;mpr.dll&#34; Alias &#34;WNetAddConnection2A&#34; _
                        (ByRef lpNetResource As NETRESOURCE, ByVal lpPassword As String, _
                         ByVal lpUserName As String, ByVal dwFlags As Integer) As Integer
 
    Public Declare Function WNetCancelConnection2 Lib &#34;mpr&#34; Alias &#34;WNetCancelConnection2A&#34; _
            (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 & &#34;:&#34;
        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 & &#34;:&#34;, 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(&#34;X&#34;, &#34;&#092;&#092;NombreServidor&#092;RecursoCompartido&#34;) Then
            MessageBox.Show(&#34;Se conecto felizmente.&#34;)
        Else
            MessageBox.Show(&#34;¡¡¡¡¡PERDISTE!!!!!&#34;)
        End If
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        UnMapDrive(&#34;X&#34;)
    End Sub
 

SoloCodigo

Autor Tema: Como Conectarme A Un Dominio? (Leído 1162 veces)

Widark

Como Conectarme A Un Dominio?

Widark

Re: Como Conectarme A Un Dominio?