Conectarse a otra pc con usuario y contraseña
 

Hola a todos:
Necesito desde mi aplicación en delphi 6, conectarne a una pc remota, la cual requiere usuario y contraseña.

Qué comando existe para haer esto??

Trabajo con Windows XP y Windows 2003, en el 2003 esta la aplicacion que necesita acceder a una carpeta compartida del XP. La primera vez q se va a conectar necesita el usuario y contraseña de la pc con XP, cómo podria enviarle desde la aplicacion el usuario y la contraseña?.

Muchas Gracias
Viky.

Si es una LAN pues WNetAddConnection para conectarte a un recurso de la otra PC con los privilegios de algun usuario del equipo; si es WAN, y el IP es fijo pues puedes usar sockets (Cliente-Servidor). Si el IP no es fijo tendras que usar un equipo extra para hacer de "intermediador". Si quieres utilizar "herramientas" y protocolos para facilitar el trabajo puedes usar no-ip, Terminal Server o hasta Crear una VPN...

Ahora si es una PC remota y solo necesitas una carpeta pues lo óptimo me suena instalar un servidor y cliente FTP, pero con ello yu todo lo comentado esta muy en funsión de el contexto (LAN? WAN? IP fijo?, etc.).

Saludos

No logro conectarme
 

Probé la función WNetAddConnection, pero no logro conectarme, tengo q poner el usuario y contraseña para poder conectarme,
usuario: pepe
contraseña:mama

Definí dos variables

NetResource: TNetResource; y
NetResult: Cardinal;

NetResource.dwType :=RESOURCETYPE_ANY ;
NetResource.lpRemoteName :='\\190.168.1.3\Sistema \Bases\';
NetResource.lpProvider := nil;

NetResult := WNetAddConnection2(NetResource, 'mama', 'pepe', 0);

Necesito conectarme a la pc cuya direccion es 190.168.1.3, la carpeta Sistema esta compartida.

Qué estoy haciendo mal??

Gracias
Viky.

Solo se me ocurre que te sobra un espacio en el nombre de el espacio

NetResource.lpRemoteName :='\\190.168.1.3\Sistema \Bases\';
NetResource.lpRemoteName :='\\190.168.1.3\Sistema\Bases\';

Ahora; hay otro error... normalmente cuando compartes una carpeta se utiliza un solo nombre; Ef. Sistema. No deberias especificar la subcarpeta Bases.

Saludos