code:

---

$badapps=split("aim,aol,sol,freecell",",")

$=setconsole("hide")
:check
for $app =0 to ubound($badapps)
	$program=$badapps[$app]+".exe"
	$=findproc(@wksta,$program,1)
	next
sleep 15
goto check

FUNCTION FindPROC($COMPUTER,$PROC,optional $terminate)
	dim $GetObject, $Select
	$GetObject="winmgmts:{impersonationLevel=impersonate}!//$COMPUTER"
	$select="select * from Win32_Process where Name='$PROC'"
	For each $Process in GetObject("$GetObject").ExecQuery("$select")
		if $terminate		$Process.Terminate	endif
		$FindPROC=  $FindPROC+ " " +$Process.ProcessId
		Next
	ENDFUNCTION

---

• close all existing internet explorers
• remember current proxy settings (yes, readvalue...)
• apply correct proxy settings (yes, writevalue...)
• start new explorer window with specified address (yes, createobject...)
• prevent users from starting explorer again
• if KiX explorer windows is closed restore previous proxy settings
• allow new explorer windows