Discussion :

[kamsy]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ProgElecT]

Salut

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 ?.

[kamsy]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"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 :

Sélectionner tout - Visualiser dans une fenêtre à part

("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

[kamsy]

j'ai trouvé merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"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 :

Sélectionner tout - Visualiser dans une fenêtre à part

("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

[ProgElecT]

Salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Format(Date, "yyyymmdd")

c'est du VB6

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[kamsy]

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.