[tclug-list] OT - Another WMI/VBS Script

[Sam MacDonald]

With the time change last weekend (I strongly dislike daylight savings 
time) and sense I was going through all my scripts I found one that 
checks the time and date on remote M$ machines. This is for XP and w2k3 
systems only it will not work on w2k and NT systems,
w2k and NT systems will cause an error and stop the script.\

Sam.

'Define objects
Dim fso, wrfile, rdfile, tday
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8

'Set fso as the file system object
Set fso = CreateObject("scripting.FileSystemObject")

'Open the output file
filename = "c:\samsvbs\tmdt.txt"
Set wrfile = fso.OpenTextFile( filename, ForAppending)

'Open an input file
ifilename="c:\samsvbs\srvlst.txt"
Set  rdfile=fso.openTextFile(ifilename, ForReading)

'Read server name from file
do while rdfile.AtEndofStream=false
servername =rdfile.readline()

'Gather and write the date and time information
strComputer = servername
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_LocalTime")
For Each objItem in colItems

'Get the day of the week
if objItem.DayOfWeek = 1 Then tday = "Monday"
if objItem.DayOfWeek = 2 Then tday = "Tuesday"
if objItem.DayOfWeek = 3 Then tday = "Wednesday"
if objItem.DayOfWeek = 4 Then tday = "Thursday"
if objItem.DayOfWeek = 5 Then tday = "Friday"
if objItem.DayOfWeek = 6 Then tday = "Saturday"
if objItem.DayOfWeek = 7 Then tday = "Sunday"
'Section write file
    wrfile.writeline "********************"
    wrfile.writeline strComputer
    wrfile.writeline "********************"
    wrfile.writeline tday
    wrfile.writeline "Date: " & objItem.Month & "-" & objItem.Day &  "-" 
& objItem.year
    wrfile.writeline "Time: " & objItem.hour & ":" & objItem.Minute & 
":" & objItem.second
Next
Loop
' Section Close files
  wrfile.close
  rdfile.close