My Developer Memo

'-- KillProcess.vbs

Option Explicit
On Error Resume Next

'-------------------------------------------------------------
'-- ■変数宣言
'-------------------------------------------------------------
Dim strProcName
Dim strComputer
Dim objWMIService
Dim colProcessList
Dim objProcess

Call Main


'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' メインルーチン
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Sub Main()

strProcName = "aspnet_wp.exe"

strComputer = "."

'--WMIを使用してオブジェクト取得--
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
if Err.Number <> 0 then
msgbox("Err(1):"& Err.Number & " "& Err.Description)
Exit Sub
end if

'--プロセスリストの取得--
Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process")
if Err.Number <> 0 then
msgbox("Err(2):"& Err.Number & " "& Err.Description)
Exit Sub
end if

For Each objProcess in colProcessList
if objProcess.Name = strProcName then
objProcess.Terminate()
end if
Next

'--オブジェクト解放--
Set objWMIService = Nothing
Set colProcessList = Nothing

End Sub