指定したプロセスを終了させるスクリプト
自宅サーバで LiveCapture2を使って一日一回USBカメラから静止画を取得してメールで送信しようとしたのだが、その他の何もしていない時間のCPUの使用率が気になった。フレームレートを下げればよいとのことだが、本当に一日一回しか使わないので、用が済んだら落としておきたい。LiveCapture2側には非常駐的なオプションがないみたいだったので、スクリプトをタスクに登録して外から落としてやることにした。 プロセスの終了(Microsoft Technet) 以下コードの引用 strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colProcessList = objWMIService.ExecQuery _ ("Select * from Win32_Process Where Name = 'Notepad.exe'") For Each objProcess in colProcessList objProcess.Terminate() Next 'Notepad.exe'の部分を変えてやればよい。cimv2とかimpersonateとかまったくチンプンカンプンなんだけど、MSの情報だしとりあえず動いてしまったんで気にしないことにする。