vbs实现post接口定时请求监控，出错发邮件

NameSpace = "http://schemas.microsoft.com/cdo/configuration/"  
Set objEmail = CreateObject("CDO.Message") 
set fs =createobject("scripting.filesystemobject")
  
Function HttpRequest(url,mode,params)
    Dim oauth_http
    Set oauth_http=CreateObject("Microsoft.XMLHttp")
    oauth_http.Open mode,url,False
    If UCase(mode) = "POST" Then
    oauth_http.setRequestHeader "Content-Type","application/json"
    End If
    oauth_http.Send(params)
    HttpRequest = oauth_http.responseText
    Set oauth_http=nothing 
End Function
   
Dim token,url,params
params = "{""token"":""333"",""vehicle_id"":""eee""}"
url = "https://wxapp.dongzhengafc.com/uauto/api/v1/car/detail"
'MsgBox(HttpRequest(u