Maybe you can give this a try...

; ****************************************************************************************************************
; File name : INVENTRY.SCR
; Description : Additional script for invenory of workstations
; Location :
; ****************************************************************************************************************
; Date | Description | Initiator
; ------------+--------------------------------------------------------------------------+------------------------
; ****************************************************************************************************************

:GetIpInfo
; ------------------------------------------------------------------------------------------
; Get Location by IP
; ------------------------------------------------------------------------------------------

$ipadd0=@IPADDRESS0
$3ebyte = " "

$3ebyte = rtrim(ltrim(substr(@IPADDRESS0,9,3))) ; 3rd octet

SELECT
CASE $3ebyte = "1"
Call Stoke.kix
GOTO End

CASE $3ebyte = "2"
Call Lpool.kix
GOTO End

CASE 1
ENDSELECT

:End
; ****************************************************************************************************************
; End of script
; ----------------------------------------------------------------------------------------------------------------

[ 15 August 2001: Message edited by: test_user ]