$IPSeg=substr(@IPADDRESS0,1,11)
$IPNode=Val(ltrim(substr(@IPADDRESS0,13,3)))

SELECT
CASE $IPSeg="192.168.219"
CASE $IPSeg="192.168.218"
CASE $IPSeg="192.168.216" ;supernet
$Site="MIDRAND"
ENDSELECT
SELECT
CASE $IPSeg="192.168.202"
CASE $IPNode>64 AND $IPNode<127
$SIte="CAPE"
CASE $IPNode>128 AND $IPNode<254
$SIte="DURBAN"
ENDSELECT

SELECT
CASE $Site="MIDRAND"
AT (20,28) "Connecting to Midrand"
CALL \\ZASRV01\$UPDATES\SCRIPTS\MIDRAND.SCR
CASE $Site="CAPE"
AT (20,27) "Connecting to CapeTown"
CALL \\ZAAUTH03\$UPDATES\SCRIPTS\CAPE.SCR
CASE $Site="DURBAN"
AT (20,29) "Connecting to Durban"
CALL \\ZAAUTH02\$UPDATES\SCRIPTS\DURBAN.SCR
ENDSELECT

------------------
Lon Geefshuysen,
www.xs4all.nl/~longeef/NT/KiXtart
lon_geefshuysen@essentium.com

$IPOCT1 = VAL(SUBSTR(@IPADDRESS0, 1, 3))
$IPOCT2 = VAL(SUBSTR(@IPADDRESS0, 5, 3))
$IPOCT3 = VAL(SUBSTR(@IPADDRESS0, 9, 3))
$IPOCT4 = VAL(SUBSTR(@IPADDRESS0, 13, 3))

IF $IPOCT1 = 192
IF $IPOCT2 = 168
SELECT
CASE $IPOCT3 = 219
CASE $IPOCT3 = 218
CASE $IPOCT3 = 216
$Site = "MIDRAND"
CASE $IPOCT3 = 202
SELECT
CASE $IPOCT4>64 AND $IPOCT4<127
$Site="CAPE"
CASE $IPOCT4>128 AND $IPOCT4<254
$Site="DURBAN"
ENDSELECT
ENDSELECT
ENDIF
ENDIF

;etc ........