Получить текущий каталог VBScript

scriptdir = CreateObject("Scripting.FileSystemObject").GetParentFolderName(WScript.ScriptFullName)
Colorful Cardinal