Question

我试着这样做：

Dim objFSO, outFile, wshShell
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set outFile = objFSO.CreateTextFile("paint.bat", True)
outFile.WriteLine "taskkill /f /im mspaint.exe"
Set wshShell = CreateObject("WScript.Shell")
wshShell.Run "paint.bat", 0, false

这是工作但是错误说“该文件已被其他进程使用”

Answer 1

您自己的cscript或wscript进程已在使用该文件。您应该在outFile.Close之前使用Set outFile = Nothing（可能还有run）。

Answer 2

直接在vbscript中终止绘画。

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_Process")
For Each objItem in colItems
    If objitem.Name = "mspaint.exe" Then
        msgbox objitem.name & " PID=" & objItem.ProcessID & " SessionID=" & objitem.sessionid
        objitem.terminate
    End If
Next

如何在vbscript中创建和执行批处理文件？

2 个答案: