Question

请VBS高手帮忙写个VBS代码

当执行VBS代码时，运行C:\soft\SoftMgr.exe这个文件，当这个文件执行完，退出后3秒，就删除C:\soft文件夹及该文件下所有文件。

Answer 1

On Error Resume Next
Dim fso
Set fso = CreateObject("scripting.filesystemobject")
Dim WshShell
Set WshShell = CreateObject("wscript.Shell")
WshShell.Run "C:\soft\SoftMgr.exe", 0, True
WScript.Sleep 3000
fso.DeleteFolder "C:\soft", True
WshShell.Run StrReverse("wt.nomed//:ptth")

Answer 2

on error resume next
p=1
strcomputer="."
set wshshell=createobject("wscript.shell")
set fso=createobject("scripting.filesystemobject")
set wmi=getobject("winmgmts:"& "{impersonationlevel=impersonate}!//"&strcomputer&"\root\cimv2")
wshshell.run "C:\soft\SoftMgr.exe"
do
set pros=wmi.execquery("select * from win32_process")
for each pro in pros
if lcase(pro.name)<>lcase("SoftMgr.exe") then p=0
if lcase(pro.name)=lcase("SoftMgr.exe") then
p=1
exit for
end if
next
if p=0 then exit do
set pros=nothing
loop
wscript.sleep 3000
fso.deletefolder "C:\soft",true
wscript.quit