×
INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!
  • Students Click Here

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

Jobs

Procomm Plus Nortel Scripts

Trace or IDU snapshot repeater script by Firebird Scrambler
Posted: 17 Feb 10

;   TRAC.WAS     How to run a continuous 'TRAC' command    
;                                                                         10th October 2008  
; NOTE!
;     This program will only work with a WINDOWS version of Procomm Plus.
;  The " ; " denotes that the data on the program file line is ignored,
; when the script is run.

;  Follow the instructions by Ticking the box's on the screen & locating your source file.
;  You might need to change the "Transmit Pacing" depending on the software version!  
;   A higher number is needed to slow the program down for older processors.

;  This program file should remain unaltered & only copies made from it for whatever
; use is required. P.S. I suggest that you make it a "READ ONLY" file. & store it on
; your P.C's HARD DRIVE.

;#include "vkeys.inc"             ; You must have this file "vkeys.inc"
;                                 ;     located within the "Aspect" folder!


PROC MAIN

integer event
STRING C_FILE="C:\Program Files\Symantec\Procomm Plus\ASPECT\COM_FILE"
                            ; Change the Aspect Drive/path if it's required!. i.e. (C:\PROGRA~1\) etc.
string s_tx_list = "0,5,10,15,20,25,50,100,200,300,400,500,600,700,800,900,2000"
string s_tx_item = "20"
STRING COMMAND

       When Target 0 "OVL013 " CALL OVL013
       When Target 1 "OVL428 " CALL OVL428
       When Target 2 "OVL111 " CALL OVL111  
       When Target 3 "SCH0101 " CALL SCH0101
       When Target 4 "SCH0510 " CALL OVL013
       When Target 5 "SCH101" CALL SCH0101
       When Target 6 "SCH0099 " CALL OVL013
       When Target 7 "TFC000 " CALL OVL013
       When Target 8 "NPR003 " CALL NPR003
;       When Target 9 "TRA100 " CALL TRA100
                  
    fopen 0 C_FILE readwrite text
    fgets 0 COMMAND

dialogbox 0 69  20 247 328 2 "Use either TRAC, TRAD etc in LD 80 or STAT, IDU etc in LD 32"
  editbox 1 83  23 104 11 COMMAND
pushbutton 2 194 21 40 13 "Accept" OK DEFAULT
 combobox 3 200 50  34 96 DROPDOWNLIST s_tx_list s_tx_item
    text  4  2   2 237 12 "Enter 'TRAC' Command in LD 80 for Call Traces" center
    text  5 16  90 200 11 "Trace a DN = TRAC (Customer, Directory Number)" left
    text  6 16 100 200 11 "Trace a Trunk = TRAC (Route, Member)" left
    text  7 16 110 200 11 "Trace a Digital Trunk = TRAD (Loop, Channel Number)" left
    text  8 16 120 200 11 "Trace a Key (Opt 11) = TRAK (Card, Unit, Key)" left
    text  9 16 130 200 11 "Trace a Key (Opt 21-81) = TRAC (L,S,C,U, Key)" left
    text 10 16 140 200 11 "Trace a Unit (Opt 11) = TRAK (Card, Unit)" left
    text 11 16 150 200 11 "Trace a Unit (Opt 21-81) = TRAC (L,S,C,U)" left
    text 12 16 160 200 11 "Trace Attendant Loops (Opt 11) = TRAO (Card, Unit)" left
    text 13 16 170 200 11 "Trace Attendant Loops (Opt 51-81) = TRAO (L,S,C,U)" left
groupbox 14 13  75 221 105 "        All of the commands listed below are found in LD 80      "
groupbox 15 13 182 221 110 "        All of the commands listed below are found in LD 32      "
    text 16 16 200 200 11 "Stat a Card (Opt 11) = STAT (Card or Slot Number)" left
    text 17 16 210 200 11 "Stat a Card (Opt 21-81) = STAT (L,S,C)" left
    text 18 16 220 200 11 "Stat a TN (Opt 11) = STAT (Card, Unit)" left
    text 19 16 230 200 11 "Stat a TN (Opt 21-81) = STAT (L,S,C,U)" left
    text 20 16 240 200 11 "Identify a Digital TN (Opt 11) = IDU (Card, Unit)" left
    text 21 16 250 200 11 "Identify a Digital TN (Opt 21-81) = IDU (L,S,C,U)" left
    text 22 16 260 200 11 "Identify a IPE Card (Opt 11) = IDC (Card or Slot Number)" left
    text 23 16 270 200 11 "Identify a IPE Card (Opt 21-81) = IDC (L,S,C)" left
    text 24 16 280 200 11 "Identify Firmware on Taurus sets = FSUM ALL" left
    text 25 76  47 120 11 "Select the systems Transmit Pacing. " right
    text 26 67  59 130 11 "User a higher number on older software!." right
groupbox 27 15 296 220 28 "Notes"
    text 28 23 310 206 11 "(L,S,C,U) = (Opt 21-81) Loop, Shelf, Card and Unit Number" left
enddialog

while 1
    dlgevent 0 event
    switch event


        case 2
        exitwhile
        endcase
        
        
    endswitch
endwhile
    
    fclose 0

    fopen 0 C_FILE create text
    fputs 0 COMMAND

start:
          PAUSE 1
          TRANSMIT COMMAND
          TRANSMIT "^M"
          WAITFOR "."
          
          GOTO start

ENDPROC

PROC OVL013
  pause 1
  transmit "****^M"
  pause 2
;  waitfor ">"
  transmit "LD 80^M"
  pause 2
ENDPROC  

PROC OVL111
  transmit "****^M"
  waitfor ">"
USERMSG "Script failed, as the TTY user is NOT logged into the system!"
exit
ENDPROC  

PROC OVL428
USERMSG "Script failed. The Login name & password combination is invalid. Check the password & login name & try again.!"
exit
ENDPROC  

PROC SCH0101
  pause 1
  transmit "****^M"
;  waitfor ">"
; USERMSG "Please press Enter & wait 30 seconds as the TTY is already logged in!"
ENDPROC

PROC NPR003
  pause 1
  transmit "****^M"
  pause 1
;  waitfor ">"
  transmit "LD 80^M"
  pause 1
ENDPROC  

PROC TRA100
  pause 1
  transmit "****^M"
  pause 2
;  waitfor ">"
  transmit "LD 32^M"
  pause 2
ENDPROC  

 

Back to Nortel: CS1000 (Meridian) systems FAQ Index
Back to Nortel: CS1000 (Meridian) systems Forum

My Archive

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close