Reload from accesspoint by EDX Trigger throwing Error

Anonymous — Fri, 13 Nov 2015 08:03:37 GMT

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 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

Re: Reload from accesspoint by EDX Trigger throwing Error

simospa — Fri, 13 Nov 2015 09:24:05 GMT

Please dont't repost the same issue 😉

Error while reloading from accesspoint using Macro

topic Reload from accesspoint by EDX Trigger throwing Error in QlikView

Reload from accesspoint by EDX Trigger throwing Error

Re: Reload from accesspoint by EDX Trigger throwing Error