Category : BASIC Source Code
Archive   : NETB.ZIP
Filename : NETB.SUB

':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'::: :::
'::: PROGRAM: NETB.SUB :::
'::: AUTHOR: Mike Shaffer :::
'::: DATE: MAR 12, 1991 :::
'::: VERSION: 2.0 :::
'::: PURPOSE: Determines if NetBIOS is active, and - if :::
'::: so - the number of network names, commands, :::
'::: and sessions. :::
'::: REVISIONS: :::
'::: :::
'::: :::
'::: :::
'::: NOTES: This SUB assumes you're using PDQ from :::
'::: Crescent Software. If not (shame on you!) :::
'::: than you can modify the interrupt call to :::
'::: use INT86 as provided with QuickBASIC. :::
'::: :::
'::: :::
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
' '
' '
sub NETB(active%,nms%,cmds%,sessions%) static
' '
dim regs as regtype ' Create type to hold registers
' ' NOTE: regtype is defined in
' ' the PDQ declarations
' ' include. If you're not
' ' using PDQ, you'll
' ' probably want to use
' ' INT86 as provided by
' ' QuickBASIC, in which
' ' case the interrupt
' ' control structure will
' ' be an integer array.
' ' (see the QB docs)
' '
' '
regs.ax = &h0000 ' AH=&h00, AL=&h00
' ' Function to get NetBIOS status
interrupt &h2A,regs ' So we get it! (returned in AH)
active% = regs.ax \ 256 '
' '
' '
if active% then '
regs.ax = &h0500 ' AH=&h05, AL=&h00
' ' Function to get NetBIOS statistics
interrupt &h2A,regs ' So we get it! (returned in
' ' DX/BX/CX
' '
nms% = regs.bx ' # of names
cmds% = regs.cx ' # of commands
sessions% = regs.dx ' # of sessions
' '
else '
nms% = 0 ' # of names
cmds% = 0 ' # of commands
sessions% = 0 ' # of sessions
' '
end if '
end sub