Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Trouble with TZEDIT

Status
Not open for further replies.
Apr 5, 2005
1,484
US
Found that I was having issues with TZEDIT. Used to following script to enumerate 2000 servers and noticed that TZEDIT reported the proper dates, yet the properties of the win32_TimeZone class where conflicting. Eventhough TZEDIT reported the new dates, the server didn't sping ahead in test until I change the TZSetting in the reqistry.
Here is the script hope it help out... If you show your DayLight Month as "4" and Standard Month as "10" your DST is no set for the time change.
Code:
'* FileName:  DSTcheck.vbs
'*=============================================================================
'* Script Name: [DSTcheck.vbs]
'* Created:     [03/07/2007]
'* Author:      Jesse Hamrick
'* Company:     *************************
'* Email:       *************************
'* Web:         *************************
'* Reqrmnts:    
'* Keywords:    
'*=============================================================================
'* Purpose: 	Script enumerates Daylight Savings Settings on Windows 2000,    
'* 				Windows 2003, and Windows XP systems. Reads computer names            
'*              from a text file (into and array) using carriage return as the 
'*				separator. To run this script create a file called server.txt
'*				and enter the names of each computer you wish to enumerate.
'*=============================================================================



'*=============================================================================
'* DECLARE VARIABLES
'*=============================================================================
On Error Resume Next
Const HKEY_LOCAL_MACHINE = &H80000002
Const ForReading = 1    
Dim objFSO
Dim objTextFile
Dim objWMIService
Dim strComputer
Dim arrComputers
Dim objItem
Dim colItems

'*=============================================================================
'* Code
'*=============================================================================


'Section 1: Reads the Servers.txt file created by the Engineer and creates
'an Array.
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
    ("c:\Server.txt", ForReading)
strText = objTextFile.ReadAll
arrComputers = Split(strText, VbCrLf)
objTextFile.Close



For Each strComputer In arrComputers
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
		If Err <> 0 Then
			WScript.Echo strComputer & " -  " & Err.Description & VbCrLf
			Err.Clear
		Else
Set colItems = objWMIService.ExecQuery("Select * from Win32_TimeZone")


	
For Each objItem In colItems
	WScript.Echo strComputer
    'Wscript.Echo "Daylight Bias: " & objItem.DaylightBias
    'Wscript.Echo "Daylight Day: " & objItem.DaylightDay
    Wscript.Echo "Daylight Day of Week: " & objItem.DaylightDayOfWeek & ". 0=Sunday"
    Wscript.Echo "Daylight Hour: " & objItem.DaylightHour & " AM"
    'Wscript.Echo "Daylight Millisecond: " & objItem.DaylightMillisecond
    'Wscript.Echo "Daylight Minute: " & objItem.DaylightMinute
    WScript.Echo "Daylight Month: " & objItem.DaylightMonth & ". 1=Janurary"
    WScript.Echo "Daylight Name: " & objItem.DaylightName
    'Wscript.Echo "Daylight Second: " & objItem.DaylightSecond
    'Wscript.Echo "Daylight Year: " & objItem.DaylightYear
    Wscript.Echo "Description: " & objItem.Description
    'Wscript.Echo "Setting ID: " & objItem.SettingID
    'Wscript.Echo "Standard Bias: " & objItem.StandardBias
    'Wscript.Echo "Standard Day: " & objItem.StandardDay
    Wscript.Echo "Standard Day of Week: " & objItem.StandardDayOfWeek
    Wscript.Echo "Standard Hour: " & objItem.StandardHour & " AM"
    'Wscript.Echo "Standard Millisecond: " & objItem.StandardMillisecond
    'Wscript.Echo "Standard Minute: " & objItem.StandardMinute
    Wscript.Echo "Standard Month: " & objItem.StandardMonth
    'Wscript.Echo "Standard Name: " & objItem.StandardName
    'Wscript.Echo "Standard Second: " & objItem.StandardSecond
    'Wscript.Echo "Standard Year: " & objItem.StandardYear
    WScript.Echo VbCrLf
   'Set colItems = Nothing

Next
End If
Next
'*=============================================================================
'* END OF SCRIPT: [DSTcheck.vbs]
'*=============================================================================

Code provided to help...
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top