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
