Как я могу извлечь имя запущенных скриптов, используя PCOMM VBScript

Question

Первый раз, поэтому, пожалуйста, прости меня, если я что-то пропустил.

Я пытаюсь вывести имя запущенного скрипта (вместе с другими переменными) в простой текстовый файл. Я смог получить все остальное, что мне нужно, кроме имени сценария. Я пытался использовать команды WScript и Echo, но они не работают в моей среде. Это файлы PCOMM .mac.

Заранее спасибо

Вот некоторые вещи, которые я пробовал до сих пор:

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

<<< Вышеуказанное работает для Filepath, но не включает имя макроса </p>

FileName = CreateObject("Scripting.FileSystemObject").GetFileName(".") <<< Выше просто выводит "." </p>

Dim scriptName : scriptName = WScript.ScriptName

<<< Выше приведено сообщение об ошибке: переменная не определена: 'WScript' </p>

Dim scriptName : WScript.Echo WScript.ScriptName

<<< Выше приведено сообщение об ошибке: переменная не определена: 'WScript' </p>

Function GetName() 
Dim WshShell, objEnv

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

End Function 

<<< Выше ничего не выводится. Я использовал подобную логику для успешного извлечения HOMEPATH. </p>

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"