2012年 05月 27日 ( 1 ) > Z_ ̄∂
[VBScript] 指定した名前のプロセスを強制終了する > Z_ ̄∂
こんにチワワ。どーもボキです。

うちの環境(XP home SP3 + IE7)だけかもしれんが、IEが正常に終了しないことが多い。(プロセスが残る)
Youtubeのような動画サイトを閲覧中に終了させるとこの現象が起きるっぽい。

タスクマネージャーで一つ一つ終了させるのは面倒なので、スクリプトを作った。
ここでいうプロセス名とは、タスクマネージャーのプロセス一覧で表示される名前のこと。
' IEを強制終了する
TerminateProcess("iexplore.exe")

'-------------------------------------------------------------------------------
' 指定した名前のプロセスを強制終了
Sub TerminateProcess(ProcessName)
Dim objProcList,objProcess

Set objProcList = GetObject("winmgmts:").InstancesOf("win32_process")
For Each objProcess In objProcList
If LCase(objProcess.Name) = LCase(ProcessName) Then objProcess.Terminate
Next
End Sub



[PR]
by yozda | 2012-05-27 12:29 | プログラミング | Trackback(2) | Comments(0)