bat文件与Vbs文件间的常用操作方法有哪些
这篇“bat文件与Vbs文件间的常用操作方法有哪些”文章的知识点大部分人都不太理解，所以小编给大家总结了以下内容，内容详细，步骤清晰，具有一定的借鉴价值，希望大家阅读完这篇文章能有所收获，下面我们一起来看看这篇“bat文件与Vbs文件间的常用操作方法有哪些”文章吧。
bat文件
set /P StrInput="输入数字：" echo 输入的数字为%StrInput% set /P Flg="是否执行(y/n):" IF "%Flg%" equ "y" ( echo 执行命令 cscript abc.vbs "%StrInput%" )
注意：
等于号（=）之间不能有空格，不然会出错。
判断值大小最好使用equ之类。
条件判断后的括号的有空格。
VBS文件
获取外部参数
写文件
WebAPI操作
日期与TimeStamp变换
Dim WshShell
Dim CurDir
Dim oParam
'取参数
Set oParam = WScript.Arguments
if oParam.Count>0 Then
Else
WScript.Quit
End if
'获取当前路径
Set WshShell = WScript.CreateObject("WScript.Shell")
CurDir = WshShell.CurrentDirectory
'写文件操作
Function OutputData(filename)
Dim objFSOW
Dim objFileW
Set objFSOW = WScript.CreateObject("Scripting.FileSystemObject")
Set objFileW = objFSOW.OpenTextFile(filename,2,True)
objFileW.Write(filename)
objFileW.Write(vbCrLf)
objFileW.Write(vbTab)
Set objFileW = Nothing
Set objFSOW =Nothing
End Function
'WebAPI操作
'params = "{""method"":""get"",""ID"":""12""}"
Function RequestAPI(url,params)
Dim oHttp
Set oHttp = CreateObject("MSXML2.ServerXMLHTTP")
on error resume next
oHttp.Open "POST",url,False
If Err Then
RequestAPI = Err.Description
End If
On Error Goto 0
oHttp.SetRequestHeader "Content-Type","application/json"
oHttp.Send params
If oHttp.readyState<>4 Then
oHttp.waitForResponse(10)
End If
RequestAPI = oHttp.ResponseText
Set oHttp = Nothing
End Function
'TimeStamp -> Date
Function FormatDate(timestamp)
FormatDate = DateAdd("s",CLng(timestamp),"01/01/1970 00:00:00")
End Function
'Date ->TimeStamp
Function DateToTimeStamp(dateValue)
DateToTimeStamp = DateDiff("s","01/01/1970 00:00:00",dateValue)
End Functionvbs服务器bat文件,window下批处理操作：bat文件中调用vbs
@echo "kill CRT process" taskkill /F /IM SecureCRT.exe ::ping 127.0.0.1 -n 30 echo "start vos through CRT" echo off d: cd D:\tools\SecureCRT_x86 start SecureCRT.EXE /SCRIPT D:\Secure_vos\Start_vos.vbs echo "start vos through CRT end" ping 127.0.0.1 -n 4 pause
上述代码的意思是：在.bat文件中执行Start_vos.vbs文件
批处理执行文件之前首先需要下载SecureCRT.exe文件
Start_vos.vbs文件内容如下：
On Error Resume Next
Dim result
If crt.Session.Connected Then crt.Session.Disconnect
' connected to the '172.21.1.114'
Set objtab = crt.Session.ConnectInTab("/SSH2 /PASSWORD root root@172.21.1.114",True)
' Capture error code and description (if any)
nError = Err.Number
strErr = Err.Description
' Now, tell the script host that it should handle errors as usual now:
On Error Goto 0
' change tab name
objtab.caption = "Gdb_vos"
' enter the folder
crt.Screen.Send "cd /home/test" & chr(13)
crt.Screen.WaitForString chr(27) & "[32m(none) /home/test" & chr(27) & "[m # "
End Sub上述代码主要是将手动输入的过程使用VBS脚本进行自动化
首先：Set objtab = crt.Session.ConnectInTab("/SSH2 /PASSWORD root123 root@172.11.1.15",True)
采用SSH2的方式连接linuxIP地址172.21.1.114，密码是root123,用户名是rootobjtab.caption = "Start_vos"
将当前连接页面重命名为Start_voscrt.Screen.Send "cd /home/test" & chr(13)输入cd /home/test并回车
crt.Screen.WaitForString chr(27) & "[32m(none) /home/test" & chr(27) & "[m # "等待页面下一行的内容为chr(27) & "[32m(none) /home/test" & chr(27) & "[m # "
以上就是关于“bat文件与Vbs文件间的常用操作方法有哪些”这篇文章的内容，相信大家都有了一定的了解，希望小编分享的内容对大家有帮助，若想了解更多相关的知识内容，请关注蜗牛博客行业资讯频道。
免责声明：本站发布的内容（图片、视频和文字）以原创、转载和分享为主，文章观点不代表本网站立场，如果涉及侵权请联系站长邮箱：niceseo99@gmail.com进行举报，并提供相关证据，一经查实，将立刻删除涉嫌侵权内容。
评论