просто на aspx странице я делал это так:
- Код: Выделить всё
Imports System.Security.Cryptography
...
Dim clicert As New X509Certificates.X509Certificate
clicert.Import(Request.ClientCertificate.Certificate)
lblInfo.Text = "Subj: " & clicert.Subject & "<br />"
lblInfo.Text = lblInfo.Text & "Hash: " & clicert.GetCertHashString()
но в веб службе не доступен объект Request...