I am trying to update data in a Zoom meeting via the API with the following Classic ASP code:
'Get access token
access_token = getJWTToken()
strState = "nsw"
varStart = dateFormat(strStart,"yyyy-mm-dd") & "T" & dateFormat(strStart,"HH:MM:SS")
varDuration = dateDiff("n", strStart, strEnd)
varTimeZone = getTimeZone(strState)
postURL = zoom_url & "//webinars//" & webinarId
parmToSend = "{""topic"":""" & strTitle & """," & _
"""type"":""5""," & _
"""start_time"":""" & varStart & """," & _
"""duration"":""" & varDuration & """," & _
"""timezone"":""" & varTimeZone & """," & _
"""agenda"":""" & strDescription & """," & _
"""settings"":{" & _
" ""host_video"":""false""," & _
" ""panelists_video"":""false""," & _
" ""practice_session"":""true""," & _
" ""hd_video"":""false""," & _
" ""approval_type"":""0""," & _
" ""close_registration"":""false""," & _
" ""show_share_button"":""false""," & _
" ""allow_multiple_devices"":""true""," & _
" ""registrants_confirmation_email"":""true""," & _
" ""registrants_restrict_number"":""" & strSeats & """," & _
" ""notify_registrants"":""false""" & _
" }" & _
"}"
Set ServerXmlHttp = Server.CreateObject("MSXML2.XMLHTTP.6.0")
ServerXmlHttp.open "PATCH", postURL
ServerXmlHttp.setRequestHeader "Accept", "application/json"
ServerXmlHttp.setRequestHeader "Content-Type", "application/json"
ServerXmlHttp.setRequestHeader "Authorization", "Bearer " & access_token
ServerXmlHttp.send parmToSend
jsonResponse = ServerXmlHttp.responseText
It works intermittently but atm it keeps coming back with the same error:
msxml6.dll error '80070005'
Access is denied.
It fails on the following line:
ServerXmlHttp.send parmToSend
Can anyone help me with why this is happening?
Thanks