Appendix A - SCPTelnet Interpreter Script Samples

btn_mini.gif Digital UNIX

btn_mini.gif LINUX

 

Digital UNIX Example:

DEFINE %Unlock User Cmd% == /usr/sbin/usermod -x administrative_lock_applied=0

DEFINE %Lock User Cmd%  == /usr/sbin/usermod -x administrative_lock_applied=1

DEFINE %Add User Cmd%  == /usr/sbin/useradd -m

DEFINE %Chg User Login Cmd% == /usr/sbin/usermod -l

DEFINE %Del User Cmd%  == /usr/sbin/userdel -r

DEFINE %Open Error Msg1% == 'Unexpected promt character - Open Service'

DEFINE %Modify Error Msg1% == 'Unexpected prompt character - Modify Service'

DEFINE %User Home Path%  == /usr/users/

 

//SCRIPT-BEGIN

 

:HOST-SIGNIN:

 

WAIT 180  

HOSTMSG 'ogin',  SEND[Host Login Name], GOTO HOST-SIGNIN  

HOSTMSG 'asswor',  SEND [Host Login Pswd], EXITLOOP  

TIMEOUT ,   GOTO HOST-LOGIN-TIMEOUT 

ENDWAIT  

 

WAIT 30 

HOSTMSG 'ncorrect' , ERRMSG 'Fail to logon to host system - incorrect password' 

HOSTMSG 'etry' , ERRMSG 'Fail to logon to host system - incorrect password'  

HOSTMSG 'ot authorized', ERRMSG 'Fail to logon to host system - user _ 

     not authorized'

HOSTMSG '>' , SVC-EXECUTED  

TIMEOUT , GOTO HOST-LOGIN-TIMEOUT  

ENDWAIT 

 

:HOST-LOGIN-TIMEOUT: 

ERRMSG 'Fail in host login. No respond from Host system' 

 

 

 

 

:OPEN:

 

SEND <su> 

WAIT 10 

HOSTMSG 'assword', SEND [su pswd] , EXITLOOP 

TIMEOUT , GOTO OPEN-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG 'orry' , ERRMSG 'Error in SU password - Open Service' 

HOSTMSG '>' , ERRMSG %Open Error Msg1% 

HOSTMSG '#' , SEND <%Add User Cmd%> [Login] , EXITLOOP 

TIMEOUT , GOTO OPEN-SVC-TIMEOUT 

ENDWAIT 

 

WAIT  

HOSTMSG 'unable', ERRMSG 'FAIL in SEND /usr/ - Open Service' 

HOSTMSG 'exist', ERRMSG 'User already exist/ or retire user - Open Service' 

HOSTMSG 'too long', ERRMSG 'New user name too long - Open Service' 

HOSTMSG '>' , ERRMSG %Open Error Msg1% 

HOSTMSG '#',   SEND <passwd> [Login], EXITLOOP 

TIMEOUT , GOTO OPEN-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG 'unknown' , ERRMSG 'Error in creating new user - Open Service' 

HOSTMSG 'choice here', SEND <p>, EXITLOOP 

TIMEOUT , GOTO OPEN-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG 'assword', SEND [Password] ,EXITLOOP 

TIMEOUT , GOTO OPEN-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG 'e-enter' , SEND [Password] ,EXITLOOP 

TIMEOUT , GOTO OPEN-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG '>' , ERRMSG %Open Error Msg1% 

HOSTMSG '#' , SEND <chfn> [Login], EXITLOOP 

TIMEOUT , GOTO OPEN-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG 'unknown' , ERRMSG 'Error in creating new user - Open Service' 

HOSTMSG '#' , ERRMSG %Open Error Msg1%  

HOSTMSG 'ame' , SEND [Account Name], EXITLOOP 

TIMEOUT , GOTO OPEN-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG '#' , ERRMSG %Open Error Msg1%  

HOSTMSG 'ffice' , SEND [+CRLF], EXITLOOP 

TIMEOUT , GOTO OPEN-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG '#' , ERRMSG %Open Error Msg1%  

HOSTMSG 'hone' , SEND [+CRLF],EXITLOOP 

TIMEOUT , GOTO OPEN-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG '#' , ERRMSG %Open Error Msg1%  

HOSTMSG 'ome' , SEND [+CRLF], EXITLOOP 

TIMEOUT , GOTO OPEN-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG '>' , ERRMSG %Open Error Msg1% 

HOSTMSG  '#',  SEND  <%Unlock User Cmd%>  [Login] ,  EXITLOOP 

TIMEOUT , GOTO OPEN-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG '>' , ERRMSG %Open Error Msg1% 

HOSTMSG '#' ,SEND <exit>, EXITLOOP 

TIMEOUT , GOTO OPEN-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG '>' , SVC-EXECUTED 

TIMEOUT , GOTO OPEN-SVC-TIMEOUT 

ENDWAIT 

 

:OPEN-SVC-TIMEOUT: 

ERRMSG 'Unrecognise Host respond message / No respond from Host system - Open Service' 

 

 

 

 

:MODIFY:

 

SEND <su> 

WAIT 

HOSTMSG 'assword',SEND [su pswd], EXITLOOP 

TIMEOUT ,GOTO MODIFY-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG 'orry', ERRMSG 'Error in SU password - Modify Service' 

HOSTMSG '>' , ERRMSG %Modify Error Msg1% 

HOSTMSG '#' , EXITLOOP 

TIMEOUT ,  GOTO MODIFY-SVC-TIMEOUT 

ENDWAIT 

 

CASE [MOD Password] 

SEND <passwd> [Login] 

WAIT  

HOSTMSG 'unknown' , ERRMSG 'Retire or Unknown User - Modify Service' 

HOSTMSG 'choice here', SEND <p>, GOTO MODIFY-JUMP-P1 

HOSTMSG 'old password', SEND [Password],EXITLOOP 

TIMEOUT , GOTO MODIFY-SVC-TIMEOUT 

ENDWAIT 

 

WAIT  

HOSTMSG 'incorrect' , ERRMSG 'Error incorrect old password - Modify Service' 

HOSTMSG '>' , ERRMSG %Modify Error Msg1% 

HOSTMSG 'choice here', SEND <p>, EXITLOOP 

TIMEOUT , GOTO MODIFY-SVC-TIMEOUT  

ENDWAIT 

 

:MODIFY-JUMP-P1: 

WAIT 

HOSTMSG 'invalid' , ERRMSG 'invalid choice - Modify Service' 

HOSTMSG 'ew password', SEND [MOD Password] ,EXITLOOP 

TIMEOUT , GOTO MODIFY-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG 'llegal', ERRMSG 'Illegal new password - Modify Service' 

HOSTMSG 'e-enter' , SEND [MOD Password] ,EXITLOOP 

TIMEOUT , GOTO MODIFY-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG 't match' , ERRMSG 'Retype password don't match - Modify Service'  

HOSTMSG '>' , ERRMSG %Modify Error Msg1% 

HOSTMSG '#' , EXITLOOP 

TIMEOUT , GOTO MODIFY-SVC-TIMEOUT 

ENDWAIT 

ENDCASE 

 

CASE [MOD Account Name] 

SEND <chfn> [Login] 

WAIT 

HOSTMSG 'unknown user' , ERRMSG 'Retired or Unknown user - Modify Service' 

HOSTMSG '#' , ERRMSG %Modify Error Msg1%  

HOSTMSG 'ame' , SEND [mod Account Name], EXITLOOP 

TIMEOUT , GOTO MODIFY-SVC-TIMEOUT  

ENDWAIT 

 

WAIT 

HOSTMSG '#' , ERRMSG %Modify Error Msg1%  

HOSTMSG 'ffice' , SEND [+CRLF], EXITLOOP 

TIMEOUT , GOTO MODIFY-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG '#' , ERRMSG %Modify Error Msg1%  

HOSTMSG 'hone' , SEND [+CRLF], EXITLOOP 

TIMEOUT , GOTO MODIFY-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG '#' , ERRMSG %Modify Error Msg1%  

HOSTMSG 'ome' , SEND [+CRLF], EXITLOOP 

TIMEOUT , GOTO MODIFY-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG '>' , ERRMSG %Modify Error Msg1%  

HOSTMSG '#' , EXITLOOP 

TIMEOUT , GOTO MODIFY-SVC-TIMEOUT 

ENDWAIT 

ENDCASE 

 

CASE [MOD Login] 

SEND <%Chg User Login Cmd%> [MOD Login]<-d> <%User Home Path%>~_ 

[MOD Login]<-m> [Login] 

WAIT 

HOSTMSG 'user not found' , ERRMSG 'User not found - Modify Service'  

HOSTMSG 'retired' , ERRMSG 'Account already closed - Modify Service'  

HOSTMSG '>' , ERRMSG %Modify Error Msg1% 

HOSTMSG '#' , SEND <%Unlock User Cmd%> [MOD Login], EXITLOOP 

TIMEOUT , GOTO MODIFY-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG '>' , ERRMSG %Modify Error Msg1% 

HOSTMSG '#' , EXITLOOP 

TIMEOUT , GOTO MODIFY-SVC-TIMEOUT 

ENDWAIT 

ENDCASE 

 

SEND <exit> 

WAIT 

HOSTMSG '>' , SVC-EXECUTED 

TIMEOUT , GOTO MODIFY-SVC-TIMEOUT 

ENDWAIT 

 

:MODIFY-SVC-TIMEOUT: 

ERRMSG 'Unrecognise Host respond message / No respond from Host system - Modify Service' 

 

 

 

:CLOSE:

 

SEND <su> 

WAIT 

HOSTMSG 'assword', SEND [su pswd],EXITLOOP 

TIMEOUT , GOTO CLOSE-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG 'orry' , ERRMSG 'Error in SU password - Close Service' 

HOSTMSG '>' ,  ERRMSG 'Error incorrect promt - Close Service' 

HOSTMSG '#' ,  SEND <%Del User Cmd%> [Login], EXITLOOP 

TIMEOUT , GOTO MODIFY-SVC-TIMEOUT 

ENDWAIT 

 

WAIT  

HOSTMSG 'retired user', SEND <exit>, EXITLOOP 

HOSTMSG 'user not found', SEND <exit>, GOTO CLOSE-JUMP-1 

HOSTMSG '>' , ERRMSG 'Unexpected promt character - Close Service' 

HOSTMSG '#', SEND <exit>, GOTO CLOSE-JUMP-2 

TIMEOUT , GOTO MODIFY-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG '>' , ERRMSG 'User already retired - Close Service' 

TIMEOUT , GOTO MODIFY-SVC-TIMEOUT 

ENDWAIT 

 

:CLOSE-JUMP-1: 

WAIT 

HOSTMSG '>' , ERRMSG 'User not found for deletion - Close Service' 

TIMEOUT , GOTO MODIFY-SVC-TIMEOUT 

ENDWAIT 

 

:CLOSE-JUMP-2: 

WAIT 

HOSTMSG '>' , SVC-EXECUTED 

TIMEOUT , GOTO MODIFY-SVC-TIMEOUT 

ENDWAIT 

 

 

:CLOSE-SVC-TIMEOUT: 

ERRMSG 'Unrecognise Host respond message / No respond from Host system - Close Service' 

 

 

 

 

 

:SUSPEND:

 

SEND <su> 

WAIT 

HOSTMSG 'assword', SEND [su pswd], EXITLOOP 

TIMEOUT , GOTO SUSPEND-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG 'orry' , ERRMSG 'Error in SU password - Suspend Service' 

HOSTMSG '>' , ERRMSG 'Error incorrect promt - Suspend Service' 

HOSTMSG '#' , SEND <%Lock User Cmd%> [Login], EXITLOOP 

TIMEOUT , GOTO SUSPEND-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG 'not found', ERRMSG 'User not found for Suspend Service - Suspend Service' 

HOSTMSG 'retire' , ERRMSG 'User already retired - Suspend Service' 

HOSTMSG '>' , ERRMSG 'Unexpected promt character - Suspend Service' 

HOSTMSG '#' ,   SEND <exit>, EXITLOOP 

TIMEOUT , GOTO SUSPEND-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG '>' , SVC-EXECUTED 

TIMEOUT , GOTO SUSPEND-SVC-TIMEOUT 

ENDWAIT 

 

 

:SUSPEND-SVC-TIMEOUT: 

ERRMSG 'Unrecognise Host respond message / No respond from Host system - Suspend Service' 

 

 

 

 

:UNSUSPEND:

 

SEND <su> 

WAIT 

HOSTMSG 'assword', SEND [su pswd],EXITLOOP 

TIMEOUT , GOTO UNSUSPEND-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG 'orry' , ERRMSG 'Error in SU password - UnSuspend Service' 

HOSTMSG '>' , ERRMSG 'Error incorrect promt - UnSuspend Service' 

HOSTMSG '#' , SEND <%Unlock User Cmd%> [Login], EXITLOOP 

TIMEOUT , GOTO UNSUSPEND-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG 'not found' , ERRMSG 'User not found for Unsuspend Service - UnSuspend Service' 

HOSTMSG 'retire' , ERRMSG 'User already retired - UnSuspend Service' 

HOSTMSG '>' , ERRMSG 'Unexpected promt character - UnSuspend Service' 

HOSTMSG '#' , SEND <exit>, EXITLOOP 

TIMEOUT , GOTO UNSUSPEND-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG '>' , SVC-EXECUTED 

TIMEOUT , GOTO UNSUSPEND-SVC-TIMEOUT 

ENDWAIT 

 

 

:UNSUSPEND-SVC-TIMEOUT: 

ERRMSG 'Unrecognise Host respond message / No respond from Host system - UnSuspend Service' 

 

 

//SCRIPT-END

 

LINUX Example:

DEFINE %Unlock User Cmd% == /usr/sbin/usermod -x administrative_lock_applied=0

DEFINE %Lock User Cmd%  == /usr/sbin/usermod -x administrative_lock_applied=1

DEFINE %Add User Cmd%  == /usr/sbin/useradd -m

DEFINE %Chg User Login Cmd% == /usr/sbin/usermod -l

DEFINE %Del User Cmd%  == /usr/sbin/userdel -r

DEFINE %Open Error Msg1% == 'Unexpected promt character - Open Service'

DEFINE %Modify Error Msg1% == 'Unexpected prompt character - Modify Service'

DEFINE %User Home Path%  == /home/

 

//SCRIPT-BEGIN

 

:HOST-SIGNIN:

 

WAIT 180  

HOSTMSG 'ogin',  SEND[Host Login Name], GOTO HOST-SIGNIN  

HOSTMSG 'asswor',  SEND [Host Login Pswd], EXITLOOP  

TIMEOUT ,   GOTO HOST-LOGIN-TIMEOUT 

ENDWAIT  

 

WAIT 30 

HOSTMSG 'ncorrect' , ERRMSG 'Fail to logon to host system - incorrect password' 

HOSTMSG 'etry' , ERRMSG 'Fail to logon to host system - incorrect password'  

HOSTMSG 'ot authorized', ERRMSG 'Fail to logon to host system - user _ 

     not authorized'

HOSTMSG ']$' , SVC-EXECUTED  

TIMEOUT , GOTO HOST-LOGIN-TIMEOUT  

ENDWAIT 

 

:HOST-LOGIN-TIMEOUT: 

ERRMSG 'Fail in host login. No respond from Host system' 

 

 

 

 

:OPEN:

 

SEND <su> 

WAIT 10 

HOSTMSG 'assword', SEND [su pswd] , EXITLOOP 

TIMEOUT , GOTO OPEN-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG 'orry' , ERRMSG 'Error in SU password - Open Service' 

HOSTMSG ']$' , ERRMSG %Open Error Msg1% 

HOSTMSG '#' , SEND <%Add User Cmd%> [Login] , EXITLOOP 

TIMEOUT , GOTO OPEN-SVC-TIMEOUT 

ENDWAIT 

 

WAIT  

HOSTMSG 'unable', ERRMSG 'FAIL in SEND /usr/ - Open Service' 

HOSTMSG 'exist', ERRMSG 'User already exist/ or retire user - Open Service' 

HOSTMSG 'too long', ERRMSG 'New user name too long - Open Service' 

HOSTMSG ']$' , ERRMSG %Open Error Msg1% 

HOSTMSG '#',   SEND <passwd> [Login], EXITLOOP 

TIMEOUT , GOTO OPEN-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG 'assword', SEND [Password] ,EXITLOOP 

TIMEOUT , GOTO OPEN-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG 'llegal', ERRMSG 'Illegal new password - Open Service' 

HOSTMSG 'etype' , SEND [Password] ,EXITLOOP 

TIMEOUT , GOTO OPEN-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG ']$' , ERRMSG %Open Error Msg1% 

HOSTMSG '#' , SEND <chfn> [Login], EXITLOOP 

TIMEOUT , GOTO OPEN-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG 'unknown' , ERRMSG 'Error in creating new user - Open Service' 

HOSTMSG '#' , ERRMSG %Open Error Msg1%  

HOSTMSG 'ame' , SEND [Account Name], EXITLOOP 

TIMEOUT , GOTO OPEN-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG '#' , ERRMSG %Open Error Msg1%  

HOSTMSG 'ffice' , SEND [+CRLF], EXITLOOP 

TIMEOUT , GOTO OPEN-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG '#' , ERRMSG %Open Error Msg1%  

HOSTMSG 'hone' , SEND [+CRLF],EXITLOOP 

TIMEOUT , GOTO OPEN-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG '#' , ERRMSG %Open Error Msg1%  

HOSTMSG 'ome' , SEND [+CRLF], EXITLOOP 

TIMEOUT , GOTO OPEN-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG ']$' , ERRMSG %Open Error Msg1% 

HOSTMSG '#' ,SEND <exit>, EXITLOOP 

TIMEOUT , GOTO OPEN-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG ']$' , SVC-EXECUTED 

TIMEOUT , GOTO OPEN-SVC-TIMEOUT 

ENDWAIT 

 

:OPEN-SVC-TIMEOUT: 

ERRMSG 'Unrecognise Host respond message / No respond from Host system - Open Service' 

 

 

 

 

:MODIFY:

 

SEND <su> 

WAIT 

HOSTMSG 'assword',SEND [su pswd], EXITLOOP 

TIMEOUT ,GOTO MODIFY-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG 'orry', ERRMSG 'Error in SU password - Modify Service' 

HOSTMSG ']$' , ERRMSG %Modify Error Msg1% 

HOSTMSG '#' , EXITLOOP 

TIMEOUT ,  GOTO MODIFY-SVC-TIMEOUT 

ENDWAIT 

 

CASE [MOD Password] 

SEND <passwd> [Login] 

WAIT 

HOSTMSG 'unknown' , ERRMSG 'Retire or Unknown User - Modify Service' 

HOSTMSG 'invalid' , ERRMSG 'invalid choice - Modify Service' 

HOSTMSG 'assword', SEND [MOD Password] ,EXITLOOP 

TIMEOUT , GOTO MODIFY-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG 'llegal', ERRMSG 'Illegal new password - Modify Service' 

HOSTMSG 'etype' , SEND [MOD Password] ,EXITLOOP 

TIMEOUT , GOTO MODIFY-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG 't match' , ERRMSG 'Retype password don't match - Modify Service'  

HOSTMSG ']$' , ERRMSG %Modify Error Msg1% 

HOSTMSG '#' , EXITLOOP 

TIMEOUT , GOTO MODIFY-SVC-TIMEOUT 

ENDWAIT 

ENDCASE 

 

CASE [MOD Account Name] 

SEND <chfn> [Login] 

WAIT 

HOSTMSG 'unknown user' , ERRMSG 'Retired or Unknown user - Modify Service' 

HOSTMSG '#' , ERRMSG %Modify Error Msg1%  

HOSTMSG 'ame' , SEND [mod Account Name], EXITLOOP 

TIMEOUT , GOTO MODIFY-SVC-TIMEOUT  

ENDWAIT 

 

WAIT 

HOSTMSG '#' , ERRMSG %Modify Error Msg1%  

HOSTMSG 'ffice' , SEND [+CRLF], EXITLOOP 

TIMEOUT , GOTO MODIFY-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG '#' , ERRMSG %Modify Error Msg1%  

HOSTMSG 'hone' , SEND [+CRLF], EXITLOOP 

TIMEOUT , GOTO MODIFY-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG '#' , ERRMSG %Modify Error Msg1%  

HOSTMSG 'ome' , SEND [+CRLF], EXITLOOP 

TIMEOUT , GOTO MODIFY-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG ']$' , ERRMSG %Modify Error Msg1%  

HOSTMSG '#' , EXITLOOP 

TIMEOUT , GOTO MODIFY-SVC-TIMEOUT 

ENDWAIT 

ENDCASE 

 

CASE [MOD Login] 

SEND <%Chg User Login Cmd%> [MOD Login]<-d> <%User Home Path%>~_ 

[MOD Login]<-m> [Login] 

WAIT 

HOSTMSG 'user not found' , ERRMSG 'User not found - Modify Service'  

HOSTMSG 'retired' , ERRMSG 'Account already closed - Modify Service'  

HOSTMSG ']$' , ERRMSG %Modify Error Msg1% 

HOSTMSG '#' , EXITLOOP 

TIMEOUT , GOTO MODIFY-SVC-TIMEOUT 

ENDWAIT 

ENDCASE 

 

SEND <exit> 

WAIT 

HOSTMSG ']$' , SVC-EXECUTED 

TIMEOUT , GOTO MODIFY-SVC-TIMEOUT 

ENDWAIT 

 

:MODIFY-SVC-TIMEOUT: 

ERRMSG 'Unrecognise Host respond message / No respond from Host system - Modify Service' 

 

 

 

:CLOSE:

 

SEND <su> 

WAIT 

HOSTMSG 'assword', SEND [su pswd],EXITLOOP 

TIMEOUT , GOTO CLOSE-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG 'orry' , ERRMSG 'Error in SU password - Close Service' 

HOSTMSG ']$' ,  ERRMSG 'Error incorrect promt - Close Service' 

HOSTMSG '#' ,  SEND <%Del User Cmd%> [Login], EXITLOOP 

TIMEOUT , GOTO MODIFY-SVC-TIMEOUT 

ENDWAIT 

 

WAIT  

HOSTMSG 'retired user', SEND <exit>, EXITLOOP 

HOSTMSG 'user not found', SEND <exit>, GOTO CLOSE-JUMP-1 

HOSTMSG ']$' , ERRMSG 'Unexpected promt character - Close Service' 

HOSTMSG '#', SEND <exit>, GOTO CLOSE-JUMP-2 

TIMEOUT , GOTO MODIFY-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG ']$' , ERRMSG 'User already retired - Close Service' 

TIMEOUT , GOTO MODIFY-SVC-TIMEOUT 

ENDWAIT 

 

:CLOSE-JUMP-1: 

WAIT 

HOSTMSG ']$' , ERRMSG 'User not found for deletion - Close Service' 

TIMEOUT , GOTO MODIFY-SVC-TIMEOUT 

ENDWAIT 

 

:CLOSE-JUMP-2: 

WAIT 

HOSTMSG ']$' , SVC-EXECUTED 

TIMEOUT , GOTO MODIFY-SVC-TIMEOUT 

ENDWAIT 

 

 

:CLOSE-SVC-TIMEOUT: 

ERRMSG 'Unrecognise Host respond message / No respond from Host system - Close Service' 

 

 

 

 

 

:SUSPEND:

 

SEND <su> 

WAIT 

HOSTMSG 'assword',SEND [su pswd], EXITLOOP 

TIMEOUT ,GOTO SUSPEND-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG 'orry', ERRMSG 'Error in SU password - Suspend Service' 

HOSTMSG ']$' , ERRMSG 'Unexpected promt character - Suspend Service' 

HOSTMSG '#' , EXITLOOP 

TIMEOUT ,  GOTO SUSPEND-SVC-TIMEOUT 

ENDWAIT 

 

SEND <passwd> [Login] 

WAIT 

HOSTMSG 'unknown' , ERRMSG 'Retire or Unknown User - Suspend Service' 

HOSTMSG 'invalid' , ERRMSG 'invalid choice - Suspend Service' 

HOSTMSG 'assword', SEND [Password] ,EXITLOOP 

TIMEOUT , GOTO SUSPEND-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG 'llegal', ERRMSG 'Illegal new password - Suspend Service' 

HOSTMSG 'etype' , SEND [Password] ,EXITLOOP 

TIMEOUT , GOTO SUSPEND-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG 't match' , ERRMSG 'Retype password don't match - Suspend Service'  

HOSTMSG ']$' , ERRMSG 'Unexpected promt character - Suspend Service' 

HOSTMSG '#' ,SEND <exit>, EXITLOOP 

TIMEOUT , GOTO SUSPEND-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG ']$' , SVC-EXECUTED 

TIMEOUT , GOTO SUSPEND-SVC-TIMEOUT 

ENDWAIT 

 

:SUSPEND-SVC-TIMEOUT: 

ERRMSG 'Unrecognise Host respond message / No respond from Host system - Suspend Service' 

 

 

 

 

 

 

:UNSUSPEND:

 

SEND <su> 

WAIT 

HOSTMSG 'assword',SEND [su pswd], EXITLOOP 

TIMEOUT ,GOTO UNSUSPEND-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG 'orry', ERRMSG 'Error in SU password - Unsuspend Service' 

HOSTMSG ']$' , ERRMSG 'Unexpected promt character - Unsuspend Service' 

HOSTMSG '#' , EXITLOOP 

TIMEOUT ,  GOTO UNSUSPEND-SVC-TIMEOUT 

ENDWAIT 

 

SEND <passwd> [Login] 

WAIT 

HOSTMSG 'unknown' , ERRMSG 'Retire or Unknown User - Unsuspend Service' 

HOSTMSG 'invalid' , ERRMSG 'invalid choice - Unsuspend Service' 

HOSTMSG 'assword', SEND [Password] ,EXITLOOP 

TIMEOUT , GOTO UNSUSPEND-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG 'llegal', ERRMSG 'Illegal new password - Unsuspend Service' 

HOSTMSG 'etype' , SEND [Password] ,EXITLOOP 

TIMEOUT , GOTO UNSUSPEND-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG 't match' , ERRMSG 'Retype password don't match - Unsuspend Service'  

HOSTMSG ']$' , ERRMSG 'Unexpected promt character - Unsuspend Service' 

HOSTMSG '#' ,SEND <exit>, EXITLOOP 

TIMEOUT , GOTO UNSUSPEND-SVC-TIMEOUT 

ENDWAIT 

 

WAIT 

HOSTMSG ']$' , SVC-EXECUTED 

TIMEOUT , GOTO UNSUSPEND-SVC-TIMEOUT 

ENDWAIT 

 

:UNSUSPEND-SVC-TIMEOUT: 

ERRMSG 'Unrecognized Host respond message / No respond from Host system - Unsuspend Service' 

 

 

 

 

//SCRIPT-END