Reload from accesspoint by EDX Trigger throwing Error

[Anonymous]

hi guru's,

Iam trying to reload application in IE accesspoint by Button and Macro,

Iam getting attached error .

here is the Macro Code iam using:

Sub CargoEDX()

url = "http://SERVIDOR _QLIKVIEW:4720/qtxs.asmx" 'QV Server Address and URL EDX's service

userID = "LOGIN" 'User login in target system. It must belongs to "QlikView Administrators"

pass = "PASSWORD" 'User Password

doc = "Aplicaciones/Monitoreo Servidor/WebServerPerformance.qvw" 'Task name that it wants execute

MsgBox "The reload starts. Please press "Accept" and wait for a minute"

MsgBox ReloadEDX(url, doc, userID, pass) 'Call to the EDX execution

End Sub

Function ReloadEDX(dsURL, document, userID, pass)

  ' Here get a ticket to call the EDX. It's because a security scheme based in double request

  Dim requestKey, xmlhttp, requestData, httpResult

  Set xmlhttp = CreateObject("msxml2.xmlhttp.3.0")

  xmlhttp.Open "post", dsURL, False, userID, pass

  requestData = "<Global method=""GetTimeLimitedRequestKey"" />" '& vbCrLf

  xmlhttp.send requestData

  Set oDOM = CreateObject("MSXML2.DOMDocument.3.0")

  oDOM.LoadXML xmlhttp.responseText

  ' Takes ticket hash from the response

  requestKey = oDOM.SelectSingleNode("//GetTimeLimitedRequestKeyResult").Text

  ' Call task (EDX) for execute

  rtaExec = CallTask(requestKey, document, dsURL, userID, pass)

  If rtaExec = Null Then

  ReloadEDX = httpResult

  Else

  If rtaExec = "Success" Then

  ReloadEDX = "The reload has finished."

  Else

  ReloadEDX = httpResult

  End If

  End If

End Function

'EDX call thru a HTTP POST

Function CallTask(key,task,url, usr, pasw)

  Set xmlhttp2 = CreateObject("msxml2.xmlhttp.3.0")

  requestData = "<Global method=""RequestEDX"" key=""" & key& """><i_TaskIDOrTaskName>" & task& "</i_TaskIDOrTaskName><i_Password /><i_VariableName /><i_VariableValueList /></Global>" & vbCrLf

  xmlhttp2.Open "post", url, False, usr, pasw

  xmlhttp2.send requestData ' Send XML with service qtxs.asmx required data

  Set oDOM2 = CreateObject("MSXML2.DOMDocument.3.0")

  oDOM2.LoadXML xmlhttp2.responseText

  set CallTask2 = oDOM2.SelectSingleNode("//TaskStartResult")

  CallTask = "Success"

End Function

[simospa]

Please dont't repost the same issue 😉

Error while reloading from accesspoint using Macro

S.