SINCRONIZA HORARIO COM A HORA DO SERVIDOR

//Example Synchronizes TIME with SERVER TIME
//SINCRONIZA HORARIO COM A HORA DO SERVIDOR

PathFile is string = fCurrentDir(fCurrentDrive()) +"\Nagyro.ini"
IF CBOX_Sincronizar..Value = True THEN
Sincronizar = "S"
ok is boolean = INIWrite("Nagyro", "Sincronizar", Sincronizar , PathFile)
IF ErrorOccurred = True AND Sincronizar = "" THEN
Error()
END
ELSE
Sincronizar = "N"
ok is boolean = INIWrite("Nagyro", "Sincronizar", Sincronizar , PathFile)
IF ErrorOccurred = True AND Sincronizar = "" THEN
Error()
END
END

IF Sincronizar = "S" THEN
ExeRun("NET TIME \\192.168.1.180 /SET /YES",exeIconize,exeDontWait)
END