Открытие и закрытие программы

Option Explicit
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
 
Private PID&
 
Sub auto_open()
  Dim Proc As Long
  PID = Shell("notepad.exe")
  Application.OnTime Now + TimeValue("06:00:00"), "CloseProc"
  MsgBox "Блокнот запущен!"
End Sub
 
Sub CloseProc()
  Dim hProc As Long
  hProc = OpenProcess(&H1, False, PID)
  TerminateProcess hProc, 0
  CloseHandle hProc
  MsgBox "Блокнот закрыт!"
End Sub

Set WshShell = WScript.CreateObject("WScript.Shell")
Proc = "notepad.exe"
Set WshExec = WshShell.Exec(Proc)
WScript.Sleep 6 * 60 * 60 * 1000
on error resume next
WshExec.Terminate
set WshExec = nothing: set WshShell = nothing

WshShell.Run "shutdown -s -t 30",0,false