HTTP GET in VBS

Question

Is there a way to perform an HTTP GET request within a Visual Basic script   I need to get the contents of the response from a particular URL for processing

User · Accepted Answer

Dim o Set o   CreateObject  MSXML2 XMLHTTP   o open  GET    http   www example com   False o send   o responseText now holds the response as a string

User · Answer

strRequest     lt soap Envelope xmlns soap   http   www w3 org 2003 05 soap-envelope      amp             xmlns tem   http   tempuri org    gt    amp              lt soap Header  gt    amp              lt soap Body gt    amp                 lt tem Authorization gt    amp                     lt tem strCC gt   amp 1234123412341234 amp   lt  tem strCC gt    amp                     lt tem strEXPMNTH gt   amp 11 amp   lt  tem strEXPMNTH gt    amp                     lt tem CVV2 gt   amp 123 amp   lt  tem CVV2 gt    amp                     lt tem strYR gt   amp 23 amp   lt  tem strYR gt    amp                     lt tem dblAmount gt   amp 1235 amp   lt  tem dblAmount gt    amp                 lt  tem Authorization gt    amp             lt  soap Body gt    amp             lt  soap Envelope gt            EndPointLink    http   www trainingrite net trainingrite epaysystem   amp                     trainingrite epaysystem tr epaysys asmx     dim http set http createObject  Microsoft XMLHTTP   http open  POST  EndPointLink false http setRequestHeader  Content-Type   text xml   msgbox  REQUEST      amp  strRequest http send strRequest  If http Status   200 Then  msgbox  RESPONSE      amp  http responseXML xml msgbox  RESPONSE      amp  http responseText responseText http responseText else msgbox  ERRCODE      amp  http status End If  Call ParseTag responseText  AuthorizationResult    Call CreateXMLEvidence responseText strRequest    Function to fetch the required message from a TAG Function ParseTag ResponseXML SearchTag    ResponseMessage split split split ResponseXML SearchTag  1    lt     0    gt    1   Msgbox ResponseMessage  End Function   Function to create XML test evidence files Function CreateXMLEvidence ResponseXML strRequest    Set fso createobject  Scripting FileSystemObject    Set qfile fso CreateTextFile  C  Users RajkumarJoshua Desktop DCIM SampleResponse xml  2   Set qfile1 fso CreateTextFile  C  Users RajkumarJoshua Desktop DCIM SampleReuest xml  2    qfile write ResponseXML  qfile close   qfile1 write strRequest  qfile1 close  End Function

User · Answer

If you are using the GET request to actually SEND data     check  http   techhelplist com index php tech-tutorials 37-windows-troubles 60-vbscript-sending-get-request  The problem with MSXML2 XMLHTTP is that there are several versions of it  with different names depending on the windows os version and patches   this explains it  http   support microsoft com kb 269238  i have had more luck using vbscript to call   set ID   CreateObject  InternetExplorer Application   IE visible   0 IE navigate  http   example com parser php key    amp  value  amp   key2    amp  value2  do while IE Busy            and more stuff but just to let the request go thru

User · Answer

You haven t at time of writing described what you are going to do with the response or what its content type is   An answer already contains a very basic usage of MSXML2 XMLHTTP  I recommend the more explicit MSXML2 XMLHTTP 3 0 progID  however you may need to do different things with the response  it may not be text   The XMLHTTP also has a responseBody property which is a byte array version of the reponse and there is a responseStream which is an IStream wrapper for the response   Note that in a server-side requirement  e g   VBScript hosted in ASP  you would use MSXML ServerXMLHTTP 3 0 or WinHttp WinHttpRequest 5 1  which has a near identical interface    Here is an example of using XmlHttp to fetch a PDF file and store it -  Dim oXMLHTTP Dim oStream  Set oXMLHTTP   CreateObject  MSXML2 XMLHTTP 3 0    oXMLHTTP Open  GET    http   someserver folder file pdf   False oXMLHTTP Send  If oXMLHTTP Status   200 Then     Set oStream   CreateObject  ADODB Stream       oStream Open     oStream Type   1     oStream Write oXMLHTTP responseBody     oStream SaveToFile  c  somefolder file pdf      oStream Close End If

User · Answer

If you are using the GET request to actually SEND data     check  http   techhelplist com index php tech-tutorials 37-windows-troubles 60-vbscript-sending-get-request  The problem with MSXML2 XMLHTTP is that there are several versions of it  with different names depending on the windows os version and patches   this explains it  http   support microsoft com kb 269238  i have had more luck using vbscript to call   set ID   CreateObject  InternetExplorer Application   IE visible   0 IE navigate  http   example com parser php key    amp  value  amp   key2    amp  value2  do while IE Busy            and more stuff but just to let the request go thru

User · Answer

You haven t at time of writing described what you are going to do with the response or what its content type is   An answer already contains a very basic usage of MSXML2 XMLHTTP  I recommend the more explicit MSXML2 XMLHTTP 3 0 progID  however you may need to do different things with the response  it may not be text   The XMLHTTP also has a responseBody property which is a byte array version of the reponse and there is a responseStream which is an IStream wrapper for the response   Note that in a server-side requirement  e g   VBScript hosted in ASP  you would use MSXML ServerXMLHTTP 3 0 or WinHttp WinHttpRequest 5 1  which has a near identical interface    Here is an example of using XmlHttp to fetch a PDF file and store it -  Dim oXMLHTTP Dim oStream  Set oXMLHTTP   CreateObject  MSXML2 XMLHTTP 3 0    oXMLHTTP Open  GET    http   someserver folder file pdf   False oXMLHTTP Send  If oXMLHTTP Status   200 Then     Set oStream   CreateObject  ADODB Stream       oStream Open     oStream Type   1     oStream Write oXMLHTTP responseBody     oStream SaveToFile  c  somefolder file pdf      oStream Close End If

User · Answer

You haven t at time of writing described what you are going to do with the response or what its content type is   An answer already contains a very basic usage of MSXML2 XMLHTTP  I recommend the more explicit MSXML2 XMLHTTP 3 0 progID  however you may need to do different things with the response  it may not be text   The XMLHTTP also has a responseBody property which is a byte array version of the reponse and there is a responseStream which is an IStream wrapper for the response   Note that in a server-side requirement  e g   VBScript hosted in ASP  you would use MSXML ServerXMLHTTP 3 0 or WinHttp WinHttpRequest 5 1  which has a near identical interface    Here is an example of using XmlHttp to fetch a PDF file and store it -  Dim oXMLHTTP Dim oStream  Set oXMLHTTP   CreateObject  MSXML2 XMLHTTP 3 0    oXMLHTTP Open  GET    http   someserver folder file pdf   False oXMLHTTP Send  If oXMLHTTP Status   200 Then     Set oStream   CreateObject  ADODB Stream       oStream Open     oStream Type   1     oStream Write oXMLHTTP responseBody     oStream SaveToFile  c  somefolder file pdf      oStream Close End If

User · Answer

strRequest     lt soap Envelope xmlns soap   http   www w3 org 2003 05 soap-envelope      amp             xmlns tem   http   tempuri org    gt    amp              lt soap Header  gt    amp              lt soap Body gt    amp                 lt tem Authorization gt    amp                     lt tem strCC gt   amp 1234123412341234 amp   lt  tem strCC gt    amp                     lt tem strEXPMNTH gt   amp 11 amp   lt  tem strEXPMNTH gt    amp                     lt tem CVV2 gt   amp 123 amp   lt  tem CVV2 gt    amp                     lt tem strYR gt   amp 23 amp   lt  tem strYR gt    amp                     lt tem dblAmount gt   amp 1235 amp   lt  tem dblAmount gt    amp                 lt  tem Authorization gt    amp             lt  soap Body gt    amp             lt  soap Envelope gt            EndPointLink    http   www trainingrite net trainingrite epaysystem   amp                     trainingrite epaysystem tr epaysys asmx     dim http set http createObject  Microsoft XMLHTTP   http open  POST  EndPointLink false http setRequestHeader  Content-Type   text xml   msgbox  REQUEST      amp  strRequest http send strRequest  If http Status   200 Then  msgbox  RESPONSE      amp  http responseXML xml msgbox  RESPONSE      amp  http responseText responseText http responseText else msgbox  ERRCODE      amp  http status End If  Call ParseTag responseText  AuthorizationResult    Call CreateXMLEvidence responseText strRequest    Function to fetch the required message from a TAG Function ParseTag ResponseXML SearchTag    ResponseMessage split split split ResponseXML SearchTag  1    lt     0    gt    1   Msgbox ResponseMessage  End Function   Function to create XML test evidence files Function CreateXMLEvidence ResponseXML strRequest    Set fso createobject  Scripting FileSystemObject    Set qfile fso CreateTextFile  C  Users RajkumarJoshua Desktop DCIM SampleResponse xml  2   Set qfile1 fso CreateTextFile  C  Users RajkumarJoshua Desktop DCIM SampleReuest xml  2    qfile write ResponseXML  qfile close   qfile1 write strRequest  qfile1 close  End Function

User · Answer

You haven t at time of writing described what you are going to do with the response or what its content type is   An answer already contains a very basic usage of MSXML2 XMLHTTP  I recommend the more explicit MSXML2 XMLHTTP 3 0 progID  however you may need to do different things with the response  it may not be text   The XMLHTTP also has a responseBody property which is a byte array version of the reponse and there is a responseStream which is an IStream wrapper for the response   Note that in a server-side requirement  e g   VBScript hosted in ASP  you would use MSXML ServerXMLHTTP 3 0 or WinHttp WinHttpRequest 5 1  which has a near identical interface    Here is an example of using XmlHttp to fetch a PDF file and store it -  Dim oXMLHTTP Dim oStream  Set oXMLHTTP   CreateObject  MSXML2 XMLHTTP 3 0    oXMLHTTP Open  GET    http   someserver folder file pdf   False oXMLHTTP Send  If oXMLHTTP Status   200 Then     Set oStream   CreateObject  ADODB Stream       oStream Open     oStream Type   1     oStream Write oXMLHTTP responseBody     oStream SaveToFile  c  somefolder file pdf      oStream Close End If

[http] HTTP GET in VBS

Examples related to http

Examples related to vbscript

Examples related to request