Отлично.
Ещё один момент нужно учесть - это настройки службы W32Time:
'W32Time. Настройка службы
Value = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\w32time\"
CreateObject("WScript.Shell").RegWrite(Value & "Config\MaxNegPhaseCorrection", 31536000, "REG_DWORD") 'Максимальный порог отклонения времени от времени компьютера, секунды, 31536000 = 1 год
CreateObject("WScript.Shell").RegWrite(Value & "Config\MaxPosPhaseCorrection", 31536000, "REG_DWORD") 'Минимальный порог отклонения времени от времени компьютера, секунды, 31536000 = 1 год
CreateObject("WScript.Shell").RegWrite(Value & "TimeProviders\NtpClient\SpecialPollInterval", 3600, "REG_DWORD") 'Интервал обновления времени, секунды
Стандартный порог отклонения времени винде 15 часов, поэтому когда зануляется время и текущее более 15 часов, то возникает ошибка, а задав несколько больший интервал, всё в порядке, не обязательно год, достаточно будет суток в секундах!
Ну и для автообновления посредством самой винды уменьшаем период до 1 часа