code:

---

$ipaddress=@IPADDRESS0
$iparray[0]='192.168.2.0/24'
if isiniprange($ipaddress,$iparray)
$S=AddPrinterConnection ("\\diction\Woodstock Front Desk02")
$S=AddPrinterConnection ("\\woodstock02\Woodstock Label Printer")
$S=AddPrinterConnection ("\\diction\OHIP")
$S=SetDefaultPrinter ("\\diction\Woodstock Front Desk02")
ENDIF
$ipaddress=@IPADDRESS0
$iparray[0]='192.168.3.0/24'
if isiniprange($ipaddress,$iparray)
$S=AddPrinterConnection ("\\diction\Stratford Front Desk02")
$S=AddPrinterConnection ("\\stratford01\Stratford Label Printer")
$S=AddPrinterConnection ("\\diction\OHIP")
$S=SetDefaultPrinter ("\\diction\Stratford Front Desk02")
ENDIF
$ipaddress=@IPADDRESS0
$iparray[0]='192.168.4.0/24'
if isiniprange($ipaddress,$iparray)
$S=AddPrinterConnection ("\\goderichfrndsk\Goderich Front Desk01")
$S=AddPrinterConnection ("\\goderichfrndsk\Goderich Label Printer")
$S=AddPrinterConnection ("\\diction\OHIP")
$S=SetDefaultPrinter ("\\goderichfrndsk\Goderich Front Desk01")
ENDIF

---

code:

---

;DEPENDENCIES  BINARYIP() 
;              ISINSUBNET() 
  

---

quote:

---

I noticed that I needed to add that DIM statment (actually added all three)

---

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

---

code:

---

AddPrinterConnection( )

Action: Adds a connection to the specified printer for the current user.
  
Syntax: ADDPRINTERCONNECTION ("printer name")
  
Parameters: Printer name 

The (share)name of the printer to which to connect.
 
Remarks: This function is available only on Windows NT family,
and can be used only to connect to printers on a server running the
Windows NT/2000/XP operating system. 

When Windows NT connects to the printer, it may copy printer driver
files to the local computer. If the user does not have permission to copy 
files to the appropriate location, ADDPRINTERCONNECTION fails, and
@ERROR returns ERROR_ACCESS_DENIED.
 
 
Returns: 0  Printer connection established  
Error code  Function failed  
   
 
See Also: DelPrinterConnection( ), SetDefaultPrinter( )
   
Example: If ADDPRINTERCONNECTION ("\\vleerbeer\hp laserjet 4") = 0
  ? "Added printer connection...."
else
  ? "@error @serror"
Endif
 
  

---

code:

---

case 1
  ? "Failed to find IP range"

---

code:

---

? "isiniprange($ipaddress,$iparray[0]) = " + isiniprange($ipaddress,$iparray[0])
? "isiniprange($ipaddress,$iparray[1]) = " + isiniprange($ipaddress,$iparray[1])
? "isiniprange($ipaddress,$iparray[2]) = " + isiniprange($ipaddress,$iparray[2])

---

code:

---

Dim $iparray[3]

$ipaddress=@IPADDRESS0
$iparray[0]='192.168.2.0/24'
if isiniprange($ipaddress,$iparray)
$S=AddPrinterConnection ("\\diction\Woodstock Front Desk02")
$S=AddPrinterConnection ("\\woodstock02\Woodstock Label Printer")
$S=AddPrinterConnection ("\\diction\OHIP")
$S=SetDefaultPrinter ("\\diction\Woodstock Front Desk02")
ENDIF
$iparray[1]='192.168.3.0/24'
if isiniprange($ipaddress,$iparray)
$S=AddPrinterConnection ("\\diction\Stratford Front Desk02")
$S=AddPrinterConnection ("\\stratford01\Stratford Label Printer")
$S=AddPrinterConnection ("\\diction\OHIP")
$S=SetDefaultPrinter ("\\diction\Stratford Front Desk02")
ENDIF
$iparray[2]='192.168.4.0/24'
if isiniprange($ipaddress,$iparray)
$S=AddPrinterConnection ("\\goderichfrndsk\Goderich Front Desk01")
$S=AddPrinterConnection ("\\goderichfrndsk\Goderich Label Printer")
$S=AddPrinterConnection ("\\diction\OHIP")
$S=SetDefaultPrinter ("\\goderichfrndsk\Goderich Front Desk01")
ENDIF
$iparray[3]='192.168.1.0/24'
if isiniprange($ipaddress,$iparray)
$S=AddPrinterConnection ("\\diction\Cambridge Front Desk01")
$S=AddPrinterConnection ("\\diction\Cambridge Front Desk02")
$S=AddPrinterConnection ("\\diction\transcription")
$S=AddPrinterConnection ("\\diction\Mbryant Office")
$S=AddPrinterConnection ("\\diction\OHIP")
$S=AddPrinterConnection ("\\cambridge03\Clabel")
$S=SetDefaultPrinter ("\\diction\Cambridge Front Desk01")
ENDIF

---