Option ExplicitDim Script, ScriptRunScript = WScript.FullNameScriptRun = lcase(mid(Script, InstrRev(Script, "\")+1))
' Main ProcedureIf not Scriptrun = "cscript.exe" thenWScript.Echo "WScript"Else Wscript.Echo "CScript"End IF