;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

Break On

$Networks = '10.1.0.0/24','10.18.22.0/24','10.64.61.0/24'
$Printers = '\\server\printer1','\\server\printer2','\\server\printer3'
$Mapped = 0

$MyIP = Join(Split(@IPADDRESS0, ' '), '')

For $I = 0 to UBound($Networks)
  If InSubnet($MyIP, $Networks[$I])
    'My ip address (' $MyIP ') exists in network $I (' $Networks[$I] ')' ?
    'Mapping printer ' $Printers[$I] ?
    $Mapped = 1
  EndIf
Next

If Not $Mapped
  'No printers were mapped!' ?
EndIf

; InSubnet UDF available from http://wws.innotechcg.com w/ full header info
Function InSubnet($_IPAddr, $_Network)

  Dim $_aAdd				; array of address values
  Dim $_Mask				; Mask value
  Dim $_Hosts				; hosts in subnet

  ; Convert the supplied IP address to a double value representing the decimal address
  $_aAdd = Split($_IPAddr, '.')
  $_IPAddr = (CDbl($_aAdd[0]) * 16777216.0) + (CDbl($_aAdd[1]) * 65536.0) + (CDbl($_aAdd[2]) * 256.0) + (CDbl($_aAdd[3]) * 1.0)

  ; Convert the network from a w.x.y.z/mask format to a decimal value
  ; this is the starting network address value
  $_Network = Split($_Network, '/')
  $_Mask = Val($_Network[1])
  $_aAdd = Split($_Network[0], '.')
  $_Network = (CDbl($_aAdd[0]) * 16777216.0) + (CDbl($_aAdd[1]) * 65536.0) + (CDbl($_aAdd[2]) * 256.0) + (CDbl($_aAdd[3]) * 1.0)

  ; Set the number of hosts in the defined network
  $_Hosts = 1.0
  For $_I = 31 to $_Mask Step -1
    $_Hosts = ($_Hosts * 2.0)
  Next

  ; return the value 
  $InSubnet = 0
  If $_IPAddr >= $_Network And $_IPAddr < ($_Network + $_Hosts)
    $InSubnet = 1
  EndIf

  Exit 0

EndFunction

    'My ip address (' $MyIP ') exists in network $I (' $Networks[$I] ')' ?
    'Mapping printer ' $Printers[$I] ?

'My ip address (' $MyIP ') exists in network $I (' $Networks[$I] ')' ?
    'Mapping printer ' $Printers[$I] ?

 ? "echo/display a statement here!" 

For $I = 0 to UBound($Networks)
  If InSubnet($MyIP, $Networks[$I])
    'My ip address (' $MyIP ') exists in network $I (' $Networks[$I] ')' ?
	select
		case $network = 192.168.15.0/24
		$location = "site A"
		case $network = 192.168.16.0/24
		$location = "site B"
	endselect
    'Mapping printer ' ?
	select
	     case $Location = "Site A"
		@ldrive + "\scripts\siteaprnt.kix"
			? "Added Site A Printers"
		endif
		;Or any style of adding a printer that you recommend
		case @location = "Site B"
		IF ADDPRINTERCONNECTION ("\\server\printer2") = 0 
			? "Added Printer2"
		endif
	$Mapped = 1
  EndIf
Next

If Not $Mapped
  'No printers were mapped!' ?
EndIf

SiteName=network/mask,\\server\Printer

Break On
; Uses an INI file for subnet/printer mapping
; The INI file in this example is called NetPrint.ini, and uses one section
; called MAPPINGS. Each value consists of a comma-delimited pair of data
; representing the network/mask and printer share UNC in the format
; sitename=w.x.y.z/mask,\\server\printer


$Mapped = 0					; value showing that printer was not mapped

$MyIP = Join(Split(@IPADDRESS0, ' '), '')	; Get the local IP address, removing spaces

; Load an array from the INI file
$Mappings = EnumIni('.\netprint.ini', 'MAPPINGS')

For Each $SiteName in $Mappings

  ; create a 2-element array by splitting the data at the comma
  ; element 0 contains the network/mask, and element 1 contains the printer UNC
  $NetPrint = Split(ReadProfileString('.\netprint.ini', 'MAPPINGS', $SiteName), ',')

  ; see if the local IP is inside the network
  If InSubnet($MyIP, $NetPrint[0])

    ; these print statements are for diagnostic/testing
    'My ip address (' $MyIP ') exists in the ' $SiteName ' site (' $NetPrint[0] ')' ?
    'Mapping printer ' $NetPrint[1] ?

    ; make the printer connection
    AddPrinterConnection($NetPrint[1])

    ; show that at least 1 printer mapped successfully
    If Not @ERROR
      $Mapped = 1
    EndIF

  EndIF

Next


If Not $Mapped
  'No printers were mapped!' ?
EndIf





; do not modify anything after this line!!!

;; 
;;====================================================================== 
;; 
;;FUNCTION       InSubnet() 
;; 
;;ACTION         Determines if a specific IP address is in a subnet 
;; 
;;AUTHOR         Glenn Barnas 
;; 
;;VERSION        1.0 / 2008/01/20 
;; 
;;SYNTAX         InSubnet(Address, Network) 
;; 
;;PARAMETERS     Address - REQUIRED, IP address in dotted-decimal (w.x.y.z) 
;; 
;;		 Network - REQUIRED, Network in CIDR format (w.x.y.z/mask) 
;; 
;;REMARKS         
;; 
;;RETURNS        1 if ip address is in the defined subnet, 0 otherwise 
;; 
;;DEPENDENCIES   none 
;; 
;;TESTED WITH    W2K, WXP, W2K3, Vista, X64 
;; 
;;EXAMPLES       If InSubnet('192.168.12.243', '192.168.8.0/21') 
;;		   'Is in subnet!' ? 
;;		 EndIf 
; 
Function InSubnet($_IPAddr, $_Network)
 
  Dim $_aAdd				; array of address values 
  Dim $_Mask				; Mask value 
  Dim $_Hosts				; hosts in subnet 
 
  ; Convert the supplied IP address to a double value representing the decimal address 
  $_aAdd = Split($_IPAddr, '.')
  $_IPAddr = (CDbl($_aAdd[0]) * 16777216.0) + (CDbl($_aAdd[1]) * 65536.0) + (CDbl($_aAdd[2]) * 256.0) + (CDbl($_aAdd[3]) * 1.0)
 
  ; Convert the network from a w.x.y.z/mask format to a decimal value 
  ; this is the starting network address value 
  $_Network = Split($_Network, '/')
  $_Mask = Val($_Network[1])
  $_aAdd = Split($_Network[0], '.')
  $_Network = (CDbl($_aAdd[0]) * 16777216.0) + (CDbl($_aAdd[1]) * 65536.0) + (CDbl($_aAdd[2]) * 256.0) + (CDbl($_aAdd[3]) * 1.0)
 
  ; Set the number of hosts in the defined network 
  $_Hosts = 1.0
  For $_I = 31 to $_Mask Step -1
    $_Hosts = ($_Hosts * 2.0)
  Next
 
  ; return the value  
  $InSubnet = 0
  If $_IPAddr >= $_Network And $_IPAddr < ($_Network + $_Hosts)
    $InSubnet = 1
  EndIf
 
  Exit 0
 
EndFunction
 



;; 
;;====================================================================== 
;; 
;;FUNCTION       EnumIni() 
;; 
;;ACTION         Enumerates sections or keys of an INI file 
;; 
;;AUTHOR         Glenn Barnas  
;; 
;;VERSION        2.0 
;; 
;;DATE CREATED   2003/11/17 
;; 
;;DATE MODIFIED  2004/10/16 
;; 
;;SYNTAX         EnumIni(File [, Section]) 
;; 
;;PARAMETERS     File - 	REQUIRED, path/name of INI file to examine 
;; 
;;               Section -	OPTIONAL, Section name to parse 
;; 
;;REMARKS        Returns an array containing the sections in an INI file, or 
;;               an array of key names in a specified section. Errors are returned 
;;               for non-existant files or INI file reads. If the specified file 
;;               contains no sections, or the specified section contains no keys, 
;;               the UDF exits with error 13 and returns a null array. Thus, a For-Each loop 
;;               will properly perform no iterations if no data is returned. 
;; 
;;               CAUTION - Error 13 is returned for empty files, or nonexistant sections. 
;;                         This is not necessarily a "failure". 
;; 
;;RETURNS        Array of sections or keys in a section 
;; 
;;DEPENDENCIES   none 
;; 
;;TESTED WITH    Kix 4.2+, NT4, W2K, WXP, W2K3 
;; 
;;EXAMPLES       $Sections = EnumIni('.\config.ini') 
;;               $Keys = EnumIni('.\config.ini', 'Common') 
; 
Function EnumIni($_fSrcFile, OPTIONAL $_fSectName)
 
  Dim $_fSectList
 
  ; die if the file doesn't exist 
  If Exist($_fSrcFile) = 0
    Exit 2
  EndIf
 
  ; Get the list of sections or keys 
  $_fSectList = ReadProfileString($_fSrcFile, $_fSectName, '')
  ; Return if error occurred 
  If @ERROR
    Exit @ERROR
  EndIf
 
  ; If len is >0, return an array of sections 
  ; If len is 0, either no sections or keys exist, or an invalid section name was specified. Return nothing. 
  If Len($_fSectList) > 0
    $EnumIni = Split(Left($_fSectList,len($_fSectList)-1), Chr(10))
    Exit 0
  EndIF
 
  ; return an error here for value not found (no sections or no keys in section) 
  Exit 13
 
EndFunction 

[MAPPINGS]
sitename1=10.1.0.0/24,\\server\printer1
sitename2=10.18.22.0/24,\\server\printer2
sitename3=10.64.61.0/24,\\server\printer3

$Printers='\\server\printer', '\\server2\printer1;\\server2\printer2', '\\server3\printer'

$MyIP = Join(Split(@IPADDRESS0, ' '), '')

For $I = 0 to UBound($Networks)
  If InSubnet($MyIP, $Networks[$I])
    'My ip address (' $MyIP ') exists in network $I (' $Networks[$I] ')' ?

    ; if there's a ";" in the printers data, there's more than one to map
    If InStr($Printers[$I], ';')
      $ManyPrinters = Split($Printers[$I], ';')
      For Each $Printer in $ManyPrinters
        'Mapping printer ' $Printer ?
        $Mapped = 1
        AddPrinterConnection($Printer)
      Next
    Else	; just map the single printer
      'Mapping printer ' $Printers[$I] ?
      $Mapped = 1
      AddPrinterConnection($Printer[$I])
    EndIf

  EndIf
Next

$Networks = '192.168.18.0/24' ,'192.168.0.0/24','10.64.61.0/24'
$Printers='\\server\Site1 - HP Color Laserjet 3600n', &
'\\server1\Site2toshiba232;\\server\site2ricohafi', & 
'\\server3\printer'
$Mapped = 0

$Printers = 'Site1 device',
'site 2 UNC',
 :
'site 37 UNC',
'last site unc'              ; no comma here - terminates the $Printers array

$Networks = '10.50.0.0/22','10.50.20.0/22','10.50.24.0/22'
$Printers = '\\GL050-PRN-001\OLA-Printer001','\\GL050-PRN-001\OLA-Printer002','\\GL050-PRN-001\OLA-Printer003'
$Mapped = 0

$MyIP = Join(Split(@IPADDRESS0, ' '), '')

For $I = 0 to UBound($Networks)
  If InSubnet($MyIP, $Networks[$I])
    'My ip address (' $MyIP ') exists in network $I (' $Networks[$I] ')' ?
    'Mapping printer ' $Printers[$I] ?
    $Mapped = 1
  EndIf
Next

If Not $Mapped
  'No printers were mapped!' ?
EndIf

Function InSubnet($_IPAddr, $_Network)

  Dim $_aAdd				; array of address values
  Dim $_Mask				; Mask value
  Dim $_Hosts				; hosts in subnet

  ; Convert the supplied IP address to a double value representing the decimal address
  $_aAdd = Split($_IPAddr, '.')
  $_IPAddr = (CDbl($_aAdd[0]) * 16777216.0) + (CDbl($_aAdd[1]) * 65536.0) + (CDbl($_aAdd[2]) * 256.0) + (CDbl($_aAdd[3]) * 1.0)

  ; Convert the network from a w.x.y.z/mask format to a decimal value
  ; this is the starting network address value
  $_Network = Split($_Network, '/')
  $_Mask = Val($_Network[1])
  $_aAdd = Split($_Network[0], '.')
  $_Network = (CDbl($_aAdd[0]) * 16777216.0) + (CDbl($_aAdd[1]) * 65536.0) + (CDbl($_aAdd[2]) * 256.0) + (CDbl($_aAdd[3]) * 1.0)

  ; Set the number of hosts in the defined network
  $_Hosts = 1.0
  For $_I = 31 to $_Mask Step -1
    $_Hosts = ($_Hosts * 2.0)
  Next

  ; return the value 
  $InSubnet = 0
  If $_IPAddr >= $_Network And $_IPAddr < ($_Network + $_Hosts)
    $InSubnet = 1
  EndIf



EndFunction