Listing 2: SampleScript.vbs

checkengine

' BEGIN COMMENT
' This message will run from CScript instead of WScript.
' END COMMENT
Set WshShell = WScript.CreateObject("WScript.Shell")
WScript.Echo "Hello, script running in CScript mode now."
WScript.Sleep 5000
WScript.Echo "Hello again, it is true my script is running in CScript mode!"
WScript.Sleep 5000

Sub checkengine
  pcengine = LCase(Mid(WScript.FullName, InstrRev(WScript.FullName,"\")+1))
  If Not pcengine="cscript.exe" Then
    Set WshShell = CreateObject("WScript.Shell")
    WshShell.Run "CSCRIPT.EXE """ & WScript.ScriptFullName & """"
    WScript.Quit
  End If
End Sub