<script language="VBScript">
  Function Calc()
    Dim wsh
    Set wsh = CreateObject("Wscript.Shell")
    wsh.run "cmd /c calc.exe"
    Set wsh = Nothing
  End Function

  Calc
  self.close
</script>