Question

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

我正在尝试将运行脚本的名称（以及其他变量）输出到纯文本文件。除了脚本名称之外，我已经能够获取所需的其他所有内容。我尝试使用WScript和Echo命令，但它们似乎在我的环境中不起作用。这些是PCOMM .mac文件。

预先感谢

以下是到目前为止我尝试过的一些事情：

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

<<<上面的内容适用于Filepath，但不包含宏名称

FileName = CreateObject("Scripting.FileSystemObject").GetFileName(".") <<<上面仅输出“。”

Dim scriptName : scriptName = WScript.ScriptName

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

Dim scriptName : WScript.Echo WScript.ScriptName

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

Function GetName() 
Dim WshShell, objEnv

Set WshShell = CreateObject("WScript.Shell")
Set objEnv = WshShell.Environment("Process")
GetName = objEnv("SCRIPTNAME")

End Function

<<<上面没有输出任何内容。我使用类似的逻辑成功提取了HOMEPATH。

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"

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

1 个答案: