Option Explicit

Dim ActualDay, MyDay, MyMonth, varTime
Dim varDateetHeure

MyDay = Day(Now)
MyMonth = Month(Now)

If Len(MyDay) = 1 Then MyDay = "0" & MyDay
If Len(MyMonth) = 1 Then MyMonth = "0" & MyMonth
ActualDay = Year(Now) & "-" & MyMonth & "-" & MyDay

varTime = Time
varTime = Replace(varTime, ":", "-") 'Remplacement des : par - car : est un caractère interdit dans les noms de fichiers

varDateetHeure = ActualDay & "_" & varTime

Wscript.echo varDateetHeure