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

{
 MB> First - How can I detect if Novell netware is running on a
 MB> computer? and if you can tell me that... how can I get the
 MB> current version? }

uses  dos ;
var   Regs : registers ;
      ReplyBuffer : array[1..40] of char ;


function IPX_Loaded:boolean;
begin
   Regs.AX := $7A00 ;
   intr($2F,Regs) ;
   IPX_Loaded := (Regs.AL = $FF)
end;

function Netbios_Loaded:Boolean;
begin
 Regs.AH := $35; (* DOS function that checks an interrupt vector *)
 Regs.AL := $5C; (* Interrupt vector to be checked *)
 NetBios_Installed := True;
 msdos(Regs) ;
 if ((Regs.ES = 0) or (Regs.ES = $F000))
   then  NetBios_Installed := False
end;


function NetShell_Installed:Boolean;
begin
   with Regs do begin
      AH := $EA ;
      AL := 1 ;
      BX := 0 ;
      ES := seg(ReplyBuffer) ;
      DI := ofs(ReplyBuffer) ;
   end ; (* with do begin *)
   msdos(regs) ;
   NetShell_Installed := (Regs.BX = 0)
end.

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