Navigation
Install the app
How to install the app on iOS
Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
More options
-
Congratulations TouchToneTommy on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an alternative browser.
You should upgrade or use an alternative browser.
Conversion Utility Network Data log script
Procomm Plus Nortel Scripts
Conversion Utility Network Data log script
by
Firebird Scrambler
Posted
(Edited
)
; 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
; 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
Please Note: 1 is Bad, 10 is Good :-)
Part and Inventory Search
-
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.