Получить время из Интернет

Функция ВремяСети()
	шелл = CreateObject("WScript.Shell");
	консоль = шелл.Exec("cmd.exe /q /k  echo off");
	поток = консоль.StdOut;
	консоль.StdIn.WriteLine("net time");
	консоль.StdIn.WriteLine("exit");
	Возврат поток.ReadAll();
КонецФункции

Функция СетевоеВремя() 
	Скрипт = "
	|Function NetTime()
	|	Set WshShell = CreateObject(""WScript.Shell"")
	|	Set WshExec = WshShell.Exec(""cmd.exe /q /k  echo off"")
	|	Set TextStream = WshExec.StdOut
	|	WshExec.StdIn.WriteLine ""net time""
	|	WshExec.StdIn.WriteLine ""exit""
	|	Str = TextStream.ReadAll
	|	fp = InStr(str,"":"")
	|	ms = Int(Mid(str,fp+1,2))
	|	if InStr(Mid(str,fp+2,4),""P"")>0 Then
	|		hs=Int(Mid(str,fp-2,2))+12
	|	Else
	|		hs=Int(Mid(str,fp-2,2))
	|	End if
	|	NetTime = hs&"":""&ms
	|End Function
	|";
	ИспСкрипт=СоздатьОбъект("MSScriptControl.ScriptControl");
	ИспСкрипт.Language="vbscript";
	ИспСкрипт.AddCode(Скрипт);
    Возврат ИспСкрипт.Modules("Global").CodeObject.NetTime();
КонецФункции

	ах=СоздатьОбъект("MSXML2.XMLHTTP");
	ах.Open("get", "http://www.direct-time.ru/index.php?id=16",0);
	ах.Send();
	стрОтвет=ах.Responsetext;
	чСимв=Найти(стрОтвет,"<td id=""local_time"">");
	стрТекВремя=Сред(стрОтвет,чСимв+20,8);
	Сообщить(стрТекВремя);

//==================================================
// Определяет время контролера домена
// Возвращает строку:
//	- со временем (успешно)
//	- пустую (ошибки)
//
Функция ВремяДомена() Экспорт
	Результат = "";
	
	КодОшб=ПроверитьДоступностьУзла(СерверИмя);
	Если КодОшб>0 Тогда
		глИнформация("Ошибка пинга контролера домена = "+КодОшб+" (ВремяДомена)","Класс",_ИмяКласса);
		Возврат Результат;
	КонецЕсли;
	
	Попытка
		ТекстСкрипта = 
		   "Function NetTime()
		   |   Set WshShell = CreateObject(""WScript.Shell"")
		   |   Set WshExec = WshShell.Exec(""cmd.exe /q /k  echo off"")
		   |   Set TextStream = WshExec.StdOut
		   |   WshExec.StdIn.WriteLine ""net time""
		   |   WshExec.StdIn.WriteLine ""exit""
		   |   Str = TextStream.ReadAll
		   |   fp = InStr(str,"":"")
		   |   ms = Int(Mid(str,fp+1,2))
		   |   if InStr(Mid(str,fp+2,4),""P"")>0 Then
		   |      hs=Int(Mid(str,fp-2,2))+12
		   |   Else
		   |      hs=Int(Mid(str,fp-2,2))
		   |   End if
		   |   NetTime = hs&"":""&ms
		   |End Function
		   |"
		   ;
		Скрипт=СоздатьОбъект("MSScriptControl.ScriptControl");
		Скрипт.Language="vbscript";
		Скрипт.AddCode(ТекстСкрипта);
		Результат = Скрипт.Modules("Global").CodeObject.NetTime();
		
		ТекстСкрипта=Пусто; Скрипт=Пусто;
	Исключение
		глИнформация("Ошибка получения времени домена = <"+ОписаниеОшибки()+">","Класс",_ИмяКласса);
	КонецПопытки;
	КодОшб=Пусто;
	
	Возврат Результат;
КонецФункции	// ВремяДомена

//==================================================
// Определяет киевское время на WEB-узле www.direct-time.ru
// Возвращает строку:
//	- со временем (успешно)
//	- пустую (ошибки)
//
Функция ВремяВеб() Экспорт
	Результат = "";
	
	КодОшб=ПроверитьДоступностьУзла(СерверИмя);
	Если КодОшб>0 Тогда
		глИнформация("Ошибка пинга контролера домена = "+КодОшб+" (ВремяВеб)","Класс",_ИмяКласса);
		Возврат Результат;
	КонецЕсли;
	
	Попытка
		ах=СоздатьОбъект("MSXML2.XMLHTTP");
		ах.Open("get", "http://www.direct-time.ru/index.php?id=16",0);
		ах.Send();
		стрОтвет=ах.ResponseText;
		чСимв=Найти(стрОтвет,"<td id=""local_time"">");
		Если чСимв>0 Тогда
			Результат=СокрЛП(Сред(стрОтвет,чСимв+20,8));
		Иначе
			глИнформация("Ошибка! Не найден тег '<td id=""local_time"">' в тексте длиной "+СтрДлина(стрОтвет),"Класс",_ИмяКласса);
		КонецЕсли;
		
		ах=Пусто; стрОтвет=Пусто; чСимв=Пусто;
	Исключение
		глИнформация("Ошибка получения времени веб = <"+ОписаниеОшибки()+">","Класс",_ИмяКласса);
	КонецПопытки;
	
	Возврат Результат;
КонецФункции	// ВремяВеб

Пусто=ПолучитьПустоеЗначение();