Fichier LOG ou feuil Excel LOG

[Creepy]

Bonjour à tous,

J'ai fait un programme accessible par mots de passes. Nous travaillons sous NT4/XP en reseau dans ma société(reseau Novell).

Je souhaiterais faire un suivi des gens qui se connectent à ce fichier et des tentatives de connections (Personne non autorisée !!).

Comment faire ? dans une premier temps je pensais faire un fichier log, puis dans un deuxième temps je me suis dit : pourquoi pas dans une feuille cachée au sein du fichier !

C'est un sujet que je n'ai jamais abordé en Macro, votre aide me serait super utile car je vois pas trop par quel bout commencer !

Les infos qu'il me faudrait : nom de l'ordinateur (le nom reseau, qui correspond au profil en général ws_commbXX (avec des chiffres) !), la date et l'heure de connection.

Merci d'avance, je suis dans la mouise là

Creepy

 

[Romuald]

Je fais ça dans un fichier texte et ça marche très bien sans ralentir Excel. J'ai même parfois des fichiers de log de plusieurs méga.
J'utilise le code classique pour écrire ds un fichier :

lngHFile = FreeFile
Open strPath For Append Shared As #lngHFile
Write #lngHFile, sInfos
Close #lngHFile

J'ai ce code dans une procédure writeLog(sInfos) et ça marche très bien.

 

[Creepy]

Tu peux me donner plus de detail s'il te plait !

Parce que là c'est un peu mince pour que je puisse comprendre !

Merci d'avance

Creepy

PS : Voir un petit fichier ne pice jointe avec la source ce serait super !

 

[Romuald]

OK, je te fais ça ce weekend ou en fin de journée si j'ai le temps

 

[Romuald]

Dis-moi si le code suivant est assez clair, si ce n'est pas le cas, je te ferai un fichier plus tard :

La fonction suivante sert à écrire ds la log (fichier C\myLog.txt) :
Sub writeLog(sMessage as string)
dim lngHFile as long

lngHFile = FreeFile
Open "C:\myLog.txt" For Append Shared As #lngHFile
Write #lngHFile, sMessage
Close #lngHFile

End Sub

Ensuite dans ton code, chaque fois que tu veux loguer une action, "passowrd invalid" par exemple, tu appelles la fonction :
writeLog "Password invalid"

C'est clair?