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 o