Option Explicit

Dim WSHSHell
Dim iAns

Set WSHSHell=CreateObject("WScript.Shell")

WSHShell.Run """C:\WINDOWS\system32\DeleteOldTempFile.exe""",1,true

iAns = WSHShell.Popup("Nyushukkaを起動しています。そのままお待ち下さい...", 5, "Nyushukka", vbInformation)

Select Case iAns
Case vbOK
WScript.sleep(5000)
End Select 

WSHShell.Run """C:\Program Files\Nyushukka\Nyushukka.exe""",1,false

Set WSHShell = Nothing