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