如何使用PCOMM VBScript提取正在运行的脚本名称

Question

第一次发布，所以如果我错过了什么，请原谅我。

我试图将运行脚本的名称(以及其他变量(输出到一个纯文本文件中。除了"脚本名称"，我已经能够获得所需的所有其他内容。我尝试过使用WScript&回显命令，但它们在我的环境中似乎不起作用。这些是PCOMM.mac文件。

提前感谢

以下是我迄今为止尝试过的一些东西：

FilePath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".")` 

<lt<以上适用于Filepath，但不包括宏名称

FileName = CreateObject("Scripting.FileSystemObject").GetFileName(".")<lt<以上只是输出".">

Dim scriptName : scriptName = WScript.ScriptName

<lt<上面给出了错误消息：变量未定义："WScript">

Dim scriptName : WScript.Echo WScript.ScriptName

<lt<上面给出了错误消息：变量未定义："WScript">

Function GetName() 
Dim WshShell, objEnv
Set WshShell = CreateObject("WScript.Shell")
Set objEnv = WshShell.Environment("Process")
GetName = objEnv("SCRIPTNAME")
End Function 

<lt<以上内容没有输出任何内容。我使用了类似的逻辑成功地提取了主页。

Answer 1

我终于弄明白了这一点：

REM Initialize the session
sHandle = autECLConnMgr.autECLConnList(1).Handle
REM Connect to the current session
sHandle = autECLSession.Handle
msgbox("Variable Check: " & ThisMacroName), vbOKOnly, "Validation check"