|
|
|
|
Strumenti |
29-08-2014, 07:56 | #1 |
Member
Iscritto dal: Oct 2005
Messaggi: 175
|
[VBS] Script per salvataggio file con data e ora
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 Ultima modifica di enzy : 29-08-2014 alle 08:01. |
29-08-2014, 12:11 | #2 |
Senior Member
Iscritto dal: May 2005
Messaggi: 8686
|
Codice:
strDate=Right("0" & Day(Date()), 2) & " " & Right("0" & Month(Date()), 2) & " " & Year(Date()) srtMsg=MsgBox("""C:\Percorso\" & "Security " & strDate & ".evt""", 0, "Esempio")
__________________
. Thread Ufficiali: EasyCrypt ~ Old Files Manager ~ OSD Clock The real me is no match for the legend . |
29-08-2014, 12:17 | #3 |
Member
Iscritto dal: Oct 2005
Messaggi: 175
|
grazie... non capisco pero' dove inserirlo
|
29-08-2014, 12:51 | #4 |
Senior Member
Iscritto dal: May 2005
Messaggi: 8686
|
La variabile strDate dove ti pare, in teoria sarebbe meglio all'inizio. La stringa:
Codice:
"""C:\Percorso\" & "Security " & strDate & ".evt"""
__________________
. Thread Ufficiali: EasyCrypt ~ Old Files Manager ~ OSD Clock The real me is no match for the legend . |
Strumenti | |
|
|
Tutti gli orari sono GMT +1. Ora sono le: 01:50.