Visual FoxPro
Visual FoxPro
EC2 Check Instance Status
See more Amazon EC2 Examples
Demonstrates how to send a request to check the status of Amazon EC2 instances.Chilkat Visual FoxPro Downloads
LOCAL lnSuccess
LOCAL loRest
LOCAL lnBTls
LOCAL lnPort
LOCAL lnBAutoReconnect
LOCAL loAuthAws
LOCAL lcResponseXml
LOCAL loXml
lnSuccess = 0
* This example requires the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.
loRest = CreateObject('Chilkat.Rest')
* Connect to the Amazon AWS server.
* such as https://ec2.amazonaws.com/
lnBTls = 1
lnPort = 443
lnBAutoReconnect = 1
lnSuccess = loRest.Connect("ec2.us-west-2.amazonaws.com",lnPort,lnBTls,lnBAutoReconnect)
* Provide AWS credentials for the REST call.
loAuthAws = CreateObject('Chilkat.AuthAws')
loAuthAws.AccessKey = "AWS_ACCESS_KEY"
loAuthAws.SecretKey = "AWS_SECRET_KEY"
* the region should match the region part of the domain passed to the REST connect method (above).
loAuthAws.Region = "us-west-2"
loAuthAws.ServiceName = "ec2"
loRest.SetAuthAws(loAuthAws)
loRest.AddQueryParam("Action","DescribeInstanceStatus")
loRest.AddQueryParam("Version","2016-11-15")
loRest.AddQueryParam("InstanceId.1","i-999719995399c9999")
* If you have additional instances to check, then add them with .2, .3, etc.
loRest.AddQueryParam("InstanceId.2","i-999719995399c0000")
loRest.AddQueryParam("InstanceId.3","i-999719995399c0111")
* ...
* Instead of checking specific instances, you can check all instances by
* sending the IncludeAllInstances param
loRest.AddQueryParam("IncludeAllInstances","true")
lcResponseXml = loRest.FullRequestNoBody("GET","/")
IF (loRest.LastMethodSuccess <> 1) THEN
? loRest.LastErrorText
RELEASE loRest
RELEASE loAuthAws
CANCEL
ENDIF
* A successful response will have a status code equal to 200.
IF (loRest.ResponseStatusCode <> 200) THEN
? "response status code = " + STR(loRest.ResponseStatusCode)
? "response status text = " + loRest.ResponseStatusText
? "response header: " + loRest.ResponseHeader
? "response body: " + lcResponseXml
RELEASE loRest
RELEASE loAuthAws
CANCEL
ENDIF
* Examine the successful XML response.
loXml = CreateObject('Chilkat.Xml')
loXml.LoadXml(lcResponseXml)
? loXml.GetXml()
* Here is a sample response:
* Use this online tool to generate parsing code from sample XML:
* Generate Parsing Code from XML
* <DescribeInstanceStatusResponse xmlns="http://ec2.amazonaws.com/doc/2016-11-15/">
* <requestId>3be1508e-c444-4fef-89cc-0b1223c4f02fEXAMPLE</requestId>
* <instanceStatusSet>
* <item>
* <instanceId>i-1234567890abcdef0</instanceId>
* <availabilityZone>us-east-1d</availabilityZone>
* <instanceState>
* <code>16</code>
* <name>running</name>
* </instanceState>
* <systemStatus>
* <status>impaired</status>
* <details>
* <item>
* <name>reachability</name>
* <status>failed</status>
* <impairedSince>YYYY-MM-DDTHH:MM:SS.000Z</impairedSince>
* </item>
* </details>
* </systemStatus>
* <instanceStatus>
* <status>impaired</status>
* <details>
* <item>
* <name>reachability</name>
* <status>failed</status>
* <impairedSince>YYYY-MM-DDTHH:MM:SS.000Z</impairedSince>
* </item>
* </details>
* </instanceStatus>
* <eventsSet>
* <item>
* <code>instance-retirement</code>
* <description>The instance is running on degraded hardware</description>
* <notBefore>YYYY-MM-DDTHH:MM:SS+0000</notBefore>
* <notAfter>YYYY-MM-DDTHH:MM:SS+0000</notAfter>
* </item>
* </eventsSet>
* </item>
* <item>
* <instanceId>i-0598c7d356eba48d7</instanceId>
* <availabilityZone>us-east-1d</availabilityZone>
* <instanceState>
* <code>16</code>
* <name>running</name>
* </instanceState>
* <systemStatus>
* <status>ok</status>
* <details>
* <item>
* <name>reachability</name>
* <status>passed</status>
* </item>
* </details>
* </systemStatus>
* <instanceStatus>
* <status>ok</status>
* <details>
* <item>
* <name>reachability</name>
* <status>passed</status>
* </item>
* </details>
* </instanceStatus>
* <eventsSet>
* <item>
* <code>instance-reboot</code>
* <description>The instance is scheduled for a reboot</description>
* <notBefore>YYYY-MM-DDTHH:MM:SS+0000</notBefore>
* <notAfter>YYYY-MM-DDTHH:MM:SS+0000</notAfter>
* </item>
* </eventsSet>
* </item>
* <item>
* <instanceId>i-0987654321abcdef0</instanceId>
* <availabilityZone>us-east-1d</availabilityZone>
* <instanceState>
* <code>16</code>
* <name>running</name>
* </instanceState>
* <systemStatus>
* <status>ok</status>
* <details>
* <item>
* <name>reachability</name>
* <status>passed</status>
* </item>
* </details>
* </systemStatus>
* <instanceStatus>
* <status>ok</status>
* <details>
* <item>
* <name>reachability</name>
* <status>passed</status>
* </item>
* </details>
* </instanceStatus>
* </item>
* <item>
* <instanceId>i-0598c7d356eba48d8</instanceId>
* <availabilityZone>us-east-1d</availabilityZone>
* <instanceState>
* <code>16</code>
* <name>running</name>
* </instanceState>
* <systemStatus>
* <status>ok</status>
* <details>
* <item>
* <name>reachability</name>
* <status>passed</status>
* </item>
* </details>
* </systemStatus>
* <instanceStatus>
* <status>insufficient-data</status>
* <details>
* <item>
* <name>reachability</name>
* <status>insufficient-data</status>
* </item>
* </details>
* </instanceStatus>
* </item>
* </instanceStatusSet>
* </DescribeInstanceStatusResponse>
RELEASE loRest
RELEASE loAuthAws
RELEASE loXml