Я нашел способ сделать это, используя некоторые переменные сервера. Кто-нибудь может поручиться за возможные ошибки таким образом?
function getRoot()
pathinfo=Request.ServerVariables("PATH_INFO")
Set myRegExp = New RegExp
myRegExp.IgnoreCase = True
myRegExp.Global = True
myRegExp.Pattern = "^(/\w*/).*"
' Pop up a message box for each match
getRoot = myRegExp.Replace (pathinfo, "$1")
end function