Bonjour a tous.
Voila j'ai créer une page web qui installe automatiquement un cetificat dans le but de vérifier l'authenticité d'un active x que je propose par la suite.
Voici le code :
<html>
<head>
<title>Installation du Certificat</title>
</head>
<body LANGUAGE="VBScript" ONLOAD="InstallCert">
<script language="VBSCRIPT">
Sub InstallCert
credentials = "MIIK9gYJKoZIhvcNAQcCoIIK5zCCCuMCAQMxCzAJBgUrDgMCGgUAMH0GCCsGAQUF" & _
"BwwDoHEEbzBtMGcwIQIBAQYIKwYBBQUHBwExEjAQAgEAMAMCAQEMBklzc3VlZDBC" & _
"AgECBgorBgEEAYI3CgoBMTEwLwIBADVnB6EBMSUwIwYJKwYBBAGCNxURMRYEFKWz" & _
"6WBuBaiBFDTxIIHG59fP9UNiMAAwAKCCCWkwggLtMIIB1aADAgECAgENMA0GCSqG" & _
"SIb3DQEBBQUAMDsxCzAJBgNVBAYTAkdCMREwDwYDVQQKEwhBc2NlcnRpYTEZMBcG" & _
"A1UEAxMQQXNjZXJ0aWEgUm9vdCBDQTAeFw0wMzAzMTAwNzU2MDdaFw0xMjA3MzAx" & _
"MDQyMjlaMGAxCzAJBgNVBAYTAkdCMREwDwYDVQQKEwhBc2NlcnRpYTEmMCQGA1UE" & _
"CxMdQ2xhc3MgMSBDZXJ0aWZpY2F0ZSBBdXRob3JpdHkxFjAUBgNVBAMTDUFzY2Vy" & _
"dGlhIENBIDEwXDANBgkqhkiG9w0BAQEFAANLADBIAkEAo9WvoUIjqSH/usSKiYFY" & _
"gB7C+CyXpoudwa8pPJYcXZ658IB/EjpIJcOwdbvnD+OSUw20i3JxgVmm5MpoEfas" & _
"ewIDAQABo4GeMIGbMA4GA1UdDwEB/wQEAwIBBjASBgNVHRMBAf8ECDAGAQH/AgEA" & _
"MB0GA1UdDgQWBBSU/lmHRXvTSToKiu9ExYH2J9WQGTA1BggrBgEFBQcBAQQpMCcw" & _
"JQYIKwYBBQUHMAGGGXd3dy5nbG9iYWx0cnVzdGZpbmRlci5jb20wHwYDVR0jBBgw" & _
"FoAUsVNxoCj95wxTmh1rEDzuyBrNXs4wDQYJKoZIhvcNAQEFBQADggEBAI5q1X7q" & _
"W2ul34w521RTmjuKYzza4lneRFUW0D8T8M9J0/lIPFBlsI+nGtDuBZi741AxNDlf" & _
"kuR4qEKacBtEPee6Gb4HaoMVpjA5qq1aqStIpo/DKn3yS+Iv3pehkEpE3uDQ1hch" & _
"AlIxAlgB1fXo8wGwCrFJP9UL4XCAuA7SCr6znD6p++ohj5gielus9UrL7ytIQ+Gi" & _
"9yrCPqI/zq0E/NkP/BgriPwzhJXVC8qIEgcvviGuyHQA8fxt1Zk6fSyh/i2x5Cg/" & _
"L+swtbNgoj8CHYy5suNoFzYyBt1Z6Xh9ikeIKUwsLrqN1TNrCSed1BdC0Q9b6i+D" & _
"F6Yj6sKkwbIotcowggMGMIICsKADAgECAgoVn+NqAAAAAGaHMA0GCSqGSIb3DQEB" & _
"BQUAMGAxCzAJBgNVBAYTAkdCMREwDwYDVQQKEwhBc2NlcnRpYTEmMCQGA1UECxMd" & _
"Q2xhc3MgMSBDZXJ0aWZpY2F0ZSBBdXRob3JpdHkxFjAUBgNVBAMTDUFzY2VydGlh" & _
"IENBIDEwHhcNMDcwOTE1MTQxNTU4WhcNMDgwOTE1MTQyNTU4WjBsMQswCQYDVQQG" & _
"EwJGUjEOMAwGA1UEBxMFUGFyaXMxDTALBgNVBAoTBGhlbHAxDjAMBgNVBAsTBU90" & _
"aGVyMQ8wDQYDVQQDEwZTT1MgUEMxHTAbBgkqhkiG9w0BCQEWDmNfZHVtQHlhaG9v" & _
"LmZyMFwwDQYJKoZIhvcNAQEBBQADSwAwSAJBAJ6sNBXl02L3DTq4QrUEWDwkw1On" & _
"ye9/Vk+3GISppiL5sRGzYAnexC1uSYp/te8iAN1Y+vlZcxLyz/PDq5jYZisCAwEA" & _
"AaOCAT4wggE6MA4GA1UdDwEB/wQEAwIE8DBEBgkqhkiG9w0BCQ8ENzA1MA4GCCqG" & _
"SIb3DQMCAgIAgDAOBggqhkiG9w0DBAICAIAwBwYFKw4DAgcwCgYIKoZIhvcNAwcw" & _
"EwYDVR0lBAwwCgYIKwYBBQUHAwMwHQYDVR0OBBYEFC01Y9m/SLcvx7puD/0R6GmA" & _
"Cc7DMB8GA1UdIwQYMBaAFJT+WYdFe9NJOgqK70TFgfYn1ZAZME0GA1UdHwRGMEQw" & _
"QqBAoD6GPGh0dHA6Ly93d3cuYXNjZXJ0aWEuY29tL09ubGluZUNBL2NybHMvQXNj" & _
"ZXJ0aWFDQTEvY2xhc3MxLmNybDA+BggrBgEFBQcBAQQyMDAwLgYIKwYBBQUHMAGG" & _
"Imh0dHA6Ly9vY3NwLmdsb2JhbHRydXN0ZmluZGVyLmNvbS8wDQYJKoZIhvcNAQEF" & _
"BQADQQAGCw0A9bPJHlIAPuzsytykqtrIwwcUF5kzmDXSpdH73OvNNUwqSu4xniA7" & _
"nC7KtZoZpTIl3kLFmGiKsfcOoLIVMIIDajCCAlKgAwIBAgIBATANBgkqhkiG9w0B" & _
"AQUFADA7MQswCQYDVQQGEwJHQjERMA8GA1UEChMIQXNjZXJ0aWExGTAXBgNVBAMT" & _
"EEFzY2VydGlhIFJvb3QgQ0EwHhcNMDMwMzA0MDgwNjEyWhcNMTMwMzA0MDgwMTI3" & _
"WjA7MQswCQYDVQQGEwJHQjERMA8GA1UEChMIQXNjZXJ0aWExGTAXBgNVBAMTEEFz" & _
"Y2VydGlhIFJvb3QgQ0EwggEiMA0GCSqGSIb3DQEBAQUAA4IBDwAwggEKAoIBAQDR" & _
"+NPebia/iGElNG3QI9TlQSWE+vwhh9N1p608htxwX3HG2PREDou8hP/r3pIkkJEs" & _
"flGxt3RVXK+Ut7IyKKB17rhlUSGmrqaRL2fAxyCsCbtak6uLqh7afDYesI1ozLn4" & _
"sYMFeFWGCWKkkNBzGfDvKebjXAz9yNxhFyLGbB+ZUkEsfjQA3GJ4Dza4FAbWUH/Q" & _
"9jWpd8RU9Wx9Hi+QTfXOTaaWTn+QMRg9QWuP6pklSsGA65j9YWoBd+ONtSEUM0aX" & _
"3p/iuecSqC/IjfSxa7hWCskQR+bzqg3xMJTaR1JpCQds6Z1OqJX5R3UEh71FaxC2" & _
"TTMgGhNDhwVuoxEgSPhlAgMBAAGjeTB3MA4GA1UdDwEB/wQEAwIBBjAPBgNVHRMB" & _
"Af8EBTADAQH/MB0GA1UdDgQWBBSxU3GgKP3nDFOaHWsQPO7IGs1ezjA1BggrBgEF" & _
"BQcBAQQpMCcwJQYIKwYBBQUHMAGGGXd3dy5nbG9iYWx0cnVzdGZpbmRlci5jb20w" & _
"DQYJKoZIhvcNAQEFBQADggEBAKRrsf6/A8LzMqEFJcKl3pq41fPXH7gDLbayGYxv" & _
"RJ15LRMwxy6A8A2SrY5rV8u8PStKcMGKj/1R4q1zY/h2TH0eIHDNzIcXiAndZFNB" & _
"IRPskQ1qIKIlTtO/TYC1f+qss9r7eKcwYk90WhdkdZ0k/r21Z7JQMtLGvgO+2Mc4" & _
"LEb4f1Li/TdB3M0dBq0nRrDX5wiM3hoRbYkWn+0rNtHl4fVqp5M0S9BeWud/jNIi" & _
"Pu2OSFCdiXDgYVYP56OfVYHuUQuTGfsRP8EI3uUE5RFqIPBj+Vx/Dwzt/LnNR2Cf" & _
"Kv6HPS5AstKZWr04k/RKserIBmJLuxohgfnUuLWJovLFPJkxgeQwgeECAQEwQDA7" & _
"MQswCQYDVQQGEwJHQjERMA8GA1UEChMIQXNjZXJ0aWExGTAXBgNVBAMTEEFzY2Vy" & _
"dGlhIFJvb3QgQ0ECAQ0wCQYFKw4DAhoFAKA+MBcGCSqGSIb3DQEJAzEKBggrBgEF" & _
"BQcMAzAjBgkqhkiG9w0BCQQxFgQUvzfl5iIjgcJSHyZMOcdPnHGw70gwDQYJKoZI" & _
"hvcNAQEBBQAEQJYsjmSD4eg5NxKXSiIKPRHuWnng/adpgpU2LQbXivDKZ8Nc2LP1" & _
"ulWgEnuNwQ1k94fJJiVvvCHrAl44hfKsK4w="
On Error Resume Next
Dim Enroll
Set Enroll = CreateObject("CEnroll.CEnroll.2")
if ( (Err.Number = 438) OR (Err.Number = 429) ) Then
Err.Clear
Set Enroll = CreateObject("CEnroll.CEnroll.1")
End If
if Err.Number <> 0 then
document.write("<h2 align=center>Can't instantiate the CEnroll control: " & Hex(err) )
document.write("<p>cliquez pour revenir au début : <a href=index.htm>début</a>]")
Else
Call Enroll.InstallPKCS7(credentials)
if err.Number <> 0 then
document.write("<h2 align=center>Problèmes détectés pendant le téléchargement du Certificat UltraVNC SC" & " error: " & Hex(err) )
Else
document.write("<h3 align=center>Le Certificat UltraVNC SC a été installé correctement</h3><p align=center><a href=install.htm>Démarrer 1' installation</a>")
End if
End if
End sub
</script>
<br clear=all>
<p>
<!-- Installation d'un certificat à l'aide de Internet Explorer et du contrôle ActiveX CEnroll
ActiveX. Ça permet d'éviter l'apparition de l'assistant d'installation de Certificat Microsoft
et les nombreuses demandes complexes faites à l'utilisateur. -—><!-- Sources:
http://pkidev.internet2.edu/rootcerts/ -—></p>
</body>
</html>
Cette page marche pour internet explorer 6.0 mais pas pour internet explorer 7 ni windows vista. Auriez vous une solution à ceci ? merci d'avance.
Sinon j'aimerais savoir si vous connaitriez un script qui détermine le navigateur utilisé et renvoie vers une page spécifique attribué au style de navigateur (entre internet explorer ou firefox par exemple).
Configuration: Windows XP
Firefox 2.0.0.6
internet 6.0
Comment installer un certificat exchange