option explicit

if fEngCHK() then wscript.quit

function fEngCHK()
dim OBJX, strARG, i, s
  EngCHK=0
  if instr(1,wscript.fullname,"\wscript.exe",1)=0 then exit function
  
    set OBJX = wscript.arguments
    strARG=""
    if OBJX.count then
      for i=0 to OBJX.count-1
        s=OBJX(i)
        if instr(1,s," ",0) then s=""""& s &""""
        strARG=strARG &" "& s
      next
    end if
    set OBJX=nothing
    s="cscript //nologo """& wscript.ScriptFullName &""""& strARG
    set OBJX = createobject("wscript.shell")
    OBJX.run s,1,0
    set OBJX=nothing
    EngCHK=-1
end function

wscript.echo "начало длиииииительного скрипта"
wscript.sleep 5000
' Ваш скрипт с выводом успокоительных сообщений в stdout
' ...
wscript.quit 0