Obtenha o diretório atual VBScript

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