リファレンス、WshShell オブジェクト、CurrentDirectory プロパティ

まんま

Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WScript.Echo WshShell.CurrentDirectory