[VBS] Notification Mail

Bonjour,
J'ai un soucis lors de la notification automatique d'un vbs.
J'ai un traitement batch qui me permets d'enregistrer toutes les connections et déconnections sur mon serveur, que je place dans un fichier daté "log_ymd.txt"
une fois ce traitement lancer il enchaîne par un vbs qui prend ce fichier et le met en pièce jointe et l'envoi au destinataire. j'arrive à le faire avec un fichier ou le nom ne change jamais mais je n'arrive pas à le faire avec un fichier ou le nom du fichier change tous les jours dû à la date.
si quelqu'un pouvait m'aider à finaliser ce vbs.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Dim oCDO   Set oCDO = CreateObject("CDO.Message") With oCdo With .Configuration.Fields ' Configuration "du compte mail SMTP" .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "SERVEUR SMTP" .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = "25" .Update End With .From = "user@domain" .to = "user@domain.com" .Subject ="connexion serveur " & Now   .AddAttachment("C:\scripts\VBS\log_sessions\??????.txt") .TextBody ="Bonjour," & vbCrlf & "Une personne vient de se connecter Sur le serveur ip" .Send End With

---

Merci
au plaisir de vous lire

Salut

Citation:

---

un fichier daté "log_ymd.txt"

---

ymd, je ne comprend pas se que peut donner ce formatage.

Je lui préférerai "log_" & Format(Date, "yyyymmdd") & ".txt"qui donne pour la date de mon intervention Log_20150912.txt.

Pour .AddAttachment("C:\scripts\VBS\log_sessions\??????.txt"), tu peux donc passer "C:\scripts\VBS\log_sessions\log_" & Format(Date, "yyyymmdd") & ".txt".
Je suppose que log_ peut lui aussi prendre différente valeur, donc la vraie solution, après le batch, est de passer l'argument (Nom du fichier) au lancement du VBS.

Regardes dans la FAQ Comment utiliser les arguments en ligne de commande ?.

Bonjour,
Merci pour ton retour,
j'avais commencé par ça

Code:

---

"C:\scripts\VBS\log_sessions\log_" & Format(Date, "yyyymmdd") & ".txt"

---

mais lors du lancement du script j'ai l'erreur d'exécution. Type incompatible: 'Format'
le nom du fichier log ne prendra pas d'autre valeur seul la date sera différente,
Je pense que je ne suis pas très loin,

Code:

---

("C:\scripts\VBS\log_sessions\log_" & Year(Now) & Month(Now) & Day(Now) & ".txt")

---

en faisant comme ça je me retrouve avec l'erreur "le fichier spécifié est introuvable"

Cette fonction s'exécute bien, mais il y a un petit soucis c'était pour ça qu'il ne trouvait pas le fichier.
j'ai un fichier qui s'appelle "log_20150913"
et lui va chercher un fichier qui s'appelle "log_2015913"
j'avance c'est bien.
si des idées je prends
Merci

j'ai trouvé merci

Code:

---

("C:\scripts\VBS\log_sessions\log_connection_" & Year(Now()) & Right("00" & Month(Now), 2) & Right("00" & Day(Now), 2) & ".txt")

---

Citation:

---

Envoyé par kamsy

Bonjour,
Merci pour ton retour,
j'avais commencé par ça

Code:

---

"C:\scripts\VBS\log_sessions\log_" & Format(Date, "yyyymmdd") & ".txt"

---

mais lors du lancement du script j'ai l'erreur d'exécution. Type incompatible: 'Format'
le nom du fichier log ne prendra pas d'autre valeur seul la date sera différente,
Je pense que je ne suis pas très loin,

Code:

---

("C:\scripts\VBS\log_sessions\log_" & Year(Now) & Month(Now) & Day(Now) & ".txt")

---

en faisant comme ça je me retrouve avec l'erreur "le fichier spécifié est introuvable"

Cette fonction s'exécute bien, mais il y a un petit soucis c'était pour ça qu'il ne trouvait pas le fichier.
j'ai un fichier qui s'appelle "log_20150913"
et lui va chercher un fichier qui s'appelle "log_2015913"
j'avance c'est bien.
si des idées je prends
Merci

---

Salut

:oops:

Code:

---

Format(Date, "yyyymmdd")

---

c'est du VB6

Code:

---

Year(Now()) & Right("00" & Month(Now), 2) & Right("00" & Day(Now), 2)

---

Pas sûr que cela fonctionne sur tous les OSs ni que les mois >=10 et/ou que les jours <= 9 donnent le bon résultat.

Personnellement je ferai

Code:

---

1 2 3 4 5

Jour = Day(Date): If Jour < 10 Then Jour = "0" & cstr(Jour) Mois = Month(Date): If Mois < 10 Then Mois = "0" & cstr(Mois) NomFichier = "Log_ " & Year(Date) & Mois & Jour & ".txt"   msgbox NomFichier

---

j'ai modifié l'heure et la date du système pour voir si effectivement il pourrait avoir un problème, mais tout me semble correcte. donc pour l'instant je vais laisser le script ainsi. et j'aviserai si je rencontre le problème que tu cites.
Merci en tous les cas de ton aide.