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 Function
vbs服务器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文件之间的常用操作(获取用户输入,执行VBS文件)的文章就介绍到这了,更多相关bat获取用户输入，执行VBS文件内容请搜索悠久资源网以前的文章或继续浏览下面的相关文章希望大家以后多多支持悠久资源网！
