terrysdavid
Programmer
Hi,
Firebirdscrambler, I'm using the following Aspect code you posted some time back to capture data to be used in the conversion utility program. However, when I compile it, I'm getting errors. Am I missing something?
; This used to be known as the List_All.was script. 28th April 2011
; Script to provide a list of a Nortel PBX system information for viewing via
; text files.
; NOTE!
; This program will only work with a WINDOWS version of Procomm Plus.
; I would recommend that this script is placed in the same folder as your capture
; files, because you can then use the DOS editor to check / change your files, after
; the listing have been obtained. the files are tagged as a "*.txt" for use with
; Microsoft's Notepad.
; Please amend your capture file settings under the following headings's
; "Options, Data Options, Setup Files, Capture File Options, Control Options" to
; UNCHECK the box marked "Query for file name when capture is started".
; Click "OK" & "OK" again before starting this script List_All.was program.
; This will make the script run & produce individual word or text files without
; any further manual assistance.
; Make sure that you enter the Login Name (or Account name for V04.5x onwards!)&
; the Password & click on the "ACCEPT" button to run the listings program.
; If your system does not use any Login name, then just enter any name or c/r in
; the box.
; You don't need to be LOGGED into the Meridian, before you run the script!.
; The program will still run on older software versions that don't use Named Login.
; It's best if log in first before the program is started. Just enter any name as
; mentioned above & wait 30 seconds before it will commence the input procedure.
; Run this file to capture a list of all the details listed within the file.
; It should work on all Meridian Versions & I have allowed "TARGET" prompt's
; to be used to enable the script to try & keep on going without it stopping.
; I would advise you to change the TTY port that you are using to have
; USER = "SCH" only. & Put back in the other settings after you have
; finished running the script file.
; The " ; " denotes that the data on the program script is ignored when
; the file is run.
; You must make sure that you have the "vkeys.inc" file located within
; Procomm Plus "Aspect" folder!. The script file will not compile without it!.
; If you don't have this file, then go to the last part of this script file &
; copy that section without the ";" as the file "vkeys.inc".
; 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!
;string s_opdata[2]
STRING F_Time
;INTEGER EVENT
integer i_mdm_clrdwn
PROC MAIN
integer i_evt
;integer i_rg2_chc = 4
;integer i_rg5_chc = 6
integer i_tmp
;integer i_ch
integer i_fch_tx_val
integer i_tx_val
;integer i_p
;long l_tot_no_lin
;long l_lin_cnt
;long l_prog_bar_op
;long l_fi_sz0
;long l_cur_fi_sz0
;string s_lsno
;string s_ncos_list = ",0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80"
;string s_ncos_item
;string s_size
;string s_dnsz
;string s_fi_nm
;string s_dir
string s_pwd
string s_userid
string s_time_start
string s_date_start
;string s_progress
;string s_prog_bar
string s_tx_list = "0,5,10,20,30,40,50,80,100,120,150,180,200,300,400,500,600,700"
string s_tx_item = "100"
;string s_sce_lin
dialogbox 0 12 18 334 220 11 "Obtain most M1/Succession PBX Listings up to V04.50 as separate text files"
; radiogroup 2 i_rg2_chc
; radiobutton 3 20 6 296 11 "Enter the systems Login Name and Password in the box's below to run the listing script file"
; endgroup
text 3 20 6 296 11 "Enter the systems Login Name and Password in the box's below to run the listing script file" left
editbox 23 248 18 74 11 s_userid 11
editbox 13 248 33 74 11 s_pwd 16 MASKED
editbox 37 286 65 38 11 s_date_start 8
editbox 17 286 98 38 11 s_time_start 8
combobox 24 291 122 30 170 DROPDOWNLIST s_tx_list s_tx_item
checkbox 40 100 195 130 11 "Modem cleardown on completion" i_mdm_clrdwn
pushbutton 14 228 198 40 13 "Accept"
pushbutton 15 276 198 40 13 "Cancel"
text 29 14 85 274 11 "If you want the program to Time start enter the time in 24Hr format in the box below" left
text 47 78 33 166 11 "Switch Password is Case Sensitive for V4.5 onwards" left
text 25 43 124 246 11 "Select the systems Transmit Pacing. User a higher number on older software!." left
text 22 50 19 190 11 "Name or User ID. (No Name = any character key pressed!)" left
text 34 36 100 248 11 "Pressing the (Space Bar) = Auto Start, or enter the start Time = e.g. 16:20:00 " left
text 35 15 144 306 26 " Please remember to amend your capture file settings under the following headings's (Options, Data Options, Setup Files, Capture File Options, Control Options) to UNCHECK the box marked (Query for file name when capture is started)!. " left
text 16 14 174 306 17 "Click (OK) & (OK) again before starting this script program. This will make the script run and produce individual word and text files without any further manual assistance. " left
text 36 5 50 282 11 "If you want the program to Date start enter the Date as e.g. 23/12/05 in the box below" center
text 38 38 65 248 11 "Pressing the (Space Bar) = Auto Start, or enter the required Date for it to run" left
text 39 288 88 34 9 "Hr:Mn:Sc" center
text 41 288 55 34 9 "Dy/Mh/Yr" center
text 42 14 195 85 11 "Use up to V04.50 ONLY!" left
text 43 14 208 200 11 "Capture files are best VIEWED if only SCH is set on the TTY!" left
enddialog
while 1
dlgevent 0 i_evt
switch i_evt
case 0
; if i_rg2_chc == 3
; if nullstr s_lsno
; disable dlgctrl 0 14
; elseif nullstr s_size
; disable dlgctrl 0 14
; elseif nullstr s_dnsz
; disable dlgctrl 0 14
; elseif nullstr s_userid
; disable dlgctrl 0 14
; elseif nullstr s_pwd
; disable dlgctrl 0 14
; elseif nullstr s_fi_nm
; disable dlgctrl 0 14
; else
; enable dlgctrl 0 14
; endif
; endif
; if i_rg2_chc == 4
; if nullstr s_lsno
; disable dlgctrl 0 14
if nullstr s_date_start
disable dlgctrl 0 14
elseif nullstr s_time_start
disable dlgctrl 0 14
elseif nullstr s_userid
disable dlgctrl 0 14
elseif nullstr s_pwd
disable dlgctrl 0 14
; elseif nullstr s_fi_nm
; disable dlgctrl 0 14
else
enable dlgctrl 0 14
endif
; endif
endcase
; case 5
; if i_rg5_chc == 6
; enable dlgctrl 0 8
; enable dlgctrl 0 16
; endif
; if i_rg5_chc == 7
; disable dlgctrl 0 8
; disable dlgctrl 0 16
; endif
; endcase
; case 9
; atoi s_lsno i_tmp
; if i_tmp < 0 || i_tmp > 8190
; usermsg "LIST No. `"%d`"`n`nOUT OF RANGE" i_tmp
; sendvkey MAKE_KV(KV_SHIFT,VK_TAB)
; endif
; endcase
; case 10
; atoi s_size i_tmp
; if i_tmp < 1 || i_tmp > 1000
; usermsg "SIZE `"%d`"`n`nOUT OF RANGE" i_tmp
; sendvkey MAKE_KV(KV_SHIFT,VK_TAB)
; endif
; endcase
; case 11
; atoi s_dnsz i_tmp
; if i_tmp < 4 || i_tmp > 31
; usermsg "DNSZ `"%d`"`n`nOUT OF RANGE" i_tmp
; sendvkey MAKE_KV(KV_SHIFT,VK_TAB)
; endif
; endcase
case 13
strlen s_pwd i_tmp
if i_tmp < 4
usermsg "Password `"%s`"`n`nThis must be between 4-16 characters in length & it is case sEnsTivE on V04.50 onwards!" s_pwd
sendvkey MAKE_KV(KV_SHIFT,VK_TAB)
endif
endcase
case 14
exitwhile
endcase
case 15
exitwhile
endcase
case 17
strlen s_time_start i_tmp
if i_tmp < 1
usermsg "Start Time `"%s`"`n`nmust be 6 Numbers in length and with a
) in between every 2 digits. or you can just press the Space Bar to leave the box blank to Auto Start the Listing program" s_time_start
sendvkey MAKE_KV(KV_SHIFT,VK_TAB)
endif
endcase
case 23
strlen s_userid i_tmp
if i_tmp < 1
usermsg "Name or UserID `"%s`"`n`nName can be up to 11 Characters. Otherwise enter a dummy name or press the Space Bar to accept the entry" s_userid
sendvkey MAKE_KV(KV_SHIFT,VK_TAB)
endif
endcase
case 37
strlen s_date_start i_tmp
if i_tmp < 1
usermsg "Start Date `"%s`"`n`nmust be 6 Numbers in length and with a (/) in between every 2 digits. or you can just press the Space Bar to leave the box blank to Auto Start the Listing program" s_date_start
sendvkey MAKE_KV(KV_SHIFT,VK_TAB)
endif
endcase
endswitch
endwhile
dlgdestroy 0 cancel
if i_evt != 14
exit
endif
; if not fopen 0 s_fi_nm read
; errormsg "Couldn't open file `"%s`"." s_fi_nm
; else
; cnt_no_fi_lines(i_ch,&l_tot_no_lin,&l_fi_sz0)
STATMSG "Waiting for the List_All auto start date/time program to run. Make sure that auto capture is set correctly!"
fetch txpace i_fch_tx_val
atoi s_tx_item i_tx_val
strcat s_tx_item " ms"
set txpace i_tx_val
datetimestart(s_time_start,s_date_start)
logi(s_userid)
login(s_pwd)
; ld_ovl_18(i_rg2_chc,i_rg5_chc,s_lsno,s_ncos_item,s_dnsz,s_size)
dialogbox 1 168 18 324 14 14 "Obtain most Nortel PBX Listings as separate text files Progress Status Bar"
; text 1 6 8 218 11 s_progress left
; editbox 2 14 22 198 11 s_prog_bar
;; text 3 14 38 290 11 s_fi_nm left
text 4 100 2 58 11 "Transmit Pace ==" left
; text 6 14 60 214 11 s_sce_lin left
text 5 162 2 34 11 s_tx_item left
enddialog
when TARGET 0 "NACT " CALL NACT
when TARGET 1 "AUTH008 " CALL CARR_RETURN
when TARGET 2 "AUTH002 " CALL SPWD_9999
when TARGET 3 "AUTH006 " CALL AUTH006
when TARGET 4 "SCH5294 " CALL SCH5294
when TARGET 5 "SCH0099 " CALL SCH5294
when TARGET 6 "SCH0705 " CALL SCH0705
when TARGET 7 "SCH8796 " CALL SCH8796
when TARGET 8 "SCH0808 " CALL SCH0808
when TARGET 9 "MARP " CALL CARR_RETURN
when TARGET 10 "OVL013 " CALL OVL013
when TARGET 11 "OVL309 " CALL OVL013
when TARGET 12 "SCH0111 " CALL SCH5289
when TARGET 13 " CPND_LANG " CALL CARR_RETURN
when TARGET 14 "SCH5289 " CALL SCH5289
when TARGET 15 "SPWD " CALL SPWD_0000
when TARGET 16 "ESN071 " CALL CARR_RETURN
when TARGET 17 "TEN " CALL CARR_RETURN
When TARGET 18 "OVL111 " CALL OVL111
When TARGET 19 "OVL428 " CALL OVL428
when TARGET 20 "KEM_RANGE " CALL CARR_RETURN
When TARGET 21 "SCH0101 " CALL SCH0101
when TARGET 22 "AUTH001 " CALL AUTH001
when TARGET 23 "Press Enter " CALL CARR_RETURN
when TARGET 24 "1. IPExpansion " CALL IPExpansion
when TARGET 25 "1. Media Gateway" CALL IPExpansion
when TARGET 26 "That option " CALL Option_not_available
when TARGET 27 "7. Current " CALL Seven_Current_Installation
when TARGET 28 "8. Current " CALL Eight_Current_Installation
when TARGET 29 "7. Current " CALL Seven_Current_Installation
when TARGET 30 "8. Current " CALL Eight_Current_Installation
when TARGET 31 "CONFIRM TEMPLATE " CALL TEMPLATE_AUDIT
when TARGET 32 "Wrong password. " CALL Wrong_password
when TARGET 33 "Invalid Login " CALL Wrong_password
when TARGET 34 "ACTIVE ETHERNET" CALL ACTIVE_ETHERNET
when TARGET 35 "BLOC " CALL CARR_RETURN
CALL LIST_ALL
ENDPROC
PROC LIST_ALL
txdc ("****")
SET CAPTURE FILE "Configuration Record 1.txt"
CAPTURE ON
STATMSG "WRITING Configuration Record 1.txt (LD 22) ISS Listing out the systems software Issue"
txdc ("LD 22")
WAITFOR "REQ"
txdc ("ISS")
WAITQUIET 5 FOREVER
txdc ("***")
STATMSG "WRITING Configuration Record 1.txt (LD 22) TID Listing out the systems Site Identification"
WAITFOR "REQ"
txdc ("TID")
WAITQUIET 5 FOREVER
txdc ("***")
STATMSG "WRITING Configuration Record 1.txt (LD 22) SLT Listing out the software Parameters"
WAITFOR "REQ"
txdc ("SLT")
WAITQUIET 5 FOREVER
txdc ("***")
STATMSG "WRITING Configuration Record 1.txt (LD 22) CFN Listing out the Configuration Settings"
WAITFOR "REQ"
txdc ("PRT")
WAITFOR "TYPE" 2
txdc ("CFN")
WAITQUIET 5 FOREVER
txdc ("***")
STATMSG "WRITING Configuration Record 1.txt (LD 22) PKG Listing out the software Packages"
WAITFOR "REQ"
txdc ("PRT")
WAITFOR "TYPE" 2
txdc ("PKG")
WAITQUIET 5 FOREVER
STATMSG "WRITING Configuration Record 1.txt (LD 22) PSWV Listing out the Peripheral Software Version (PSWV) data"
WAITFOR "REQ"
txdc ("PRT")
WAITFOR "TYPE" 2
txdc ("PSWV")
WAITQUIET 5 FOREVER
txdc ("***")
STATMSG "WRITING Configuration Record 1.txt (LD 22) CINV Printing out the Core Inventory list"
WAITFOR "REQ"
txdc ("PRT")
WAITFOR "TYPE" 2
txdc ("CINV")
WAITQUIET 5 FOREVER
txdc ("***")
WAITFOR "REQ"
txdc ("****")
waitfor ">"
CAPTURE OFF
SET CAPTURE FILE "Configuration Record 2.txt"
CAPTURE ON
txdc ("LD 97")
STATMSG "WRITING Configuration Record 2.txt (LD 97) XPE Printing out the Extended Peripheral Equipment"
WAITFOR "REQ"
txdc ("PRT")
WAITFOR "TYPE" 2
txdc ("XPE")
; WAITFOR "XPEC " 2
pause 2
txdc ("")
WAITQUIET 5 FOREVER
txdc ("***")
STATMSG "WRITING Configuration Record 2.txt (LD 97) FDL Listing out any M39xx Forced download settings"
WAITFOR "REQ"
txdc ("PRT")
WAITFOR "TYPE" 2
txdc ("FDL")
WAITQUIET 5 FOREVER
txdc ("***")
STATMSG "WRITING Configuration Record 2.txt (LD 97) SYSP Listing out the System parameters for Peripheral Equipment"
WAITFOR "REQ"
txdc ("PRT")
WAITFOR "TYPE" 2
txdc ("SYSP")
WAITQUIET 5 FOREVER
txdc ("***")
STATMSG "WRITING Configuration Record 2.txt (LD 97) SYSM Listing out the System Parameters for MSDL/MISP card"
WAITFOR "REQ"
txdc ("PRT")
WAITFOR "TYPE" 2
txdc ("SYSM")
WAITQUIET 5 FOREVER
txdc ("***")
STATMSG "WRITING Configuration Record 2.txt (LD 97) XCTP Listing out the system Conference/TDS/MF Sender card parameters data block"
WAITFOR "REQ"
txdc ("PRT")
WAITFOR "TYPE" 2
txdc ("XCTP")
WAITQUIET 5 FOREVER
txdc ("***")
STATMSG "WRITING Configuration Record 2.txt (LD 97) LOSP Listing out the Loss Plan Tables data block"
WAITFOR "REQ"
txdc ("PRT")
WAITFOR "TYPE" 2
txdc ("LOSP")
WAITQUIET 5 FOREVER
txdc ("***")
STATMSG "WRITING Configuration Record 2.txt (LD 97) DTD Listing out the Dial Tone Detection parameters data block"
WAITFOR "REQ"
txdc ("PRT")
WAITFOR "TYPE" 2
txdc ("DTD")
WAITFOR "XTDT" 2
txdc ("")
WAITQUIET 5 FOREVER
txdc ("***")
STATMSG "WRITING Configuration Record 2.txt (LD 97) DTR Listing out the Digitone Receiver parameters data block"
WAITFOR "REQ"
txdc ("PRT")
WAITFOR "TYPE" 2
txdc ("DTR")
WAITQUIET 5 FOREVER
txdc ("***")
STATMSG "WRITING Configuration Record 2.txt (LD 97) SUPL Listing out the Systems Superloops"
WAITFOR "REQ"
txdc ("PRT")
WAITFOR "TYPE" 2
txdc ("SUPL")
; WAITFOR "SUPL " 2
txdc ("")
WAITQUIET 5 FOREVER
txdc ("***")
WAITFOR "REQ"
CAPTURE OFF
SET CAPTURE FILE "System Patches.txt"
CAPTURE ON
txdc ("****")
STATMSG "WRITING System Patches.txt (LD 22) ISSP Listing out the software Issue and System Patches"
txdc ("LD 22")
WAITFOR "REQ"
txdc ("ISSP")
WAITQUIET 5 FOREVER
txdc ("***")
WAITFOR "REQ"
txdc ("****")
waitfor ">"
STATMSG "WRITING System Patches.txt (LD 143) STAT MDP ISSP Listing out the System Patches"
txdc ("LD 143")
waitfor "."
txdc ("MDP ISSP")
PAUSE 26
WAITQUIET 5 FOREVER
waitfor "."
CAPTURE OFF
txdc ("****")
waitfor ">"
; SET CAPTURE FILE "Card and Set Inventory.txt"
; capture on
txdc ("****")
STATMSG "WRITING Card and Set Inventory.txt (LD 117) INV GENERATE Cards"
txdc ("LD 117")
; WAITFOR "=>"
pause 5
txdc ("INV GENERATE CARDS")
; waitfor "MAT010" forever
pause 15
txdc ("***")
; WAITFOR "=>"
STATMSG "WRITING Card and Set Inventory.txt (LD 117) INV GENERATE Sets"
pause 5
txdc ("INV GENERATE SETS")
; waitfor "MAT011" forever
txdc ("***")
; WAITFOR "=>"
pause 15
capture off
txdc ("****")
SET CAPTURE FILE "Customer Data Block.txt"
CAPTURE ON
txdc ("****")
STATMSG "WRITING Customer Data Block.txt (LD 21) CDB Listing out the Customer Data Block"
txdc ("LD 21")
WAITFOR "REQ"
txdc ("PRT")
; WAITFOR "TYPE" 2
txdc ("CDB")
; WAITFOR "CUST " 2
txdc ("")
WAITQUIET 5 FOREVER
txdc ("***")
WAITFOR "REQ"
CAPTURE OFF
SET CAPTURE FILE "Primary Rate Interface Calling Line ID.txt"
CAPTURE ON
STATMSG "WRITING Primary Rate Interface Calling Line ID.txt (LD 21) CLID Listing out the Calling Line Identification"
txdc ("PRT")
; WAITFOR "TYPE" 2
txdc ("CLID")
; WAITFOR "CUST " 2
txdc ("0")
; WAITFOR "RNGE " 2
txdc ("")
WAITQUIET 5 FOREVER
txdc ("***")
WAITFOR "REQ"
CAPTURE OFF
SET CAPTURE FILE "DASS or DPNSS Digital Channels.txt"
CAPTURE ON
txdc ("****")
STATMSG "WRITING DASS or DPNSS Digital Channels.txt (LD 74) DDSL Listing out any DASS or DPNSS Digital Channels"
txdc ("LD 74")
WAITFOR "REQ"
txdc ("PRT")
; WAITFOR "TYPE" 2
txdc ("DDSL")
; WAITFOR "DDSL " 2
txdc ("")
WAITQUIET 5 FOREVER
txdc ("***")
STATMSG "WRITING DASS or DPNSS Digital Channels.txt (LD 74) LSSL Listing out any DASS or DPNSS Analogue Channels"
WAITFOR "REQ"
txdc ("PRT")
; WAITFOR "TYPE" 2
txdc ("LSSL")
; WAITFOR "LSSL " 2
txdc ("")
WAITQUIET 5 FOREVER
txdc ("***")
WAITFOR "REQ"
CAPTURE OFF
&nbs
Thanks.
Terry
Firebirdscrambler, I'm using the following Aspect code you posted some time back to capture data to be used in the conversion utility program. However, when I compile it, I'm getting errors. Am I missing something?
; This used to be known as the List_All.was script. 28th April 2011
; Script to provide a list of a Nortel PBX system information for viewing via
; text files.
; NOTE!
; This program will only work with a WINDOWS version of Procomm Plus.
; I would recommend that this script is placed in the same folder as your capture
; files, because you can then use the DOS editor to check / change your files, after
; the listing have been obtained. the files are tagged as a "*.txt" for use with
; Microsoft's Notepad.
; Please amend your capture file settings under the following headings's
; "Options, Data Options, Setup Files, Capture File Options, Control Options" to
; UNCHECK the box marked "Query for file name when capture is started".
; Click "OK" & "OK" again before starting this script List_All.was program.
; This will make the script run & produce individual word or text files without
; any further manual assistance.
; Make sure that you enter the Login Name (or Account name for V04.5x onwards!)&
; the Password & click on the "ACCEPT" button to run the listings program.
; If your system does not use any Login name, then just enter any name or c/r in
; the box.
; You don't need to be LOGGED into the Meridian, before you run the script!.
; The program will still run on older software versions that don't use Named Login.
; It's best if log in first before the program is started. Just enter any name as
; mentioned above & wait 30 seconds before it will commence the input procedure.
; Run this file to capture a list of all the details listed within the file.
; It should work on all Meridian Versions & I have allowed "TARGET" prompt's
; to be used to enable the script to try & keep on going without it stopping.
; I would advise you to change the TTY port that you are using to have
; USER = "SCH" only. & Put back in the other settings after you have
; finished running the script file.
; The " ; " denotes that the data on the program script is ignored when
; the file is run.
; You must make sure that you have the "vkeys.inc" file located within
; Procomm Plus "Aspect" folder!. The script file will not compile without it!.
; If you don't have this file, then go to the last part of this script file &
; copy that section without the ";" as the file "vkeys.inc".
; 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!
;string s_opdata[2]
STRING F_Time
;INTEGER EVENT
integer i_mdm_clrdwn
PROC MAIN
integer i_evt
;integer i_rg2_chc = 4
;integer i_rg5_chc = 6
integer i_tmp
;integer i_ch
integer i_fch_tx_val
integer i_tx_val
;integer i_p
;long l_tot_no_lin
;long l_lin_cnt
;long l_prog_bar_op
;long l_fi_sz0
;long l_cur_fi_sz0
;string s_lsno
;string s_ncos_list = ",0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80"
;string s_ncos_item
;string s_size
;string s_dnsz
;string s_fi_nm
;string s_dir
string s_pwd
string s_userid
string s_time_start
string s_date_start
;string s_progress
;string s_prog_bar
string s_tx_list = "0,5,10,20,30,40,50,80,100,120,150,180,200,300,400,500,600,700"
string s_tx_item = "100"
;string s_sce_lin
dialogbox 0 12 18 334 220 11 "Obtain most M1/Succession PBX Listings up to V04.50 as separate text files"
; radiogroup 2 i_rg2_chc
; radiobutton 3 20 6 296 11 "Enter the systems Login Name and Password in the box's below to run the listing script file"
; endgroup
text 3 20 6 296 11 "Enter the systems Login Name and Password in the box's below to run the listing script file" left
editbox 23 248 18 74 11 s_userid 11
editbox 13 248 33 74 11 s_pwd 16 MASKED
editbox 37 286 65 38 11 s_date_start 8
editbox 17 286 98 38 11 s_time_start 8
combobox 24 291 122 30 170 DROPDOWNLIST s_tx_list s_tx_item
checkbox 40 100 195 130 11 "Modem cleardown on completion" i_mdm_clrdwn
pushbutton 14 228 198 40 13 "Accept"
pushbutton 15 276 198 40 13 "Cancel"
text 29 14 85 274 11 "If you want the program to Time start enter the time in 24Hr format in the box below" left
text 47 78 33 166 11 "Switch Password is Case Sensitive for V4.5 onwards" left
text 25 43 124 246 11 "Select the systems Transmit Pacing. User a higher number on older software!." left
text 22 50 19 190 11 "Name or User ID. (No Name = any character key pressed!)" left
text 34 36 100 248 11 "Pressing the (Space Bar) = Auto Start, or enter the start Time = e.g. 16:20:00 " left
text 35 15 144 306 26 " Please remember to amend your capture file settings under the following headings's (Options, Data Options, Setup Files, Capture File Options, Control Options) to UNCHECK the box marked (Query for file name when capture is started)!. " left
text 16 14 174 306 17 "Click (OK) & (OK) again before starting this script program. This will make the script run and produce individual word and text files without any further manual assistance. " left
text 36 5 50 282 11 "If you want the program to Date start enter the Date as e.g. 23/12/05 in the box below" center
text 38 38 65 248 11 "Pressing the (Space Bar) = Auto Start, or enter the required Date for it to run" left
text 39 288 88 34 9 "Hr:Mn:Sc" center
text 41 288 55 34 9 "Dy/Mh/Yr" center
text 42 14 195 85 11 "Use up to V04.50 ONLY!" left
text 43 14 208 200 11 "Capture files are best VIEWED if only SCH is set on the TTY!" left
enddialog
while 1
dlgevent 0 i_evt
switch i_evt
case 0
; if i_rg2_chc == 3
; if nullstr s_lsno
; disable dlgctrl 0 14
; elseif nullstr s_size
; disable dlgctrl 0 14
; elseif nullstr s_dnsz
; disable dlgctrl 0 14
; elseif nullstr s_userid
; disable dlgctrl 0 14
; elseif nullstr s_pwd
; disable dlgctrl 0 14
; elseif nullstr s_fi_nm
; disable dlgctrl 0 14
; else
; enable dlgctrl 0 14
; endif
; endif
; if i_rg2_chc == 4
; if nullstr s_lsno
; disable dlgctrl 0 14
if nullstr s_date_start
disable dlgctrl 0 14
elseif nullstr s_time_start
disable dlgctrl 0 14
elseif nullstr s_userid
disable dlgctrl 0 14
elseif nullstr s_pwd
disable dlgctrl 0 14
; elseif nullstr s_fi_nm
; disable dlgctrl 0 14
else
enable dlgctrl 0 14
endif
; endif
endcase
; case 5
; if i_rg5_chc == 6
; enable dlgctrl 0 8
; enable dlgctrl 0 16
; endif
; if i_rg5_chc == 7
; disable dlgctrl 0 8
; disable dlgctrl 0 16
; endif
; endcase
; case 9
; atoi s_lsno i_tmp
; if i_tmp < 0 || i_tmp > 8190
; usermsg "LIST No. `"%d`"`n`nOUT OF RANGE" i_tmp
; sendvkey MAKE_KV(KV_SHIFT,VK_TAB)
; endif
; endcase
; case 10
; atoi s_size i_tmp
; if i_tmp < 1 || i_tmp > 1000
; usermsg "SIZE `"%d`"`n`nOUT OF RANGE" i_tmp
; sendvkey MAKE_KV(KV_SHIFT,VK_TAB)
; endif
; endcase
; case 11
; atoi s_dnsz i_tmp
; if i_tmp < 4 || i_tmp > 31
; usermsg "DNSZ `"%d`"`n`nOUT OF RANGE" i_tmp
; sendvkey MAKE_KV(KV_SHIFT,VK_TAB)
; endif
; endcase
case 13
strlen s_pwd i_tmp
if i_tmp < 4
usermsg "Password `"%s`"`n`nThis must be between 4-16 characters in length & it is case sEnsTivE on V04.50 onwards!" s_pwd
sendvkey MAKE_KV(KV_SHIFT,VK_TAB)
endif
endcase
case 14
exitwhile
endcase
case 15
exitwhile
endcase
case 17
strlen s_time_start i_tmp
if i_tmp < 1
usermsg "Start Time `"%s`"`n`nmust be 6 Numbers in length and with a
) in between every 2 digits. or you can just press the Space Bar to leave the box blank to Auto Start the Listing program" s_time_startsendvkey MAKE_KV(KV_SHIFT,VK_TAB)
endif
endcase
case 23
strlen s_userid i_tmp
if i_tmp < 1
usermsg "Name or UserID `"%s`"`n`nName can be up to 11 Characters. Otherwise enter a dummy name or press the Space Bar to accept the entry" s_userid
sendvkey MAKE_KV(KV_SHIFT,VK_TAB)
endif
endcase
case 37
strlen s_date_start i_tmp
if i_tmp < 1
usermsg "Start Date `"%s`"`n`nmust be 6 Numbers in length and with a (/) in between every 2 digits. or you can just press the Space Bar to leave the box blank to Auto Start the Listing program" s_date_start
sendvkey MAKE_KV(KV_SHIFT,VK_TAB)
endif
endcase
endswitch
endwhile
dlgdestroy 0 cancel
if i_evt != 14
exit
endif
; if not fopen 0 s_fi_nm read
; errormsg "Couldn't open file `"%s`"." s_fi_nm
; else
; cnt_no_fi_lines(i_ch,&l_tot_no_lin,&l_fi_sz0)
STATMSG "Waiting for the List_All auto start date/time program to run. Make sure that auto capture is set correctly!"
fetch txpace i_fch_tx_val
atoi s_tx_item i_tx_val
strcat s_tx_item " ms"
set txpace i_tx_val
datetimestart(s_time_start,s_date_start)
logi(s_userid)
login(s_pwd)
; ld_ovl_18(i_rg2_chc,i_rg5_chc,s_lsno,s_ncos_item,s_dnsz,s_size)
dialogbox 1 168 18 324 14 14 "Obtain most Nortel PBX Listings as separate text files Progress Status Bar"
; text 1 6 8 218 11 s_progress left
; editbox 2 14 22 198 11 s_prog_bar
;; text 3 14 38 290 11 s_fi_nm left
text 4 100 2 58 11 "Transmit Pace ==" left
; text 6 14 60 214 11 s_sce_lin left
text 5 162 2 34 11 s_tx_item left
enddialog
when TARGET 0 "NACT " CALL NACT
when TARGET 1 "AUTH008 " CALL CARR_RETURN
when TARGET 2 "AUTH002 " CALL SPWD_9999
when TARGET 3 "AUTH006 " CALL AUTH006
when TARGET 4 "SCH5294 " CALL SCH5294
when TARGET 5 "SCH0099 " CALL SCH5294
when TARGET 6 "SCH0705 " CALL SCH0705
when TARGET 7 "SCH8796 " CALL SCH8796
when TARGET 8 "SCH0808 " CALL SCH0808
when TARGET 9 "MARP " CALL CARR_RETURN
when TARGET 10 "OVL013 " CALL OVL013
when TARGET 11 "OVL309 " CALL OVL013
when TARGET 12 "SCH0111 " CALL SCH5289
when TARGET 13 " CPND_LANG " CALL CARR_RETURN
when TARGET 14 "SCH5289 " CALL SCH5289
when TARGET 15 "SPWD " CALL SPWD_0000
when TARGET 16 "ESN071 " CALL CARR_RETURN
when TARGET 17 "TEN " CALL CARR_RETURN
When TARGET 18 "OVL111 " CALL OVL111
When TARGET 19 "OVL428 " CALL OVL428
when TARGET 20 "KEM_RANGE " CALL CARR_RETURN
When TARGET 21 "SCH0101 " CALL SCH0101
when TARGET 22 "AUTH001 " CALL AUTH001
when TARGET 23 "Press Enter " CALL CARR_RETURN
when TARGET 24 "1. IPExpansion " CALL IPExpansion
when TARGET 25 "1. Media Gateway" CALL IPExpansion
when TARGET 26 "That option " CALL Option_not_available
when TARGET 27 "7. Current " CALL Seven_Current_Installation
when TARGET 28 "8. Current " CALL Eight_Current_Installation
when TARGET 29 "7. Current " CALL Seven_Current_Installation
when TARGET 30 "8. Current " CALL Eight_Current_Installation
when TARGET 31 "CONFIRM TEMPLATE " CALL TEMPLATE_AUDIT
when TARGET 32 "Wrong password. " CALL Wrong_password
when TARGET 33 "Invalid Login " CALL Wrong_password
when TARGET 34 "ACTIVE ETHERNET" CALL ACTIVE_ETHERNET
when TARGET 35 "BLOC " CALL CARR_RETURN
CALL LIST_ALL
ENDPROC
PROC LIST_ALL
txdc ("****")
SET CAPTURE FILE "Configuration Record 1.txt"
CAPTURE ON
STATMSG "WRITING Configuration Record 1.txt (LD 22) ISS Listing out the systems software Issue"
txdc ("LD 22")
WAITFOR "REQ"
txdc ("ISS")
WAITQUIET 5 FOREVER
txdc ("***")
STATMSG "WRITING Configuration Record 1.txt (LD 22) TID Listing out the systems Site Identification"
WAITFOR "REQ"
txdc ("TID")
WAITQUIET 5 FOREVER
txdc ("***")
STATMSG "WRITING Configuration Record 1.txt (LD 22) SLT Listing out the software Parameters"
WAITFOR "REQ"
txdc ("SLT")
WAITQUIET 5 FOREVER
txdc ("***")
STATMSG "WRITING Configuration Record 1.txt (LD 22) CFN Listing out the Configuration Settings"
WAITFOR "REQ"
txdc ("PRT")
WAITFOR "TYPE" 2
txdc ("CFN")
WAITQUIET 5 FOREVER
txdc ("***")
STATMSG "WRITING Configuration Record 1.txt (LD 22) PKG Listing out the software Packages"
WAITFOR "REQ"
txdc ("PRT")
WAITFOR "TYPE" 2
txdc ("PKG")
WAITQUIET 5 FOREVER
STATMSG "WRITING Configuration Record 1.txt (LD 22) PSWV Listing out the Peripheral Software Version (PSWV) data"
WAITFOR "REQ"
txdc ("PRT")
WAITFOR "TYPE" 2
txdc ("PSWV")
WAITQUIET 5 FOREVER
txdc ("***")
STATMSG "WRITING Configuration Record 1.txt (LD 22) CINV Printing out the Core Inventory list"
WAITFOR "REQ"
txdc ("PRT")
WAITFOR "TYPE" 2
txdc ("CINV")
WAITQUIET 5 FOREVER
txdc ("***")
WAITFOR "REQ"
txdc ("****")
waitfor ">"
CAPTURE OFF
SET CAPTURE FILE "Configuration Record 2.txt"
CAPTURE ON
txdc ("LD 97")
STATMSG "WRITING Configuration Record 2.txt (LD 97) XPE Printing out the Extended Peripheral Equipment"
WAITFOR "REQ"
txdc ("PRT")
WAITFOR "TYPE" 2
txdc ("XPE")
; WAITFOR "XPEC " 2
pause 2
txdc ("")
WAITQUIET 5 FOREVER
txdc ("***")
STATMSG "WRITING Configuration Record 2.txt (LD 97) FDL Listing out any M39xx Forced download settings"
WAITFOR "REQ"
txdc ("PRT")
WAITFOR "TYPE" 2
txdc ("FDL")
WAITQUIET 5 FOREVER
txdc ("***")
STATMSG "WRITING Configuration Record 2.txt (LD 97) SYSP Listing out the System parameters for Peripheral Equipment"
WAITFOR "REQ"
txdc ("PRT")
WAITFOR "TYPE" 2
txdc ("SYSP")
WAITQUIET 5 FOREVER
txdc ("***")
STATMSG "WRITING Configuration Record 2.txt (LD 97) SYSM Listing out the System Parameters for MSDL/MISP card"
WAITFOR "REQ"
txdc ("PRT")
WAITFOR "TYPE" 2
txdc ("SYSM")
WAITQUIET 5 FOREVER
txdc ("***")
STATMSG "WRITING Configuration Record 2.txt (LD 97) XCTP Listing out the system Conference/TDS/MF Sender card parameters data block"
WAITFOR "REQ"
txdc ("PRT")
WAITFOR "TYPE" 2
txdc ("XCTP")
WAITQUIET 5 FOREVER
txdc ("***")
STATMSG "WRITING Configuration Record 2.txt (LD 97) LOSP Listing out the Loss Plan Tables data block"
WAITFOR "REQ"
txdc ("PRT")
WAITFOR "TYPE" 2
txdc ("LOSP")
WAITQUIET 5 FOREVER
txdc ("***")
STATMSG "WRITING Configuration Record 2.txt (LD 97) DTD Listing out the Dial Tone Detection parameters data block"
WAITFOR "REQ"
txdc ("PRT")
WAITFOR "TYPE" 2
txdc ("DTD")
WAITFOR "XTDT" 2
txdc ("")
WAITQUIET 5 FOREVER
txdc ("***")
STATMSG "WRITING Configuration Record 2.txt (LD 97) DTR Listing out the Digitone Receiver parameters data block"
WAITFOR "REQ"
txdc ("PRT")
WAITFOR "TYPE" 2
txdc ("DTR")
WAITQUIET 5 FOREVER
txdc ("***")
STATMSG "WRITING Configuration Record 2.txt (LD 97) SUPL Listing out the Systems Superloops"
WAITFOR "REQ"
txdc ("PRT")
WAITFOR "TYPE" 2
txdc ("SUPL")
; WAITFOR "SUPL " 2
txdc ("")
WAITQUIET 5 FOREVER
txdc ("***")
WAITFOR "REQ"
CAPTURE OFF
SET CAPTURE FILE "System Patches.txt"
CAPTURE ON
txdc ("****")
STATMSG "WRITING System Patches.txt (LD 22) ISSP Listing out the software Issue and System Patches"
txdc ("LD 22")
WAITFOR "REQ"
txdc ("ISSP")
WAITQUIET 5 FOREVER
txdc ("***")
WAITFOR "REQ"
txdc ("****")
waitfor ">"
STATMSG "WRITING System Patches.txt (LD 143) STAT MDP ISSP Listing out the System Patches"
txdc ("LD 143")
waitfor "."
txdc ("MDP ISSP")
PAUSE 26
WAITQUIET 5 FOREVER
waitfor "."
CAPTURE OFF
txdc ("****")
waitfor ">"
; SET CAPTURE FILE "Card and Set Inventory.txt"
; capture on
txdc ("****")
STATMSG "WRITING Card and Set Inventory.txt (LD 117) INV GENERATE Cards"
txdc ("LD 117")
; WAITFOR "=>"
pause 5
txdc ("INV GENERATE CARDS")
; waitfor "MAT010" forever
pause 15
txdc ("***")
; WAITFOR "=>"
STATMSG "WRITING Card and Set Inventory.txt (LD 117) INV GENERATE Sets"
pause 5
txdc ("INV GENERATE SETS")
; waitfor "MAT011" forever
txdc ("***")
; WAITFOR "=>"
pause 15
capture off
txdc ("****")
SET CAPTURE FILE "Customer Data Block.txt"
CAPTURE ON
txdc ("****")
STATMSG "WRITING Customer Data Block.txt (LD 21) CDB Listing out the Customer Data Block"
txdc ("LD 21")
WAITFOR "REQ"
txdc ("PRT")
; WAITFOR "TYPE" 2
txdc ("CDB")
; WAITFOR "CUST " 2
txdc ("")
WAITQUIET 5 FOREVER
txdc ("***")
WAITFOR "REQ"
CAPTURE OFF
SET CAPTURE FILE "Primary Rate Interface Calling Line ID.txt"
CAPTURE ON
STATMSG "WRITING Primary Rate Interface Calling Line ID.txt (LD 21) CLID Listing out the Calling Line Identification"
txdc ("PRT")
; WAITFOR "TYPE" 2
txdc ("CLID")
; WAITFOR "CUST " 2
txdc ("0")
; WAITFOR "RNGE " 2
txdc ("")
WAITQUIET 5 FOREVER
txdc ("***")
WAITFOR "REQ"
CAPTURE OFF
SET CAPTURE FILE "DASS or DPNSS Digital Channels.txt"
CAPTURE ON
txdc ("****")
STATMSG "WRITING DASS or DPNSS Digital Channels.txt (LD 74) DDSL Listing out any DASS or DPNSS Digital Channels"
txdc ("LD 74")
WAITFOR "REQ"
txdc ("PRT")
; WAITFOR "TYPE" 2
txdc ("DDSL")
; WAITFOR "DDSL " 2
txdc ("")
WAITQUIET 5 FOREVER
txdc ("***")
STATMSG "WRITING DASS or DPNSS Digital Channels.txt (LD 74) LSSL Listing out any DASS or DPNSS Analogue Channels"
WAITFOR "REQ"
txdc ("PRT")
; WAITFOR "TYPE" 2
txdc ("LSSL")
; WAITFOR "LSSL " 2
txdc ("")
WAITQUIET 5 FOREVER
txdc ("***")
WAITFOR "REQ"
CAPTURE OFF
&nbs
Thanks.
Terry
