vbscript - VB スクリプト プロセスを強制終了し、フォルダーを削除する

Question

vbscriptに関しては私はノープですが、なんとか何かを作ることができました。しかし今、私はちょっと立ち往生しています。

私がやろうとしていることを説明してみましょう

コンピューター上のプロセスを強制終了する必要があります [私が知っていて作成した部分] VBpart 1 プロセスが強制終了されたら、すべてのコンテンツを含むフォルダーを削除する必要があります [私も管理していた] VB part 2

VB パート 1

Option Explicit

Dim objWMIService, objProcess, colProcess
Dim xComputer, xProcessKill
xComputer = "."
xProcessKill = "'diamant client.exe'"

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

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

VB パート 2

strFolder = "\\srvad01\DFS\Sandbox$\username\sandbox\DiaSoft Framework Diamant Client 1.0 NL"

set objFSO = createobject("Scripting.FileSystemObject")
objFSO.DeleteFolder strFolder

しかし、どういうわけか、これらの 2 つのファイルを 1 つのファイルにマージすることはできません。

私は何を間違っていますか？

敬具アリー