Se non vuoi installare la powershell e vuoi poter usare lo script ovunque copia questo script in un file di testo e poi dagli estensione vbs.
Devi solo modificare la terza riga inserendo il percorso completo della cartella che contiene i file da rinominare.
codice:
On Error Resume Next
Set fsoFolder = CreateObject("Scripting.FileSystemObject")
Set folder = fsoFolder.GetFolder("C:\Documents and Settings\...\tua_cartella_dei_file")
Set files = folder.Files
for each file in files
dataOraCreazione = file.DateCreated
dataCreazione = split(dataOraCreazione," ")
dataCreazioneF = replace(dataCreazione(0),"/","")
nomeFile = Left(file.name, InStrRev(file.name,".") - 1)
estensione = Mid (file, InStrRev(file,".") + 1)
nuovo = nomeFile & "_" & dataCreazioneF & "." & estensione
fsoFolder.movefile folder & "\" & file.name , folder & "\" & nuovo
next
set files = nothing
set folder = nothing
set fsoFolder = nothing
Te l'ho scritto al volo, quindi è da controllare bene. Inoltre non è ricorsivo. Appena ho un pò di tempo lo riscrivo meglio.