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 Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

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
Register to rate this FAQ  : BAD 1 2 3 4 5 6 7 8 9 10 GOOD
Please Note: 1 is Bad, 10 is Good :-)

Part and Inventory Search

Back
Top