Schließen Sie eine geöffnete OneNote-Anwendung mit VBS

Question

Ich versuche, eine geöffnete OneNote-Anwendung auf dem Computer eines Benutzers mit VB Script zu schließen. Aber ich kann es nicht zur Arbeit bringen. Ich muss alle geöffneten OneNotes schließen, bevor ich den Rest der VBS-Datei ausführe. Bisher habe ich das versucht, funktioniert aber nicht für OneNote.

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

Dies ist ein weiterer Code, den ich ausprobiert habe. Keine Arbeit.

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

Answer 1

Sie können wie auf diese Weise versuchen Onenote.exe Prozess

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 
'**************************************************** 

Oder auf diese Weise zu töten:

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