CallDLL ws2_32.dll - help needed

hostname$ = GetHostName()
Print hostname$
WaitKey()
End


Function GetHostName$()
	tempbuffer$ = String$(" ", 63)
	tempbank = CreateBank(Len(tempbuffer$)+4)
	PokeByte tempbank,Len(tempbuffer$),4
	CallDLL ("ws2_32.dll", "gethostname", tempbank)
	For temp = 0 To Len(tempbuffer$)-1
		tempbyte = PeekByte (tempbank,temp)
		If tempbyte <> 0 Then tempname$ = tempname$ + Chr$(PeekByte (tempbank,temp))
	Next
	FreeBank tempbank
	Return tempname$
End Function

Print GetEnv$("COMPUTERNAME") ;will return the hostname in all caps
GetHostName$()                ;returns as the system sees it

struct hostent
{
  char *h_name;			/* Official name of host.  */
  char **h_aliases;		/* Alias list.  */
  int h_addrtype;		/* Host address type.  */
  int h_length;			/* Length of address.  */
  char **h_addr_list;		/* List of addresses from name server.  */
#define	h_addr	h_addr_list[0]	/* Address, for backward compatibility.  */
};

; .lib "ws2_32.dll"
; GetHostName%(name*, length%):"gethostname"
; (Make sure these two lines occur in a *.decls file in the userlibs folder)

n = CreateBank(256)
failed% = GetHostName(n, BankSize(n)) 
If Not failed Then
	Print BankToString(n)
Else
	Print "Error code: "+failed
EndIf

Function BankToString$(bank)
	While PeekByte(bank, i) <> 0
		s$ = s$ + Chr$(PeekByte(bank, i))
		i = i + 1
	Wend
	Return s$
End Function

Print GetHostName$() + " is the computer's hostname"

HOSTENT = GetHostByName( GetHostName$() )
Print PeekInt(HOSTENT ,4) + " is the pointer to the aliases right?"

Print ""
Print "The following bytes are from HOSTENT"
For x = 0 To 15
	Print "Byte (" + x + ") = " +PeekByte (HOSTENT ,x)
Next

WaitKey()
End





Function GetHostByName(LocalHostName$)
	;returns the memory address (integer) to where the HOSTENT is
	Return CallDLL("ws2_32.dll", "gethostbyname",LocalHostName$)
End Function





Function GetHostName$()
	tempbuffer$ = String$(" ", 63)
	tempbank = CreateBank(Len(tempbuffer$)+4)
	PokeByte tempbank,Len(tempbuffer$),4
	CallDLL ("ws2_32.dll", "gethostname", tempbank)
	For temp = 0 To Len(tempbuffer$)-1
		tempbyte = PeekByte (tempbank,temp)
		If tempbyte <> 0 Then tempname$ = tempname$ + Chr$(PeekByte (tempbank,temp))
	Next
	FreeBank tempbank
	Return tempname$
End Function