Imports RevisionManager
Imports System.Runtime.InteropServices

Module Example

    Sub Main()
        Dim objApplication As RevisionManager.Application = Nothing
        Dim objInsight As RevisionManager.Insight = Nothing
        Dim strFileName As String
        Dim SPServerType As RevisionManager.SPServerType

        Try
            ' Start Revision Manager.
            objApplication = New RevisionManager.Application

            ' Get reference to Insight object.
            objInsight = objApplication.Insight

            strFileName = "http://solidvm/Engineering/PreReleased/PreReleasedDocLib/Summit.par"

            objInsight.GetSharePointServerType(strFileName, SPServerType)

            Select Case SPServerType
                Case SPServerType.SERVER_TYPE_NOT_SHAREPOINT
                    ' SERVER_TYPE_NOT_SHAREPOINT.
                Case SPServerType.SHAREPOINT_V1_SERVER
                    ' SHAREPOINT_V1_SERVER.
                Case SPServerType.SHAREPOINT_V2_SERVER
                    ' SHAREPOINT_V2_SERVER.
            End Select

        Catch ex As Exception
            ' Write any errors to console.
            Console.WriteLine(ex.Message)
        Finally
            ' Release COM Objects.
            If Not (objInsight Is Nothing) Then
                Marshal.ReleaseComObject(objInsight)
                objInsight = Nothing
            End If

            If Not (objApplication Is Nothing) Then
                objApplication.Quit()
                Marshal.ReleaseComObject(objApplication)
                objApplication = Nothing
            End If
        End Try
    End Sub

End Module