The code includes example usage. Here I've created a table to host the VBScript code & settings such as whether the script is interactive, or if it should timeout after a given period. However the script should be easy to alter to run ad hoc scripts also (just amend sp_RunScript from taking an id and fetching the script/parameters to moving the @script, @batchMode, @timeoutSecs variables to the function's parameter list.
The code runs on the host server under the database instance's service account.