Listing 1: The VBScript Version of the ScriptHost Function

' BEGIN CALLOUT A
Function ScriptHost()
  ScriptHost = LCase(Mid(WScript.FullName, Len(WScript.Path) + 2))
End Function
' END CALLOUT A

WScript.Echo "This script is being executed by " & ScriptHost()