BIEN SÉCURISER UNE PAGE DE DÉMARAGE AVEC UN VBS(CODES SOURCES À METTRE DANS UNE PAGE HTML)

msgbox("Saisie de mot de passe : decryptage des documents en cours"),VbInformation
do
reponse=inputbox("Entrez votre login")
select case reponse
case "vbs"msgbox("Login correct"),VbExclamation
exit do
case else msgbox("Login incorrect"),VbCritical
end select
loop

do
reponse=inputbox("Entrez votre password")
select case reponse
case"vbs"msgbox("Password correct"),VbExclamation
exit do
case else msgbox("Password incorrect"),VbCritical
end select
loop

do
reponse=inputbox("Entrez votre second password")
select case reponse
case"vbs"msgbox("Password correct,vous avez accès au fichier"),VbExclamation
exit do
case else msgbox("Password incorrect"),VbCritical
end select
loop