0

说到 vbscript，我是个笨蛋，但我设法做了点什么。但现在我有点卡住了。

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

我需要杀死计算机上的一个进程[我知道并制作的那部分] 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 文件虽然它们分开工作正常

我究竟做错了什么？

亲切的问候阿里

4

0 回答 0