Created November 2006. Posted August 2016.
Call the native version of a VBScript object
Let's say you've redefined a VBScript item, for example a function like
Left. How would you call the original version of that function if you needed to?
To be honest, I wrote this so long ago I can't remember why I wrote it. But here it is.
<% Option Explicit ' This redefines the "left" function Function Left(mystring,mynumber) Left = Right(mystring,mynumber) End Function Dim sc, cmd ' This code is the way to get to the "real" old version set sc = CreateObject("MSScriptControl.ScriptControl") ' set the language sc.Language = "VBScript" ' what command do you want to call? cmd = "Left(""hello"",1)" Response.Write "<hr>" Response.Write Eval(cmd) Response.Write "<hr>" Response.Write Left("hello", 1) Response.Write "<hr>" ' here we call the one that produces the right result Response.Write sc.Eval(cmd) Response.Write "<hr>" %>