Solicito la ayuda de los moderadores o de alguien que sepa - VB-MUNDO

gabivb · #1 (**permalink**) 15-02-2005, 12:17:56

hola
resulta que en mi oficina trabajabamos con windows98 pero el administrador de redes decidió cambiar a windows xp. el problema es que tengo una aplicacion cliente servidor en vb con bd access , el usuario al iniciar su pc se conectaba a la red automaticamente y podia ejecutar mi aplicacion sin problemas. pero ahora con el xp ya no se conecta al iniciar la pc y por lo tanto la aplicación no encuentra la ruta de acceso a la base de datos y no funciona el programa. el administrador no le encuentra el motivo porque al parecer todo está bien, pero bueno eso es cosa de él.
mi idea es crear un programita que conecte al servidor y se ejecute al iniciar la pc.
LA RUTA es la sgt "Z:\MAILSERVER\VS\"
estoy algo desesperado por resolver esto, porque los usuarios como esto solo les pasa con mi prg piensan que es mi culpa, que no funciona y cosas así es por eso que quiero resolver esto, ya que el administrador se encuentra perdido. ojala puedan ayudarme +
desde ya muchas gracias

acalanto · #2 (**permalink**) 15-02-2005, 14:16:42

No existe ningún problema entre aplicaciones cliente/servidor en W98, W2K y XP.

A ver si el problema se encuentra en el protector de acceso a puertos que incorpopra XP. Si es esto, el problema se debe resolver por administración del sistema y no por modificar el código del programa.

La verdad es que tal y como haces la pregunta, ésta es la única lectura que puedo hacer del problema.

gabivb · #3 (**permalink**) 16-02-2005, 13:24:58

Hola acalanto
encontré la respuesta en uno de tus programas. se trata de uno que realiza conexion a una unidad de red, bajo 98 corre perfectamente pero bajo xp aparece el error "5"., añado algo del cod. para q ubiques cual es.
la ruta es de mi servidor. gracias
Dim NetR As NETRESOURCE
Dim ErrInfo As Long
Dim MyPass, MyUser As String

NetR.dwScope = RESOURCE_GLOBALNET
NetR.dwType = RESOURCETYPE_DISK
NetR.dwDisplayType = RESOURCEDISPLAYTYPE_SHARE
NetR.dwUsage = RESOURCEUSAGE_CONNECTABLE
NetR.lpLocalName = "Z:" ' Si no se define se hará una conexión sin dispositivo (no se verá en el explorer)
NetR.lpRemoteName = "\\MAILSERVER\VS" ' Si los argumentos MiUsuario y MiPassword son NULL, se usarán los de conexión del ' usuario. Si MiPassword es un string vacío no se empleará password
'Establecemos una conexión "persistente"

ErrInfo = WNetAddConnection2(NetR, MiPassword, MiUsuario, CONNECT_UPDATE_PROFILE)

acalanto · #4 (**permalink**) 16-02-2005, 19:55:16

A mi me funciona correctamente en XP. Sigo pensando que tienes activada la seguridad de conexiones en los equipos XP. Habla con el administrador de la red.