(VBScript) SII GET boleta.electronica.semilla

Obtención de la semilla

For more information, see https://www4c.sii.cl/bolcoreinternetui/api/

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Http")
set http = CreateObject("Chilkat.Http")

' Implements the following CURL command:

' curl -X GET "https://apicert.sii.cl/recursos/v1/boleta.electronica.semilla" -H  "accept: application/xml"

' Use the following online tool to generate HTTP code from a CURL command
' Convert a cURL Command to HTTP Source Code

http.SetRequestHeader "accept","application/xml"

' Use one of the following domains, depending on the environment:
' apicert.sii.cl  - Certification Environment
' api.sii.cl      - Production Environment
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder")
set sbResponseBody = CreateObject("Chilkat.StringBuilder")
success = http.QuickGetSb("https://apicert.sii.cl/recursos/v1/boleta.electronica.semilla",sbResponseBody)
If (success = 0) Then
    outFile.WriteLine(http.LastErrorText)
    WScript.Quit
End If

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Xml")
set xmlResponse = CreateObject("Chilkat.Xml")
success = xmlResponse.LoadSb(sbResponseBody,1)
outFile.WriteLine(xmlResponse.GetXml())

' Sample XML response:
' (Sample code for parsing the XML response is shown below)

' <?xml version="1.0" encoding="UTF-8"?>
' <SII:RESPUESTA xmlns:SII="http://www.sii.cl/XMLSchema">
'     <SII:RESP_BODY>
'         <SEMILLA>030530912644</SEMILLA>
'     </SII:RESP_BODY>
'     <SII:RESP_HDR>
'         <ESTADO>0</ESTADO>
'     </SII:RESP_HDR>
' </SII:RESPUESTA>

' Sample code for parsing the XML response...
' Use the following online tool to generate parsing code from sample XML:
' Generate Parsing Code from XML

SII_RESPUESTA_xmlns_SII = xmlResponse.GetAttrValue("xmlns:SII")
SEMILLA = xmlResponse.GetChildContent("SII:RESP_BODY|SEMILLA")
ESTADO = xmlResponse.GetChildIntValue("SII:RESP_HDR|ESTADO")

outFile.Close