SecureCRT script for changing date and time

[Skaret]

Hi all!

I'm looking for a script that changes the time and date on a CS1K based on the time and date on my PC. Using SecureCRT from VanDyke.

 

[johnpoole]

integer iDay, iMonth, iYear, iMin, iHour, iSec
   string sSend
  
   ltimeints $LTIME iYear iMonth iDay iHour iMin iSec
   
   strfmt sSend "STAD %02d %02d %d %02d %02d %02d" iDay iMonth iYear iHour iMin iSec
 transmit "ld 2^M"
   waitfor "."
   transmit "TTAD^M"
   waitfor "."
   transmit sSend
   transmit "^M"
   waitfor "."
   mspause 20
   transmit "TTAD^M"
   waitfor "."
   mspause 20
   transmit "****^M"

that's the ascept version, paste that into your editor and let me know what errors you get.. i've got to look into vandyke, a lot of request for help for the new kid on the block..

i have sent working aspect scripts to users who managed to convert the syntex..



john poole
bellsouth business
columbia,sc

 

[Skaret]

This should do it...

Sub Main
	crt.Sleep 1000 
	crt.Screen.Send "****" & chr(13)
	crt.Screen.WaitForString ">"
	crt.Screen.Send "ld 2" & chr(13)
	crt.Screen.WaitForString "."
	crt.Screen.Send "ttad"
	crt.Sleep 1000 
	crt.Screen.Send ("stad " & Day(Now()))
	crt.Screen.Send (" " & Month(Now()))
	crt.Screen.Send (" " & Year(Now()))
	crt.Screen.Send (" " & Hour(Now()))
	crt.Screen.Send (" " & Minute(Now()))
	crt.Screen.Send (" " & Second(Now())) & chr(13)
	crt.Screen.WaitForString "."
	crt.Sleep 1000
	crt.Screen.Send "ttad"
	crt.Sleep 1000
	crt.Screen.Send "****" & chr(13)
End Sub