;region Setup Variables
$WTS = CreateObject("WTSManager.Shell")

If Not $WTS
  $nul= MessageBox("WTSManager.Shell Not Initiated. This Script Will Now Close.","Error",16)
  Exit
EndIf

$WTSMyUserName = $WTS.MyUserName
$WTSMyIPAddress = $WTS.MyIPAddress

;? $WTSMyIPAddress

$Octets = Split($WTSMyIPAddress,'.')

$ThirdOctet = $Octets[2]
$FourthOctet = $Octets[3]

;1. Place the Wkix32.exe file in the 'C:\Windows\System32' directory of each Citrix server.
;   (use Wkix32.exe to execute this script instead of kix32.exe 
;    and you will Not have a DOS Box show up every time it runs.)

;2. Place the WTSManager.dll file in the 'C:\Windows\System32' directory of each Citrix server.

;3. Place the register.exe file in the 'C:\' directory of each Citrix server.

;4. Logon to each Citrix server as Administrator and from the command prompt execute register.exe
;   (You should see this message)
;
;   (c) 2000 Almaz Sharipov. http://vlab.hypermart.net
;   WTSManager.Shell class is registered succesfully!

;5. PLace this script in the appropriate place to be executed apon user logon And you are done.
;endregion

;Milford:		10.71.155.1 	  –   10.71.155.63
;NONE		10.71.155.64 	  –   10.71.155.95
;Beaver Crossing:	10.71.155.96     –   10.71.155.127
;Weeping Water:	10.71.155.128   –   10.71.155.191
;NONE		10.71.155.192   –   10.71.155.223
;Panama:		10.71.155.224   –   10.71.155.254
; 
;Firth:			10.71.156.1       –   10.71.156.31
;Palmyra:		10.71.156.32 	  –   10.71.156.63
;Wilber:		10.71.156.64     –   10.71.156.127
;Superior:		10.71.156.128   –   10.71.156.191
;Jansen:		10.71.156.192   –   10.71.156.223
;Lawrence:		10.71.156.224   –   10.71.156.254

Select
	Case $ThirdOctet = 155 And ($FourthOctet >= 1 And $FourthOctet <= 63)		;Milford:  10.71.155.1	  –  10.71.155.63
		$Location = "Milford"
	Case $ThirdOctet = 155 And ($FourthOctet >= 64 And $FourthOctet <= 95)		;NONE:   10.71.155.64  –  10.71.155.95
		$Location = "None"
	Case $ThirdOctet = 155 And ($FourthOctet >= 96 And $FourthOctet <= 127)		;Beaver Crossing:   10.71.155.96  –  10.71.155.127
		$Location = "Beaver Crossing"
	Case $ThirdOctet = 155 And ($FourthOctet >= 128 And $FourthOctet <= 191)	;Weeping Water:  10.71.155.128  –  10.71.155.191
		$Location = "Weeping Water"
	Case $ThirdOctet = 155 And ($FourthOctet >= 192 And $FourthOctet <= 223)	;NONE:  10.71.155.192  –  10.71.155.223
		$Location = "None"
	Case $ThirdOctet = 155 And ($FourthOctet >= 224 And $FourthOctet <= 254)	;Panama:  10.71.155.224  –  10.71.155.254
		$Location = "Panama"
	Case $ThirdOctet = 156 And ($FourthOctet >= 1 And $FourthOctet <= 31)		;Firth:  10.71.156.1  –  10.71.156.31
		$Location = "Firth"
	Case $ThirdOctet = 156 And ($FourthOctet >= 32 And $FourthOctet <= 63)		;Palmyra:  10.71.156.32  –  10.71.156.63
		$Location = "Palmyra"
	Case $ThirdOctet = 156 And ($FourthOctet >= 64 And $FourthOctet <= 127)		;Wilber:  10.71.156.64  –  10.71.156.127
		$Location = "Wilber"
	Case $ThirdOctet = 156 And ($FourthOctet >= 128 And $FourthOctet <= 191)	;Superior:  10.71.156.128  –  10.71.156.191
		$Location = "Superior"
	Case $ThirdOctet = 156 And ($FourthOctet >= 192 And $FourthOctet <= 223)	;Jansen:  10.71.156.192  –  10.71.156.223
		$Location = "Jansen"
	Case $ThirdOctet = 156 And ($FourthOctet >= 224 And $FourthOctet <= 254)	;Lawrence:  10.71.156.224  –  10.71.156.254
		$Location = "Lawrence"
EndSelect

;? $Location

Select
	Case $Location = "Milford"
;		Set "ZLOCALDIR=P:\ITI\PTW\LOCAL\"+$WTSMyUserName
;		Set "ZSHAREDIR=P:\ITI\PTW\milford"  ;(This will change with the locations)
	Case $Location = "Beaver Crossing"
		;(Modify this for "Beaver Crossing")
	Case $Location = "Weeping Water"
		;(Modify this for "Weeping Water")
	Case $Location = "Panama"
		;(Modify this for "Panama")
	Case $Location = "Firth"
		;(Modify this for "Firth")
	Case $Location = "Palmyra"
		;(Modify this for "Palmyra")
	Case $Location = "Wilber"
		;(Modify this for "Wilber")
	Case $Location = "Superior"
		;(Modify this for "Superior")
	Case $Location = "Jansen"
		;(Modify this for "Jansen")
	Case $Location = "Lawrence"
		;(Modify this for "Lawrence")
EndSelect