2007 March | windowswideopen.com

Vbscript to check the system time and time zone on a domain computer

Posted on March 14th, 2007 by thehabgroup

===========================================================
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 = […]