;**** Created with KiXscripts Editor | http://KiXscripts.com ****
;**** Last Modified on 18/12/2002 at 9:57:22 PM by administrator ****


$ip = @ipaddress0

? WhichSite($ip)

Sleep 5

;********************************************************************************************
; convertIPToHex() takes ipaddress as argument returns it as a hex value
;
;********************************************************************************************


Function convertIPToHex($IPADDR)
	
	Dim $hexip, $ip_array
	
	; $ConvertIPToHex = "" 
	
	$ip_array = Split($IPADDR, ".")

	For $i = 0 to Ubound($ip_array)

		$hexip = $hexip + DecToHex($ip_array[$i])
	
	Next

	$convertIPToHex = $hexip
	
	
	
EndFunction

;********************************************************************************************
; whichSite() takes ipaddress as argument returns sitename
;
;********************************************************************************************


Function WhichSite($ip_address)

	Dim $MyIPRange[27], $ip_test, $ip_start, $ip_end


; define ip ranges for TLA sites
; layout "ip.site"
; i.e. "192.168.  2.  1.HOM"

	$MyIPRange[0] = 	"203.  4. 12.  1.COR"
	$MyIPRange[1] = 	"203.  4. 15. 99.COR"
	$MyIPRange[2] = 	"203.  4. 22.  1.COR"
	$MyIPRange[3] = 	"203.  4. 22.255.COR"
	$MyIPRange[4] = 	"203.  4. 49.  1.COR"
	$MyIPRange[5] = 	"203.  4. 49.255.COR"
	$MyIPRange[6] = 	"203.  4. 17.  1.COR"
	$MyIPRange[7] = 	"203.  4. 17.255.COR"
	$MyIPRange[8] = 	"203.  4. 22.  1.LEM"
	$MyIPRange[9] = 	"203.  4. 22.255.LEM"
	$MyIPRange[10] = 	"203.  4. 18.  1.MTO"
	$MyIPRange[11] = 	"203.  4. 19.255.MTO"
	$MyIPRange[12] = 	"192.168.  6.246.PPP"
	$MyIPRange[13] = 	"192.168.  6.249.PPP"
	$MyIPRange[14] = 	"203.  4. 15.100.PPP"
	$MyIPRange[15] = 	"203.  4. 15.115.PPP"
	$MyIPRange[16] = 	"203.  4. 48.157.PPP"
	$MyIPRange[17] = 	"203.  4. 48.160.PPP"
	$MyIPRange[18] = 	"192.168.  6.  1.SGL"
	$MyIPRange[19] = 	"192.168.  6.245.SGL"
	$MyIPRange[20] = 	"203.  4. 48.  1.SYD"
	$MyIPRange[21] = 	"203.  4. 48.255.SYD"
	$MyIPRange[22] = 	"203.  4. 15.116.COR"
	$MyIPRange[23] = 	"203.  4. 15.255.COR"
	$MyIPRange[24] = 	"192.168.  6.250.SGL"
	$MyIPRange[25] = 	"192.168.  6.255.SGL"
	$MyIPRange[26] = 	"192.168.  2.  1.HOM"
	$MyIPRange[27] = 	"192.168.  2.255.HOM"


$ip_test = ConvertIPToHex($ip_address)

For $h 	= 0 to Ubound($MyIPRange) STEP 2

	$ip_start 	= Left($MyIPRange[$h], Len($MyIPRange[$h]) - 4)
	$ip_end		= Left($MyIPRange[$h + 1],Len($MyIPRange[$h + 1]) - 4 )
	
	If  $ip_test >= ConvertIPToHex($ip_start) AND $ip_test <= ConvertIPToHex($ip_end)
				
		 $WhichSite = Right($MyIPRange[$h], 3)
										
	EndIf
	
		
Next

EndFunction