【資料名稱】：用ＣＲＴ取基站ＢＶＣＩ參數(shù)的腳本

【資料作者】：ＢＤＸＩＡ

【資料日期】：２０１２

【資料語言】：中文

【資料格式】：其它

【資料目錄和簡(jiǎn)介】：

好像論壇上ＣＲＴ的程序比較少，我就發(fā)一個(gè)自己工作中用到的，共享給大家。
取ＢＶＣＩ參數(shù)自動(dòng)導(dǎo)入ＥＸＣＥＬ表格
#$language = "VBScript"
#$interface = "1.0"

'變量聲明
Dim par,aLine,filename,oExcel,bcf_max,BVCI,iROW,BSC_NAME
'保持CRT語句與屏幕輸出同步
crt.Screen.Synchronous = True
'crt.Session.Connect ("/s S15_BSC5901")
'crt.Screen.WaitForString ("WELCOME")'打開會(huì)話后要用此語句確認(rèn)成功登入會(huì)話

'===============================OPEN EXCEL APPLICATEION====================================
Set oExcel = CreateObject( "Excel.Application" )
'===============================OPEN EXCEL FILE============================================
oExcel.Visible = True
oExcel.WorkBooks.Open ("D:\BVCI CHECK\BVCI.XLSX")
'===============================ACTIVATE SHEET=============================================
oExcel.WorkSheets( "BVCI" ).Activate
'oExcel.WorkSheets( "Sheet1" ).Select
oExcel.Cells(1,1).Value = "BSC_NAME"
oExcel.Cells(1,2).Value = "SEGno"
oExcel.Cells(1,3).Value = "BCFno"
oExcel.Cells(1,4).Value = "BTSno"
oExcel.Cells(1,5).Value = "NSEI"