GetHostName-> no me acaba de funcionar

[jose.luis]

Hola,
A ver si alguien me puede echar una mano.
Esta función:
MsgInfo(GetHostName())
#pragma BEGINDUMP
#include <windows.h>
#include "hbapi.h"
#include "winsock2.h"
HB_FUNC( GETHOSTNAME )
{
char buff[200];
int n;
n = gethostname(buff,sizeof(buff));
if ( n == 0) hb_retc(buff);
}
#pragma ENDDUMP
Me devuelve siempre NIL.... Técnicamente debería de devolver el nombre
netbios del equipo actual.
¿Os funciona a vosotros?
Saludos y gracias,
José Luis Capel

[jfgimenez]

José Luis,
seguramente tendrás que llamar a WSAStartup() antes de llamar a
gethostname()
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

[jose.luis]

José,
#pragma BEGINDUMP
#include <windows.h>
#include "hbapi.h"
#include "winsock2.h"
HRESULT WINAPI CreateLink(LPSTR lpszLink, LPSTR lpszPathObj, LPSTR lpszIco,
int nIco);
HB_FUNC( GETHOSTNAME )
{
char buff[200];
int n;
int m;
WORD Version;
WSADATA wsaData;
int err;
Version = MAKEWORD( 2 , 2 );
err = WSAStartup( Version , &wsaData );
if ( err != 0 ) {
hb_retc("");
}
n = gethostname(buff,sizeof(buff));
if( n == SOCKET_ERROR)
{
m = WSAGetLastError();
if ( m == WSAEFAULT ) hb_retc("WSADEFAULT");
if ( m == WSANOTINITIALISED ) hb_retc("WSANOTINITIALISED");
if ( m == WSAENETDOWN ) hb_retc("WSAENETDOWN");
} else hb_retc(buff);
WSACleanup( );
}
#pragma ENDDUMP
NO obstante, creo que he reinventado la rueda.
Lo mismo obtengo con NetNAme()
Saludos,
José Luis Capel

[zeasoftware]

Hace meses alguien puso esto, y me ha funcionado. espero sea lo que buscas
#pragma BEGINDUMP
#include "windows.h"
#include "xailer.h"
#include "winsock2.h"
XA_FUNC( NETGETUSER )
{
char cUser[256] = "";
DWORD nSize = 256;
WNetGetUser( NULL, cUser, &nSize );
hb_retc( cUser );
}
#pragma ENDDUMP
Saludos
--
Ramon Zea
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
ramonzea@yahoo.com
http://www.paginasprodigy.com/zeasoftware/
--