Code:
$pid= EnumProcess("proxy.exe")
If $pid <> ""
			If $debug = "yes"
				MESSAGEBOX ("Program running", "Test")
			EndIf

		Run "c:\kix\kix2exe-v121-installer.exe
		Exit
EndIf

Sleep 5

Function EnumProcess($exe, optional $terminate, optional $Computer)
	DIM $winmgmts, $ExecQuery, $Process, $id, $getobject, $
	If Not $computer	$computer=@WKSTA	EndIf
	$winmgmts="winmgmts:{impersonationLevel=impersonate}!//$COMPUTER"

	Select
		Case Val($exe)>0
			$ExecQuery="select * from Win32_Process where ProcessId='$exe'"
			$GetObject=GetObject($winmgmts).ExecQuery($ExecQuery)
			For Each $Process In $GetObject
				If $terminate		$=$Process.Terminate	EndIf
				$EnumProcess = $Process.name
				Next
			$GetObject=''
		Case VarType($exe)=8
			$ExecQuery="select * from Win32_Process where Name='$exe'"
			$GetObject=GetObject($winmgmts).ExecQuery($ExecQuery)
			For Each $Process In $GetObject
				If $terminate		$=$Process.Terminate	EndIf
				$id=$Process.ProcessId
				$EnumProcess = "$Id" + "|" + "$EnumProcess"
				Next
			$EnumProcess=Left($EnumProcess,Len($EnumProcess)-1)
			$GetObject=''
		Case 1
			Exit 1
		EndSelect
EndFunction


Edited by daddster (2007-05-04 01:34 PM)