Program = "SomeProgram.exe" 
 
While True 
   If ProcessExists(Program) Then ProcessClose(Program) 
   WScript.Sleep  90  *  1000  ' 90  секунд 
   End If 
WEnd 
 
Function ProcessExists(ProcessName) 
    Set Processes = GetObject("winmgmts://localhost") 
    Set myProcEnum = Processes.ExecQuery("select * from Win32_Process") 
    For Each Proc In myProcEnum 
        If StrComp(Proc.Name, ProcessName,  1 ) =  0  Or StrComp(Proc.ProcessID, ProcessName,  1 ) =  0  Then 
            ProcessExists = True 
            Exit Function 
        End If 
    Next 
    ProcessExists = False 
End Function 
 
Function ProcessClose(ProcessName) 
    Set Processes = GetObject("winmgmts://localhost") 
    Set myProcEnum = Processes.ExecQuery("select * from Win32_Process") 
    For Each Proc In myProcEnum 
        If StrComp(Proc.Name, ProcessName,  1 ) =  0  Or StrComp(Proc.ProcessID, ProcessName,  1 ) =  0  Then 
            Proc.Terminate 
        End If 
    Next 
End Function