Windowsで指定のプログラムが起動しているか確認するバッチファイルです
書く程のことは無いのですが(^^;
1 2 3 4 5 6 7 8 9 |
@echo off tasklist | findstr calc.exe if %errorlevel% equ 0 ( echo 電卓は起動しています ) else ( echo 電卓は起動していません ) pause |
VBScriptだと
1 2 3 4 5 6 7 8 9 10 11 12 |
Dim objShell, objWMIService, colItems Set objShell = CreateObject("WScript.Shell") Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2") Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name ='calc.exe'") If colItems.Count = 0 Then objShell.Run "calc.exe", 3, False WScript.Sleep 5000 End If Set objShell = Nothing |