Function GetVbsExecutePath() GetVbsExecutePath = Replace(WScript.ScriptFullName, WScript.ScriptName, "") End Function