$ip = expandenvironmentvars('%CURRENT_CLIENTIP%')
$oct4 = val(split($ip)[3])
select
case $oct4 < 63
Addprinterconnection ("\\srv\loc1prnt1")
Addprinterconnection ("\\srv\loc1prnt2")
case $oct4 < 127
Addprinterconnection ("\\srv\loc2prnt1")
Addprinterconnection ("\\srv\loc2prnt2")
case $oct4 < 191
Addprinterconnection ("\\srv\loc3prnt1")
Addprinterconnection ("\\srv\loc3prnt2")
case $oct4 < 255
Addprinterconnection ("\\srv\loc4prnt1")
Addprinterconnection ("\\srv\loc4prnt2")
endselect
