code:

---

 ; -- Please refer to: http://www.winnetmag.com/Articles/Index.cfm?ArticleID=7965
 ; -- If you download the ICA32.EXE from http://www.citrix.com, you will need WinZIP or
 ; -- Similar program to Extract the files from the self-extracting archive
 ; -- Create the SETUP.ISS file by running the SETUP.EXE with a -r switch
 ; -- When completed, you will find the SETUP.ISS in your Windows Directory
 ; -- Users will need to have Power User rights or better to run this
 BREAK ON
 CLS
 $windir = READVALUE('HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion','SystemRoot')
 $systemdrive = SUBSTR($windir,1,2)
 $PathString = '\\APPSERVER\Apps\Citrix'

 IF exist($systemdrive+'\Program Files\Citrix\ICA Client\pn.exe')
       RETURN
 ELSE
       'Citrix is being installed.  Please wait..'
       SLEEP 3
       RUN '$PathString\disk1\setup.exe -s -f1$PathString\setup.iss'
       RETURN
 ENDIF

---

code:

---

SHELL '%COMSPEC% /C $PathString\disk1\setup.exe -s -f1$PathString\setup.iss'
  

---

code:

---

? "We have now to install IBM CA but first cleanup from prior installs"
SHELL 'deltree /Y "%TEMP%\_ISTMP*.DIR"'
CLS

? "Launching the main install"
run '"\\ffsms\Seed\IBM Client Access\Express\Setup.exe" -S'

;? "Waiting for the core install to start"
sleep 10

? "Waiting for the core install to finish" ?
$Index = 0
while exist("%temp%\_ISTMP1.DIR")
  "."
  sleep 10
  $Index = $Index + 1
  if $index > 20
    $RC = MessageBox("NOTICE!" + Chr(13) + "Installation did not complete within a reasonable time!"
    + Chr(13) + "Please notify the FF HelpDesk at ext. 1864","IBM Client Access Express",48,60)
    goto finish
  endif
Loop
  

---

code:

---

 
		; ************************* Install Metaframe *******************************
		If ingroup("Area_MetaFrame")=1 and exist("C:\PROGRAM FILES\Citrix\ICA CLIENT\Uninst.isu")=0
			if updateapp("Citrix_Metaframe")="yes"
				Shell "\\itss\setupl$\metaframe\Setup.exe -s"
				$=Writeprofilestring("$logon\inventory\Install.log","Metaframe","@wksta","@date")
				sleep 20
				endif
			endif
		; ******************* Remove metaframe from unnecessary PCs ******************
		If ingroup("Area_MetaFrame")=0 and exist("C:\PROGRAM FILES\Citrix\ICA CLIENT\Uninst.isu")=1 and Ingroup("areamis")=0
			? "	Uninstalling Citrix Metaframe"
			$UnstKey=ReadValue("$HKLMSMWCV\Uninstall\Citrix ICA Client","UninstallString")
			Shell "$UnstKey"
			$=Writeprofilestring("$logon\inventory\UnInstall.log","Metaframe","@wksta","@date")
			endif
 

---