FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour WNetAddConnection2 ???
Posts: 248
Joined: Wed Jan 11, 2006 11:30 AM
WNetAddConnection2 ???
Posted: Thu Nov 29, 2007 01:26 PM

Buenas...

Es possible usar a WNetAddConnection2....com Fivewin xH ?

Se si ? Como ?

Saluds

aleseribeli@hotmail.com

FwH, Hb Svn, ADS 8.1, ADS 10, Pelles C, FwPPC, MsVc 2008, MsVc 2010
"Conhecimento, você não subtrai quando divide; mas soma e multiplica."
**---Mário Persona---**
Posts: 248
Joined: Wed Jan 11, 2006 11:30 AM
WNetAddConnection2 ???
Posted: Thu Nov 29, 2007 04:02 PM

Biene...ja descobri q es possible...mas como ?

estou certo asi:

dll32 function ;
WNetAddConnection2(lpNetResource As NETRESOURCE, lpPassword As String,lpUserName As String, dwFlags As Long) ;
AS LONG PASCAL FROM "WNetAddConnection2A" ;
Lib "mpr.dll"

http://support.microsoft.com/kb/173011

Mas como declarar los Type ?

aleseribeli@hotmail.com

FwH, Hb Svn, ADS 8.1, ADS 10, Pelles C, FwPPC, MsVc 2008, MsVc 2010
"Conhecimento, você não subtrai quando divide; mas soma e multiplica."
**---Mário Persona---**
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
WNetAddConnection2 ???
Posted: Thu Nov 29, 2007 07:28 PM

Ale,

Es mejor que la implementes en lenguaje C, usando #pragma BEGINDUMP y #pragma ENDDUMP, asi puedes construir facilmente la estructura que solicita desde C

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 248
Joined: Wed Jan 11, 2006 11:30 AM
WNetAddConnection2 ???
Posted: Thu Nov 29, 2007 07:58 PM

Esse es o problema Mestre...jejejje

No sei trabajar com linguagem C.

O que y preciso es:

Cria una unidade de rede mapeada no Win Server 2003.

El wNetAddConnection, no es possible, pois, esta funçao nao me dá a possibilidade de autenticar lo Usuario.

Con wNetAddConnection2, es possible autenticar password e username.

¿ Entienden mi dilema?

Saluds

aleseribeli@hotmail.com

FwH, Hb Svn, ADS 8.1, ADS 10, Pelles C, FwPPC, MsVc 2008, MsVc 2010
"Conhecimento, você não subtrai quando divide; mas soma e multiplica."
**---Mário Persona---**
Posts: 248
Joined: Wed Jan 11, 2006 11:30 AM
WNetAddConnection2 ???
Posted: Thu Nov 29, 2007 08:56 PM
Antonio...

Estoy haciendo un esfuerzo, es isto ? estas certo ?

#pragma BEGINDUMP 


#include <windows.h> 
#include <hbapi.h>
#include <Winnetwk.h> 


HB_FUNC ( NETRESOURCE ) 
{ 
    hb_dwScope( NetResource( (LONG) ) ) ); 

    hb_dwType( NetResource( (LONG) ) ) ); 

    hb_dwDisplayType( NetResource( (LONG) ) ) ); 

    hb_dwUsage( NetResource( (LONG) ) ) ); 

    hb_lpLocalName( NetResource( (STRING) ) ) ); 

    hb_lpRemotename( NetResource( (STRING) ) ) ); 

    hb_lpComment( NetResource( (STRING) ) ) ); 

    hb_lpProvider( NetResource( (STRING) ) ) ); 


} 


#pragma ENDDUMP


Saluds
aleseribeli@hotmail.com

FwH, Hb Svn, ADS 8.1, ADS 10, Pelles C, FwPPC, MsVc 2008, MsVc 2010
"Conhecimento, você não subtrai quando divide; mas soma e multiplica."
**---Mário Persona---**
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
WNetAddConnection2 ???
Posted: Thu Nov 29, 2007 09:04 PM
#pragma BEGINDUMP

#include <windows.h>
#include <hbapi.h>

HN_FUNC( WNETADDCONNECTION2 )
{
   NETRESOURCE nr;

   nr.dwType = RESOURCETYPE_DISK;
   nr.lpLocalName = hb_parc( 1 );
   nr.lpRemoteName = hb_parc( 2 );
   nr.lpProvider = NULL;

   hb_retnl( WNetAddConnection2( &nr, hb_parc( 3 ), hb_parc( 4 ),
                                                  CONNECT_INTERACTIVE ) );
}

#pragma ENDDUMP
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1074
Joined: Fri Oct 07, 2005 01:56 PM
Re: WNetAddConnection2 ???
Posted: Tue Aug 30, 2011 08:43 PM
Estimados

Alguien a implementado esta funcion WnetaddConnection2 http://msdn.microsoft.com/en-gb/library/aa385413.aspx

Necesito colocar usuario y password, pero la netredir no tiene para usuario diferente

abra alguien que ha implementado

la funcion que coloco Antonio me devuelve siempre 1200, o sea

ERROR_BAD_DEVICE1200 (0x4B0)
The specified device name is invalid.


la estoy usando asi
Code (fw): Select all Collapse
alert(WNETADDCONNECTION2( "W:", "\\servidor\Programas","pass", "usuario" ))


le estoy dando vuelta a la funcion netrdir de la lib CT, para poder utilizar WnetaddConnection2 pero aun no me funciona :-)


Code (fw): Select all Collapse
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 );
   }
}
Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl
Posts: 1074
Joined: Fri Oct 07, 2005 01:56 PM
Re: WNetAddConnection2 ??? ( SOLUCIONADO )
Posted: Wed Aug 31, 2011 02:33 PM
Estimados

Aqui les dejo la solucion, modificando algunas cositas de la funcion de antonio,
funciona en winxp y win7 64bit

Code (fw): Select all Collapse
#pragma BEGINDUMP
#include <windows.h>
#include <hbapi.h>

HB_FUNC( NETREDIR2 )
{
   NETRESOURCE nr;

    nr.dwScope = RESOURCE_GLOBALNET;
    nr.dwType = RESOURCETYPE_DISK;
    nr.dwDisplayType = RESOURCEDISPLAYTYPE_SHARE;
    nr.dwUsage = RESOURCEUSAGE_CONNECTABLE;
    nr.lpLocalName = (LPSTR) hb_parc( 1 );
    nr.lpRemoteName = (LPSTR) hb_parc( 2 );
    nr.lpComment = NULL;
    nr.lpProvider = NULL;

    hb_retnl( WNetAddConnection2( &nr, hb_parc( 3 ), hb_parc( 4 ), CONNECT_INTERACTIVE ) );
}

#pragma ENDDUMP
Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

Continue the discussion