Vbscript 在vbs不工作的情况下关闭hta文件？

我试图用vbs关闭一个*.hta文件，但我无法关闭它，我想下面的方法是正确的

    Set ws=CreateObject("WScript.Shell")
ws.Run "TASKKILL.exe /F /IM 1846.hta"

---

正在运行的.hta的映像名为mshta.exe，因为此程序承载脚本。如果有多个.hta正在运行，您必须考虑确定所需的进程。

也许可以这样做：

Option Explicit
Call FindProcessbyName("1846.hta")
'**********************************************************************************************
Sub FindProcessbyName(FileName)
    On Error Resume Next
    Dim WshShell,strComputer,objWMIService,colProcesses,objProcess
    Set WshShell = CreateObject("Wscript.Shell")
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colProcesses = objWMIService.ExecQuery("SELECT * FROM Win32_Process")
    For Each objProcess in colProcesses
        If InStr(objProcess.CommandLine,FileName) > 0 Then
            If Err <> 0 Then
                MsgBox Err.Description,VbCritical,Err.Description
            Else
                objProcess.Terminate(0) 
            End if
        End If
    Next
End Sub
'**********************************************************************************************

选项显式
调用FindProcessbyName（“1846.hta”）
'**********************************************************************************************
子FindProcessbyName（文件名）
出错时继续下一步
Dim WshShell、strc计算机、objWMIService、COLPROCESS、objProcess
设置WshShell=CreateObject（“Wscript.Shell”）
strComputer=“”
设置objWMIService=GetObject（“winmgmts:{impersonationLevel=impersonate}！\\”&strComputer&“\root\cimv2”）
设置colprocesss=objWMIService.ExecQuery（“从Win32_进程中选择*）
对于COLJP进程中的每个OBJP进程
如果InStr（objProcess.CommandLine，FileName）>0，则
如果错误为0，则
MsgBox错误说明，VbCritical，错误说明
其他的
OBJ进程终止（0）
如果结束
如果结束
下一个
端接头
'**********************************************************************************************

请检查此项。这不是你问题的完整答案，但也许你会有一些想法。