31 lines
705 B
Plaintext
31 lines
705 B
Plaintext
Program tstRIP;
|
|
|
|
USES NwMisc,NwIPX,NwRIP;
|
|
|
|
Var ripInfo:TRIPinfo;
|
|
k,n :word;
|
|
NetAddr:TnetworkAddress;
|
|
begin
|
|
IF NOT IPXinitialize
|
|
then begin
|
|
writeln('IPX must be loaded before this program can be ran.');
|
|
halt(1);
|
|
end;
|
|
FillChar(NetAddr,4,#$0); { own segment }
|
|
n:=GetAllNetworks(NetAddr,ripInfo);
|
|
|
|
writeln;
|
|
writeln('MAIN: ',n,' network segment(s) found.');
|
|
writeln('Dumping the RIP tables of all found segments...');
|
|
writeln;
|
|
|
|
writeln('NetAddr Tcks Hops');
|
|
for k:=1 to n
|
|
do begin
|
|
write(HexDumpStr(ripinfo[k].address,8));
|
|
write(' ',ripinfo[k].ticks:4);
|
|
writeln(' ',ripinfo[k].hops:4);
|
|
end;
|
|
writeln('End of RIP table dump.');
|
|
end.
|