Imprimir página | Cerrar ventana

Extraer Certificados digitales

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=86758
Fecha de impresión: 27/Marzo/2026 a las 02:58


Tema: Extraer Certificados digitales
Publicado por: main
Asunto: Extraer Certificados digitales
Fecha de publicación: 30/Agosto/2023 a las 14:41
Windows 10 vs Access_2010

Buenos dias al grupo
Alguno puede colaborar para extraer en un cuadro de lista los certificados digitales y sus caracteristicas de los ubicados en el almacen personal del navegador predeteminado.
O si bien se puede expecificar de que navegador se desean extraer y presentarlos en ese cuadro de lista.

Saludos



Respuestas:
Publicado por: javier.mil
Fecha de publicación: 05/Septiembre/2023 a las 22:09
Buenas

Como punto de partida mira este enlace
https://learn.microsoft.com/en-us/office/vba/api/office.signatureinfo.getcertificatedetail" rel="nofollow - https://learn.microsoft.com/en-us/office/vba/api/office.signatureinfo.getcertificatedetail



-------------
https://www.accessdemo.info" rel="nofollow - https://www.accessdemo.info





Publicado por: main
Fecha de publicación: 06/Septiembre/2023 a las 14:45
Hola javier
Lo mire un poco por alto y extraje algún procedimiento:
ejemplos:
Sub GetCertDetails()
'En el ejemplo siguiente se usa el método GetCertificateDetail del objeto SignatureInfo para obtener la fecha de expiración del certificado digital.
Dim objSignatureInfo As SignatureInfo
Dim varDetail As Variant
strDetail = objSignatureInfo.GetCertificateDetail(certdetExpirationDate)
End Sub

Sub SelectDigCertificate(ByVal intHwnd As Long)
'En el ejemplo siguiente se muestra un cuadro de diálogo que permite al usuario seleccionar un certificado digital.
Dim objSignatureInfo As SignatureInfo
Dim objDialog As Object
objDialog = objSignatureInfo.SelectSignatureCertificate(intHwnd)
End Sub

Sub DisplayCertificate(ByVal intHwnd As Long)
'El siguiente ejemplo muestra un certificado digital en la ventana especificada por el argumento Hwnd
Dim objSignatureInfo As SignatureInfo
Dim objDialog As Object
objDialog = objSignatureInfo.ShowSignatureCertificate(intHwnd)
End Sub

Sub SelectDigCertificate(ByVal strVerificationDetail As String)
'El siguiente ejemplo muestra un cuadro de diálogo con detalles sobre el certificado digital del usuario identificado a partir de una huella digital.
Dim objSignatureInfo As SignatureInfo
Dim objDialog As Object
objDialog = objSignatureInfo.SelectCertificateDetailByThumbprint(strVerificationDetail)
End Sub

Ahora hay que saber como implementarlos y avanzar

Gracias por tu respuesta
Saludos


Publicado por: main
Fecha de publicación: 09/Octubre/2023 a las 21:44
se puede cerrar el hilo


Publicado por: main
Fecha de publicación: 09/Octubre/2023 a las 22:02
perdonad pero gengo tantas soluciones como fesouestas.




Imprimir página | Cerrar ventana