说到 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 文件虽然它们分开工作正常
我究竟做错了什么?
亲切的问候阿里