Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBScript/JScript/WSH/WMI/HTA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
hristofernando
31 / 31 / 4
Регистрация: 23.03.2014
Сообщений: 181
1

Вернуть время с сервера

08.12.2014, 17:09. Просмотров 1110. Ответов 3
Метки нет (Все метки)

Доброго времени суток! подскажите пожалуйста нубарику как получить время из интернета средствами vbs? нашел 1 вариант но отрабатывает не всегда (со второго или с третьего раза - ошибка msxml3 - все обновил)
Кликните здесь для просмотра всего текста
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
function SetAtomicTime
   TimeServer = "http://time.nist.gov:13"
   TimeZoneOffset = +10
   Set Spider = CreateObject ("Microsoft.XMLHTTP")
   'Set Spider = CreateObject ("MSXML2.XMLHTTP.3.0")
   'Set Spider = CreateObject ("MSXML2.ServerXMLHTTP")
   'Set Spider = CreateObject ("MSXML2.ServerXMLHTTP.6.0")
   Spider.Open "GET", TimeServer, False, "", ""
   'Spider.setRequestHeader "Pragma","no-cache"
   'Spider.setRequestHeader "Cache-Control","no-cache"
   Spider.Send
   NIST = Spider.ResponseText
   Set Spider = Nothing
   UTC = Mid(NIST, 11, 2) & "/" & Mid(NIST, 14, 2) & "/" & Mid(NIST, 8, 2) & " " & Mid(NIST, 16, 9)
   'Create the local time
   LocalTime = DateAdd("h", TimeZoneOffset, UTC)
   setAtomicTime = LocalTime
End Function
time1 = SetAtomicTime
msgbox time1


может есть другие скрипты поделитесь
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.12.2014, 17:09
Ответы с готовыми решениями:

1с 8.2 вернуть тз с сервера на клиент и перебрать
Всё, сдаюсь... Прошу помощи по решению следующего вопроса. Я работал в...

Время сервера и время записи в файл
Всем привет! Мужики, помогите решить проблему. Есть сайт. При определенных...

Ответ сервера вернуть, как результат функции
Всем привет. Не могу найти пример кода, на jQuery, который бы использовал...

Как на VBScript сделать запрос по заданной ссылке и вернуть состояние сервера?
Всем привет! Очень спасибо кто смотрит... у меня есть IIS на нём HTML он...

Заставить Calendar вернуть время заданного часового пояса
Ув. программисты, помогите, пожалуйста. Вот таким вот образом я получаю дату...

3
Dragokas
Эксперт WindowsАвтор FAQ
17009 / 7065 / 856
Регистрация: 25.12.2011
Сообщений: 10,881
Записей в блоге: 16
08.12.2014, 20:35 2
hristofernando, здравствуйте !

Попробуйте через другой сервер, timeserver.ru например.

http://time.nist.gov не всегда с первого раза и через родной интерфейс обновляется.
0
hristofernando
31 / 31 / 4
Регистрация: 23.03.2014
Сообщений: 181
08.12.2014, 23:43  [ТС] 3
Dragokas Спасибо за ответ, но ошибка - не удается найти указанный ресурс пробовал так же для time.windows.com time-nw.nist.gov и еще несколько ошибка та же + в каких то случаях ругается на Spider.Send

Добавлено через 5 минут
скрипт работает из под программы mathcad и пробовал повторить выполнение скрипта через 3 сек ошибка остается и работает только если пере открыть документ с этим скриптом

можно парсер написать но это не гуд

Добавлено через 1 час 45 минут
+ ошибка - 12.08.2014 22:05:00 или 08.12.2014 22:05:00 - местами меняются число и месяц рандомно в интервале = 3-5 дней
0
hristofernando
31 / 31 / 4
Регистрация: 23.03.2014
Сообщений: 181
22.12.2014, 04:11  [ТС] 4
может кому пригодится
Кликните здесь для просмотра всего текста
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Const ForReading = 1
Const ForWriting = 2
 
'часовые пояса [url]http://json-time.appspot.com/timezones.json?callback=foo[/url]
InetFile = "http://json-time.appspot.com/time.json?tz=Europe/Moscow"
localFile = "C:\Users\USERNAME\Desktop\time.txt"
 
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
oXMLHTTP.Open "GET", InetFile, 0
oXMLHTTP.Send
 
Set oADOStream = CreateObject("ADODB.Stream")
oADOStream.Mode = 3
oADOStream.Type = 1
oADOStream.Open
oADOStream.Write oXMLHTTP.responseBody
 
oADOStream.SaveToFile localFile, 2
 
Set oXMLHTTP = Nothing
Set oADOStream = Nothing
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(localFile, ForReading)
objFile.SkipLine
objFile.SkipLine
objFile.SkipLine
objFile.Skip 20
strText = objFile.ReadLine
objFile.Close
strNewText = Replace(strText, "+0300"",", "")
objFSO.DeleteFile localFile
Set objFSO = Nothing
MsgBox strNewText
3
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.12.2014, 04:11

Visual c++ как вернуть системную дату и время на русском языке ctime
Visual c++ как вернуть системную дату и время на русском языке ctime? ...

Время сервера
Кто-нибудь пробовал программно записывать время с сервера???

Время сервера
Подскажите как узнать через JS скрипт или передать JSy время сервера ? К...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru