I wrote a quick bit of code that if you run it on either a windows workstation or server it will tell you if the patch for the 2007 DST change has been applied. This might be helpful in collecting info on your workstations through a postopen event in mail or on your servers just to confirm that everything is patched.
The “on error resume next” is important since it is looking for a reg key that will not be present if the patch is not installed and this will throw an error that you want to ignore.
Sub Click(Source As Button)
On Error Resume Next
Dim WshShell As Variant
Set WshShell = CreateObject("WScript.Shell")
Dim DynamicTZInfo As String
'This is a key that gets added by the patch. It will throw an error if the patch isn't present
DynamicTZInfo = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Time Zones\Eastern Standard Time\Dynamic DST\FirstEntry")
If DynamicTZInfo = "" Then
Msgbox "Patch Not Installed"
Else
Msgbox "Patch Installed"
End If
End Sub
Enjoy,
Rob