VB脚本杀死进程并删除文件夹

Question

当涉及到vbscript时，我是一个noop，但我设法做了些什么。但现在我有点卡住了。

让我试着解释一下我想做什么

我需要在计算机上杀死一个进程[我知道并制作的部分] VBpart 1 当进程被杀死时，我需要删除一个包含所有内容的文件夹[我也管理过] VB第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文件，而他们分开工作

我做错了什么？

亲切的指出Arie