使用 VBS 关闭打开的 OneNote 应用程序

Question

我正在尝试使用 VB 脚本关闭用户计算机上打开的 OneNote 应用程序。但是，我似乎无法让它工作。在运行 VBS 文件的其余部分之前，我需要关闭所有打开的 OneNotes。到目前为止，我已经试过了，但不适用于 OneNote。

Set oNote= CreateObject("WScript.Shell")
oNote.Exec "onenote"
oNote.Terminate

这是我试过的另一个代码。都不行。

Set oNote= CreateObject("onenote")
oNote.Quit

Answer 1

你可以尝试这样杀死Onenote.exe进程

Option Explicit
Dim Process
Process = "Onenote.exe"
Call Kill(Process)
'****************************************************
Sub Kill(Process)
    Dim Ws,Command,Execution
    Set Ws = CreateObject("Wscript.Shell")
    Command = "cmd /c Taskkill /F /IM "& Process &""
    Execution = Ws.Run(Command,0,True)
    Set Ws = Nothing
End Sub 
'****************************************************

或者通过这种方式:

Option Explicit
Dim objWMIService, objProcess, colProcess
Dim strComputer, strProcessKill 
strComputer = "."
strProcessKill = "'Onenote.exe'" 

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" _ 
& strComputer & "\root\cimv2") 

Set colProcess = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = " & strProcessKill )
For Each objProcess in colProcess
    objProcess.Terminate(1)
Next

使用 VBS 关闭打开的 OneNote 应用程序

Close an open OneNote application using VBS

vbscript

onenote