NorstarOption
Technical User
Anyone has a script to retrieve all BARS info to excel?
TIA
TIA
Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Script Retrieving BARS to Excel 2
- Thread starter NorstarOption
- Start date
- Status
Firebird Scrambler
Systems Engineer
Use the Conversion Utility program.
All the best
Firebird Scrambler
Meridian Programmer in the UK
Useful Nortel forum at
If it's working, then leave it alone!.
All the best
Firebird Scrambler
Meridian Programmer in the UK
Useful Nortel forum at
If it's working, then leave it alone!.
Hey fire, if you just uploaded it, it has not propogated to the server I am hitting from the US (193.252.158.200). When it arrives, I will link to your copy
That is very cool.
~
That is very cool.
~
-
1
- #4
I think you are referring to a script to collect for netty? (available at ). Netty is a terrific resource. Without a doubt it is the fastest way to get a look at how a customer has BARS is setup.
I wrote this ProComm script below to collect everything I need from the PBX into one capture file. The macro in netty.xls does the rest.
I’m sure if I added a few integers in this script and a loop I could cut its size down one third or less but guess it worked well enough this way so I never bothered to mess with it anymore. I have used it in several switches and it has worked well for me.
************************************
Get_bars.was
;this script will collect all that is needed for netty.xls
proc main
capture on
set txpace 45
transmit "****^M"
; ****** Get all from AC1**********
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 "npa^M"
waitquiet 2 FOREVER
transmit "^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 "nxx^M"
waitquiet 2 FOREVER
transmit "^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"
waitquiet 2 FOREVER
transmit "^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 "loc^M"
waitquiet 2 FOREVER
transmit "^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 "HLOC^M"
waitquiet 2 FOREVER
transmit "^M"
waitfor "REQ" forever
; ****** Get all from AC1 is done!**********
transmit "END^M"
waitquiet 2 FOREVER
; ****** Get all from AC2**********
transmit "ld 90^M"
waitfor "REQ" forever
transmit "prt^M"
waitfor "CUST "
transmit "0^M"
waitfor "FEAT "
transmit "net^M"
waitfor "TRAN "
transmit "ac2^M"
waitfor "TYPE "
transmit "npa^M"
waitquiet 2 FOREVER
transmit "^M"
waitfor "REQ" forever
transmit "prt^M"
waitfor "CUST "
transmit "0^M"
waitfor "FEAT "
transmit "net^M"
waitfor "TRAN "
transmit "ac2^M"
waitfor "TYPE "
transmit "nxx^M"
waitquiet 2 FOREVER
transmit "^M"
waitfor "REQ" forever
transmit "prt^M"
waitfor "CUST "
transmit "0^M"
waitfor "FEAT "
transmit "net^M"
waitfor "TRAN "
transmit "ac2^M"
waitfor "TYPE "
transmit "SPN^M"
waitquiet 2 FOREVER
transmit "^M"
waitfor "REQ" forever
transmit "prt^M"
waitfor "CUST "
transmit "0^M"
waitfor "FEAT "
transmit "net^M"
waitfor "TRAN "
transmit "ac2^M"
waitfor "TYPE "
transmit "loc^M"
waitquiet 2 FOREVER
transmit "^M"
waitfor "REQ" forever
transmit "prt^M"
waitfor "CUST "
transmit "0^M"
waitfor "FEAT "
transmit "net^M"
waitfor "TRAN "
transmit "ac2^M"
waitfor "TYPE "
transmit "HLOC^M"
waitquiet 2 FOREVER
transmit "^M"
waitfor "REQ" forever
; ****** Get all from AC2 is done!**********
transmit "END^M"
waitquiet 2 FOREVER
;********LD 87 CDP collection**************
transmit "ld 87^M"
waitfor "REQ" forever
transmit "prt^M"
waitfor "CUST "
transmit "0^M"
waitfor "FEAT "
transmit "cdp^M"
waitfor "TYPE "
transmit "dsc^M"
waitfor "DSC "
transmit "^M"
waitfor "REQ" forever
transmit "prt^M"
waitfor "CUST "
transmit "0^M"
waitfor "FEAT "
transmit "cdp^M"
waitfor "TYPE "
transmit "lsc^M"
waitfor "LSC "
transmit "^M"
waitfor "REQ" forever
transmit "prt^M"
waitfor "CUST "
transmit "0^M"
waitfor "FEAT "
transmit "cdp^M"
waitfor "TYPE "
transmit "tsc^M"
waitfor "TSC "
transmit "^M"
waitfor "REQ" forever
transmit "END^M"
waitquiet 2 FOREVER
;****** LD 86 RLI & DGT**********
transmit "ld 86^M"
waitfor "REQ" forever
transmit "prt^M"
waitfor "CUST "
transmit "0^M"
waitfor "FEAT "
transmit "rlb^M"
waitfor "RLI "
transmit "^M"
waitfor "REQ" forever
transmit "prt^M"
waitfor "CUST "
transmit "0^M"
waitfor "FEAT "
transmit "dgt^M"
waitfor "DMI "
transmit "^M"
waitfor "REQ" forever
transmit "END^M"
waitquiet 2 FOREVER
capture off
set txpace 0
endproc
*********************************
Ron
I wrote this ProComm script below to collect everything I need from the PBX into one capture file. The macro in netty.xls does the rest.
I’m sure if I added a few integers in this script and a loop I could cut its size down one third or less but guess it worked well enough this way so I never bothered to mess with it anymore. I have used it in several switches and it has worked well for me.
************************************
Get_bars.was
;this script will collect all that is needed for netty.xls
proc main
capture on
set txpace 45
transmit "****^M"
; ****** Get all from AC1**********
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 "npa^M"
waitquiet 2 FOREVER
transmit "^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 "nxx^M"
waitquiet 2 FOREVER
transmit "^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"
waitquiet 2 FOREVER
transmit "^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 "loc^M"
waitquiet 2 FOREVER
transmit "^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 "HLOC^M"
waitquiet 2 FOREVER
transmit "^M"
waitfor "REQ" forever
; ****** Get all from AC1 is done!**********
transmit "END^M"
waitquiet 2 FOREVER
; ****** Get all from AC2**********
transmit "ld 90^M"
waitfor "REQ" forever
transmit "prt^M"
waitfor "CUST "
transmit "0^M"
waitfor "FEAT "
transmit "net^M"
waitfor "TRAN "
transmit "ac2^M"
waitfor "TYPE "
transmit "npa^M"
waitquiet 2 FOREVER
transmit "^M"
waitfor "REQ" forever
transmit "prt^M"
waitfor "CUST "
transmit "0^M"
waitfor "FEAT "
transmit "net^M"
waitfor "TRAN "
transmit "ac2^M"
waitfor "TYPE "
transmit "nxx^M"
waitquiet 2 FOREVER
transmit "^M"
waitfor "REQ" forever
transmit "prt^M"
waitfor "CUST "
transmit "0^M"
waitfor "FEAT "
transmit "net^M"
waitfor "TRAN "
transmit "ac2^M"
waitfor "TYPE "
transmit "SPN^M"
waitquiet 2 FOREVER
transmit "^M"
waitfor "REQ" forever
transmit "prt^M"
waitfor "CUST "
transmit "0^M"
waitfor "FEAT "
transmit "net^M"
waitfor "TRAN "
transmit "ac2^M"
waitfor "TYPE "
transmit "loc^M"
waitquiet 2 FOREVER
transmit "^M"
waitfor "REQ" forever
transmit "prt^M"
waitfor "CUST "
transmit "0^M"
waitfor "FEAT "
transmit "net^M"
waitfor "TRAN "
transmit "ac2^M"
waitfor "TYPE "
transmit "HLOC^M"
waitquiet 2 FOREVER
transmit "^M"
waitfor "REQ" forever
; ****** Get all from AC2 is done!**********
transmit "END^M"
waitquiet 2 FOREVER
;********LD 87 CDP collection**************
transmit "ld 87^M"
waitfor "REQ" forever
transmit "prt^M"
waitfor "CUST "
transmit "0^M"
waitfor "FEAT "
transmit "cdp^M"
waitfor "TYPE "
transmit "dsc^M"
waitfor "DSC "
transmit "^M"
waitfor "REQ" forever
transmit "prt^M"
waitfor "CUST "
transmit "0^M"
waitfor "FEAT "
transmit "cdp^M"
waitfor "TYPE "
transmit "lsc^M"
waitfor "LSC "
transmit "^M"
waitfor "REQ" forever
transmit "prt^M"
waitfor "CUST "
transmit "0^M"
waitfor "FEAT "
transmit "cdp^M"
waitfor "TYPE "
transmit "tsc^M"
waitfor "TSC "
transmit "^M"
waitfor "REQ" forever
transmit "END^M"
waitquiet 2 FOREVER
;****** LD 86 RLI & DGT**********
transmit "ld 86^M"
waitfor "REQ" forever
transmit "prt^M"
waitfor "CUST "
transmit "0^M"
waitfor "FEAT "
transmit "rlb^M"
waitfor "RLI "
transmit "^M"
waitfor "REQ" forever
transmit "prt^M"
waitfor "CUST "
transmit "0^M"
waitfor "FEAT "
transmit "dgt^M"
waitfor "DMI "
transmit "^M"
waitfor "REQ" forever
transmit "END^M"
waitquiet 2 FOREVER
capture off
set txpace 0
endproc
*********************************
Ron
- Thread starter
- #5
NorstarOption
Technical User
How do I make this work? I compiled the script and downloaded netty.xls. Will this script capture the information to where? Do I have to cut and paste it to a file then convert it using netty?
TIA
TIA
- Thread starter
- #6
Firebird Scrambler
Systems Engineer
I've already sent over my latest updated Conversion Utility Excel program to GHTROUT. Hopefully it will soon be added onto his website. My version includes all of Dave Highams (pepedog)programs into just one spreadsheet. I've also done a program that I use with Procomm plus. It can be adapted to work with other comms programs.
Here is my version for use..
; D_Higham_NETTY_0.was 9th December 2005
; How to provide a list of the Meridian "NETWORK" Information as NETTY.CAP etc
; For use with Dave Higham's Netty.XLS program.
; NOTE!
; This program will only work with a WINDOWS version of Procomm Plus.
; To use this script file, Please make sure that you have access to overlays..
; LD 86, 87 & 90.
; The script will run even if you are already logged in, I have used "CUSTOMER" &
; "CUSTOMER" as the default name & code. Amend line 333 if needed for system login.
; It make's no difference if you have already logged into the Meridian!.
; 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 NETTY.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 NETTY.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
; NETTY.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 NETTY.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
; SET TXPACE 150
CALL LOGI
CALL NETTY
CALL LOGO
ENDPROC
PROC NETTY
STATMSG "Start"
dialogbox 0 173 62 188 201 2 "Obtain a Meridian networking list for use with the Netty Excel 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\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
Capture On
; LIST LD 86 ALL CUSTOMER 0 DMI & RLI INFORMATION
TRANSMIT "LD 86^M"
WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "CUST"
TRANSMIT "0^M"
WAITFOR "FEAT"
TRANSMIT "DGT^M"
; WAITFOR "DMI"
TRANSMIT "~^M"
WAITFOR "REQ" FOREVER
TRANSMIT "~^M"
Pause 4
TRANSMIT "~^M"
WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "CUST"
TRANSMIT "0^M"
WAITFOR "FEAT"
TRANSMIT "RLB^M"
; WAITFOR "RLI"
TRANSMIT "~^M"
WAITFOR "REQ" FOREVER
PAUSE 2
TRANSMIT "~^M"
WAITFOR "REQ"
TRANSMIT "END^M"
; LIST LD 87 ALL CUSTOMER 0 CDP INFORMATION
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"
WAITFOR "REQ"
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"
WAITFOR "REQ"
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"
WAITFOR "REQ"
TRANSMIT "END^M"
; LIST LD 90 ALL CUSTOMER 0 SPN AC1/AC2 INFORMATION
TRANSMIT "LD 90^M"
WAITFOR "REQ"
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"
WAITFOR "REQ"
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"
WAITFOR "REQ"
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"
WAITFOR "REQ"
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"
WAITFOR "REQ"
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"
WAITFOR "REQ"
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"
WAITFOR "REQ"
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"
WAITFOR "REQ"
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"
WAITFOR "REQ"
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"
WAITFOR "REQ"
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 "~~~~LOGI ~CUSTOMER^M" ; Change / Remove as required!
WAITFOR "PASS?"
MSPAUSE 100
TRANSMIT "CUSTOMER^M" ; Change this if required to a new password!
MSPAUSE 250
ENDPROC
PROC LOGO
TRANSMIT "****"
MSPAUSE 100
; TRANSMIT "LOGO^M" ; Uncheck this box if you want to log out!
F_Time=$TIME
usermsg "Netty Script Collection Complete`n`n at %s" F_TIME
Capture Off
ENDPROC
All the best
Firebird Scrambler
Meridian Programmer in the UK
Useful Nortel forum at
If it's working, then leave it alone!.
Here is my version for use..
; D_Higham_NETTY_0.was 9th December 2005
; How to provide a list of the Meridian "NETWORK" Information as NETTY.CAP etc
; For use with Dave Higham's Netty.XLS program.
; NOTE!
; This program will only work with a WINDOWS version of Procomm Plus.
; To use this script file, Please make sure that you have access to overlays..
; LD 86, 87 & 90.
; The script will run even if you are already logged in, I have used "CUSTOMER" &
; "CUSTOMER" as the default name & code. Amend line 333 if needed for system login.
; It make's no difference if you have already logged into the Meridian!.
; 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 NETTY.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 NETTY.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
; NETTY.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 NETTY.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
; SET TXPACE 150
CALL LOGI
CALL NETTY
CALL LOGO
ENDPROC
PROC NETTY
STATMSG "Start"
dialogbox 0 173 62 188 201 2 "Obtain a Meridian networking list for use with the Netty Excel 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\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
Capture On
; LIST LD 86 ALL CUSTOMER 0 DMI & RLI INFORMATION
TRANSMIT "LD 86^M"
WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "CUST"
TRANSMIT "0^M"
WAITFOR "FEAT"
TRANSMIT "DGT^M"
; WAITFOR "DMI"
TRANSMIT "~^M"
WAITFOR "REQ" FOREVER
TRANSMIT "~^M"
Pause 4
TRANSMIT "~^M"
WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "CUST"
TRANSMIT "0^M"
WAITFOR "FEAT"
TRANSMIT "RLB^M"
; WAITFOR "RLI"
TRANSMIT "~^M"
WAITFOR "REQ" FOREVER
PAUSE 2
TRANSMIT "~^M"
WAITFOR "REQ"
TRANSMIT "END^M"
; LIST LD 87 ALL CUSTOMER 0 CDP INFORMATION
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"
WAITFOR "REQ"
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"
WAITFOR "REQ"
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"
WAITFOR "REQ"
TRANSMIT "END^M"
; LIST LD 90 ALL CUSTOMER 0 SPN AC1/AC2 INFORMATION
TRANSMIT "LD 90^M"
WAITFOR "REQ"
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"
WAITFOR "REQ"
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"
WAITFOR "REQ"
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"
WAITFOR "REQ"
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"
WAITFOR "REQ"
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"
WAITFOR "REQ"
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"
WAITFOR "REQ"
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"
WAITFOR "REQ"
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"
WAITFOR "REQ"
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"
WAITFOR "REQ"
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 "~~~~LOGI ~CUSTOMER^M" ; Change / Remove as required!
WAITFOR "PASS?"
MSPAUSE 100
TRANSMIT "CUSTOMER^M" ; Change this if required to a new password!
MSPAUSE 250
ENDPROC
PROC LOGO
TRANSMIT "****"
MSPAUSE 100
; TRANSMIT "LOGO^M" ; Uncheck this box if you want to log out!
F_Time=$TIME
usermsg "Netty Script Collection Complete`n`n at %s" F_TIME
Capture Off
ENDPROC
All the best
Firebird Scrambler
Meridian Programmer in the UK
Useful Nortel forum at
If it's working, then leave it alone!.
That's all I needed to hear
called "Firebirds_NETTY-MV_mod.zip"
~
called "Firebirds_NETTY-MV_mod.zip"
~
m1pbx, if you see this why do you
john poole
bellsouth business
columbia,sc
.. is there an advantage over waitquiet FOREVER? my scripts are very simular to yours, if they work in my switch, i stop.. i've always said firebird's work is closer to art then work.. mine do the job but i just use them to save me time, and up until a year ago never meet another switchman that used them at all..
john poole
bellsouth business
columbia,sc
John Someday I'm going to learn how to make those cool little frames that you put your qoutes and code in!!
The "waitquiet" command by default will only wait 30 seconds for quiet and then the script moves on (just like a waitfor) "waitquiet 2 FOREVER" is saying waitfor 2 seconds of quiet no matter how long it takes. You will see I used it in the script after printed all NPA's. Getting all NPA's out of the switch can sometimes take longer then 30 seconds so this way the script waits for the output to finish. After 2 seconds of quiet the script moves to the next step.
Thanks for the question. I hope you tried the script out too!!
Ron
-
1
- #11
testing making a window
Thanks
That works great!!
Code:
[b]Get_bars.was[/b]
;this script will collect all that is needed for netty.xls
proc main
capture on
set txpace 45
transmit "****^M"
; ****** Get all from AC1**********
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 "npa^M"
waitquiet 2 FOREVER
transmit "^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 "nxx^M"
waitquiet 2 FOREVER
transmit "^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"
waitquiet 2 FOREVER
transmit "^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 "loc^M"
waitquiet 2 FOREVER
transmit "^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 "HLOC^M"
waitquiet 2 FOREVER
transmit "^M"
waitfor "REQ" forever
; ****** Get all from AC1 is done!**********
transmit "END^M"
waitquiet 2 FOREVER
; ****** Get all from AC2**********
transmit "ld 90^M"
waitfor "REQ" forever
transmit "prt^M"
waitfor "CUST "
transmit "0^M"
waitfor "FEAT "
transmit "net^M"
waitfor "TRAN "
transmit "ac2^M"
waitfor "TYPE "
transmit "npa^M"
waitquiet 2 FOREVER
transmit "^M"
waitfor "REQ" forever
transmit "prt^M"
waitfor "CUST "
transmit "0^M"
waitfor "FEAT "
transmit "net^M"
waitfor "TRAN "
transmit "ac2^M"
waitfor "TYPE "
transmit "nxx^M"
waitquiet 2 FOREVER
transmit "^M"
waitfor "REQ" forever
transmit "prt^M"
waitfor "CUST "
transmit "0^M"
waitfor "FEAT "
transmit "net^M"
waitfor "TRAN "
transmit "ac2^M"
waitfor "TYPE "
transmit "SPN^M"
waitquiet 2 FOREVER
transmit "^M"
waitfor "REQ" forever
transmit "prt^M"
waitfor "CUST "
transmit "0^M"
waitfor "FEAT "
transmit "net^M"
waitfor "TRAN "
transmit "ac2^M"
waitfor "TYPE "
transmit "loc^M"
waitquiet 2 FOREVER
transmit "^M"
waitfor "REQ" forever
transmit "prt^M"
waitfor "CUST "
transmit "0^M"
waitfor "FEAT "
transmit "net^M"
waitfor "TRAN "
transmit "ac2^M"
waitfor "TYPE "
transmit "HLOC^M"
waitquiet 2 FOREVER
transmit "^M"
waitfor "REQ" forever
; ****** Get all from AC2 is done!**********
transmit "END^M"
waitquiet 2 FOREVER
;********LD 87 CDP collection**************
transmit "ld 87^M"
waitfor "REQ" forever
transmit "prt^M"
waitfor "CUST "
transmit "0^M"
waitfor "FEAT "
transmit "cdp^M"
waitfor "TYPE "
transmit "dsc^M"
waitfor "DSC "
transmit "^M"
waitfor "REQ" forever
transmit "prt^M"
waitfor "CUST "
transmit "0^M"
waitfor "FEAT "
transmit "cdp^M"
waitfor "TYPE "
transmit "lsc^M"
waitfor "LSC "
transmit "^M"
waitfor "REQ" forever
transmit "prt^M"
waitfor "CUST "
transmit "0^M"
waitfor "FEAT "
transmit "cdp^M"
waitfor "TYPE "
transmit "tsc^M"
waitfor "TSC "
transmit "^M"
waitfor "REQ" forever
transmit "END^M"
waitquiet 2 FOREVER
;****** LD 86 RLI & DGT**********
transmit "ld 86^M"
waitfor "REQ" forever
transmit "prt^M"
waitfor "CUST "
transmit "0^M"
waitfor "FEAT "
transmit "rlb^M"
waitfor "RLI "
transmit "^M"
waitfor "REQ" forever
transmit "prt^M"
waitfor "CUST "
transmit "0^M"
waitfor "FEAT "
transmit "dgt^M"
waitfor "DMI "
transmit "^M"
waitfor "REQ" forever
transmit "END^M"
waitquiet 2 FOREVER
capture off
set txpace 0
endprocThanks
That works great!!
Firebird Scrambler
Systems Engineer
A few people have asked me why I make my scripts as complicated as they look. One of the reasons is that I work on many systems ranging from V16.xx to the current release. I try to be able to use the same script for all software versions, hence the use of UPPER CASE for the older versions where applicable.
Another reason is that I access systems via Modems, or I'm connected directly to a captive system or even sometimes via Telnet through a Sig Server etc. Also the baud rate can be from 1220 up to 19200. I'd much prefer to obtain "clean" data such as Networking details or to be able to let a easy change extn type script run without having to watch it.
All the best
Firebird Scrambler
Meridian Programmer in the UK
Useful Nortel forum at
If it's working, then leave it alone!.
Another reason is that I access systems via Modems, or I'm connected directly to a captive system or even sometimes via Telnet through a Sig Server etc. Also the baud rate can be from 1220 up to 19200. I'd much prefer to obtain "clean" data such as Networking details or to be able to let a easy change extn type script run without having to watch it.
All the best
Firebird Scrambler
Meridian Programmer in the UK
Useful Nortel forum at
If it's working, then leave it alone!.
- Status
Similar threads
- Locked
- Question