Имя: Пароль:
1C
1С v8
8.1: узнать время на сервере
0 Dmitriy_
Kolesnikov
 
18.04.12
20:34
Здравствуйте!
Есть платформа 8.1.15.14, переход на 8.2 невозможен, УТ 10.3.
Как узнать серверное время?
Менеждеры, редиски, повадились переводить время на компах назад и менять статусы заказов задним числом...
1 Живой Ископаемый
 
18.04.12
20:47
менеджерам премию, админов и программеров наказать....
ах, да.... нанять еще специального человека, который будет узнавать время на сервере.
2 Dmitriy_
Kolesnikov
 
18.04.12
20:50
Как распорядитесь. Завтра будет сделано.
А вопрос в силе.
3 Живой Ископаемый
 
18.04.12
20:52
в вопросе нет важной информации, без которой на него не ответить.
4 BigShmax
 
18.04.12
20:55
(0)  сервер есть домена нет?
5 aleks-id
 
18.04.12
21:03
отнять у менеджеров права установки времени еще не предлагали?
6 mikeA
 
18.04.12
21:16
(0)
   ИмяКомпьютера= "<ИмяСервера>";
   
   ScrptCtrl= Новый COMОбъект("MSScriptControl.ScriptControl");
       
   ScrptCtrl.Language="vbscript";
   ScrptCtrl.AddCode("
   |Function GetTime()
   |Set objWMIService = GetObject(""winmgmts:\\" + ИмяКомпьютера + "\root\cimv2"")
   |Set colItems = objWMIService.ExecQuery(""Select * From Win32_LocalTime"")
   |For Each objItem in colItems
   |    strTime = objItem.Year & ""."" & objItem.Month & ""."" & objItem.Day & "" "" & objItem.Hour & "":"" & objItem.Minute & "":"" & objItem.Second
   |Next    
   |GetTime= strTime
   |End Function
   |");

   ДатаВремяКомпьютераСтрокой= ScrptCtrl.Run("GetTime"));
7 mikeA
 
18.04.12
21:21
(6)+ в последней строке последняя скобка лишняя
и это на 8.2, на 8.1 хз как там COM объекты создавались, наверное примерно так же
8 Живой Ископаемый
 
18.04.12
21:23
2(7) а как ты понял что база у него файловая?
9 mikeA
 
18.04.12
21:27
(8) когда есть сервер, достаточно на нём вызвать ТекущаяДата() и вернуть на клиента )))
10 Живой Ископаемый
 
18.04.12
21:33
хм... тоже верно
11 acsent
 
18.04.12
21:46
вроде дата запрета никак не ориентируется на время компа
12 Лефмихалыч
 
18.04.12
22:36
(0) рецепт прост, как мычание: журнал регистрации, служебка на директора с доказульками, объяснительные (план Б - репресии)
автоматизация не нужна
13 zak555
 
18.04.12
22:43
> переход на 8.2 невозможен


почему ?
14 Лефмихалыч
 
18.04.12
22:44
(13) возвижу - это филиал, а головная компания ни чего менять не желает
15 Dmitriy_
Kolesnikov
 
19.04.12
13:54
(6) благодарю.
А как в vbscript авторизоваться на сервере?
Патамушта
===
Ошибка при вызове метода контекста (Run): Произошла исключительная ситуация (Ошибка выполнения Microsoft VBScript): Разрешение отклонено: 'GetObject'
===
Насколько я понимаю, причина в том, что гостям нельзя исполнять скрипты на сервере.
16 Maxus43
 
19.04.12
13:56
может легче запрос через инет на время по атомным часам сделать?
17 Dmitriy_
Kolesnikov
 
19.04.12
14:19
(16) интересная мысль, поищу реализации. Возможно, в одной из системных библиотек есть функция запроса времени на time.windows.com.
Компьютер — устройство, разработанное для ускорения и автоматизации человеческих ошибок.