Solution
You can use the variables CurrentScriptName and CurrentScriptPath. The following code returns the file path and name of the VBScript.
dim Spath : Spath = CurrentScriptPath
dim Sname : Sname = CurrentScriptName
Call MsgBoxDisp(Spath)
Call MsgBoxDisp(Sname)