也许是好东西——Windows Script Host-4[获取当前目录]

'*************************************************
' File:     CurrentDir.vbs (WSH sample in VBScript)
' Autor:    (c) G. Born
'
' Retrieving the current directory
'*************************************************
Option Explicit
WScript.Echo "Script Path: ", GetPath(), vbCrLf, _
        "Current Directory: ", CurrentDir()
WScript.Quit    ' Terminate script.
Function CurrentDir
    Dim fso
    Set fso = WScript.CreateObject("Scripting.FileSystemObject")
    CurrentDir = fso.GetAbsolutePathName(".")
End Function
Function GetPath
    ' Retrieve path to the script file
    Dim path
    path = WScript.ScriptFullName    ' Script file name
    GetPath = Left(path, InstrRev(path, ""))
End Function
'*** End

补充：asp教程,高级应用