changes

GUIs.ClientSuite/ClassService.vb

@@ -1,8 +1,10 @@
 Imports System.ServiceModel
 Imports System.ServiceModel.Channels
 Imports DigitalData.Modules.Logging
+Imports DigitalData.Modules.EDMIAPI
 Imports DigitalData.Modules.EDMIAPI.IDBServiceReference
 Imports DigitalData.GUIs.ClientSuite.Base
+Imports System.ServiceModel.Security
 
 Public Class ClassService
     Inherits BaseClass
@@ -11,6 +13,7 @@ Public Class ClassService
         Successful
         NotFound
         EmptyURI
+        Authentication
         Unknown
     End Enum
 
@@ -60,6 +63,9 @@ Public Class ClassService
                                                Catch ex As UriFormatException
                                                    Logger.Error(ex)
                                                    Return ConnectionTestResult.EmptyURI
+                                               Catch ex As SecurityNegotiationException
+                                                   Logger.Error(ex)
+                                                   Return ConnectionTestResult.Authentication
                                                Catch ex As Exception
                                                    Logger.Error(ex)
                                                    Return ConnectionTestResult.Unknown
@@ -93,5 +99,4 @@ Public Class ClassService
 
         Return oBinding
     End Function
-
 End Class