Change time 4

[eprice2]

Is there a way to change the time on the phone switch? All our phones are 5 minutes fast.

Thanks.

 

[geirendre]

Oops sorry, forgot to include that my script is for
ProComm 4.8, and should also run on the 4.7 version.

 

[MrPederman]

I can't remember the pep number, but Nortel does have a patch to account for the 15 seconds it loses each day.

With the patch installed you may not have to reset the time as often and may not have to use the "sdta" command to compensate.

 

[jamie2]

I use both procomm and ZOC from emtec.com

ZOC supports the Rlogin protocol and supports scripting similiar to Procomm, but it uses REXX language.

Look in the FAQ's, FirebirdScrambler post a FAQ for UWIN. This is an open source telnet server, so you can run Procomm on the network. There are other ways too, but hey its free.

 

[ChrisJGB]

Is there or has someone has the TIME script for SecureCRT

Chris

 

[scratchy5009]

Thanks for the scripts which work great. Another problem that I have is that, If I combine the script above with a Tracker 2700 logon script I cannot compile the script together.

Indiviually they work great. Any Ideas

***********************************************************
;Recorded script. Editing may be required.
proc main
transmit "user^M"
waitfor "password: "
transmit "password^M"
waitfor " Select one of the above options: "
transmit "1^M"
waitfor "ONNECT 19200 ( Escape sequence ~@ ) ^M^J"
transmit "^M"
waitfor ">"
transmit "logi ******^M"
waitfor "PASS?"
transmit "password^M"
endproc

;Set date and time plus check DST.
;===============================================================
; Works best if you have NTP enabled on this PC.

proc main
integer iDay, iMonth, iYear, iMin, iHour, iSec, TimeDelta
string DMYHMS
TimeDelta=6 ; Approx delay in script....

set txpace 75
Transmit "****^M"
waitfor ">"
transmit "LD 2^M"
waitfor "."
termwrites "System time before adjusting:`n`r"
pause 2
transmit "TTAD^M"
waitfor "."

; Calculate date and time string.
ltimeints $LTIME iYear iMonth iDay iHour iMin iSec

; Adjust for delay in script.
iSec=iSEc+TimeDelta
if iSec>60 ; Seconds must not be greater that 60.
iSec=iSec-60
iMin=iMin+1
if iMin>60 ; Minutes must not be greater that 60.
iMin=iMin-60
iHour=iHour+1
endif
endif

; Put the parts together.
strfmt DMYHMS "STAD %02d %02d %d %02d %02d %02d^M" iDay iMonth iYear iHour iMin iSec

; and send it to the switch
transmit DMYHMS
waitfor "."
pause 6
termwrites "System time after adjusting:`n`r"
pause 1
transmit "TTAD^M"
waitfor "."
pause 1
termwrites "This is the current DST settings: `n`r"
pause 1
transmit "TDST^M"
waitfor "."
pause 1
transmit "****^M"

endproc

***********************************************************

 

[scratchy5009]

Hi Folks,

Found the problem ME on a friday night!! This was in the wrong place should have been at the top

integer iDay, iMonth, iYear, iMin, iHour, iSec, TimeDelta
string DMYHMS

Thanks for your help
Scratchy

 

[BrokenRecord2]

In RLS 5 there is a way to connect to a NTP service like in the data world. Finally!

 

[jamie2]

Scratchy, also you have two MAIN PROC's in your script. Your Main PROC, should CALL a sub routine PROC.

 

[johnpoole]

jamie's right..

proc main
x

x
x
x
x

call proc second

x
x
x
x


endproc

proc second  

x
x
x
xx
endproc

after the call completes the flow returns to the main.. but that is a good script..

john poole
bellsouth business
columbia,sc

 

[vmailguy]

The clock in in the processors sometimes runs fast or slow. I have had luck with the Daily time adjustment in LD 2.

LD 02
Set daily time adjustment
The time of day can be adjusted during the midnight routines to compensate
for a fast or slow system clock.
To print the current adjustment: TDTA X y
To set the adjustment: SDTA X y -- X Y
Legend
x = 0 (negative increment) or 1 (positive increment)
y = 0-60 second adjustment in increments of 100 ms

Brian Rath
Verizon
Raleigh,NC