Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") 
Set colEvents = objWMIService.ExecQuery _ 
	("Select * from Win32_TimeZone" )
For Each obj In colEvents
	Utc = obj.Bias
	Exit For
Next

Set dtDate = CreateObject("WbemScripting.SWbemDateTime") 
dtTargetDate = CDate("2005/10/18 23:59:59") 
dtDate.SetVarDate dtTargetDate, False
dtDate.UTC = Utc
Wscript.Echo dtDate