Ottenere informazioni sulla data di formattazione del PC

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 nel blocco note (Start - Tutti i programmi - Accessori - Blocco note) poi lo salvi con nome aggiungendo .vbs  
ad esempio: Info Formattazione.vbs
Condividi su Google Plus

Info su Giovanni Di Mauro

Questa è una breve descrizione nel blocco dell'autore sull'autore. Lo modifichi inserendo il testo su "Informazioni biografiche" nel pannello di amministrazione dell'utente.
    Blogger Comment
    Facebook Comment

2 commenti :

  1. Lo script in questione e la maggior parte sono stati testati con la versione XP PRO e funziona perfettamente!! ;-) alcuni col seven non vanno bene.

    vienimi a trovare su http://giovannidimauro.altervista.org/
    Sono presenti molti altri esempi (il sito è sempre aggiornato)

    RispondiElimina
  2. Ciao Giovanni, puoi indicarci lo script per il seven? Grazie

    RispondiElimina