×
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

Conversion Utility Network Data log script by Firebird Scrambler
Posted: 30 Oct 09

;  Conversion Utility Network Data log.was                             27th July 2007
;    How to provide a list of the Meridian "NETWORK" Information as *.CAP etc                 
;       For use with Dave Higham's Conversion Utility.xls program.

;    To use this script file, Please make sure that you have access to overlays..
;  LD 86, 87 & 90. You should be logged into the system first!, before this script ie run.
;    This script file will collect all of the customer's networking information using
;  Customer "0".
;    It's best if the TTY that you are using has only "SCH" allowed as it will help to
;  prevent any other messages appearing on the log output file.
;    I have found it best to check the log file before I use the Conversion Utility.xls Excel
;  program.   
;    This script will start a log file automatically "capture on" when you run this
;  compiled file
;    If you have more than one customer, Then you can change the "CUST" number to "1"
;  etc.
;    After this script file has run, Make sure that the "capture off" icon has closed.
;  Load up Dave Higham's Conversion Utility.xls file. Click on the "Browse" button & navigate to
;  the path that your log file is stored on. Finally click on the "Convert to Excel"
;  button & you will get a nice printout (I hope!).  
;    I would recommend that you keep the captured log file for a while because the
;  Conversion Utility.xls program does have one little error & that is it does not show "DMI'S"
;  that are listed against "SPN'S" which use's LDID etc.
;    You may well find that your Excel list will have many spare "DMI'S" & "RLI'S" etc.
;  Do a check on these, before you tidy them up on the Meridian & also save a copy
;  of the Conversion Utility.xls file (Just in case a problem occurs after any changes!).

STRING F_Time
;STRING readfile
;STRING DIRECTORY
INTEGER EVENT
INTEGER TX_PACE=50

PROC MAIN

CALL LOGI
   CALL NETTY

CALL LOGO

ENDPROC

PROC NETTY
STATMSG " Start of program to obtain a Meridian / Succession Networking list for use with the Conversion Utility Excel file"
dialogbox 0 173 62 288 201 2 " Obtain a Nortel Networking list for use with the Utility program"
;dirpath 1 65 15 121 11 Directory
;dirlistbox 2 73 30 106 140 "C:\TEMP\*.*" SINGLE readfile 1 SORT ; ##(Change path if reqd!)
pushbutton 3 133 177 40 13 "OK" OK DEFAULT
pushbutton 4 77 177 40 13 "Cancel"
;text 5 65 2 61 11 "Select READ file" left
radiogroup 6 TX_PACE
      radiobutton 18 13 50 80 11 "50 Default Speed"
      radiobutton 19 13 73 80 11 "100"
      radiobutton 20 13 96 80 11 "200 Medium Speed"
      radiobutton 21 13 118 80 11 "300"
      radiobutton 22 13 141 80 11 "400 Slowest Speed"
 endgroup
 groupbox 26 3 33 95 131 "TXPace"
enddialog

set capture file "C:\PROGRAM FILES\SYMANTEC\PROCOMM PLUS\CAPTURE\NETTY.*"
                                 ;##  Change to match your Capture Folder!.
  
 while 1
    dlgevent 0 event
    switch event
        case 0
        endcase
        
        case 1
        endcase
        
        case 3
        exitwhile
        endcase
        
        case 4
        exit
        endcase        
        
    endswitch
endwhile
if TX_PACE == 19
    set TXPACE 100
endif
if TX_PACE == 20
    set TXPACE 200
endif
if TX_PACE == 21
    set TXPACE 300
endif
if TX_PACE == 22
    set TXPACE 400
endif    

;                LIST LD 86 ALL CUSTOMER 0 DMI & RLI INFORMATION  
                                                               
   capture on

      TRANSMIT "****^M"
;      WAITFOR  ">"      
      PAUSE 4
      TRANSMIT "LD 86^M"
      WAITFOR  "REQ"
      TRANSMIT "PRT^M"
      WAITFOR  "CUST"
      TRANSMIT "0^M"
      WAITFOR  "FEAT"
      TRANSMIT "DGT^M"
;      WAITFOR  "DMI"
      TRANSMIT "^M~^M"
      WAITFOR  "REQ" FOREVER
      TRANSMIT "~^M"
      PAUSE 2
      TRANSMIT "~^M"
      WAITFOR  "REQ"      
      PAUSE 2
;                        LIST LD 87 ALL CUSTOMER 0 CDP INFORMATION  

      TRANSMIT "PRT^M"
      WAITFOR  "CUST"
      TRANSMIT "0^M"
      WAITFOR  "FEAT"
      TRANSMIT "RLB^M"
;      WAITFOR  "RLI"
      TRANSMIT "^M~^M"
      WAITFOR  "REQ" FOREVER
      TRANSMIT "~^M"
      WAITFOR  "REQ"
      PAUSE 2
      TRANSMIT "END^M"
      PAUSE 2

      TRANSMIT "LD 87^M"
      WAITFOR  "REQ"
      TRANSMIT "PRT^M"
      WAITFOR  "CUST"
      TRANSMIT "0^M"
      WAITFOR  "FEAT"
      TRANSMIT "CDP^M"
      WAITFOR  "TYPE"
      TRANSMIT "DSC^M"
;      WAITFOR  "DSC"
      TRANSMIT "^M~^M"
      WAITFOR  "REQ" FOREVER
      TRANSMIT "~^M"
      
      TRANSMIT "PRT^M"
      WAITFOR  "CUST"
      TRANSMIT "0^M"
      WAITFOR  "FEAT"
      TRANSMIT "CDP^M"
      WAITFOR  "TYPE"
      TRANSMIT "TSC^M"
;      WAITFOR  "TSC"
      TRANSMIT "^M~^M"
      WAITFOR  "REQ" FOREVER
      TRANSMIT "~^M"
      
      TRANSMIT "PRT^M"
      WAITFOR  "CUST"
      TRANSMIT "0^M"
      WAITFOR  "FEAT"
      TRANSMIT "CDP^M"
      WAITFOR  "TYPE"
      TRANSMIT "LSC^M"
;      WAITFOR  "LSC"
      TRANSMIT "^M~^M"
      WAITFOR  "REQ" FOREVER
      TRANSMIT "~^M"
      TRANSMIT "END^M"

;                        LIST LD 90 ALL CUSTOMER 0 SPN AC1/AC2 INFORMATION  

      PAUSE 4
      TRANSMIT "LD 90^M"
      WAITFOR "REQ" FOREVER
      TRANSMIT "PRT^M"
      WAITFOR  "CUST"
      TRANSMIT "0^M"
      WAITFOR  "FEAT"
      TRANSMIT "NET^M"
      WAITFOR  "TRAN"
      TRANSMIT "AC1^M"
      WAITFOR  "TYPE"
      TRANSMIT "SPN^M"
;      WAITFOR  "SPN"
      TRANSMIT "^M~^M"
      WAITFOR  "REQ" FOREVER
      TRANSMIT "~^M"
      
      TRANSMIT "PRT^M"
      WAITFOR  "CUST"
      TRANSMIT "0^M"
      WAITFOR  "FEAT"
      TRANSMIT "NET^M"
      WAITFOR  "TRAN"
      TRANSMIT "AC1^M"
      WAITFOR  "TYPE"
      TRANSMIT "HLOC^M"
;      WAITFOR  "HLOC"
      TRANSMIT "^M~^M"
      WAITFOR  "REQ" FOREVER
      TRANSMIT "~^M"
      
      TRANSMIT "PRT^M"
      WAITFOR  "CUST"
      TRANSMIT "0^M"
      WAITFOR  "FEAT"
      TRANSMIT "NET^M"
      WAITFOR  "TRAN"
      TRANSMIT "AC1^M"
      WAITFOR  "TYPE"
      TRANSMIT "LOC^M"
;      WAITFOR  "LOC"
      TRANSMIT "^M~^M"
      WAITFOR  "REQ" FOREVER
      TRANSMIT "~^M"
      
      TRANSMIT "PRT^M"
      WAITFOR  "CUST"
      TRANSMIT "0^M"
      WAITFOR  "FEAT"
      TRANSMIT "NET^M"
      WAITFOR  "TRAN"
      TRANSMIT "AC1^M"
      WAITFOR  "TYPE"
      TRANSMIT "NPA^M"
;      WAITFOR  "NPA"
      TRANSMIT "^M~^M"
      WAITFOR  "REQ" FOREVER
      TRANSMIT "~^M"

      TRANSMIT "PRT^M"
      WAITFOR  "CUST"
      TRANSMIT "0^M"
      WAITFOR  "FEAT"
      TRANSMIT "NET^M"
      WAITFOR  "TRAN"
      TRANSMIT "AC1^M"
      WAITFOR  "TYPE"
      TRANSMIT "NXX^M"
;      WAITFOR  "NXX"
      TRANSMIT "^M~^M"
      WAITFOR  "REQ" FOREVER
      TRANSMIT "~^M"

      TRANSMIT "PRT^M"
      WAITFOR  "CUST"
      TRANSMIT "0^M"
      WAITFOR  "FEAT"
      TRANSMIT "NET^M"
      WAITFOR  "TRAN"
      TRANSMIT "AC2^M"
      WAITFOR  "TYPE"
      TRANSMIT "SPN^M"
;      WAITFOR  "SPN"
      TRANSMIT "^M~^M"
      WAITFOR  "REQ" FOREVER
      TRANSMIT "~^M"
      
      TRANSMIT "PRT^M"
      WAITFOR  "CUST"
      TRANSMIT "0^M"
      WAITFOR  "FEAT"
      TRANSMIT "NET^M"
      WAITFOR  "TRAN"
      TRANSMIT "AC2^M"
      WAITFOR  "TYPE"
      TRANSMIT "HLOC^M"
;      WAITFOR  "HLOC"
      TRANSMIT "^M~^M"
      WAITFOR  "REQ" FOREVER
      TRANSMIT "~^M"

      TRANSMIT "PRT^M"
      WAITFOR  "CUST"
      TRANSMIT "0^M"
      WAITFOR  "FEAT"
      TRANSMIT "NET^M"
      WAITFOR  "TRAN"
      TRANSMIT "AC2^M"
      WAITFOR  "TYPE"
      TRANSMIT "LOC^M"
;      WAITFOR  "LOC"
      TRANSMIT "^M~^M"
      WAITFOR  "REQ" FOREVER
      TRANSMIT "~^M"

      TRANSMIT "PRT^M"
      WAITFOR  "CUST"
      TRANSMIT "0^M"
      WAITFOR  "FEAT"
      TRANSMIT "NET^M"
      WAITFOR  "TRAN"
      TRANSMIT "AC2^M"
      WAITFOR  "TYPE"
      TRANSMIT "NPA^M"
;      WAITFOR  "NPA"
      TRANSMIT "^M~^M"
      WAITFOR  "REQ" FOREVER
      TRANSMIT "~^M"
 
      TRANSMIT "PRT^M"
      WAITFOR  "CUST"
      TRANSMIT "0^M"
      WAITFOR  "FEAT"
      TRANSMIT "NET^M"
      WAITFOR  "TRAN"
      TRANSMIT "AC2^M"
      WAITFOR  "TYPE"
      TRANSMIT "NXX^M"
;      WAITFOR  "NXX"
      TRANSMIT "^M~^M"
      WAITFOR  "REQ" FOREVER
      TRANSMIT "~^M"

ENDPROC

PROC LOGI
  TRANSMIT "***~~~^M"
ENDPROC

PROC LOGO
  TRANSMIT "****"
  MSPAUSE 100
;  TRANSMIT "LOGO^M"
  
      F_Time=$TIME
  usermsg "Meridian / Succession Network collection for the Conversion Utility Program is Complete`n`n at   %s" F_TIME
  
capture off

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