bat文件与Vbs文件常用操作（获取用户输入，执行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 Function