Giovanni Di Mauro: Ottenere informazioni sulla data di formattazione del PC

Giovanni Di Mauro: Ottenere informazioni sulla data di formattazione del PC

Per Windows Seven basta annullare la riga 9:
output = output & "La dimensione è di: "&FormatNumber(objFolder.Size/1024^2) & " MB ] - [ "
mettendo come primo carattere ' faccio un esempio:
'output = output & "La dimensione è di: "&FormatNumber(objFolder.Size/1024^2) & " MB ] - [ "

Quindi il codice da inserire nel blocco note e' il seguente (in questo caso ho rimosso completamente la riga):

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 & "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


Fine del codice...
Ciao alla prossima
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.
    Commenti da Blogger
    Commenti da Facebook

0 commenti :

Posta un commento