🚀 go-pugleaf

I am trying to get a list of active RAS connections on an NT 4.0 RAS
server.  I'm programming with Delphi 3.0, but if that's the problem I
can switch to VC++ 4.0.  Every time I call RasEnumConnections, it
returns 0 (no error) but does not list any active connections.  If I run
the Remote Access Admin however, it correctly lists the connections.  In
the code example below, the third showmessage shows that bufsize,
numconnections and result are all zero.

I've looked for help on Dejanews, but everyone seems to be talking about
detecting and/or initiating RAS connections on the client side. 
Shouldn't this be the same as detecting client side connections?  It
seems to me that this should be a really easy task, and I must be
missing something really simple.  I hope someone will be able to point
out the error to me!

Thanks in advance,
  Vic.

function TForm1.UpdateConnectList:longint;
var
  n:longint;
  bufsize:longint;
  RASConnect: Array[1..500] OF TRASConn;
  NumConnections: DWord;
  RASEvent:Word;
begin
  RASEvent := RegisterWindowMessage(RASDialEvent);
  If RASEvent = 0 THEN
     RASEvent := WM_RASDialEvent;
  bufsize:=sizeof(RasConnect);
  NumConnections:=500;
  RasConnect[1].dwSize:=sizeof(TRasConn);
  showmessage('Buffer size: '+inttostr(bufsize)+'  NumConnections: '+
    inttostr(NumConnections));
  result:=RasEnumConnections(@RASConnect, BufSize, NumConnections);
  if result<>0 then
  begin
    RasGetErrorString(result,pchar(@rasconnect),sizeof(rasconnect));
    showmessage('Error: '+pchar(@rasconnect));
    exit;
  end;
  showmessage('Buffer size: '+inttostr(bufsize)+'  NumConnections: '+
    inttostr(NumConnections)+'  Result: '+inttostr(Result));
  ConnectList.items.clear;
  for n:=1 to NumConnections do
  begin
    { ConnectList is a TListBox on Form1. }
    ConnectList.Items.Add(RasConnect[n].szEntryName);
  end;
end;