VBSでカレントディレクトリを取得

WSH 
'カレントディレクトリを表示
Set objWshShell = CreateObject("WScript.Shell")
WScript.echo "現在の作業ディレクトリ= " & objWshShell.CurrentDirectory

ネタ元