• RSS
  • Twitter
  • FaceBook

Welcome to ISAserver.org

Forums | Register | Login | My Profile | Inbox | RSS RSS icon | My Subscription | My Forums | Address Book | Member List | Search | FAQ | Ticket List | Log Out

Certificate error

Users viewing this topic: none

Logged in as: Guest
  Printable Version
All Forums >> [ISA 2006 General] >> Installation and Planning >> Certificate error Page: [1]
Login
Message << Older Topic   Newer Topic >>
Certificate error - 12.Jul.2011 7:41:49 AM   
Xavier_arena

 

Posts: 18
Joined: 11.Apr.2011
Status: offline
i enabling access to the Exchange Server for clients that use Outlook Web Access (OWA). i configure ISA Server to use SSL Bridging, because want to encrypt the connection with the SSL protocol (HTTPS),  also want to inspect the traffic at the ISA Server computer.




Here is the log :-


1.     ISA Server was unable to establish an SSL connection with
      corp.contoso.com. The received certificate has expired.

      The failure is due to error: The received certificate has expired.
    
2.    ISA Server could not establish an SSL connection with the published     server corp .contoso.com on port 443 because the SSL server certificate used by the published server expired or is not yet valid.
Contact the Web server administrator






The Certificate details




'--------------------
' CertLoad.vbs
'
' Imports certificate from file in user store or machine store
'
' Author:  feroz
' Date:    17-Jul-2006
' Version: 1.0c (build 5)
'
' Copyright (c) 2006
' Do not distribute or publish this file.
'
'--------------------

Option Explicit

' CAPICOM constants
const ccStore_LocalMachine    = 1
const ccStore_CurrentUser     = 2

const ccOpenMode_Write        = 1

const ccStorage_Default       = 0
const ccStorage_Exportable    = 1
const ccStorage_UserProtected = 2

Main

Sub Main
'-------
dim msg, yn

msg = "CertLoad will import the following certificate:"   & vbCr & _
       ""                                                  & vbCr & _
       "    " & "corp.contoso.com.pfx - local machine store"  & vbCr & _
       ""                                                  & vbCr & _
       "Are you sure you want to import this certificate?" & vbCr & _
       ""
yn = MsgBox(msg, vbQuestion + vbYesNo + vbDefaultButton2, "CertLoad")

if yn = vbYes then
   ImportCert ccStore_LocalMachine, "corp.contoso.com.pfx", "password"

   MsgBox "Import of the certificate is completed.", vbInformation + vbOKOnly, "CertLoad"
end if
End Sub

Sub ImportCert(StoreLocation, CertFile, CertPassword)
'----------------------------------------------------
' Imports certificate into store
dim thispath, store

thispath = left(WScript.ScriptFullName,InStrRev(WScript.ScriptFullName,"\")-1)  'no trailing \

set store = CreateObject("CAPICOM.Store")

store.Open StoreLocation, "MY", ccOpenMode_write

On Error Resume Next
   store.Load thispath & "\" & CertFile, CertPassword, ccStorage_Exportable

   if err.Number <> 0 then
     MsgBox "Error - Unable to import certificate " & CertFile & "." & _
            vbCr & vbCr & err.Description, _
            vbExclamation + vbOkOnly, _
            "CertLoad"
   end if
On Error Goto 0

store.Close
End Sub

_____________________________

Xavier
Post #: 1

Page:   [1] << Older Topic    Newer Topic >>
All Forums >> [ISA 2006 General] >> Installation and Planning >> Certificate error Page: [1]
Jump to:

New Messages No New Messages
Hot Topic w/ New Messages Hot Topic w/o New Messages
Locked w/ New Messages Locked w/o New Messages
 Post New Thread
 Reply to Message
 Post New Poll
 Submit Vote
 Delete My Own Post
 Delete My Own Thread
 Rate Posts