FoxPro/Visual FoxPro - NetGetDCName para obtener el nombre del server

Hola a tod@s...

Estoy haciendo una aplicación en VF9 para la cual necesito obtener el nombre del servidor del dominio (PDC) al cual está conectada la PC que ejecute el programa; he encontrado que con API y la función NetGetDCName se puede obtener, sin embargo no he encontrado cómo implementarla con éxito.

Si alguien me puede ayudar se los agradecería mucho.

Saludos.

Ya encontré la solución, lo hice de esta manera:

LOCAL lnBufferIn
LOCAL lcBufferOut
LOCAL lnLen
LOCAL lcCadena
LOCAL lnResultado

STORE "" TO lcCadena

DECLARE INTEGER NetGetDCName IN netapi32;
STRING servername,;
STRING domainname,;
LONG @bufptr

DECLARE LONG NetApiBufferFree IN netapi32;
LONG pBuffer

DECLARE RtlMoveMemory IN kernel32;
STRING @pTo, ;
LONG uFrom, ;
LONG lSize

DECLARE LONG lstrlenW IN kernel32 ;
LONG lpString

lnResultado = NetGetDCName(.NULL., .NULL., @lnBufferIn)

IF lnResultado != 0
RETURN lcCadena
ENDIF

lnLen = lstrlenW(lnBufferIn) * 2

lcBufferOut = SPACE(lnLen)

RtlMoveMemory(@lcBufferOut, lnBufferIn, lnLen)

lnResultado = NetApiBufferFree(lnBufferIn)

FOR i = 1 TO lnlen
lcCadena = lcCadena + IIF(ASC(SUBSTR(lcBufferOut, i, 1)) != 0, CHR(ASC(SUBSTR(lcBufferOut, i, 1))), "")
NEXT

RETURN lcCadena

Aca tienes un link para saber cuales servidores estan disponibles mediante una funcion API, espero te sea de utlidad!!!!!!!!!!!!!
http://www.portalfox.com/index.php?name=News&file=article&sid=1439