get current directory vbscript

JavaScript
scriptdir = CreateObject("Scripting.FileSystemObject").GetParentFolderName(WScript.ScriptFullName)
Source

Also in JavaScript: