Vbscript 在Json字符串Vb脚本中发送日期

我试图在Vbscript的Json字符串中包含日期

d=FormatDateTime(Now)
PaymentDate =(FormatDateTime(d,2))



Set objXmlHttpMain = CreateObject("Msxml2.ServerXMLHTTP") 
    strJSONToSend = "{""PaymentDate"": " & PaymentDate & " ,""Months_Paid"": "& MONTHS_PAID &"}"
    objXmlHttpMain.open "POST",URL, False 
    objXmlHttpMain.setRequestHeader "Content-Type", "application/json"
    objXmlHttpMain.send strJSONToSend
    Logger.Info PaymentDate

我的输出返回

---

如果我像2017年6月21日那样在字符串中输入日期，那么帖子就不会有问题。当我尝试使用这个变量时，我没有收到任何错误，但是帖子没有被发送出去。如何在json字符串中发送todays date？

看起来您需要像手动操作一样将变量置于双引号之间

strJSONToSend = "{""PaymentDate"": """ & PaymentDate & """ ,""Months_Paid"": "& MONTHS_PAID &"}"