[OSArev]

Кнопок можно и поменьше, и прогу можно вырубить

Код:

Set oShell = CreateObject("WScript.Shell")
oShell.Exec("calc.exe")

result = MsgBox ("Вырубить Калькулятор?", vbYesNo, "ProcessClose")
Select Case result
 Case vbYes 
   ProcessClose("calc.exe")
 Case vbNo 
  WScript.Quit
End Select
 
Function ProcessClose(sProcName)
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    
    Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process Where Name = '" & sProcName & "'")
    
    For Each objProcess in colProcessList
        objProcess.Terminate()
    Next
End Function