VBSを使用して開いているOneNoteアプリケーションを閉じます。

Question

VB Scriptを使用して、開いている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 

を