|
Tengo este código en VBScript funcionando perfectamente en una página asp, necesito incluir este código en una página aspx. Para que compile en aspx unicamente hay que quitar el Set ya que con .NET no se permite. Pero no me funciona ?¿¿¿Qué puedo hacer??? Sabes si hay alguna incompatibilidad????
<%
Dim Objeto,valoresIniciados,ficheroIni,CertifBIN,ficheroCA
Dim validado,cargado, longitud
Dim emisor,titular,email,nserie,serialNumberHex,nombretit,apellido1tit,apellido2tit,niftit
dim handle
'Creamos la instancia del servidor COM mediante su identificador:
Set Objeto = Server.CreateObject ("FNMTFuncionesCOM.Funciones")
'Iniciamos la instancia para obtener un hadle para cada sesion:
handle = Objeto.Inicializar
'Iniciamos las variables a partir del fichero de Ini
'Ubicamos el fichero donde queramos y definimos aqui su ubicacion:
ficheroIni = "C:\\FnmtFunciones.ini"
valoresIniciados = objeto.IniciaValores(handle, ficheroIni, Len(ficheroIni))
'Cargamos el certificado X.509v3 en binario del cliente en la variable "CertifBIN"
'para extraer la informacion que necesitamos:
CertifBIN = Request.ClientCertificate("CERTIFICATE")
longitud = len(CertifBIN)
' Si el S.O. del Servidor Web es XP o superior convertimos en Ceritificado a Unicode
if Objeto.XPoSuperior then
CertifBIN = Objeto.Conv2Unicode (CertifBIN ,longitud)
end if
'Extraemos la información necesaria del certificado:
cargado = Objeto.CargaCertificado(handle, CertifBIN, longitud)
emisor = Objeto.ObtenerEmisor (handle)
titular = Objeto.ObtenerTitular (handle)
email = Objeto.ObtenerEmail (handle)
nserie = Objeto.ObtenerLongSerialNumber (handle)
serialNumberHex = Objeto.ObtenerStringSerialNumber (handle)
nombretit=Objeto.ObtenerNombre (handle)
apellido1tit=Objeto.ObtenerApell1 (handle)
apellido2tit=Objeto.ObtenerApell2 (handle)
niftit=Objeto.ObtenerNIF (handle)
ficheroCA = ""
'*****************************************************************************
'***********Indicamos la ruta o path del certificado raíz de la CA pertinente:
IF ((Instr(1,emisor,"OU=FNMT Clase 2 CA",1))>0) THEN
ficheroCA = "C:\\FNMT_CA.cer"
END IF
'******************************************************************************
'Procedemos a comprobar la validez del certificado:
validado = Objeto.CertificadoValidado(handle, ficheroCA)
'Liberamos la instacia:
Objeto.Finalizar (handle)
'Cuando terminamos con él lo desreferenciamos
Set Objeto = nothing
%>
|