Does anyone have a ProComm script for set installation on an Nortel PBX? I was awarded a 2000 port system and am looking for a script to input the physical devices.
create an excel spreadsheet that is .csv (comma delimited) and pay attention to the fields below. This will pull the info from the spreadsheet and build them as needed. This is for a 3904 set but the script can easily be changed for your PBX. make sure you change the tgar and ncos to your system as well.
string xdesc, xoldtn, xnewtn, xtype, xacd, xdn, xpos, xname ; variables to be extracted from input string from file.
string FName ; Declaration of File name to be opened.
string LineBuffer ; Declaration of variable LineBuffer for Line to be read from file.
string nloop = "True"
string LChar = "F"
integer nItem = 0, Len = 2 ; nItem - next comma delimited field in LineBuffer
statmsg "Enter the name of the source file that has DESC, OLDTN, NEWTN, TYPE, ACD, POSID, DN, and NAME defined."
sdlginput "Source File for 3905 Sets" "Enter File Name :" FName
if isfile FName ; Make sure file exists.
fopen 0 FName READ ; Open file for read.
while not feof 0
fgets 0 linebuffer
while not feof 0 ; Loop while not end of file.
statclear
statmsg "Processing file input"
strextract xdesc LineBuffer "," nItem ; Extract description from input string
if not nullstr xdesc ; See if we're at the end of list.
nItem++
;usermsg xdesc ; Increment our item pointer.
endif
strextract xoldtn LineBuffer "," nItem ; Extract tn from input string
if not nullstr xoldtn ; See if we're at the end of list.
nItem++ ; Increment our item pointer.
;usermsg xoldtn
endif
strextract xnewtn LineBuffer "," nItem ; Extract tn from input string
if not nullstr xnewtn ; See if we're at the end of list.
nItem++ ; Increment our item pointer.
;usermsg xnewtn
endif
strextract xtype LineBuffer "," nItem ; Extract tn from input string
if not nullstr xtype ; See if we're at the end of list.
nItem++ ; Increment our item pointer.
;usermsg xtype
endif
strextract xacd LineBuffer "," nItem ; Extract acd from input string
if not nullstr xacd ; See if we're at the end of list.
nItem++ ; Increment our item pointer.
;usermsg xacd
endif
strextract xpos LineBuffer "," nItem ; Extract DN from input string
if not nullstr xpos ; See if we're at the end of list.
nItem++ ; Increment our item pointer.
;usermsg xpos
endif
strextract xdn LineBuffer "," nItem ; Extract position ID from input string
if not nullstr xdn ; See if we're at the end of list.
nItem++ ; Increment our item pointer.
;usermsg xdn
endif
strextract xname LineBuffer "," nItem ; Extract position ID from input string
if not nullstr xname ; See if we're at the end of list.
nItem++ ; Increment our item pointer.
;usermsg xname
endif
;3905 code
if strcmp nloop "True"
transmit "ld 20^M"
endif
waitfor "REQ:"
transmit "new^M"
waitfor "TYPE: "
transmit xtype
transmit "^M"
waitfor "TN "
transmit xnewtn
transmit "^M"
waitfor "DES "
transmit xdesc
transmit "^M"
waitfor "CUST "
transmit "0^M"
waitfor "KBA"
transmit "^M"
waitfor "DBA"
transmit "^M"
waitfor "FDN "
transmit "6245^M"
waitfor "TGAR "
transmit "1^M"
waitfor "LDN "
transmit "^M"
waitfor "NCOS "
transmit "1^M"
waitfor "RNPG "
transmit "^M"
waitfor "SSU "
transmit "^M"
waitfor "SGRP "
transmit "^M"
waitfor "CLS "
transmit "MCTA LNA IRA OLA TDD CDMA CFXA CNDA DNDA DPUA FNA HFA HTA SFA MWA ^M"
thank you - quick question if I already have the database on an excel file can I just use it if it is a csv file? If it is not I know I can convert it to a csv file
Yes you can use that, just do the "save as" and make it comma delimited at that time. YOu might have to realign the fields in your existing spreadsheet to fit the script though. When you run it, you might have to tweak for your PBX, some prompts might be different, you can go in and edit with procomm.
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.