使用 vbscript 杀死指定的可执行路径 [重复]

Question

On Error Resume Next
Dim fso,oShell,file
Set fso = CreateObject("Scripting.FileSystemObject")
Set oShell = CreateObject("WScript.Shell")
oShell.Run "Taskkill /F /IM mysqld.exe",0,True  

file = "C:\xampp\mysql\bin\mysqld.exe"
If fso.FileExists(file) Then
    fso.DeleteFile file
End If
Set oShell = Nothing 
Set fso = Nothing

我尝试使用以下cmd从指定目录中杀死mysqld.exe oShell.run "WMIC PROCESS WHERE "ExecutablePath like 'C:\xampp\mysql\bin\mysqld.exe'" 删除但出现错误，即使在 cmd.exe 上运行 wmic cmd 时也会出现错误.. 其他目录下有多个进程mysqld.exe在运行，我怎样才能从指定路径中杀死并删除一个？

Answer 1

键入命令或模拟键入命令不是编程。

可以从命令行界面获得这些对象的帮助。

wmic path Win32_Process get /?

和

wmic path Win32_Process call /?

如果对象具有可写属性

wmic path Win32_Process set /?

任何命令可以做的事情程序也可以做。

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_Process")

For Each objItem in colItems
    'msgbox objItem.name & " " & objItem.CommandLine
    If LCase(objItem.name) = "notepad.exe" then 
        If Msgbox("Close Notepad", 33, "Program Closer") = 1 then
            objItem.terminate
        End If
    End If
Next