http://www.todopvr.com/foro/viewtopic.php?f=55&t=6714
-----------------------------------
Shark
Dom 14 Oct, 2007 10:25

Sincronización PC y M740
-----------------------------------
[b]Manual creado por ipe[/b]

Para los que tienen problemas de hora errónea, he escrito este [color=#2600ff]script para windows que sincroniza la hora del PC con la del m740[/color]. O sea, que si la hora del PC es correcta, te actualiza correctamente la del m740. 


Pasos: 

Crear un fichero de texto con la extensión bat, y con el contenido del fichero adjunto: 

Editar el fichero bat y modificar los datos en rojo por los de vuestro cacharro. 

Ejecutar el bat (NO cambiar el foco a otra ventana, para que el script funcione) 

Si funciona bien, puede merecer la pena ejecutarlo diariamente mediante el programador de tareas de Windows (El cacharro cambia por su cuenta la hora en la sesión de mantenimiento) 



Nota: Requiere versión SIESTA o similar con acceso por telnet 

--------------- Cortar bajo esta linea-------------------------------------------------------------------- 
@ECHO OFF 
:: ::::::::::::::::::::::::::::::::::::::::::::: 
:: temp_SendKeys.VBS contiene el script vbs 
ECHO.set handler=WScript.CreateObject("WScript.Shell") > temp_SendKeys.VBS 
ECHO.set objWMIService = GetObject("winmgmts:.rootcimv2") >> temp_SendKeys.VBS 
ECHO.WScript.sleep 500 >> temp_SendKeys.VBS 


:: ::::::::::::::::::::::::::::::::::::::::::::: 
:: Abrir conexion 
ECHO.handler.SendKeys "open 192.168.1.3~" >> temp_SendKeys.VBS 
ECHO.WScript.sleep 3000 >> temp_SendKeys.VBS 


:: ::::::::::::::::::::::::::::::::::::::::::::: 
:: Login 
ECHO.handler.SendKeys "r~" >> temp_SendKeys.VBS 
ECHO.WScript.sleep 500 >> temp_SendKeys.VBS 
:: Send Password 
ECHO.handler.SendKeys "r~" >> temp_SendKeys.VBS 
ECHO.WScript.sleep 500 >> temp_SendKeys.VBS 


:: ::::::::::::::::::::::::::::::::::::::::::::: 
:: Mostra fecha antigua y enviar fecha del PC en UTC 
ECHO.handler.SendKeys "date ~" >> temp_SendKeys.VBS 
ECHO.WScript.sleep 100 >> temp_SendKeys.VBS 
ECHO.handler.SendKeys "date " >> temp_SendKeys.VBS 
ECHO.Set colItems = objWMIService.ExecQuery("Select * from Win32_UTCTime") >> temp_SendKeys.VBS 
ECHO.For Each objItem in colItems >> temp_SendKeys.VBS 
ECHO.handler.SendKeys objItem.Hour >> temp_SendKeys.VBS 
ECHO.handler.SendKeys ":" >> temp_SendKeys.VBS 
ECHO.handler.SendKeys objItem.Minute>> temp_SendKeys.VBS 
ECHO.handler.SendKeys ":" >> temp_SendKeys.VBS 
ECHO.handler.SendKeys objItem.Second>> temp_SendKeys.VBS 
ECHO.handler.SendKeys "~" >> temp_SendKeys.VBS 
ECHO.Next >> temp_SendKeys.VBS 
ECHO.WScript.sleep 2000 >> temp_SendKeys.VBS 


:: ::::::::::::::::::::::::::::::::::::::::::::: 
:: Logout 
ECHO.handler.SendKeys "exit~" >> temp_SendKeys.VBS 
ECHO.WScript.sleep 500 >> temp_SendKeys.VBS 
ECHO.handler.SendKeys " ~" >> temp_SendKeys.VBS 
ECHO.WScript.sleep 500 >> temp_SendKeys.VBS 
ECHO.handler.SendKeys "quit~" >> temp_SendKeys.VBS 
ECHO.WScript.sleep 250 >> temp_SendKeys.VBS 


:: Abrir ventana Telnet 
start telnet.EXE 


:: Ejecutar script 
cscript//nologo temp_SendKeys.VBS 


:: Borrar script 
DEL temp_SendKeys.VBS 
------------------------------------------- Cortar hasta esta linea, excluida-------------------------------------------[color=#0019ff][/color]