请VBS高手帮忙写个VBS代码4

发布网友发布时间：2023-11-04 02:13

共2个回答

热心网友时间：2024-08-09 04:02

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")

热心网友时间：2024-08-09 04:05

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