【资料名称】：用ＣＲＴ取基站ＢＶＣＩ参数的脚本

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

【资料日期】：２０１２

【资料语言】：中文

【资料格式】：其它

【资料目录和简介】：

好像论坛上ＣＲＴ的程序比较少，我就发一个自己工作中用到的，共享给大家。
取ＢＶＣＩ参数自动导入ＥＸＣＥＬ表格
#$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")'打开会话后要用此语句确认成功登入会话

'===============================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"