有对VB熟悉的么?

x-focus

我是搞无线的,对脚本一窍不通,求下面代码弄成VB脚本,我用文本文档改扩展名好象不行啊.该脚本需要在SecureCRT里面执行

鉴于WTP个数较多情况下，手动执行确认必定是费力耗时，可以用串口工具脚本来自动检查（后文给出一个基于SecureCRT的vbscript示例，可供售后技术工程师参考）。

       3、除障

       经过对所有WTP配置进行巡检后，可以将找到的有问题的WTP进行重启操作（如重启后仍有问题，建议重做此WTP配置，或者针对WTP进行个体排查）。

=====================串口脚本示例===========================

Sub Main

       i=1  <--巡检的起始WTP ID

       crt.screen.synchr cdth= False

      

       do while i < 1052   &#65279;<--巡检的中止WTP ID   

              crt.sleep(1000)   &#65279;<--执行单条命令的时间间隔，单位是ms。如加速执行可改小

              crt.screen.send “show wtp running-config " & i & vbcr

              i=i+1

       loop

End Sub

magic_os

这个脚本的crt.screen.synchr cdth= False这一句是不是有错误？
VBS的脚本能看懂一点..
取消这一句能在CRT中运行的~大致给你解释一下你应该能自己改的~

Sub Main      
' 这是一个子过程的开始
      
i=1            
' 定义了一个变量，并赋值为1
      
crt.screen.synchr cdth= False   
' 这一句应该错了~
’你将这一句改成
crt.Screen.Synchronous=True  
或者
crt.Screen.Synchronous=False
看看~它的意思是是否将输出同步显示在屏幕上~TRUE就是同步~False就是不同步~
看你那个原来的~应该是不同步的~
      
do while i < 1052   &#65279;               
  ' 循环开始，判断如果变量i小于1025 执行下面的内容（do 和 loop之间的内容），如果i大于或者等于1025了~跳出循环，简单的解释就是跳到loop的那个位置
              
crt.sleep(1000)   &#65279;  
' 这一句纯粹是一个中断操作，意思是代码执行到这里的时候，休息1秒（1000毫秒，可以自己改）
            
crt.screen.send “show wtp running-config  " & i & vbcr   
                                                           ^注意这个后面（running-config后面）一定要有一个空格   
  ' 这一句就是在CRT里面发送  show wtp running-config +一个空格  后面跟变量 i  ， 之后的 vbcr是一个回车符..就是执行回车
(比如i=1的时候这一句就是在CRT里面发送  show wtp running-config 1)
            
i=i+1      
' 这一句就是将变量加 1 . 脚本运行到这就+1.（其实i就是递增的1、2、3、4....这样一直到1052）
' 所以当这个 i 在这个循环里面不停的递增的时候，上面那一句就会在CRT里面不停的输入   
'  show wtp running-config X （X会从1一直到1051）
      
loop      
' 循环结束

End Sub
' 子过程结束

这个脚本其实就是一条一条运行的~只要那个i 小于1052 运行到loop的地方就会跳转到do的位置~
但是i递增到大于等于1052后~这个过程就结束了~
你主要看看那个错误的一句~其他地方都没有错~
问题应该出在那~

bookpig

问题得到解答了吗？

x-focus

magic_os 发表于 2011-11-30 13:53
这个脚本的crt.screen.synchr cdth= False这一句是不是有错误？
VBS的脚本能看懂一点..
取消这一句能在CR ...

非常感谢~~明天我去实验一下~~~再次感谢

magic_os

x-focus 发表于 2011-11-30 23:49
非常感谢~~明天我去实验一下~~~再次感谢

(*^__^*) 嘻嘻…不客气啦~
加油~！

chinamoon

magic_os 发表于 2011-12-1 07:56
(*^__^*) 嘻嘻…不客气啦~
加油~！