windowswideopen.com

===========================================================

On Error Resume Next
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20

Set arrComputers = GetObject _
(”LDAP://cn=computers, dc=domain, dc=local”)

arrComputers.Filter = Array(”Computer”)

For Each objItem In arrComputers
strComputer = objItem.CN

WScript.Echo
WScript.Echo “==========================================”
WScript.Echo “Computer: ” & strComputer
WScript.Echo “==========================================”

Set objWMI = GetObject(”winmgmts:\\” & strComputer & “\root\cimv2″)

WScript.Echo “Time zone is:”
Set colTZ = objWMI.ExecQuery(”select * from Win32_TimeZone”)
For Each objTZ in colTZ
Wscript.Echo vbTab & objTZ.Caption
Next

Set objWMIService = GetObject(”winmgmts:\\” & strComputer & “\root\cimv2″)
Set colItems = objWMIService.ExecQuery(”Select * from Win32_OperatingSystem”)

For Each objUnit in colItems
dtmLocalTime = objUnit.LocalDateTime
dtmMonth = Mid(dtmLocalTime, 5, 2)
dtmDay = Mid(dtmLocalTime, 7, 2)
dtmYear = Left(dtmLocalTime, 4)
dtmHour = Mid(dtmLocalTime, 9, 2)
dtmMinutes = Mid(dtmLocalTime, 11, 2)
dtmSeconds = Mid(dtmLocalTime, 13, 2)
Next

dtmNewDate = dtmMonth & “/” & dtmDay & “/” & dtmYear
dtmNewTime = dtmHour & “:” & dtmMinutes & “:” & dtmSeconds

Wscript.Echo “The current date and time is: ” & dtmNewDate & ” ” & dtmNewTime

Next
==============================================================

Filed under: vbscript