lcComputer = "." loWMIService = Getobject("winmgmts:\\" + lcComputer + "\root\cimv2") colItems = loWMIService.ExecQuery("Select * from Win32_UTCTime") For Each loItem In colItems ?"Day: " + Transf(loItem.Day) ?"Day Of the Week: " + Transf(loItem.Dayofweek) ?"Hour: " + Transf(loItem.Hour) ?"Milliseconds: " + Transf(loItem.Milliseconds) ?"Minute: " + Transf(loItem.Minute) ?"Month: " + Transf(loItem.Month) ?"Quarter: " + Transf(loItem.Quarter) ?"Second: " + Transf(loItem.Second) ?"Week In the Month: " + Transf(loItem.WeekInMonth) ?"Year: " + Transf(loItem.Year) Next>Hi,