Installer automatiquement un certificat

Fermé

kliorgogan Messages postés 3 Date d'inscription jeudi 27 septembre 2007 Statut Membre Dernière intervention 29 septembre 2007 - 27 sept. 2007 à 05:17
anaslemec - 16 juin 2008 à 14:37

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).

A voir également:

Installer automatiquement un certificat
Installer chromecast - Guide
Installer microsoft store - Guide
Installer windows 11 sur pc non compatible - Guide
Installer windows 10 sans compte microsoft - Guide
Installer Windows 11 sur un PC non compatible - Guide

1 réponse

Réponse 1 / 1

kliorgogan Messages postés 3 Date d'inscription jeudi 27 septembre 2007 Statut Membre Dernière intervention 29 septembre 2007 1
29 sept. 2007 à 04:09

re bonjour, jre réup le probleme

anaslemec
16 juin 2008 à 14:37

merci de e dire un peu sur l'installation du certificat car j'essai de copier le code dans une page vide sur IE6 mais il me sort le message error: 80092004 alors aide moi ..stp

Discussions similaires

wifi : manque certificat pour se connecter

code couleur associé a une image

Discussions similaires

Newsletters