Devi fare così:
codice:
dim fobj 

set fobj = createobject("scripting.filesystemobject")

path = fobj.getabsolutePathname("") 

msgbox path

set fobj = nothing
Praticamente il percorso del tuo file.vbs è nella variabile "path"

Ciao