🚀 go-pugleaf

Just recently I have begun developing Winsock applications.  If I know the IP address of the computer I am connecting to every thing works fine.  The application I am developing sends messages to another computer (an instant messenger). 
I would prefer to have the user select which computer he would like to attempt to send the information to.  Just recently I have found code that determines the network configuration of the computer that is connected.  This is not supported in Win98 however.  
If someone would look over the following code, which does exactly what I need it to do, and provide replice using Win98 safe functions I would highly appreciate it.
Thanks - Luke 

void __fastcall TForm1::EnumFunc (LPNETRESOURCE lpnr)
{
  DWORD dwResult, dwResultEnum;
  HANDLE hEnum;
  DWORD cbBuffer = 16384;
  DWORD cEntries = 0xFFFFFFFF;
  LPNETRESOURCE lpnrLocal;
  DWORD i;

  dwResult = WNetOpenEnum (RESOURCE_CONTEXT, RESOURCETYPE_DISK, 0, lpnr, &hEnum);

  if (dwResult != NO_ERROR) {
      return;
  }

  lpnrLocal = (LPNETRESOURCE) GlobalAlloc (GPTR, cbBuffer);
  dwResultEnum = WNetEnumResource (hEnum, &cEntries, lpnrLocal, &cbBuffer);
  if (dwResultEnum == NO_ERROR)
  {
      for(i=0; i<cEntries; i++)
      {
          if(RESOURCEUSAGE_CONTAINER == (lpnrLocal[i].dwUsage & RESOURCEUSAGE_CONTAINER))
          {
            if(ListBox1->Items->Count >= 0) ListBox1->Items->Add (lpnrLocal[i].lpRemoteName);
            AnsiString Ans1 = ListBox1->Items->Strings[ListBox1->Items->Count - 1];
            int pos = Ans1.Pos ("\\\\");
            if (pos) Ans1.Delete (1, pos+1);
            ListBox1->Items->Strings[ListBox1->Items->Count - 1] = Ans1;
            if(Ans1.Length() == 0) ListBox1->Items->Delete(ListBox1->Items->Count - 1);
          }
      }
  }
  else if (dwResultEnum != ERROR_NO_MORE_ITEMS) return;

  HOSTENT *host;
  host = gethostbyname("LUKEMAIN");
  Label6->Caption = AnsiString(inet_ntoa(*(reinterpret_cast<in_addr*>(host->h_addr_list[0]))));

  GlobalFree((HGLOBAL) lpnrLocal);
  dwResult = WNetCloseEnum(hEnum);
}