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文件内容请搜索w3xue以前的文章或继续浏览下面的相关文章希望大家以后多多支持w3xue!