1 Reply Latest reply on Jun 5, 2017 1:06 PM by Patrick.Cashman

    Automation Manager malfunction


      I frequently loose my whole CustomTools menu when I try to change something using Automation Manager.

      What I did so far:


      I created a CustomTools menu for xDxDesigner with a few script entries. With some try&error it finally worked well.

      To edit existing entries (e.g. renaming) I do as follows:

      • open Automation Manager
      • load DxDesigner scheme
      • select the script to be edited
      • click "Edit" button
      • change entry in "Name to display"
      • click "OK"
      • save changes by "Options - Save"

      This results in

      • an empty CustomTools menu, no entries in this menu any more
      • all "...OnAction" rows in DxDStartup.vbs are gone
      • all "Path=..." entries in AM_DxDesigner.xml are missing


      Maybe I did something wrong with the setup of pathes or environment variable (?).

      These look as follows:







      <?xml version="1.0" encoding="utf-8"?>


        <MenuItem Name="CustomTools">

        <Script Name="Scout Page Order - Log hierarchical paths to file in Project dir." Enabled="True" Expanded="False" Path="Y:\Wilfried_Bauer\CentralLibrary_VX\CorporateConfig\CustomTools\DxDesigner\scoutpageorder\scoutpageorder.vbs" />

        <Script Name="AutoAdd Cluster Properties through hierarchy" Enabled="True" Expanded="False" Path="Y:\Wilfried_Bauer\CentralLibrary_VX\CorporateConfig\CustomTools\DxDesigner\add_cluster_gproperties\add_cluster_core.vbs" />





      'This startup script was auto generated by Automation Manager - v1.5.7.1117

      Option Explicit


      Dim MenuBar

      Set MenuBar = CommandBars("Sheet Menu Bar")


      Dim SDDAU_env

      SDDAU_env = Scripting.GetEnvVariable("SDD_Automation_Utilities")

      Dim CustomToolsMenu, CustomToolsMenuCtrls

      Set CustomToolsMenu = MenuBar.Controls.Add(cmdControlPopup,,,9)

      CustomToolsMenu.Caption = "CustomTools"



      Dim scoutpageorder

      Set scoutpageorder = CustomToolsMenu.Controls.Add

      scoutpageorder.Caption = "Scout Page Order - Log hierarchical paths to file in Project dir."

      scoutpageorder.OnAction = "run """ & SDDAU_env & "\DxDesigner\scoutpageorder\scoutpageorder.vbs"""

      scoutpageorder.Enabled = True



      Dim add_cluster_gui

      Set add_cluster_gui = CustomToolsMenu.Controls.Add

      add_cluster_gui.Caption = "AutoAdd Cluster Properties through hierarchy"

      add_cluster_gui.OnAction = "run """ & SDDAU_env & "\DxDesigner\add_cluster_properties\add_cluster_core.vbs"""

      add_cluster_gui.Enabled = True


      SDD_Automation_Utilities environment variable



      Would be helpful for me to get a hint on what I'm doing wrong.

      Thanks for help and best regards