Per chi fosse interessato a sapere le informazioni sulla data di formattazione del pc e le successive modifiche alla cartella di “Windows” non deve fare altro che copiare questo codice nel blocco note e salvarlo con nome aggiungendo .vbs e mandarlo in esecuzione (lo devi aprire)!
strComputer = “.”
dim output
output=”[”
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
Set objFolder = objFSO.GetFolder(“C:windows”)
MsgBox “Le informazioni visualizate nella successiva finestra di dialogo si riferiscono alla data di formattazione del PC e alle relative modifiche della cartella in cui è stato installato il Sistema Operativo, solitamente in C (Clicca su OK per continuare)”
output = output & “Nome della cartella: ” & objFolder.Name & ” ] – [ ”
output = output & “Si strova nel disco locale: ” & objFolder.Drive & ” ] – [ ”
output = output & “La dimensione è di: “&FormatNumber(objFolder.Size/1024^2) & ” MB ] – [ ”
output = output & “Data e ora della creazione: ” & objFolder.DateCreated & ” ] – [ ”
output = output & “Data e ora dell’ultimo accesso: ” & objFolder.DateLastAccessed & ” ] – [ ”
output = output & “Data e ora dell’ultima modifica: ” & objFolder.DateLastModified & ” ] – [ ”
output = output & “Directory: ” & objFolder.Path & ” ] – [ ”
output = output & “Tipo: ” & objFolder.Type & ” ] ”
WScript.Echo output
Quindi devi copiare il codice scritto in verde nel blocco note (Start – Tutti i programmi – Accessori – Blocco note) poi lo salvi con nome aggiungendo .vbs   
ad esempio: Info Formattazione.vbs
Vota...