Authentification et écriture fichier log

Question

Bonjour, j'ai un formulaire d'authentification, j'aimerais que lorsqu'un user tente de se logger, ce qu'il tape soit enregistr&#233; dans un fichier txt, mais ce que j'ai essay&#233; ne marche pas, comment puis-je faire???

Voici mon code :

function enreg_ident()
 Dim fso2    ' As Scripting.FileSystemObject
 Dim ts    ' As Scripting.TextStream
 Dim str    ' As String
    
 Set fso2 = CreateObject("Scripting.FileSystemObject")
    Set ts = fso2.OpenTextFile("http://XXX.XX.XX.XX/Identlog.txt", 8, True)


 ts.WriteLine document.forms.identification.utilisateur.value & " ; " & document.forms.identification.mdp.value
    ts.WriteBlankLines (2)
    'ts.WriteLine ("World!")
    ts.Close
    Set fso2 = Nothing
end function

cs_casy · Answer

Je pr&#233;cise : je ne maitrise pas trop les FSO ni les protocoles r&#233;seau mais la ligne suivante me parrait bien &#233;trange.

    Set ts = fso2.OpenTextFile("http://XXX.XX.XX.XX/Identlog.txt", 8, True) 

Tu essaye d'ouvrir ton fichier avec le protocole http, je ne pense pas
(mais je dit peut-etre une connerie) que ce protocole permette de
modifier un fichier &#224; distance, il ne fait que le t&#233;l&#233;charger sans
toucher &#224; la source.



sans trop de conviction je dirait plutot     file://XXX.XX.XX.XX/Identlog.txt 



mais perso j'essairais plutot &#231;a     \XXX.XX.XX.XX/Identlog.txt 



c'est ce que j'utilise habituellement sur un r&#233;seau entreprise, sauf
que je doit toujours mettre le nom d'un dossier partag&#233; entre l'adresse
IP et le nom du fichier du style \adresseIP/DossierPartag&#233;/Fichier&#224;Ouvrir


<hr size="2" width="100%">Si le cerveau &#233;tait assez simple pour que nous puissions le comprendre,
nous serions assez b&#234;te pour ne p

Authentification et écriture fichier log

1 réponse

Discussions similaires