Classic ASP
Classic ASP
Azure Create Storage Account
See more Azure Storage Accounts Examples
Demonstrates how to create an Azure storage account.Chilkat Classic ASP Downloads
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0
' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.
set http = Server.CreateObject("Chilkat.Http")
' Load an OAuth2 access token previously fetched by this example: Get Azure OAuth2 Access Token
set jsonToken = Server.CreateObject("Chilkat.JsonObject")
success = jsonToken.LoadFile("qa_data/tokens/azureToken.json")
' Assuming success..
http.AuthToken = jsonToken.StringOf("access_token")
Response.Write "<pre>" & Server.HTMLEncode( "AuthToken: " & http.AuthToken) & "</pre>"
http.Accept = "application/json"
' Create the following JSON:
' {
' "sku": {
' "name": "Standard_GRS"
' },
' "kind": "StorageV2",
' "location": "eastus2",
' }
' Use this online tool to generate the code from sample JSON:
' Generate Code to Create JSON
set jsonRequestBody = Server.CreateObject("Chilkat.JsonObject")
success = jsonRequestBody.UpdateString("sku.name","Standard_GRS")
success = jsonRequestBody.UpdateString("kind","StorageV2")
success = jsonRequestBody.UpdateString("location","eastus2")
url = "https://management.azure.com/subscriptions/{subscriptionId}/resourceGroups/{resourceGroupName}/providers/Microsoft.Storage/storageAccounts/{accountName}?api-version=2018-02-01"
set resp = Server.CreateObject("Chilkat.HttpResponse")
success = http.HttpJson("PUT",url,jsonRequestBody,"application/json",resp)
If (success = 0) Then
Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>"
Response.End
End If
Response.Write "<pre>" & Server.HTMLEncode( "Response Status Code: " & resp.StatusCode) & "</pre>"
set json = Server.CreateObject("Chilkat.JsonObject")
success = json.Load(resp.BodyStr)
json.EmitCompact = 0
Response.Write "<pre>" & Server.HTMLEncode( json.Emit()) & "</pre>"
If (resp.StatusCode >= 300) Then
Response.Write "<pre>" & Server.HTMLEncode( "Failed.") & "</pre>"
Response.End
End If
' Successful requests to create a new account return a 202 status code with an empty response body. The storage account is created asynchronously.
' If the account already exists or is being provisioned, the request response has a 200 return code with the configuration of the existing storage account in the response body.
If (resp.StatusCode = 202) Then
Response.Write "<pre>" & Server.HTMLEncode( "Azure-AsyncOperation: " & resp.GetHeaderField("Azure-AsyncOperation")) & "</pre>"
End If
If (resp.StatusCode = 200) Then
' Parse a response like this:
' {
' "sku": {
' "name": "Standard_GRS",
' "tier": "Standard"
' },
' "kind": "StorageV2",
' "id": "/subscriptions/6c42643b-ebef-45f0-b917-b3583b84a57f/resourceGroups/gChilkat/providers/Microsoft.Storage/storageAccounts/chilkatsoftware",
' "name": "chilkatsoftware",
' "type": "Microsoft.Storage/storageAccounts",
' "location": "eastus2",
' "tags": {},
' "properties": {
' "networkAcls": {
' "bypass": "AzureServices",
' "virtualNetworkRules": [
' ],
' "ipRules": [
' ],
' "defaultAction": "Allow"
' },
' "supportsHttpsTrafficOnly": false,
' "encryption": {
' "services": {
' "file": {
' "enabled": true,
' "lastEnabledTime": "2019-05-14T22:18:33.2246670Z"
' },
' "blob": {
' "enabled": true,
' "lastEnabledTime": "2019-05-14T22:18:33.2246670Z"
' }
' },
' "keySource": "Microsoft.Storage"
' },
' "accessTier": "Hot",
' "provisioningState": "Succeeded",
'
' "creationTime": "2019-05-14T22:18:33.1309165Z",
' "primaryEndpoints": {
' "dfs": "https://chilkatsoftware.dfs.core.windows.net/",
' "web": "https://chilkatsoftware.z20.web.core.windows.net/",
' "blob": "https://chilkatsoftware.blob.core.windows.net/",
' "queue": "https://chilkatsoftware.queue.core.windows.net/",
' "table": "https://chilkatsoftware.table.core.windows.net/",
' "file": "https://chilkatsoftware.file.core.windows.net/"
' },
' "primaryLocation": "eastus2",
' "statusOfPrimary": "available",
' "secondaryLocation": "centralus",
' "statusOfSecondary": "available"
' }
' }
' Use this online tool to generate parsing code from sample JSON:
' Generate Parsing Code from JSON
skuName = json.StringOf("sku.name")
skuTier = json.StringOf("sku.tier")
kind = json.StringOf("kind")
id = json.StringOf("id")
name = json.StringOf("name")
v_type = json.StringOf("type")
location = json.StringOf("location")
propertiesNetworkAclsBypass = json.StringOf("properties.networkAcls.bypass")
propertiesNetworkAclsDefaultAction = json.StringOf("properties.networkAcls.defaultAction")
propertiesSupportsHttpsTrafficOnly = json.BoolOf("properties.supportsHttpsTrafficOnly")
propertiesEncryptionServicesFileEnabled = json.BoolOf("properties.encryption.services.file.enabled")
propertiesEncryptionServicesFileLastEnabledTime = json.StringOf("properties.encryption.services.file.lastEnabledTime")
propertiesEncryptionServicesBlobEnabled = json.BoolOf("properties.encryption.services.blob.enabled")
propertiesEncryptionServicesBlobLastEnabledTime = json.StringOf("properties.encryption.services.blob.lastEnabledTime")
propertiesEncryptionKeySource = json.StringOf("properties.encryption.keySource")
propertiesAccessTier = json.StringOf("properties.accessTier")
propertiesProvisioningState = json.StringOf("properties.provisioningState")
propertiesCreationTime = json.StringOf("properties.creationTime")
propertiesPrimaryEndpointsDfs = json.StringOf("properties.primaryEndpoints.dfs")
propertiesPrimaryEndpointsWeb = json.StringOf("properties.primaryEndpoints.web")
propertiesPrimaryEndpointsBlob = json.StringOf("properties.primaryEndpoints.blob")
propertiesPrimaryEndpointsQueue = json.StringOf("properties.primaryEndpoints.queue")
propertiesPrimaryEndpointsTable = json.StringOf("properties.primaryEndpoints.table")
propertiesPrimaryEndpointsFile = json.StringOf("properties.primaryEndpoints.file")
propertiesPrimaryLocation = json.StringOf("properties.primaryLocation")
propertiesStatusOfPrimary = json.StringOf("properties.statusOfPrimary")
propertiesSecondaryLocation = json.StringOf("properties.secondaryLocation")
propertiesStatusOfSecondary = json.StringOf("properties.statusOfSecondary")
End If
Response.Write "<pre>" & Server.HTMLEncode( "Success.") & "</pre>"
%>
</body>
</html>