Validar Usario y Pass para conectar a recurso compartido

Post Reply
User avatar
GUSPRE
Posts: 92
Joined: Thu May 11, 2006 10:00 pm
Location: BS.AS.ARGENTINA
Contact:

Validar Usario y Pass para conectar a recurso compartido

Post by GUSPRE »

Quisiera preguntar si alguin me puede indicar como hago para solicitar el usuario y pass para acceder a un recurso compartido de red, tal cual lo hace windows, puedo usar la api, existe un función, quisiera desde la aplicación llamar al siguiente dialog de windows,

[img]
http://www.prediger.com.ar/downloads/login.jpg
[/img]

Se puede hacer ?, desde ya gracias,

saludos,
GUSTAVO PREDIGER
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Re: Validar Usario y Pass para conectar a recurso compartido

Post by Antonio Linares »

Gustavo,

Revisa FWH\samples\TestNet.prg por si te sirven algunas de esas funciones
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
GUSPRE
Posts: 92
Joined: Thu May 11, 2006 10:00 pm
Location: BS.AS.ARGENTINA
Contact:

Re: Validar Usario y Pass para conectar a recurso compartido

Post by GUSPRE »

Gracias Antonio lo tu respesta , en TestNet.prg hay ejemplos pero ninguno se adpata, la idea era usar directo la api y ventana que usa windows, pero bueno por las dudas si alguien necesita la solución es la siguiente:

1) Crear un función que solicite Usuario y Pass (Esto es necesario porque pueder que cada terminal use su propia clave de loquea al recurso y no es conveniente dejarla dentro de la aplicación o, se puede hacer un archivo de cadena de conexión incluyendo , ruta, o unidad virtual, usuario y pass, pero para nuestro caso no sirve esta opción,

Image

2) Crear el logueo mediante,

Code: Select all

                 a_res:=toma_login()
                 IF a_res[1]
                        WNetAddConnection2(cc_ruta,ALLTRIM(a_res[3]),ALLTRIM(a_res[2]),LEFT(ud,2))
                IF FILE(ud+"\GRW232\DATA\GR2_000.DBF")
                             RETURN(.T.)
                             ELSE
                             RETURN(.F.)
                      ENDIF
                        ELSE
                        RETURN(.F.)
                 ENDIF

 
Saludos,
GUSTAVO PREDIGER
User avatar
Baxajaun
Posts: 853
Joined: Wed Oct 19, 2005 2:17 pm
Location: Gatika. Bizkaia

Re: Validar Usario y Pass para conectar a recurso compartido

Post by Baxajaun »

Hola Gustavo,

busca por GINA API, quizás en ella encuentres tu solución.

Saludos,

Félix
Post Reply