可以用如下代码实现：

Set WshShell= CreateObject(”WScript.Shell”)
projectRoot = WshShell.ExpandEnvironmentStrings(”%path%”)