┌──────────────────────────────────────┐
│Dim SHELL                                                                   │
│Set SHELL = WScript.CreateObject("Wscript.Shell")                           │
│MsgBox SHELL.CurrentDirectory                                               │
└──────────────────────────────────────┘
上記みたいにカレントディレクトリを取得する場合
Windowsタスクスケジューラから実行すると
「C:\Windows\system32」とかになるから気をつけろ～！