WSHにドラッグ＆ドロップした場合のカレントディレクトリの取得について

VBScriptをドラッグ＆ドロップにて実行した場合、以下の方法ではカレントディレクトリのパスが取れない。

1. Option Explicit
2. 
   
3. Dim objShell
4. Set objShell = CreateObject("WScript.Shell")
5. 
   
6. 'カレントディレクトリのパスを取得
7. MsgBox objShell.CurrentDirectory
8. 
   
9. Set objShell = Nothing

なぜか、


WindowsXPの場合：C:\Documents and Settings\[ユーザー名]
Windows7の場合：C:\Windows\System32


となってしまう。
VBScriptをどこにおいても、またドラッグ＆ドロップするファイルが存在するパスに関係なく、このフォルダをカレントディレクトリと誤認する。
ただし、特殊フォルダのパスを取得することは可能。

1. Option Explicit
2. 
   
3. Dim objShell
4. Set objShell = CreateObject("WScript.Shell")
5. 
   
6. 'デスクトップのパスを取得
7. MsgBox objShell.SpecialFolders("Desktop")
8. 
   
9. Set objShell = Nothing