VBScript MWS Inbound: Get Transport Content

Back to Index

Returns current transportation information about an inbound shipment.

Documentation: http://docs.developer.amazonservices.com/en_US/fba_inbound/FBAInbound_GetTransportContent.html

CURL Command

curl -X POST https://mws.amazonaws.com/FulfillmentInboundShipment/2010-10-01 \
  -d "AWSAccessKeyId=AWS_ACCESS_KEY_ID" \
  -d "Action=GetTransportContent" \
  -d "MWSAuthToken=MWS_AUTH_TOKEN" \
  -d "SellerId=MWS_SELLER_ID" \
  -d "SignatureVersion=2" \
  -d "Timestamp=CURRENT_DATE_TIME" \
  -d "Version=2010-10-01" \
  -d "SignatureMethod=HmacSHA256" \
  -d "ShipmentId=FBAQ6QBP"
See: Online Tool to Generate Chilkat Code from a CURL Command

VBScript Example

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)

set rest = CreateObject("Chilkat_9_5_0.Rest")

'  URL: https://mws.amazonaws.com/FulfillmentInboundShipment/2010-10-01
bTls = 1
port = 443
bAutoReconnect = 1
success = rest.Connect("mws.amazonaws.com",port,bTls,bAutoReconnect)
If (success <> 1) Then
    outFile.WriteLine("ConnectFailReason: " & rest.ConnectFailReason)
    outFile.WriteLine(rest.LastErrorText)
    WScript.Quit
End If

success = rest.AddQueryParam("AWSAccessKeyId","AWS_ACCESS_KEY_ID")
success = rest.AddQueryParam("Action","GetTransportContent")
success = rest.AddQueryParam("MWSAuthToken","MWS_AUTH_TOKEN")
success = rest.AddQueryParam("SellerId","MWS_SELLER_ID")
success = rest.AddQueryParam("SignatureVersion","2")
success = rest.AddQueryParam("Version","2010-10-01")
success = rest.AddQueryParam("SignatureMethod","HmacSHA256")
success = rest.AddQueryParam("ShipmentId","FBAQ6QBP")

rest.Host = "mws.amazonaws.com"
'  The AddMwsSignature method adds the Timestamp and Signature query params.
success = rest.AddMwsSignature("POST","/FulfillmentInboundShipment/2010-10-01","mws.amazonaws.com","MWS_SECRET_KEY")

strResponseBody = rest.FullRequestFormUrlEncoded("POST","/FulfillmentInboundShipment/2010-10-01")
If (rest.LastMethodSuccess <> 1) Then
    outFile.WriteLine(rest.LastErrorText)
    WScript.Quit
End If

set xmlResponse = CreateObject("Chilkat_9_5_0.Xml")
success = xmlResponse.LoadXml(strResponseBody)

GetTransportContentResponse_xmlns = xmlResponse.GetAttrValue("xmlns")
TrackingId = xmlResponse.GetChildContent("GetTransportContentResult|TransportContent|TransportDetails|NonPartneredSmallParcelData|PackageList|member|TrackingId")
CarrierName = xmlResponse.GetChildContent("GetTransportContentResult|TransportContent|TransportDetails|NonPartneredSmallParcelData|PackageList|member|CarrierName")
PackageStatus = xmlResponse.GetChildContent("GetTransportContentResult|TransportContent|TransportDetails|NonPartneredSmallParcelData|PackageList|member|PackageStatus")
TransportStatus = xmlResponse.GetChildContent("GetTransportContentResult|TransportContent|TransportResult|TransportStatus")
ShipmentType = xmlResponse.GetChildContent("GetTransportContentResult|TransportContent|TransportHeader|ShipmentType")
ShipmentId = xmlResponse.GetChildContent("GetTransportContentResult|TransportContent|TransportHeader|ShipmentId")
SellerId = xmlResponse.GetChildContent("GetTransportContentResult|TransportContent|TransportHeader|SellerId")
IsPartnered = xmlResponse.GetChildContent("GetTransportContentResult|TransportContent|TransportHeader|IsPartnered")
RequestId = xmlResponse.GetChildContent("ResponseMetadata|RequestId")

outFile.Close

Sample XML Response Body

<?xml version="1.0" encoding="utf-8" ?>
<GetTransportContentResponse xmlns="http://mws.amazonaws.com/FulfillmentInboundShipment/2010-10-01/">
    <GetTransportContentResult>
        <TransportContent>
            <TransportDetails>
                <NonPartneredSmallParcelData>
                    <PackageList>
                        <member>
                            <TrackingId>1Z6Y68W00342402864</TrackingId>
                            <CarrierName>UNITED PARCEL SERVICE INC</CarrierName>
                            <PackageStatus>SHIPPED</PackageStatus>
                        </member>
                    </PackageList>
                </NonPartneredSmallParcelData>
            </TransportDetails>
            <TransportResult>
                <TransportStatus>WORKING</TransportStatus>
            </TransportResult>
            <TransportHeader>
                <ShipmentType>SP</ShipmentType>
                <ShipmentId>FBAQ6QBP</ShipmentId>
                <SellerId>A135KKEKWF1J56</SellerId>
                <IsPartnered>false</IsPartnered>
            </TransportHeader>
        </TransportContent>
    </GetTransportContentResult>
    <ResponseMetadata>
        <RequestId>89a965c3-1af7-41e3-9152-44cf0affd34b</RequestId>
    </ResponseMetadata>
</GetTransportContentResponse>