Visualizza il tempo attuale

Da quanto si può leggere tra le "" (virgolette) lo script fornisce informazioni sull'anno, mese, giorno, ore, minuti, secondi, quarti dell'ora, settimana del mense e giorno della settimana.... tutto in formato numerico!
A questo punto, copia e incolla nel blocco note e poi salva in .vbs

strComputer = "."
dim output
output="["
Set objWMIService = GetObject("winmgmts:" _
 & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_LocalTime")
For Each objItem in colItems
    output = output & " Anno: " & objItem.Year  & " ] - [ "
    output = output & " Mese: " & objItem.Month & " ] - [ "
    output = output & " Giorno: " & objItem.Day & " ] - [ "
    output = output & " Ore: " & objItem.Hour & " ] - [ "
    output = output & " Minuti: " & objItem.Minute & " ] - [ "
    output = output & " Secondi: " & objItem.Second & " ] - [ "
    output = output & " Quarti: " & objItem.Quarter & " ] - [ "
    output = output & " Settimana del mese: " & objItem.WeekInMonth & " ] - [ "
    output = output & " Giorno della settimana: " & objItem.DayOfWeek & " ] "
Next
WScript.Echo output 
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

1 commenti :

  1. bravo semplice e interessante. grazie erio

    RispondiElimina