UseWScript

Sub Main
        msgbox "Using " & WScript.Name, 64, "Script Check"
End Sub

Sub UseWScript()
  if (instr(LCase(WScript.FullName),"wscript.exe")=0) then
    Set objShell = CreateObject("WScript.Shell")
    objShell.Run WScript.ScriptFullName
    WScript.echo "Using " & Right(WScript.FullName,11) & ", will now close and launch using WScript"
    WScript.Quit
  else
    'Execute Main process only if using WScript
    Main
  end if
end sub