When accessing vault I use the VaultConnection property to lazy-load vault. So the first point of access is my private variable vConnection, and determining if it exists, is logged in, and can be logged into and out of. My newest log into vault command offers the user a chance to change the login variables, but defaults to the same credentials otherwise. For the user in question, the first auto attempt throws an error, and the second manual attempt succeeds. Same login command either way.
Shared Property VaultConnection As Vault.Currency.Connections.Connection
Get
If vConnection Is Nothing Then
vConnection = LoginVault()
'vConnection = Vault.Forms.Library.Login(Nothing)
If vConnection Is Nothing Then
MsgBox("You must log into vault to continue.")
RaiseEvent Shutdown()
Return Nothing
End If
End If
If vConnection.IsConnected = False Then
vConnection = LoginVault() 'Vault.Forms.Library.Login(Nothing)
End If
Return vConnection
End Get
Set(value As Vault.Currency.Connections.Connection)
If value IsNot Nothing Then
vConnection = value
End If
End Set
End Property
Public Shared Function LoginVault() As Vault.Currency.Connections.Connection
Dim sec As Security = Security.Instance
Dim strVaultServer As String = sec.VaultServer
Dim strVault As String = sec.VaultVault
Dim strUser As String = sec.VaultViewerUsername
Dim strPassword As String = sec.VaultViewerPassword
Dim lgResults As Vault.Results.LogInResult =
VDF.Vault.Library.ConnectionManager.LogIn(strVaultServer, strVault, strUser, strPassword, VDF.Vault.Currency.Connections.AuthenticationFlags.ReadOnly, Nothing)
If lgResults.Success = True Then
Return lgResults.Connection
Else
Dim strErrorMessages As String = String.Empty
For Each ErrMsg As KeyValuePair(Of Vault.Results.LogInResult.LogInErrors, String) In lgResults.ErrorMessages
strErrorMessages += Vault.Results.LogInResult.LogInErrors.GetName(GetType(Vault.Results.LogInResult.LogInErrors), ErrMsg.Key) & vbCr & ErrMsg.Value & vbCr
Next
MsgBox("Unable to log into vault." & vbCr & strErrorMessages)
Dim ehLogin As New ErrorHandler(New System.Exception(strErrorMessages & strVaultServer & " ; " & strVault & " ; " & strUser & " ; " & strPassword))
ehLogin.QuietlyHandleIt()
Try
If MsgBox("Attempt manual login?", MsgBoxStyle.YesNo, "Vault Connection") = MsgBoxResult.Yes Then
Dim conn As Vault.Currency.Connections.Connection = Nothing
conn = LoginVaultManually()
Return conn
End If
Catch ex As Exception
Dim eh As New ErrorHandler(ex)
eh.HandleIt()
End Try
End If
Return Nothing
End Function
Public Shared Function LoginVaultManually() As Vault.Currency.Connections.Connection
Dim sec As Security = Security.Instance
Dim strVaultServer As String = InputBox("Vault Server", "Log Into Vault Manually", sec.VaultServer)
Dim strVault As String = InputBox("Vault", "Log Into Vault Manually", sec.VaultVault)
Dim strUser As String = InputBox("Vault Username", "Log Into Vault Manually", sec.VaultViewerUsername)
Dim strPassword As String = InputBox("Vault Password", "Log Into Vault Manually", sec.VaultViewerPassword)
Dim lgResults As Vault.Results.LogInResult =
VDF.Vault.Library.ConnectionManager.LogIn(strVaultServer, strVault, strUser, strPassword, VDF.Vault.Currency.Connections.AuthenticationFlags.ReadOnly, Nothing)
If lgResults.Success = True Then
Return lgResults.Connection
Else
Dim strErrorMessages As String = String.Empty
For Each ErrMsg As KeyValuePair(Of Vault.Results.LogInResult.LogInErrors, String) In lgResults.ErrorMessages
strErrorMessages += Vault.Results.LogInResult.LogInErrors.GetName(GetType(Vault.Results.LogInResult.LogInErrors), ErrMsg.Key) & vbCr & ErrMsg.Value & vbCr
Next
MsgBox("Unable to manually log into vault." & vbCr & strErrorMessages)
Dim ehLogin As New ErrorHandler(New System.Exception(strErrorMessages & strVaultServer & " ; " & strVault & " ; " & strUser & " ; " & strPassword))
ehLogin.QuietlyHandleIt()
End If
Return Nothing
End Function
jvj
