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

Вернуть время с сервера - VBScript/JScript/VBS

08.12.2014, 17:09. Просмотров 1057. Ответов 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

http://www.cyberforum.ru/1c/thread2063841.html



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

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

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

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

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

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

3
Dragokas
Эксперт WindowsАвтор FAQ
16922 / 7007 / 851
Регистрация: 25.12.2011
Сообщений: 10,803
Записей в блоге: 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
Привет! Вот еще темы с решениями:

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

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

Время сервера
Как узнать локальное время сервера, зная IP-адрес этого сервера? Добавлено...

Время с сервера
Как можно отобразить время с центрального пк т.е., сервера, если приложение...


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

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

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