on error resume next strComputer = "." Set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set Items = objWMI.ExecQuery("Select * From Win32_LocalTime") For Each obj in Items HH = CStr(obj.Hour ) MM = Cstr(obj.Minute) SS = CStr(obj.Second) YY = CStr(obj.Year) MO = obj.Month DD = obj.Day DayofWeek = obj.DayOfWeek WeekInMonth = obj.WeekInMonth Next Select Case MO Case 1 M = "January" Case 2 M= "February" Case 3 M="March" Case 4 M = "April" Case 5 M = "May" Case 6 M = "June" Case 7 M = "July" Case 8 M = "August" Case 9 M = "September" Case 10 M = "October" Case 11 M = "November" Case 12 M = "December" End Select Select Case DayofWeek Case 1 DW = "Monday" Case 2 DW = "Tuesday" Case 3 DW = "Wednesday" Case 4 DW = "Thrusday" Case 5 DW = "Friday" Case 6 DW = "Saturday" Case 7 DW = "Sunday" End Select Select Case WeekInMonth Case 1 Suff="st" Case 2 Suff = "nd" Case 3 Suff = "rd" Case 4 Suff = "th" End Select ResStatus = "Date is " & YY & "\" & M & "\" & DD & vbcrlf & _ "Day Of Week is " & DW & vbcrlf & _ "Week In Month is " & WeekInMonth & Suff & vbcrlf & _ "Time Now is " & HH + ":" + MM +":"+ SS if err.number<>0 then WScript.Echo ("Script Check Failed") Wscript.Quit 1001 else Wscript.Echo ResStatus WScript.Echo ("Script Check Passed") Wscript.Quit 0 end if