az-mng-grp-fsx

Repo motivations

• learn F#, trying to be functional with strong typing using fsx-files
• escape from whatever sln or prj details with builds, just focus on fsx-files
• Jetbrain Rider or Visual Code shouldn't matter, should be interchangeable
• learn paket, github and github actions
• learn Azure az cli

The result is automatic deploy of a management group master to Azure, being Azure Enterprise Scale centric.

Azure Management Group

For clarity, the code follows good-practice for management group

• Name is a system guid
• Display name is just a string

Source Structure

src

File	Purpose
deployMngGrp.fsx	deploy master of management group to azure

dotnet fsi ./src/deployMngGrp.fsx tenantID clientID secret anchorName

The anchorName is the name of a management group the hierarchy will be created/maintained. It's recommended to create the anchor just below tenant root group in order to avoid tenant root access. See Root management group.

Change of DisplayName in master will update Azure. All management groups at same level will have parallell invocation, async tasks.

Example structure

src/mnggrp

File	Purpose
mngGrpTypes.fsx	management groups as discriminated unions (DU)
mngGrpMaster.fsx	master of management group, a hierarchy and map of group information per DU
mngGrp.fsx	code
verifyHierAndGroups	just a test script

The hierarchy master is plain recursive type

type MGHier =
| Node of MG * MGHier seq
| Leaf of MG * MGHier
| End

type MGHier with
   static member Hierarchy () =
      Node (MG.Top, [
            Node (MG.Landingzones, [
               Node (MG.Online, [
                  Leaf (MG.OnlineDev, End)
                  Leaf (MG.OnlineTest, End)
                  Leaf (MG.OnlineProd, End)
               ])
               Node (MG.Hybrid, [
                  Leaf (MG.HybridDev, End)
                  Leaf (MG.HybridTest, End)
                  Leaf (MG.HybridProd, End)
               ])
            ])
            Node (MG.Platform, [
                  Leaf (MG.Identity, End)
                  Leaf (MG.Connectivity, End)
                  Leaf (MG.Management, End)
            ])
            Leaf (MG.Sandbox, End)
            Leaf (MG.Decommissioned, End)
      ])

The group information master is plain map

type MGInfo = {Name: System.Guid; DisplayName: string option}

let groups () =
   [
      (MG.Top,
            {Name = System.Guid "e925b5fc-3053-449a-9376-9e51d7435d2c"; DisplayName = Some "aCompany"})
      (MG.Landingzones,
            {Name = System.Guid "9e147ac5-eb41-4d8e-aa96-f9244b555fe8"; DisplayName = None})
      (MG.Hybrid,
            {Name = System.Guid "2d2ac951-ea76-4a7f-a86f-0c2b4517c13b"; DisplayName = None})
      (MG.HybridDev,
            {Name = System.Guid "0f7d8145-bc86-4f08-9c9b-0d5ca4e09162"; DisplayName = Some "hybrid-dev"})
      (MG.HybridTest,
            {Name = System.Guid "7064d5d9-1e41-4864-826c-85c8fbb08d51"; DisplayName = Some "hybrid-test"})
      (MG.HybridProd,
            {Name = System.Guid "4ed8e686-f62d-4cf5-865b-0241f5723a8e"; DisplayName = Some "hybrid-prod"})
      (MG.Online,
            {Name = System.Guid "9d50433e-a8fb-43fd-8712-9440b10c14a0"; DisplayName = None})
      (MG.OnlineDev,
            {Name = System.Guid "8dec9d92-d500-4c5a-82bd-5f21dd2bc5ce"; DisplayName = Some "online-dev"})
      (MG.OnlineTest,
            {Name = System.Guid "6bdd486e-80d1-4939-8988-9d045868aaee"; DisplayName = Some "online-test"})
      (MG.OnlineProd,
            {Name = System.Guid "66544828-f54a-47ff-a063-0399bfc006cd"; DisplayName = Some "online-prod"})
      (MG.Platform,
            {Name = System.Guid "47478be0-1ac5-4fb3-bf6b-5d3ac5cd65da"; DisplayName = None})
      (MG.Identity,
            {Name = System.Guid "03c346a4-7877-4033-82d0-91370b589ed1"; DisplayName = None})
      (MG.Connectivity,
            {Name = System.Guid "4c5b973e-a383-44d5-8ab7-d23b55867167"; DisplayName = None})
      (MG.Management,
            {Name = System.Guid "44e7f1f5-0950-41bf-991d-7c0043ec3e26"; DisplayName = None})
      (MG.Sandbox,
            {Name = System.Guid "d3a31dc2-4e06-4187-b71d-79ae5acfab78"; DisplayName = None})
      (MG.Decommissioned,
            {Name = System.Guid "9d2c2ec5-8d32-49ea-ad41-36f4832cf287"; DisplayName = None})
   ] |> Map.ofList

DisplayName as None means lowercase of DU name. E.g. Landingzones will become landingzones.

Funtion Hierarchy.toAPI will create a list of list of (childName, childDisplayName, ParentName), taking care of the order dependency between hierarchial mangement groups.

1st list contains (topName, topDisplayName, anchorName)
2nd list contains children of top
3rd list contains children of children of top
...
Last list contains all leaves

src/az_cli

File	Purpose
azBase.fsx	define az as process with login and logout
azAccountMngGrp.fsx	basic sub set of az account management-group

src/utils

File	Purpose
logSolution.fsx	a specific log solution - NLog
aLogger.fsx	facade for specific log solution, used by all other *.fsx
process.fsx	Define and execute a process
duHelpers.fsx	Some DU reflection