Dim cert As New System.Security.Cryptography.X509Certificates.X509Certificate TryDim hcs As HttpClientCertificate = page.Request.ClientCertificate If hcs Is Nothing Then Return Nothing End Ifcert = New System.Security.Cryptography.X509Certificates.X509Certificate(hcs.Certificate)If cert Is Nothing Then Return Nothing End IfCatch ex As ExceptionEnd TryDim caID As String caID = cert.GetSerialNumberString
TryDim hcs As HttpClientCertificate = page.Request.ClientCertificate
If hcs Is Nothing Then
Return Nothing
End Ifcert = New System.Security.Cryptography.X509Certificates.X509Certificate(hcs.Certificate)If cert Is Nothing Then
Return Nothing
End IfCatch ex As ExceptionEnd TryDim caID As String
caID = cert.GetSerialNumberString