Set oWSH = CreateObject("WScript.Shell")
oWSH.Run "RunDLL32 shell32.dll,Control_RunDLL %SystemRoot%\system32\TIMEDATE.cpl,,/Z China Standard Time", 0, True