Lists all the managed policies that are available in your AWS account, including your own customer-defined managed policies and all AWS managed policies.
curl -X GET https://iam.amazonaws.com/ \
-d "Action=ListPolicies" \
-d "Version=2010-05-08"CREATE PROCEDURE ChilkatSample
AS
BEGIN
DECLARE @hr int
DECLARE @iTmp0 int
DECLARE @sTmp0 nvarchar(4000)
DECLARE @rest int
EXEC @hr = sp_OACreate 'Chilkat_9_5_0.Rest', @rest OUT
IF @hr <> 0
BEGIN
PRINT 'Failed to create ActiveX component'
RETURN
END
DECLARE @success int
DECLARE @authAws int
EXEC @hr = sp_OACreate 'Chilkat_9_5_0.AuthAws', @authAws OUT
EXEC sp_OASetProperty @authAws, 'AccessKey', 'AWS_ACCESS_KEY'
EXEC sp_OASetProperty @authAws, 'SecretKey', 'AWS_SECRET_KEY'
EXEC sp_OASetProperty @authAws, 'Region', 'us-east-1'
EXEC sp_OASetProperty @authAws, 'ServiceName', 'iam'
EXEC sp_OAMethod @rest, 'SetAuthAws', @success OUT, STR(@authAws)
-- URL: https://iam.amazonaws.com/
DECLARE @bTls int
SELECT @bTls = 1
DECLARE @port int
SELECT @port = 443
DECLARE @bAutoReconnect int
SELECT @bAutoReconnect = 1
EXEC sp_OAMethod @rest, 'Connect', @success OUT, 'iam.amazonaws.com', STR(@port), STR(@bTls), STR(@bAutoReconnect)
IF STR(@success) <> 1
BEGIN
EXEC sp_OAGetProperty @rest, 'ConnectFailReason', @iTmp0 OUT
PRINT 'ConnectFailReason: ' + @iTmp0
EXEC sp_OAGetProperty @rest, 'LastErrorText', @sTmp0 OUT
PRINT @sTmp0
EXEC @hr = sp_OADestroy @rest
EXEC @hr = sp_OADestroy @authAws
RETURN
END
EXEC sp_OAMethod @rest, 'AddQueryParam', @success OUT, 'Action', 'ListPolicies'
EXEC sp_OAMethod @rest, 'AddQueryParam', @success OUT, 'Version', '2010-05-08'
DECLARE @sbResponseBody int
EXEC @hr = sp_OACreate 'Chilkat_9_5_0.StringBuilder', @sbResponseBody OUT
EXEC sp_OAMethod @rest, 'FullRequestNoBodySb', @success OUT, 'GET', '/', STR(@sbResponseBody)
IF STR(@success) <> 1
BEGIN
EXEC sp_OAGetProperty @rest, 'LastErrorText', @sTmp0 OUT
PRINT @sTmp0
EXEC @hr = sp_OADestroy @rest
EXEC @hr = sp_OADestroy @authAws
EXEC @hr = sp_OADestroy @sbResponseBody
RETURN
END
DECLARE @respStatusCode int
EXEC sp_OAGetProperty @rest, 'ResponseStatusCode', @respStatusCode OUT
IF STR(@respStatusCode) >= 400
BEGIN
PRINT 'Response Status Code = ' + STR(@respStatusCode)
PRINT 'Response Header:'
EXEC sp_OAGetProperty @rest, 'ResponseHeader', @sTmp0 OUT
PRINT @sTmp0
PRINT 'Response Body:'
EXEC sp_OAMethod @sbResponseBody, 'GetAsString', @sTmp0 OUT
PRINT @sTmp0
EXEC @hr = sp_OADestroy @rest
EXEC @hr = sp_OADestroy @authAws
EXEC @hr = sp_OADestroy @sbResponseBody
RETURN
END
DECLARE @xmlResponse int
EXEC @hr = sp_OACreate 'Chilkat_9_5_0.Xml', @xmlResponse OUT
EXEC sp_OAMethod @xmlResponse, 'LoadSb', @success OUT, STR(@sbResponseBody), 1
DECLARE @ListPoliciesResponse_xmlns nvarchar(4000)
DECLARE @tagPath nvarchar(4000)
DECLARE @IsTruncated nvarchar(4000)
DECLARE @Marker nvarchar(4000)
DECLARE @i int
DECLARE @count_i int
DECLARE @PolicyName nvarchar(4000)
DECLARE @DefaultVersionId nvarchar(4000)
DECLARE @PolicyId nvarchar(4000)
DECLARE @Path nvarchar(4000)
DECLARE @Arn nvarchar(4000)
DECLARE @AttachmentCount int
DECLARE @CreateDate nvarchar(4000)
DECLARE @UpdateDate nvarchar(4000)
DECLARE @RequestId nvarchar(4000)
EXEC sp_OAMethod @xmlResponse, 'GetAttrValue', @ListPoliciesResponse_xmlns OUT, 'xmlns'
EXEC sp_OAMethod @xmlResponse, 'GetChildContent', @IsTruncated OUT, 'ListPoliciesResult|IsTruncated'
EXEC sp_OAMethod @xmlResponse, 'GetChildContent', @Marker OUT, 'ListPoliciesResult|Marker'
SELECT @i = 0
EXEC sp_OAMethod @xmlResponse, 'NumChildrenHavingTag', @count_i OUT, 'ListPoliciesResult|Policies|member'
WHILE STR(@i) < STR(@count_i)
BEGIN
EXEC sp_OASetProperty @xmlResponse, 'I', STR(@i)
EXEC sp_OAMethod @xmlResponse, 'GetChildContent', @PolicyName OUT, 'ListPoliciesResult|Policies|member[i]|PolicyName'
EXEC sp_OAMethod @xmlResponse, 'GetChildContent', @DefaultVersionId OUT, 'ListPoliciesResult|Policies|member[i]|DefaultVersionId'
EXEC sp_OAMethod @xmlResponse, 'GetChildContent', @PolicyId OUT, 'ListPoliciesResult|Policies|member[i]|PolicyId'
EXEC sp_OAMethod @xmlResponse, 'GetChildContent', @Path OUT, 'ListPoliciesResult|Policies|member[i]|Path'
EXEC sp_OAMethod @xmlResponse, 'GetChildContent', @Arn OUT, 'ListPoliciesResult|Policies|member[i]|Arn'
EXEC sp_OAMethod @xmlResponse, 'GetChildIntValue', @AttachmentCount OUT, 'ListPoliciesResult|Policies|member[i]|AttachmentCount'
EXEC sp_OAMethod @xmlResponse, 'GetChildContent', @CreateDate OUT, 'ListPoliciesResult|Policies|member[i]|CreateDate'
EXEC sp_OAMethod @xmlResponse, 'GetChildContent', @UpdateDate OUT, 'ListPoliciesResult|Policies|member[i]|UpdateDate'
SELECT @i = STR(@i) + 1
END
EXEC sp_OAMethod @xmlResponse, 'GetChildContent', @RequestId OUT, 'ResponseMetadata|RequestId'
EXEC @hr = sp_OADestroy @rest
EXEC @hr = sp_OADestroy @authAws
EXEC @hr = sp_OADestroy @sbResponseBody
EXEC @hr = sp_OADestroy @xmlResponse
END
GO
<?xml version="1.0" encoding="utf-8" ?>
<ListPoliciesResponse xmlns="https://iam.amazonaws.com/doc/2010-05-08/">
<ListPoliciesResult>
<IsTruncated>true</IsTruncated>
<Marker>EXAMPLEkakv9BCuUNFDtxWSyfzetYwEx2ADc8dnzfvERF5S6YMvXKx41t6gCl/eeaCX3Jo94/bKqezEAg8TEVS
99EKFLxm3jtbpl25FDWEXAMPLE</Marker>
<Policies>
<member>
<PolicyName>ExamplePolicy</PolicyName>
<DefaultVersionId>v1</DefaultVersionId>
<PolicyId>AGPACKCEVSQ6C2EXAMPLE</PolicyId>
<Path>/</Path>
<Arn>arn:aws:iam::123456789012:policy/ExamplePolicy</Arn>
<AttachmentCount>2</AttachmentCount>
<CreateDate>2014-09-15T17:36:14Z</CreateDate>
<UpdateDate>2014-09-15T20:31:47Z</UpdateDate>
</member>
<member>
<PolicyName>PowerUserAccess</PolicyName>
<DefaultVersionId>v1</DefaultVersionId>
<PolicyId>AGPACKCEVSQ6C2EXAMPLE</PolicyId>
<Path>/</Path>
<Arn>arn:aws:iam::aws:policy/PowerUserAccess</Arn>
<AttachmentCount>0</AttachmentCount>
<CreateDate>2014-08-21T20:25:01Z</CreateDate>
<UpdateDate>2014-08-21T20:25:01Z</UpdateDate>
</member>
<member>
<PolicyName>AdministratorAccess</PolicyName>
<DefaultVersionId>v1</DefaultVersionId>
<PolicyId>AGPACKCEVSQ6C2EXAMPLE</PolicyId>
<Path>/</Path>
<Arn>arn:aws:iam::aws:policy/AdministratorAccess</Arn>
<AttachmentCount>1</AttachmentCount>
<CreateDate>2014-08-21T20:11:25Z</CreateDate>
<UpdateDate>2014-08-21T20:11:25Z</UpdateDate>
</member>
<member>
<PolicyName>ReadOnlyAccess</PolicyName>
<DefaultVersionId>v1</DefaultVersionId>
<PolicyId>AGPACKCEVSQ6C2EXAMPLE</PolicyId>
<Path>/</Path>
<Arn>arn:aws:iam::aws:policy/ReadOnlyAccess</Arn>
<AttachmentCount>6</AttachmentCount>
<CreateDate>2014-08-21T20:31:44Z</CreateDate>
<UpdateDate>2014-08-21T20:31:44Z</UpdateDate>
</member>
</Policies>
</ListPoliciesResult>
<ResponseMetadata>
<RequestId>6207e832-3eb7-11e4-9d0d-6f969EXAMPLE</RequestId>
</ResponseMetadata>
</ListPoliciesResponse>