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