[Back to NETWORK SWAG index]  [Back to Main SWAG index]  [Original]

{
> Is there a way to detect if a system is running under Novell Netware?
> There must be an interrupt to do that, but wich one?
}

Uses
  Dos;

Function stationno : byte;
var
  B : byte;
  Regs : Registers;
begin
  With Regs do
  begin
    ah := $DC;
    ds := 0;
    si := 0;
  end;
  MsDos( Regs ); {INT $21,ah=dh}
  b := Regs.al;
  stationno := b;
end;

{ Should return 0 if not attached to a novell server otherwise
  workstation number }

begin
  Writeln(StationNo);
end.

[Back to NETWORK SWAG index]  [Back to Main SWAG index]  [Original]