Fecha actual Mar Jul 01, 2025 5:21 pm

Todos los horarios son UTC + 1 hora [ DST ]




Nuevo tema Responder al tema  [ 3 mensajes ] 
Autor Mensaje
NotaPublicado: Jue Ene 17, 2008 11:42 pm 
Avatar de Usuario

Registrado: Vie Oct 07, 2005 8:26 pm
Mensajes: 115
Ubicación: Valencia - España
Para realizar las conexiones con un servidor en el cual tengo las bases de datos que manipulan las estaciones, lo que hago en mapear al iniciar el equipo una unidad lógica local con el directorio del servidor. Es el propio Windows quien realiza el mapeo y valida el usuario cada vez que inicia, pero este sistema no me gusta y lo quiero cambiar.
Lo que quiero es no mapear, crear en el servidor un usuario exclusivo para la aplicación, que no tiene que ser el mismo con el que se inicia windows, que usen todas las estaciones , y que el propio programa sea el que se valida en el servidor para poder acceder al directorio donde están los datos.

¿ Alguna idea de como realizarlo ?

Un saludo.
Víctor


Arriba
 Perfil  
Responder citando  
 Asunto:
NotaPublicado: Vie Ene 18, 2008 1:05 am 
Avatar de Usuario

Registrado: Vie Oct 07, 2005 8:26 pm
Mensajes: 115
Ubicación: Valencia - España
Con WNETADDCONNECTION, se consigue la conexión , pero deja mapeada la unidad, con lo que el usuario puede ver el contenido del directorio del servidor, justo lo que no quiero.

WNETADDCONNECTION( cDireccion , cClave , cUnidad )

Sigo buscando..... .

Un saludo.
Víctor


Arriba
 Perfil  
Responder citando  
NotaPublicado: Mar Ene 22, 2008 10:07 am 

Registrado: Jue Nov 03, 2005 7:20 pm
Mensajes: 132
Ubicación: Teruel(España)
Hola Victor
Yo no mapeo unidades, simplemente me conecto a un directorio, los permisos los da Windows
Con clipper no funcionaba pero con Alaska:
Programa.EXE \\directorio trabajo\

PROCEDURE Main
Parameter vDirec
SET PATH TO &vDirec
SET DEFAULT TO &vDirec
y funciona

Con C3 lo tengo puesto en un fichero INI
::oIni:= TiniFile():Create(".\crt.ini")
vDirec := ::oIni:ReadString( "DATOS","Directorio", "C:\Defecto")
vRemesa := VAL(::oIni:ReadString( "DATOS","Remesa", "1"))
nomcodi := ::oIni:ReadString( "DATOS","nomcodi", "")
nomemi := ::oIni:ReadString( "DATOS","nomemi", "No seleccionado")
dSalida := ::oIni:ReadString( "DATOS","dSalida", "C:\envio")
::oIni:Destroy()

set path to &vDirec
SET DEFAULT TO &vDirec
Espero te sirva
Un saludo


Arriba
 Perfil  
Responder citando  
Mostrar mensajes previos:  Ordenar por  
Nuevo tema Responder al tema  [ 3 mensajes ] 

Todos los horarios son UTC + 1 hora [ DST ]


No puede abrir nuevos temas en este Foro
No puede responder a temas en este Foro
No puede editar sus mensajes en este Foro
No puede borrar sus mensajes en este Foro
No puede enviar adjuntos en este Foro

Buscar:
Saltar a: