WSCRIPT取得当前执行路径

test.bat

mode con lines=2000
cscript.exe /x E:\PersonalSet\Desktop\test.vbs
pause

test.vbs

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
StrCurPath = fso.GetFolder(".")
WScript.StdOut.WriteLine StrCurPath

-----------------------------------------------------------------------

结果是输出了test.bat所在路径