VB스크립트

Option Explicit ' 변수 선언 요구
On Error Resume Next ' 오류가 발생해도 속행
Const ProcessToKill = "notepad.exe" ' 종료할 프로세스 명 지정 (notepad.exe)
Dim oWMI, oQuery, oProc, iCount ' 변수 선언
Set oWMI = GetObject("winmgmts:") ' 로컬 컴퓨터의 WMI 서비스에 접속하여 WMI 서비스 개체 취득
If Not IsObject(oWMI) Or oWMI Is Nothing Then ' WMI 서비스 개체를 얻는 데에 실패했다면
    ' 오류 메시지 출력
    MsgBox "WMI 서비스가 실행 중이 아닙니다." & vbCrLf & vbCrLf & _
    "이 스크립트는 윈도우 NT 이상, WMI 서비스가 실행 중인 컴퓨터에서만 실행 가능합니다.", vbCritical

    ' 종료 코드 1번으로 스크립트 실행 종료
    WScript.Quit 1
End If

' WMI 서비스에 쿼리를 보내 ProcessToKill 상수에 지정된 프로세스와 같은 프로세스 개체를 검색함
Set oQuery = oWMI.ExecQuery("SELECT * FROM win32_process WHERE Name = '" & ProcessToKill & "'")
iCount = 0 ' 프로세스 카운트 변수 초기화
' 쿼리 내에 검색된 각각의 모든 개체(프로세스 개체) oProc 들에 대해
For Each oProc In oQuery
    oProc.Terminate ' 프로세스를 강제로 종료
    iCount = iCount + 1 ' 프로세스 카운트를 하나 증가
Next ' oProc

' 결과를 사용자에게 출력
If iCount > 0 Then
    WScript.Echo "총 " & iCount & " 개의 메모장 프로세스가 종료되었습니다."
Else
    WScript.Echo "컴퓨터에 실행 중인 메모장 프로세스를 발견할 수 없었습니다."
End If

' 개체의 인스턴스를 해제함
Set oProc = Nothing
Set oQuery = Nothing
Set oWMI = Nothing