O.T. Conectar unidad de red

[MarioG]

Gente:
En un PC cliente tengo asignada un letra de unidad para conectar a un Servidor semi-dedicado.
Ocurre que siempre que arranca Windows (siempre se enciende luego del servidor semi-dedicado), la unidad de red aparece desconectada. Por lo que tengo que abrir la MiPC (o Equipo) y desde alli habilitarla. Como tengo instalados XP desantendidos, no se si esto es una particularidad de estos Windows o de todos.
Se puede hacer algo para que se conecte con el arranque, sin intervención del usuario?

muchas gracias

[thefull]

Ahora de memoria, creo que era, desde la linea de comandos;
net use z: //192.168.1.1 /persistent:yes

Mira el comando net use.

[MarioG]

claro!
le dejamos todo a windows y nos olvidamos del 'Larga vida al DOS'

muchas gracias
saludos

[Patricio Avalos Aguirre]

Hola

Puedes hacerlo desde tu programa

Code: Select all  Expand view

NetRedir( <cLocal>    , ;
          <cServer>   , ;
         [<cPassword>], ;
         [<lShowError>] ) --> lSuccess
 

Code: Select all  Expand view

NetRedir( "Z:", "\\SERVER\CARPETA", "Password" , .T. )

[MarioG]

Interesante función
muchas gracias Patricio

[sysctrl2]

yo hacia lo mismo antes, usaba unidades logicas, pero decisti de ello,

es mas facil usar la ruta del servidor y te evitas esos problemas:

ejemplo:

USE \\SERVER\C\DATOS\CLIENTES.DBF NEW

saludos..

[MarioG]

buena sugerencia
gracias

[acuellar]

Para evitar compartir carpetas en el servidor yo lo hago asi:

Code: Select all  Expand view

WaitRun("Net use \\168.1.1.3\D$ clave /user:usuario",0)  //El usuario tiene que tener permiso de administrador
SET DEFAULT TO \\168.1.1.3\D$\SISTEMAS

*ES RECOMENDABLE NO COLOCAR LAS APLICACIONES EN UNIDAD C:

*AL SALIR

WinRun("Net use \\168.1.1.3\D$ /delete",0)
 

Asi no tenemos unidades de RED o MAPEADA que son accesible a los usuarios.

Saludos,

Adhemar

[jrestojeda]

Patricio...
Donde se puede ver el fuente de la función NetReDir()??
O en que lib está??

Saludos, Esteban.

[Patricio Avalos Aguirre]

Esteban:

Es de la libreria CT ( catools )

la encuentras en ct\ctnet.c

Code: Select all  Expand view

HB_FUNC( NETREDIR )
{
   DWORD dwResult;
   LPTSTR lpLocalDev  = HB_TCHAR_CONVTO( hb_parcx( 1 ) );
   LPTSTR lpSharedRes = HB_TCHAR_CONVTO( hb_parcx( 2 ) );
   LPTSTR lpPassword  = HB_TCHAR_CONVTO( hb_parcx( 3 ) );
   BOOL bShowError = ( ISLOG( 4 ) ? hb_parl( 4 ) : FALSE );

   if( hb_pcount() >= 3 && ISCHAR( 3 ) )
   {
      dwResult = WNetAddConnection( lpSharedRes, lpPassword, lpLocalDev );
   }
   else
   {
      dwResult = WNetAddConnection( lpSharedRes, NULL, lpLocalDev );
   }

   if( dwResult == NO_ERROR )
   {
      hb_retl( TRUE );
   }
   else
   {
      if( bShowError )
      {
         char szCommand[80];
         hb_snprintf( szCommand, 80, "NETREDIR( \"%s\", \"%s\", \"%s\" )",
                   hb_parcx( 1 ), hb_parcx( 2 ), hb_parcx( 3 ) );
         WNetErrorHandler( dwResult, szCommand );
      }
      hb_retl( FALSE );
   }
}

 

[jrestojeda]

Patricio...
Cuales son las cabeceras de esa función?

Que Includes hay que poner?

Cuando la compilo me faltan estas tres funciones:

_HB_TCHAR_CONVTO
_hb_snprintf
_WNetErrorHandler

Saludos...

[Patricio Avalos Aguirre]

Esteban:

incluye en tu aplicación la libreria

Code: Select all  Expand view

C:\xHarbour\lib\ct.lib

[jrestojeda]

Si eso si...
Sólo intentaba hacer unas pruebas de compilarla.

[Patricio Avalos Aguirre]

Esteban

Baja los fuentes desde este link, se encuentra en la carpeta

Code: Select all  Expand view

source\ct\ctnet.C

ahi estan todas las funciones de red y encabezados.

http://sourceforge.net/projects/xharbour/files/Source%20distribution/1.20.01/xharbour-1.2.1.src.zip/download

[jrestojeda]

Patricio...
Muchas gracias.
Saludos, Esteban.