vbs脚本,vbs脚本编程简明教程
bat和vbs脚本 有什么区别？ 详细点！ 谢谢
bat是批处文件，实际上是一条条dos命令的集合，由命令行调用。vbs是vb脚本文件，当然还有java脚本文件，vbs由vb语言写成，但他不需要vb那样的编译环境，只要是文本编辑器都可以，他由系统的脚本解释器执行，一般vbs脚本都用在网页中，用于显示一些特效或特殊的用途
怎么制作VBS脚本
VBS脚本是一种简单的脚本程序，它可以用来实现一下简易的功能需求，那么如何编写VBS脚本呢？下面我给大家分享一下。
工具/材料
Sublime Text
01
首先我们打开Sublime Text软件，新建一个后缀名为vbs的文件，如下图所示
02
然后我们在vbs文件中输入如下的代码，主要是让用户输入一些内容，然后程序返回用户输入的内容
03
双击运行编写的VBS脚本，如下图所示，会弹出窗口让用户输入内容
04
我们输入完内容以后，程序就会自动弹出新的框来展示我们输入的内容。这样一个简单的VBS脚本就制作完了，是不是很简单啊
如何编辑vbs脚本？
当我们拿到一个VBS脚本文件的时候该如何的编辑呢？下面我就给大家分享一下如何编辑VBS脚本。
01
首先我们拿到一个VBS脚本文件后缀一般都是vbs，我们可以先把vs后缀改为txt，如下图所示
02
接下来我们双击txt文件，直接用系统自带的记事本来编辑即可，如下图所示
03
编辑完了以后，注意要把txt的后缀在改回vbs，如下图所示
04
另外我们也可以直接用sublime text这种比较强大的编辑软件直接编辑vbs文件，如下图所示
VBS脚本，登录CRT脚本该怎么写？
#?$language?=?"VBScript"
#?$interface?=?"1.0"
'=====================================================
'????????????????????山东**集团????
'????????????????????????????????????By?Klsjnh?
'??????????????????????????????????????Ver?0.5
'???????????????????????????????????2014.10.22?21:44????????
'=====================================================
'???从列表中读取交换机地址
'???v0.5??修改了???巡检中错误会停止的错误
'?????????修改了???寻找?more的方式
'
Sub?Main
On?Error?Resume?Next????'出错忽略
????Const?ForReading?=?1,?ForWriting?=?2,?ForAppending?=?8
Dim?objFso,objFile,strLine,aryParams
Set?objFso=?CreateObject("Scripting.FileSystemObject")
Set?objFile=?objFso.OpenTextFile("D:\Klsjnh\网络\脚本\iplist.ini",Forreading,?False?)
crt.Screen.Synchronous?=?True
strFolder=createFolder??"\"
DO?While??objFile.AtEndOfStream??True
strLine?=?objFile.ReadLine
aryParams=Split(strLine)
crt.Session.Connect?"/TELNET?"??aryParams(0)
If??crt.Session.Connected?Then?
crt.session.LogFileName?=?strFolder??aryParams(0)??"_"???Replace(Date,"/","-")???".txt"
crt.session.Log(true)
If?aryParams(1)?=?1?Then?????'登陆模式?1??telnet?密码?
crt.Screen.WaitForString?"Password:"
crt.Screen.Send?aryParams(2)??vbcr
End?If?
If?aryParams(1)?=?2?Then?????'登陆模式?2??特权模式
crt.Screen.WaitForString?"Password:"
crt.Screen.Send?aryParams(2)??vbcr
crt.Screen.WaitForString?""
crt.Screen.Send?"su"??vbcr
crt.Screen.WaitForString?"Password:"
crt.Screen.Send?aryParams(2)??vbcr
End?If?
'================================巡检部分================================
crt.Screen.WaitForString?""
crt.Screen.Send?"dis?log"??vbcr
Do?Until?crt.Screen.WaitForString("----?More?----",2)??-1
crt.Screen.Send?"?"??vbcr
Loop
'========================================================================
crt.Session.Disconnect
crt.session.Log(False)
Else
appendTextFile?"发生错误：???"??aryParams(0)??"?。("??now()??")"
End?If?
Loop
If?Err.Number?=?0?Then
crt.Dialog.MessageBox("所有交换机巡检成功....")
Else
crt.Dialog.MessageBox("所有交换机巡检完成，部分交换机有错误....")
End?If?
????crt.Screen.Synchronous?=?False????
End?Sub?
Public?Function?createFolder()???????????????????'创建以当前日期为名的?文件夹
Dim?objFso,objFolder,strFolderName
Set?objFso??????????=??CreateObject("Scripting.FileSystemObject")
Set?objFolder???????=??objFso.getfolder("D:\Klsjnh\网络\巡检")
strFolderName???????=??now()
strFolderName???????=??Left(strFolderName,InStr(strFolderName,Chr(32)))??'取空格之前的部分
strFolderName???????=??Mid(strFolderName,6,Len(strFoldername)-6)????'取日期
strFolderName???????=??Replace(strFolderName,"/","_")
strFolderName???????=??objFolder??"\"??strFolderName
If?objFso.FolderExists(strFolderName)True?Then?
objFso.CreateFolder(strFolderName)
End?If?
createFolder????????=??strFolderName
End?Function?
Public?Function?appendTextFile(strFileText)???'打开文件追加
Const?ForReading?=?1,?ForWriting?=?2,?ForAppending?=?8
Dim?objFso,objFile,strLine
Set?objFso??=?CreateObject("Scripting.FileSystemObject")
strFilePath??????=?"D:\Klsjnh\网络\交换机巡检错误日志.log"
Set?objFile?=?objFso.OpenTextFile(strFilePath,ForAppending,?True?)
objFile.WriteLine?strFileText
objFile.close?
Set?objFile?=?Nothing
Set?objFso??=?Nothing
End?Function