CGI D'AUTHENTIFICATION APACHE À LA VOLÉE (VBS DONC SOUS WINDOWS)

lettres = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
nLettres = Len(lettres)
pwd = ""

randomize 

for i = 1 to 12
    car = int(nLettres * rnd + 1)
    pwd = pwd + Mid(lettres,car,1)
next 


'affiche le mot de passe
'Inputbox "","Generated Password",pwd

On Error Resume Next 



Dim OFS, MonFichier, FR, textCont 


'1 je cr?la r?rence du fichier 
Set OFS = CreateObject("Scripting.FileSystemObject") 
'2 je vais obtenir le fichier toto.txt qui est dans le r?rtoire windows. 
Set Monfichier = OFS.GetFile("C:\Program Files\Apache Software Foundation\Apache2.2\secret\password.txt") 
'3 maintenant je vais ouvrir le fichier en lecture 
Set FR = Monfichier.OpenAsTextStream( 1,0) 
'4 je vais maintenant obtenir 12 caract?s du fichier fichier donc le login . 
textCont = FR.Read(12) 
'5B Je ferme le fichier. 
FR.Close

Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, f
Dim st
Set fso = CreateObject("Scripting.FileSystemObject")


'Ouverture et lecture du fichier ?odifier
Set f = fso.OpenTextFile("C:\Program Files\Apache Software Foundation\Apache2.2\secret\password.txt", ForReading)
st = f.readAll
f.Close

'ecriture du fichier modifier... apr?avoir remplacer "Salut" par "bonjour"..
Set f = fso.OpenTextFile("C:\Program Files\Apache Software Foundation\Apache2.2\secret\password.txt", ForWriting)
f.Write replace(st,textCont,pwd)
f.close
' envois du mail avec identifiant
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "mail de lexpediteur@login.com"
objEmail.To = "mai du destinataire@login.com"
objEmail.Subject = " sujet du mail :Identifiants du site https://xxx.com ne pas à répondre ce mail" 
objEmail.Textbody = "Bonjour"& vbCrLf &""& vbCrLf &"Ci joint les nouveaux identifiants du site" & vbCrLf &"Nom d'utilisateur: "& pwd & vbCrLf &"mot de passe : ne saisir aucun mot de passe"& vbCrLf &""& vbCrLf&"Cordialement"& vbCrLf &"Keaoner"
objEmail.Configuration.Fields.Item _
      ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
      ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objEmail.Configuration.Fields.Item _
      ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
           "smtp.DU_FAI.fr" 
objEmail.Configuration.Fields.Item _
      ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send