code:

---

 
		; ************************** Internet Explorer 6 Service Pack 1 ************************************
		if $os="Win2k" and $ier="6.0.2600.0000"
			if updateapp("InternetExplorer6SP1",3)="yes"
				$=sendmessage(@wksta," The computer will automatically restart when complete.@CRLF This will take about 5-10 minutes.")
				$=Writeprofilestring("$logon\inventory\Install.log","IE6SP1","@wksta","@date")
				run '$setup\IE6SP1\ie6setup.exe /q'
				$m= "A CRITICAL Update is NOW taking place. Please do not open any programs until your system reboots.",
				    "The Upgrade is running.  Please do not open any programs. This will take about 10-15 minutes.",
				    "The Upgrade will be complete in about 15 minutes and your computer will restart on it's own.",
				    "You can stop clicking now."
				while ubound($m)>0
					for each $message in $m
				 		$=Messagebox($message, "Message from MIS",65536)
						sleep 2
		                        	next
		                   	loop
				quit
				endif
			endif
		; ************************** Internet Explorer 6 Security Rollup 818529 -  June 2003 ************************************
		 if $os='Win2k' and $ier='6.0.2800.1106'
		 	if not Readvalue("HKLM\Software\Microsoft\Active Setup\Installed Components\{f5de1b93-9d38-416b-b09e-aa85a8e84309}","ComponentID")='Q818529'
 				if updateapp('IE.Security.Rollup.June.2003',3)='yes'
					 shell '$setup\IEQ818529\q818529.exe /q /r:n'
					 endif
			 	endif
			 endif
 

---