ник: Pasat
На компе с IP Adress 192.168.0.2 установлено время 26.08.2008 13:30 (сетьевой комп)
На компе с IP Adress 192.168.0.3 установлено время 27.08.2008 13:30
(главный комп)
с компа (IP Adress 192.168.0.2) выполняю код
Public Sub SetNETTime()
Shell ("net time \\192.168.0.3 /SET /y")
Debug.Print Now
End Sub
|
В отладчике получаю
26.08.2008 13:30 а нужно
27.08.2008 13:30 (т.е. время главного компа)
Что-то не то
зы Сори не заметил время меняется на то которое установлено на главном компе просто надо Debug.Print Now выполнять с небольшой задержкой.
Public Sub SetNetTime()
Dim sglStart
Shell ("net time \\192.168.0.3 /SET /y")
sglStart = Timer
Do While (Timer - sglStart) < 2
DoEvents
Loop
Debug.Print Now
End Sub
|
Теперь надо помозговать как это приспособить для свой задачи
Спасибо OSMOR
