WSHのCurrentDirectoryでもいけそうなのだが…
┌──────────────────────────────────────┐
│Dim objWSH                                                                  │
│Set objWSH = WScript.CreateObject("WScript.Shell")                          │
│MsgBox objWSH.CurrentDirectory                                              │
└──────────────────────────────────────┘
他から呼ばれた場合(*1)に、呼ばれた場所が採用されてしまう。

そのファイル自身の位置を取得するには以下がよい。
┌──────────────────────────────────────┐
│Dim objFSO                                                                  │
│Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")             │
│MsgBox objFSO.getParentFolderName(WScript.ScriptFullName)                   │
└──────────────────────────────────────┘

*1：コマンドプロンプトから実行した場合など
┌──────────────────────────────────────┐
│cscript //nologo VBSCriptファイル.vbs 引数                                  │
└──────────────────────────────────────┘