图书馆( AzureRMR公司 ) # 使用Azure AD进行身份验证：
# -首次登录到此客户端时，调用create_azure_login（）
# -在后续登录时，调用get_azure_login（）
阿兹 <- 创建azure_login（） # 获取订阅和资源组
潜艇 <- 阿兹 $ 获取订阅( " {订阅id} " ) rg公司 <- 潜艇 $ 获取资源组( " rgname（名称） " ) # 获取资源（存储帐户）
电阻 <- rg公司 $ 获取资源( 类型 = " 微软。 存储/存储帐户 " , 名称 = " 神秘记忆 " ) # 方法链接也起作用
电阻 <- 阿兹 $ 获取订阅( " {订阅id} " ) $ 获取资源组( " rgname（名称） " ) $ 获取资源( 类型 = " 微软。 存储/存储帐户 " , 名称 = " 神秘记忆 " ) # 创建新的资源组和资源
第二组 <- 潜艇 $ 创建资源组( " 新rgname " , 位置 = " 维斯特斯 " ) 存储2 <- 第二组 $ 创建_资源( 类型 = " 微软。 存储/存储帐户 " , 名称 = " 神秘存储2 " , 友善的 = " 保管部 " , 库存单位 = 列表 ( 名称 = " 标准_LRS " )) # 标记
存储2 $ 集合标记（_T）( 评论 = " 你好，世界！ " , 创建人（_B） = " AzureRMR公司 " ) # 基于角色的访问控制（RBAC）
# 这使用AzureGraph包来检索用户ID
克 <- AzureGraph（Azure图形） :: 获取图形登录（） 用户使用程序 <- 克 $ 获取用户( " username@aadtenant.com " ) 存储2 $ 添加角色分配( 用户使用程序 , " 存储blob数据贡献器 " ) # 如果未安装AzureGraph，则传递主体的GUID
存储2 $ 添加角色分配( " 041ff2be-4eb0-11e9-8f38-394fbcd0b29d " , " 存储blob数据贡献器 " ) 