GUID for "Inventor Vault" for inventor application 2023

[khadeerkruthi]

hi Team,

The below code will get the GUID of "Vault Standard Data", Similarly I was trying for "Inventor Vault".

Public Sub Main()

Activate()

End Sub

Public Sub Activate()

Dim VaultStandardData As ApplicationAddIn

VaultStandardData = ThisApplication.ApplicationAddIns.ItemById("{3AD251E3-02DD-4B8C-8882-86C97C80E00C}")

VaultStandardData.Activate()
VaultStandardData.LoadAutomatically = True

VaultStandardData.Deactivate()
VaultStandardData.LoadAutomatically = False

End Sub

[bradeneuropeArthur]

Run this piece of code:

And you will find a text file on "C:\ApplicationAddins\"

Public Sub Main()
Dim aa As Inventor.ApplicationAddIn

For Each aa In ThisApplication.ApplicationAddIns
	WriteText(aa.DisplayName & " - "& aa.ClientId, "Addins")
	Next
	
End Sub
	
	Public Sub WriteText(StrTextToWrite As String, Optional strFileName As String = "File3")
        Try
            
            Dim FileNameTekstfile As String = Nothing

            Try

                FileNameTekstfile = strFileName '"UserName
            Catch ex As Exception

            End Try

            Try
                MkDir("C:\ApplicationAddins\")
            Catch ex As Exception

            End Try

            Dim FILE_NAME As String = "C:\ApplicationAddins\ " & FileNameTekstfile & ".txt"

            Dim objWriter As New System.IO.StreamWriter(FILE_NAME, True)

            Try

                objWriter.WriteLine(StrTextToWrite)
            Catch ex As Exception

            End Try

            objWriter.Close()
        Catch ex As Exception

        End Try