Всем спасибо. Написал свой скрипт. Тупо, но работает.
Функция ПолучитьДату()
ПеремТекущаяДата = "";
Попытка
Ф = ""+КаталогВременныхФайлов()+"\date.txt";
Объект = СоздатьОбъект("wscript.shell");
КомандаСистемы("w32tm /stripchart /computer:time.nist.gov /samples:1>"+Ф+"");
Исключение
Сообщить(ОписаниеОшибки());
Возврат ПеремТекущаяДата;
КонецПопытки;
Текст=СоздатьОбъект("Текст");
Текст.Открыть(Ф);
Для ст=0 по Текст.КоличествоСтрок() Цикл
Если ст=3 Тогда
ПеремТекущаяДата = Сред(Текст.ПолучитьСтроку(ст),17,10);
КонецЕсли;