O caminho completo e o nome do script é fácil, agora para pegar só o diretório tem que calcular.
Veja o exemplo abaixo que retorna estes três valores.
WScript.Echo WScript.scriptFullName
WScript.Echo WScript.ScriptName
iPos = instr(WScript.scriptFullName,WScript.ScriptName) - 1
strDir = left(WScript.scriptFullName,iPos)
wscript.echo strDir
Fábio de Paula Junior