VBS

      Option Explicit
      Function FindWindowA Lib "user32" (ByVal cnm As String, ByVal cap As String)
      dim hWnd
      hWnd = FindWindow(vbNullString, "無題 - ペイント")

       If hWnd = 0 Then
          WScript.Echo  "EXCEL動いてない。"
       Else
          WScript.Echo  "EXCEL動いている。"
       End If
     Set obj = CreateObject("APIWrapperCOM.APIWrapper")
     winHandle = obj.FindWindow("test.txt - Notepad")
     obj.KillWindow(winHandle)
     SendMessage  hwindow, WM_SYSCOMMAND, SC_CLOSE, 0