Wintop 博客

记录日常问题分享和解决方案

vbs脚本关闭所有IE程序

原因:有个自动刷新的程序,几天会卡死一次,想做一个自动关闭打开的vbs 脚本。

代码:

Set wmi=GetObject("winmgmts:\\.")   
Set pro_s=wmi.instancesof("win32_process")   
   
For Each p In pro_s   
    if p.name="iexplore.exe" then p.terminate()   
Next

上面这段代码兼容性不是太好,偶尔会报错,影响计划任务执行,错误关键词:80041002 swbemobjectex

下面的代码是改进版本:

Dim SHApp, SHWin
 
Set SHApp = CreateObject("Shell.Application")
For Each SHWin In SHApp.windows
    If LCase(Right(SHWin.FullName, 12)) = "iexplore.exe" Then SHWin.Quit
Next
Set SHApp = Nothing

上面的代码兼容性好,但是对于打开多个选项卡的IE,需要把提示确认关闭。

发表评论:

Copyright Wintop.Org. All Rights Reserved.

鲁ICP备17016787号