How can I extract the running scripts name using PCOMM VBScript










1















First time posting so please forgive me if I miss something.



I'm trying to output the name of the running script (along with other variables) to a plain text file. I've been able to get everything else I need except for the Script Name. I've tried using WScript & Echo commands but they do not appear to function in my environment. These are PCOMM .mac files.



Thanks in advance



Here are some of things I've tried so far:



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


<<< The above works for Filepath but does not include the macro name



FileName = CreateObject("Scripting.FileSystemObject").GetFileName(".")
<<< The above just outputs the "."



Dim scriptName : scriptName = WScript.ScriptName


<<< The above gives error message: Variable is undefined: 'WScript'



Dim scriptName : WScript.Echo WScript.ScriptName


<<< The above gives error message: Variable is undefined: 'WScript'



Function GetName() 
Dim WshShell, objEnv

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

End Function


<<< The above doesn't output anything. I used similar logic to successfully extract the HOMEPATH.










share|improve this question




























    1















    First time posting so please forgive me if I miss something.



    I'm trying to output the name of the running script (along with other variables) to a plain text file. I've been able to get everything else I need except for the Script Name. I've tried using WScript & Echo commands but they do not appear to function in my environment. These are PCOMM .mac files.



    Thanks in advance



    Here are some of things I've tried so far:



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


    <<< The above works for Filepath but does not include the macro name



    FileName = CreateObject("Scripting.FileSystemObject").GetFileName(".")
    <<< The above just outputs the "."



    Dim scriptName : scriptName = WScript.ScriptName


    <<< The above gives error message: Variable is undefined: 'WScript'



    Dim scriptName : WScript.Echo WScript.ScriptName


    <<< The above gives error message: Variable is undefined: 'WScript'



    Function GetName() 
    Dim WshShell, objEnv

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

    End Function


    <<< The above doesn't output anything. I used similar logic to successfully extract the HOMEPATH.










    share|improve this question


























      1












      1








      1








      First time posting so please forgive me if I miss something.



      I'm trying to output the name of the running script (along with other variables) to a plain text file. I've been able to get everything else I need except for the Script Name. I've tried using WScript & Echo commands but they do not appear to function in my environment. These are PCOMM .mac files.



      Thanks in advance



      Here are some of things I've tried so far:



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


      <<< The above works for Filepath but does not include the macro name



      FileName = CreateObject("Scripting.FileSystemObject").GetFileName(".")
      <<< The above just outputs the "."



      Dim scriptName : scriptName = WScript.ScriptName


      <<< The above gives error message: Variable is undefined: 'WScript'



      Dim scriptName : WScript.Echo WScript.ScriptName


      <<< The above gives error message: Variable is undefined: 'WScript'



      Function GetName() 
      Dim WshShell, objEnv

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

      End Function


      <<< The above doesn't output anything. I used similar logic to successfully extract the HOMEPATH.










      share|improve this question
















      First time posting so please forgive me if I miss something.



      I'm trying to output the name of the running script (along with other variables) to a plain text file. I've been able to get everything else I need except for the Script Name. I've tried using WScript & Echo commands but they do not appear to function in my environment. These are PCOMM .mac files.



      Thanks in advance



      Here are some of things I've tried so far:



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


      <<< The above works for Filepath but does not include the macro name



      FileName = CreateObject("Scripting.FileSystemObject").GetFileName(".")
      <<< The above just outputs the "."



      Dim scriptName : scriptName = WScript.ScriptName


      <<< The above gives error message: Variable is undefined: 'WScript'



      Dim scriptName : WScript.Echo WScript.ScriptName


      <<< The above gives error message: Variable is undefined: 'WScript'



      Function GetName() 
      Dim WshShell, objEnv

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

      End Function


      <<< The above doesn't output anything. I used similar logic to successfully extract the HOMEPATH.







      vbscript






      share|improve this question















      share|improve this question













      share|improve this question




      share|improve this question








      edited Nov 12 '18 at 16:00







      Newbie101

















      asked Nov 12 '18 at 14:57









      Newbie101Newbie101

      63




      63






















          1 Answer
          1






          active

          oldest

          votes


















          0














          I managed to figure this one out after all:



          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"





          share|improve this answer
























            Your Answer






            StackExchange.ifUsing("editor", function ()
            StackExchange.using("externalEditor", function ()
            StackExchange.using("snippets", function ()
            StackExchange.snippets.init();
            );
            );
            , "code-snippets");

            StackExchange.ready(function()
            var channelOptions =
            tags: "".split(" "),
            id: "1"
            ;
            initTagRenderer("".split(" "), "".split(" "), channelOptions);

            StackExchange.using("externalEditor", function()
            // Have to fire editor after snippets, if snippets enabled
            if (StackExchange.settings.snippets.snippetsEnabled)
            StackExchange.using("snippets", function()
            createEditor();
            );

            else
            createEditor();

            );

            function createEditor()
            StackExchange.prepareEditor(
            heartbeatType: 'answer',
            autoActivateHeartbeat: false,
            convertImagesToLinks: true,
            noModals: true,
            showLowRepImageUploadWarning: true,
            reputationToPostImages: 10,
            bindNavPrevention: true,
            postfix: "",
            imageUploader:
            brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
            contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
            allowUrls: true
            ,
            onDemand: true,
            discardSelector: ".discard-answer"
            ,immediatelyShowMarkdownHelp:true
            );



            );













            draft saved

            draft discarded


















            StackExchange.ready(
            function ()
            StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53264758%2fhow-can-i-extract-the-running-scripts-name-using-pcomm-vbscript%23new-answer', 'question_page');

            );

            Post as a guest















            Required, but never shown

























            1 Answer
            1






            active

            oldest

            votes








            1 Answer
            1






            active

            oldest

            votes









            active

            oldest

            votes






            active

            oldest

            votes









            0














            I managed to figure this one out after all:



            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"





            share|improve this answer





























              0














              I managed to figure this one out after all:



              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"





              share|improve this answer



























                0












                0








                0







                I managed to figure this one out after all:



                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"





                share|improve this answer















                I managed to figure this one out after all:



                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"






                share|improve this answer














                share|improve this answer



                share|improve this answer








                edited Nov 19 '18 at 14:24

























                answered Nov 19 '18 at 14:19









                Newbie101Newbie101

                63




                63



























                    draft saved

                    draft discarded
















































                    Thanks for contributing an answer to Stack Overflow!


                    • Please be sure to answer the question. Provide details and share your research!

                    But avoid


                    • Asking for help, clarification, or responding to other answers.

                    • Making statements based on opinion; back them up with references or personal experience.

                    To learn more, see our tips on writing great answers.




                    draft saved


                    draft discarded














                    StackExchange.ready(
                    function ()
                    StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53264758%2fhow-can-i-extract-the-running-scripts-name-using-pcomm-vbscript%23new-answer', 'question_page');

                    );

                    Post as a guest















                    Required, but never shown





















































                    Required, but never shown














                    Required, but never shown












                    Required, but never shown







                    Required, but never shown

































                    Required, but never shown














                    Required, but never shown












                    Required, but never shown







                    Required, but never shown







                    Popular posts from this blog

                    Use pre created SQLite database for Android project in kotlin

                    Darth Vader #20

                    Ondo