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,
2) Crear el logueo mediante,
- Code: Select all Expand view
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,