OK here's where it's at now; the paste is botching it a little bit (in the printer add area) and I'm sorry but I really have been working on this all day and it's driving me crazy. I included the UDF's to make it easier.

Thanks so much for your help:

code:
function ipmask($ipaddress1, $ipaddress2)
Dim $bit if instr($ipaddress1,'.') or instr($ipaddress2,'.') or len($ipaddress1)<>32 or len($ipaddress2)<>32
exit 87
endif $ipmask=''
for $bit=1 to 32
$ipmask=$ipmask+(val(substr($ipaddress1,$bit,1)) & val(substr($ipaddress2,$bit,1)))
next
endfunction


function BinaryIP($IP)
DIM $item, $bitsize, $octet $bitsize = 128
$ip = split($IP,".") select
case UBOUND($ip) <> 3
$BinaryIP = 0
exit(87)
case 1
for each $octet in $ip
if VAL($octet) <0 OR VAL($octet) > 255
$BinaryIP = 0
exit(87)
endif
while $bitsize > 0
if val($octet) & $bitsize
$Binary = $Binary + "1"
else
$Binary = $Binary + "0"
endif
$bitsize = $bitsize / 2
loop
$binaryIP = $binaryIP + "$binary"
$bitsize = 128
$binary = ""
next
endselect
exit(0)
endfunction

function isinsubnet($ipaddress,$networkid,$subnetmask)
Dim $maskedip, $bit

if instr($ipaddress,'.')
$ipaddress=binaryip($ipaddress)
endif
if instr($networkid,'.')
$networkid=binaryip($networkid)
endif
if instr($subnetmask,'.')
$subnetmask=binaryip($subnetmask)
endif

$maskedip=ipmask($ipaddress,$subnetmask)
if $maskedip=$networkid
$isinsubnet = 1
else
$isinsubnet = 0
endif
endfunction

function isiniprange($ipaddress,$iprangearray)
Dim $iprange, $networkid, $subnetmask, $bit

if $ipaddress=''
exit 87
endif

$ipaddress=binaryip($ipaddress)

for each $iprange in $iprangearray

if instr($iprange,'/')
$iprange=split($iprange,'/')
$networkid=binaryip($iprange[0])

if instr($iprange[1],'.')
$subnetmask=binaryip($iprange[1])
else
$subnetmask=''
for $bit=1 to val($iprange[1])
$subnetmask=$subnetmask+'1'
next
for $bit=(val($iprange[1])+1) to 32
$subnetmask=$subnetmask+'0'
next
endif

if isinsubnet($ipaddress,$networkid,$subnetmask)
$isiniprange=1
return
else
$isiniprange=0
endif
endif
next

endfunction

DIM $iparray[0]
DIM $iparray[1]
DIM $iparray[2]
$ipaddress=@IPADDRESS0
$iparray[0]='192.168.2.0/24'
$iparray[1]='192.168.3.0/24'
$iparray[2]='192.168.4.0/24
call "isiniprange.udf"
Select
case isiniprange($ipaddress,$iparray[0])
$S=AddPrinterConnection ("\\diction\Woodstock Front Desk02") $S=AddPrinterConnection ("\\woodstock02\Woodstock Label Printer") $S=AddPrinterConnection ("\\diction\OHIP")
$S=SetDefaultPrinter ("\\diction\Woodstock Front Desk02")

case isiniprange($ipaddress,$iparray[1])
$S=AddPrinterConnection ("\\diction\Stratford Front Desk02")
$S=AddPrinterConnection ("\\stratford01\Stratford Label Printer") $S=AddPrinterConnection ("\\diction\OHIP")
$S=SetDefaultPrinter ("\\diction\Stratford Front Desk02")

case isiniprange($ipaddress,$iparray[2])
$S=AddPrinterConnection ("\\goderichfrndsk\Goderich Front Desk01") $S=AddPrinterConnection ("\\goderichfrndsk\Goderich Label Printer") $S=AddPrinterConnection ("\\diction\OHIP")
$S=SetDefaultPrinter ("\\goderichfrndsk\Goderich Front Desk01")
EndSelect
:END