Power Builder - Funcion

Alquien podria decirme como puedo hacer para crear y aplicar esta funcion: FUNCTION boolean GetComputerNameA(ref string cname,ref long nbuf) LIBRARY "Kernel32.dll" alias for "GetComputerNameA;Ansi"
porque no puedo declararla ya que me da un error. Gracias! Un saludo.

Para obtener el nombre de la PC mediante una API, sería:

En PB 8 ó 9:

1. En tu ventana te vas a la ficha Declare Instance Variable (Local External Functions) pegas en una sola línea:
FUNCTION long GetComputerNameA(ref string ComputerName, ref ulong BufferLength) LIBRARY "KERNEL32.DLL"

2. Por ejemplo en un botón, pega:

//Obtiene el nombre de la PC
long ll_ret
string ls_ComputerName
ulong BufferLength = 250

ls_ComputerName = Space(BufferLength)
ll_ret = GetComputerNameA(ls_ComputerName, BufferLength)

MessageBox("Aviso", ls_ComputerName )

En una ventana normal agregas un StatiTex (control) y en el evento open de la ventana agregas este código dependiendo del S.O que tengas instalado en tu pc

/////Nombre del equipo de red - Win XP
string is_equipo

RegistryGet ("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\Eventlog", &
"ComputerName",RegString!,is_equipo)
st_6.text=STRING(is_equipo)

/////Nombre del equipo de red - Win 2000
string is_equipo2

RegistryGet ("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\ComputerName\ComputerName", &
"ComputerName",RegString!,is_equipo2)
st_6.text=STRING(is_equipo2)

Saludos desde Perú.......