[VBS] Script per salvataggio file con data e ora

[enzy]

Ciao,
vorrei far salvare giornalmente il file security con indicazione di data e ora di salvataggio. Per fare questo ho modificato uno script trovato in rete che gia' creava un file "security.evt". Ho provato in vari modi ma non riesco ad inserire data e ora nel nome.

Lo script e' il seguente:
______________________________
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate,(Backup)}!\\" & _
strComputer & "\root\cimv2")

Set colLogFiles = objWMIService.ExecQuery _
("Select * from Win32_NTEventLogFile where LogFileName='Security'")

For Each objLogfile in colLogFiles
errBackupLog = objLogFile.BackupEventLog("E:\Log files w3kms1\Security & objItem.Year & objItem.Month & objItem.Day & objItem.Hour & objItem.Minute & objItem.Second &.evt")
If errBackupLog <> 0 Then
Wscript.Echo "The Application event log could not be backed up."
Else
Wscript.Echo "Salvataggio effettuato"
End If
Next
_____________________________________

In pratica il file mi viene salvato correttamente ma con il nome "Security & objItem.Year & objItem.Month & objItem.Day & objItem.Hour & objItem.Minute & objItem.Second &.evt" e non come "Security 2014 08 29 .....evt"
Mi date una mano?

Grazie

[x_Master_x]

strDate=Right("0" & Day(Date()), 2) & " " & Right("0" & Month(Date()), 2) & " " & Year(Date())
srtMsg=MsgBox("""C:\Percorso\" & "Security " & strDate & ".evt""", 0, "Esempio")

[enzy]

grazie... non capisco pero' dove inserirlo

[x_Master_x]

La variabile strDate dove ti pare, in teoria sarebbe meglio all'inizio. La stringa:

"""C:\Percorso\" & "Security " & strDate & ".evt"""

La sostituisci con quella tua in grassetto con il percorso che preferisci, non mi sembrava tanto difficile da capire