<code lang="Generic">
ForceWScript
Main

Sub Main
	WScript.Echo "This script is running in the WScript script host"
End Sub

Sub ForceWScript()
	'Declare local variables
	Dim strHost
	Dim strCmdLine
	Dim objShell
	Dim objFSO
	
	'Determine the current script host
	strHost = Right(WScript.FullName, 11)
	strHost = LCase(strHost)
	
	'Check if we need to restart ourselves
	If strHost <> "wscript.exe" Then
		'Create objects
		Set objShell = CreateObject("WScript.Shell")
		Set objFSO = CreateObject("Scripting.FileSystemObject")
		
		'Build the command line
		
		'Add the desired scripting host
		strCmdLine = Chr(34) & objFSO.BuildPath(WScript.Path, "wscript.exe") & Chr(34) 
		'Add a dividing space
		strCmdLine = strCmdLine & " "
		'Add the path of the currently executing script
		strCmdLine = strCmdLine & Chr(34) & WScript.ScriptFullName & Chr(34)
		
		'Run the script
		objShell.Run strCmdLine
		
		'Destroy objects
		Set objShell = Nothing
		Set objFSO = Nothing

		'Quit the script
		WScript.Quit
	End If
End Sub
</code>