$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