Imports System.Runtime.InteropServices

Public Class Form1

    Private Sub GetDocumentUIDEx_Click(sender As Object, e As EventArgs) Handles GetDocumentUIDEx.Click
        Dim objSEApplication As SolidEdgeFramework.Application = Nothing
        Dim objTCE As SolidEdgeFramework.SolidEdgeTCE = Nothing
        Dim majorVersion As Object = Nothing
        Dim completeVersion As Object = Nothing
        Dim UserName As String
        Dim Password As String
        Dim Group As String
        Dim Role As String
        Dim URL As String
        Dim bTeamCenterMode As Boolean
        Dim FileName As String = "C:\Users\xxx\AppData\Roaming\Unigraphics Solutions\Solid Edge\SEEC\http_xxxx_7001_tc\xxx\Default\001960-25957.par"
        Dim ItemID As String = ""
        Dim RevID As String = ""
        Dim ItemUID As String = ""
        Dim RevUID As String = ""


        Try
            objSEApplication = Marshal.GetActiveObject("SolidEdge.Application")
            objSEApplication.DisplayAlerts = False

            objTCE = objSEApplication.SolidEdgeTCE
            Call objTCE.GetTeamCenterMode(bTeamCenterMode)
            If bTeamCenterMode = False Then
                objTCE.SetTeamCenterMode(True)
            End If
            'Specify Server Credentials
            UserName = "abc"
            Password = "abc"
            Group = ""
            Role = ""
            URL = "http://Servername:8085/tc"

            Call objTCE.ValidateLogin(UserName, Password, Group, Role, URL)
            objTCE.GetDocumentUIDEx(FileName, ItemID, RevID, ItemUID, RevUID)


        Catch ex As Exception
            MsgBox(ex.ToString)
            Clipboard.SetText(ex.ToString)
        End Try
    End Sub
End Class