求大神解答如何用VB实现根据设备号自动匹配MAC地址
求各位大神帮我解答。问题:我想用VB编个SecureCRT 5.1脚本,目的是在弹窗中输入设备号就能自动输入相对应的MAC地址。但是我自己编的脚本只在输入设备号为1时,自动输入相对应MAC:031001。但输入2或者3都直接报错 "错误的设备号,请核对" 。求大神解答
脚本如下:
程序代码:
# $language = "VBScript" # $interface = "1.0" Sub Main On Error Resume Next Const ForReading = 1, ForWriting = 2, ForAppending = 8 Dim fso,MAC1,line,params Dim DeviceNo Set fso = CreateObject("Scripting.FileSystemObject") Set MAC1 = fso.OpenTextFile("c:\2.ini",Forreading, False) crt.Screen.Synchronous = True line = MAC1.ReadLine params = Split (line) crt.Screen.WaitForString "或批处理文件。" DeviceNo = inputbox("请输入设备号","设备号输入对话框") If DeviceNo = params(0) Then crt.Screen.Send params(1) & vbcr Else MsgBox "错误的设备号,请核对" End If crt.Screen.Synchronous = False End Sub
2.ini文件中格式如下:
1 031001
2 031002
3 031003