code:

---

 
		; ****************************** Win2k Service Pack 4 *****************************************
		if $os="Win2k" and right(trim(@csd),1) < '4'
			if updateapp("Win2kSP4",3)="yes"
				$=setconsole("hide")
				md '%windir%\sp4'
				sleep 2
				$=writevalue("$HKLMS\Microsoft\Ole","LegacyImpersonationLevel","2",REG_DWORD)
				$=Writeprofilestring("$logon\inventory\Install.log","Win2kSP4","@wksta","@date")
				shell '$setup\apps\win2ksp4\w2ksp4_EN.exe /U /X:%windir%\sp4'
				sleep 2
				run '%windir%\sp4\i386\update\update.exe /u /N /F '
				$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
 

---