InstallM365ModulesPowerShell.ps1

#=================================================================
#Name:           Windows PowerShell Modules Installer.
#Description:    Install all PowerShell Modules for Microsoft 365.
#Version:        1.2
#Date :          08/8/2023
#Website:        https://bonguides.com
#Script by:      Leo Nguyen
#For detailed script execution: https://bonguides.com
#=================================================================

#Required running with elevated right.
if (-not([Security.Principal.WindowsPrincipal] [Security.Principal.WindowsIdentity]::GetCurrent()).IsInRole([Security.Principal.WindowsBuiltInRole] "Administrator")) {
   Write-Warning "You need to have Administrator rights to run this script!`nPlease re-run this script as an Administrator in an elevated powershell prompt!"
   break
}

#Create GUI PowerShell
[void] [System.Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms")
[void] [System.Reflection.Assembly]::LoadWithPartialName("System.Drawing")
[void] [System.Reflection.Assembly]::LoadWithPartialName("PresentationFramework")
[void] [Reflection.Assembly]::LoadWithPartialName("PresentationCore")

$Form = New-Object System.Windows.Forms.Form    
$Form.Size = New-Object System.Drawing.Size(400,400)
$Form.StartPosition = "CenterScreen" #loads the window in the center of the screen
$Form.FormBorderStyle = [System.Windows.Forms.FormBorderStyle]::FixedToolWindow #modifies the window border
$Form.Text = "M365 PoweShell Modules Installation - www.bonguides.com" #window description
$Form.ShowInTaskbar = $True
$Form.KeyPreview = $True
$Form.AutoSize = $True
$Form.FormBorderStyle = 'Fixed3D'
$Form.MaximizeBox = $False
$Form.MinimizeBox = $False
$Form.ControlBox = $True
$Form.Icon = $Icon

$install = {
   #Configure Execution Policy
   if ((Get-ExecutionPolicy) -notmatch "RemoteSigned") {
        Set-ExecutionPolicy -ExecutionPolicy RemoteSigned -Scope LocalMachine -Force
   }

   #Update the NuGet Provider if needed.
   $nuGetPath = "C:\Program Files\PackageManagement\ProviderAssemblies\nuget\*\Microsoft.PackageManagement.NuGetProvider.dll"
   $testPath = Test-Path -Path $nuGetPath
   if ($testPath -match 'false') {
       Write-Host "`nInstalling NuGet Provider..."
       Install-PackageProvider -Name NuGet -Force | Out-Null
   }

  #We're installing from the PowerShell Gallery so make sure that it's trusted
  if (((Get-PSRepository -Name PSGallery).InstallationPolicy) -match "Untrusted") {
     Set-PSRepository -Name "PSGallery" -InstallationPolicy Trusted
  }

  ForEach ($Module in $O365Modules) {
     $PCModule = Get-InstalledModule -Name $Module -ErrorAction SilentlyContinue
     Write-Host "Checking and updating module" $Module -ForegroundColor Yellow
     $CurrentModule = Find-Module -Name $Module
     If ($CurrentModule) {
        $CurrentVersion = $CurrentModule.Version
        If ($CurrentVersion -isnot [string]) {
           $CurrentVersion = $CurrentVersion.Major.toString() + "." + $CurrentVersion.Minor.toString() + "." + $CurrentVersion.Build.toString()
         }
         [datetime]$CurrentModuleDate = $CurrentModule.PublishedDate
         Write-Host ("Current version of the {0} module in the PowerShell Gallery is {1}" -f $Module, $CurrentVersion) -ForegroundColor Yellow
      }

      If (!($PCModule)){
         #No version of the module found. It's in our list, so we install it.
         Write-Host ("No module found on this PC for {0}" -f $Module) -ForegroundColor Yellow
         Write-Host ("Installing module {0}..." -f $Module)  -foregroundcolor Green
         Install-Module $Module -Scope AllUsers -Confirm:$False -AllowClobber -Force
      }

      If ($PCModule){
         $PCVersion = $PCModule.Version
         If ($PCVersion -isnot [string]){
            $PCVersion = $PCVersion.Major.toString() + "." + $PCVersion.Minor.toString() + "." + $PCVersion.Build.toString()
         }
         [datetime]$PCModuleDate = $PCModule.PublishedDate
      }

      If ($PCModuleDate -eq $CurrentModuleDate){
         Write-Host ("Latest version of {0} is installed on this PC - no need to update" -f $Module) -ForegroundColor Green
      }

      #Check and remove older versions of the modules from the PC
      Write-Host "Beginning clean-up phase..." -ForegroundColor Yellow
      Write-Host "Checking for older versions of" $Module -ForegroundColor Yellow
      [array]$AllVersions = Get-InstalledModule -Name $Module -AllVersions -ErrorAction SilentlyContinue

      If ($AllVersions){
         $AllVersions = $AllVersions | Sort-Object PublishedDate -Descending 
         $MostRecentVersion = $AllVersions[0].Version
         If ($MostRecentVersion -isnot [string]) { # Handle PowerShell 5 - PowerShell 7 returns a string
            $MostRecentVersion = $MostRecentVersion.Major.toString() + "." + $MostRecentVersion.Minor.toString() + "." + $MostRecentVersion.Build.toString()
         }
         [datetime]$MostRecentVersionDate = $AllVersions[0].PublishedDate
         $PublishedDate = (Get-Date($MostRecentVersionDate) -format g)
         Write-Host ("Most recent version of {0} is {1} published on {2}" -f $Module, $MostRecentVersion, $PublishedDate) -ForegroundColor Green
         If ($AllVersions.Count -gt 1 ) { # More than a single version installed
            ForEach ($Version in $AllVersions){ #Check each version and remove old versions
               [datetime]$VersionDate = $Version.PublishedDate
               If ($VersionDate -lt $MostRecentVersionDate){ # Old version - remove
                  Write-Host ("Uninstalling version {0} of module {1}" -f $Version.Version, $Module) -foregroundcolor Red 
                  Uninstall-Module -Name $Module -RequiredVersion $Version.Version -Force
               } #End if version check
            } # End ForEach versions 
         } else {
            Write-Host ("No earlier versions of {0} module to remove" -f $Module)
         } # End check for more than one version
      } #End If
      Write-Host ("Done.") -ForegroundColor Green
  }

}

$update = {
   if ((Get-ExecutionPolicy) -notmatch "RemoteSigned") {
     Set-ExecutionPolicy -ExecutionPolicy RemoteSigned -Scope LocalMachine -Force
   }

   ForEach ($Module in $O365Modules) {

      $PCModule = Get-InstalledModule -Name $Module -ErrorAction SilentlyContinue

      Write-Host "Checking and updating module" $Module -ForegroundColor Yellow
      $CurrentModule = Find-Module -Name $Module
      If ($CurrentModule) {
         $CurrentVersion = $CurrentModule.Version
         If ($CurrentVersion -isnot [string]) {
            $CurrentVersion = $CurrentVersion.Major.toString() + "." + $CurrentVersion.Minor.toString() + "." + $CurrentVersion.Build.toString()
         }
         [datetime]$CurrentModuleDate = $CurrentModule.PublishedDate
         Write-Host ("Current version of the {0} module in the PowerShell Gallery is {1}" -f $Module, $CurrentVersion) -ForegroundColor Yellow
      }

      If (!($PCModule)) {
         #No version of the module found. It's in our list, so we install it.
         Write-Host ("No module found on this PC for {0}" -f $Module) -ForegroundColor Yellow
         Write-Host ("Installing module {0}..." -f $Module)  -foregroundcolor Yellow
         Install-Module $Module -Scope AllUsers -Confirm:$False -AllowClobber -Force
      }

      If ($PCModule) {
         $PCVersion = $PCModule.Version
         If ($PCVersion -isnot [string]) {
            $PCVersion = $PCVersion.Major.toString() + "." + $PCVersion.Minor.toString() + "." + $PCVersion.Build.toString()
         }
         [datetime]$PCModuleDate = $PCModule.PublishedDate
      }

      If ($PCModuleDate -eq $CurrentModuleDate) {
         Write-Host ("Latest version of {0} is installed on this PC - no need to update" -f $Module) -ForegroundColor Yellow
      } Else {
         Write-Host ("Updating {0} module to version {1}" -f $Module, $CurrentVersion) -foregroundcolor Green
         Remove-Module $Module -ErrorAction SilentlyContinue
         Update-Module $Module -Force -Confirm:$False -Scope AllUsers
      } # End if 

      #Check and remove older versions of the modules from the PC
      Write-Host "Beginning clean-up phase..." -ForegroundColor Green
      Write-Host "Checking for older versions of" $Module -ForegroundColor Green
      [array]$AllVersions = Get-InstalledModule -Name $Module -AllVersions -ErrorAction SilentlyContinue

      If ($AllVersions) {
         $AllVersions = $AllVersions | Sort-Object PublishedDate -Descending 
         $MostRecentVersion = $AllVersions[0].Version
         If ($MostRecentVersion -isnot [string]) { # Handle PowerShell 5 - PowerShell 7 returns a string
            $MostRecentVersion = $MostRecentVersion.Major.toString() + "." + $MostRecentVersion.Minor.toString() + "." + $MostRecentVersion.Build.toString()
         }
         [datetime]$MostRecentVersionDate = $AllVersions[0].PublishedDate
         $PublishedDate = (Get-Date($MostRecentVersionDate) -format g)
         Write-Host ("Most recent version of {0} is {1} published on {2}" -f $Module, $MostRecentVersion, $PublishedDate)
         If ($AllVersions.Count -gt 1 ) { # More than a single version installed
            ForEach ($Version in $AllVersions) { #Check each version and remove old versions
              [datetime]$VersionDate = $Version.PublishedDate
              If ($VersionDate -lt $MostRecentVersionDate) { # Old version - remove
                  Write-Host ("Uninstalling version {0} of module {1}" -f $Version.Version, $Module) -foregroundcolor Red 
                  Uninstall-Module -Name $Module -RequiredVersion $Version.Version -Force
               } #End if version check
            } # End ForEach versions 
         } Else {
            Write-Host ("No earlier versions of {0} module to remove" -f $Module)
         }  # End check for more than one version
      } #End If
      Write-Host ("Done.") -ForegroundColor Green
   }

}

$uninstall = {
   if ((Get-ExecutionPolicy) -notmatch "RemoteSigned") {
      Set-ExecutionPolicy -ExecutionPolicy RemoteSigned -Scope LocalMachine -Force
   }

   ForEach ($Module in $O365Modules) {
      Write-Host ("Uninstalling $Module") -foregroundcolor Yellow
      Uninstall-Module -Name $Module -AllVersions -Force -ErrorAction SilentlyContinue
      Write-Host ("Done.") -ForegroundColor Green
   }
}

#Start functions
function m365ModulesInstall {
   try {
      if ($msonlinecb.Checked -eq $true) {$O365Modules = @("MSOnline"); Invoke-Command $install}
      if ($azureadcb.Checked -eq $true) {$O365Modules = @("AzureAD"); Invoke-Command $install}
      if ($exchangeonlinecb.Checked -eq $true) {$O365Modules = @("ExchangeOnlineManagement"); Invoke-Command $install}
      if ($sharepointcb.Checked -eq $true) {$O365Modules = @("Microsoft.Online.Sharepoint.PowerShell"); Invoke-Command $install}
      if ($msteamscb.Checked -eq $true) {$O365Modules = @("MicrosoftTeams"); Invoke-Command $install}
      if ($graphapicb.Checked -eq $true) {$O365Modules = @("Microsoft.Graph", "Microsoft.Graph.Beta"); Invoke-Command $install}
      if ($azureazcb.Checked -eq $true) {$O365Modules = @("Az"); Invoke-Command $install}
      if ($mdecb.Checked -eq $true) {$O365Modules = @("PSMDATP"); Invoke-Command $install}
      if ($intunecb.Checked -eq $true) {$O365Modules = @("Microsoft.Graph.Intune"); Invoke-Command $install}
      if ($uprintcb.Checked -eq $true) {$O365Modules = @("UniversalPrintManagement"); Invoke-Command $install}
      if ($azurermcb.Checked -eq $true) {$O365Modules = @("AzureRM"); Invoke-Command $install}
      if ($powerappscb.Checked -eq $true) {$O365Modules = @("Microsoft.PowerApps.Administration.PowerShell", "Microsoft.PowerApps.PowerShell"); Invoke-Command $install}
      if ($allcb.Checked -eq $true) {$O365Modules = @(
      "MSOnline", 
      "AzureAD", 
      "ExchangeOnlineManagement", 
      "Microsoft.Online.Sharepoint.PowerShell", 
      "MicrosoftTeams", 
      "Microsoft.Graph", 
      "Microsoft.Graph.Beta", 
      "Az", "PSMDATP", 
      "Microsoft.Graph.Intune", 
      "UniversalPrintManagement", 
      "AzureRM", 
      "Microsoft.PowerApps.Administration.PowerShell", 
      "Microsoft.PowerApps.PowerShell" );
      Invoke-Command $install}
  } 
  catch {
  }
}
function m365ModulesUpdate {
  try {
     if ($msonlinecb.Checked -eq $true) {$O365Modules = @("MSOnline"); Invoke-Command $update}
     if ($azureadcb.Checked -eq $true) {$O365Modules = @("AzureAD"); Invoke-Command $update}
     if ($exchangeonlinecb.Checked -eq $true) {$O365Modules = @("ExchangeOnlineManagement"); Invoke-Command $update}
     if ($sharepointcb.Checked -eq $true) {$O365Modules = @("Microsoft.Online.Sharepoint.PowerShell"); Invoke-Command $update}
     if ($msteamscb.Checked -eq $true) {$O365Modules = @("MicrosoftTeams"); Invoke-Command $update}
     if ($graphapicb.Checked -eq $true) {$O365Modules = @("Microsoft.Graph", "Microsoft.Graph.Beta"); Invoke-Command $update}
     if ($azureazcb.Checked -eq $true) {$O365Modules = @("Az"); Invoke-Command $update}
     if ($mdecb.Checked -eq $true) {$O365Modules = @("PSMDATP"); Invoke-Command $update}
     if ($intunecb.Checked -eq $true) {$O365Modules = @("Microsoft.Graph.Intune"); Invoke-Command $update}
     if ($uprintcb.Checked -eq $true) {$O365Modules = @("UniversalPrintManagement"); Invoke-Command $update}
     if ($azurermcb.Checked -eq $true) {$O365Modules = @("AzureRM"); Invoke-Command $update}
     if ($powerappscb.Checked -eq $true) {$O365Modules = @("Microsoft.PowerApps.Administration.PowerShell", "Microsoft.PowerApps.PowerShell"); Invoke-Command $update}
     if ($allcb.Checked -eq $true) {$O365Modules = @(
        "MSOnline", 
        "AzureAD", 
        "ExchangeOnlineManagement", 
        "Microsoft.Online.Sharepoint.PowerShell", 
        "MicrosoftTeams", 
        "Microsoft.Graph", 
        "Microsoft.Graph.Beta", 
        "Az", "PSMDATP", 
        "Microsoft.Graph.Intune", 
        "UniversalPrintManagement", 
        "AzureRM", 
        "Microsoft.PowerApps.Administration.PowerShell", 
        "Microsoft.PowerApps.PowerShell" );
        Invoke-Command $update}
  } 
  catch {
  }
}
function m365ModulesUninstall {
   try {
      if ($msonlinecb.Checked -eq $true) {$O365Modules = @("MSOnline"); Invoke-Command $Uninstall}
      if ($azureadcb.Checked -eq $true) {$O365Modules = @("AzureAD"); Invoke-Command $Uninstall}
      if ($exchangeonlinecb.Checked -eq $true) {$O365Modules = @("ExchangeOnlineManagement"); Invoke-Command $Uninstall}
      if ($sharepointcb.Checked -eq $true) {$O365Modules = @("Microsoft.Online.Sharepoint.PowerShell"); Invoke-Command $Uninstall}
      if ($msteamscb.Checked -eq $true) {$O365Modules = @("MicrosoftTeams"); Invoke-Command $Uninstall}
      if ($graphapicb.Checked -eq $true) {$O365Modules = @("Microsoft.Graph", "Microsoft.Graph.Beta"); Invoke-Command $Uninstall}
      if ($azureazcb.Checked -eq $true) {$O365Modules = @("Az"); Invoke-Command $Uninstall}
      if ($mdecb.Checked -eq $true) {$O365Modules = @("PSMDATP"); Invoke-Command $Uninstall}
      if ($intunecb.Checked -eq $true) {$O365Modules = @("Microsoft.Graph.Intune"); Invoke-Command $Uninstall}
      if ($uprintcb.Checked -eq $true) {$O365Modules = @("UniversalPrintManagement"); Invoke-Command $Uninstall}
      if ($azurermcb.Checked -eq $true) {$O365Modules = @("AzureRM"); Invoke-Command $Uninstall}
      if ($powerappscb.Checked -eq $true) {$O365Modules = @("Microsoft.PowerApps.Administration.PowerShell", "Microsoft.PowerApps.PowerShell"); Invoke-Command $Uninstall}
      if ($allcb.Checked -eq $true) {$O365Modules = @(
         "MSOnline", 
         "AzureAD", 
         "ExchangeOnlineManagement", 
         "Microsoft.Online.Sharepoint.PowerShell", 
         "MicrosoftTeams", 
         "Microsoft.Graph", 
         "Microsoft.Graph.Beta", 
         "Az", "PSMDATP", 
         "Microsoft.Graph.Intune", 
         "UniversalPrintManagement", 
         "AzureRM", 
         "Microsoft.PowerApps.Administration.PowerShell", 
         "Microsoft.PowerApps.PowerShell" );
         Invoke-Command $Uninstall}
   } 
   catch {
   }
}
#End functions
#Start group boxes

$installModule = New-Object System.Windows.Forms.GroupBox
$installModule.Location = New-Object System.Drawing.Size(10,10) 
$installModule.size = New-Object System.Drawing.Size(180,270) 
$installModule.text = "Select a module:"
$Form.Controls.Add($installModule) 

############################################## end group boxes

############################################## Start Arch checkboxes

$msonlinecb = New-Object System.Windows.Forms.RadioButton
$msonlinecb.Location = New-Object System.Drawing.Size(10,20)
$msonlinecb.Size = New-Object System.Drawing.Size(120,20)
$msonlinecb.Checked = $false
$msonlinecb.Text = "MSOnline"
$installModule.Controls.Add($msonlinecb)

$azureadcb = New-Object System.Windows.Forms.RadioButton
$azureadcb.Location = New-Object System.Drawing.Size(10,40)
$azureadcb.Size = New-Object System.Drawing.Size(120,20)
$azureadcb.Checked = $false
$azureadcb.Text = "AzureAD"
$installModule.Controls.Add($azureadcb)

$exchangeonlinecb = New-Object System.Windows.Forms.RadioButton
$exchangeonlinecb.Location = New-Object System.Drawing.Size(10,60)
$exchangeonlinecb.Size = New-Object System.Drawing.Size(120,20)
$exchangeonlinecb.AutoSize = $True
$exchangeonlinecb.Text = "Exchange Online"
$installModule.Controls.Add($exchangeonlinecb)

$msteamscb = New-Object System.Windows.Forms.RadioButton
$msteamscb.Location = New-Object System.Drawing.Size(10,80)
$msteamscb.Size = New-Object System.Drawing.Size(120,20)
$msteamscb.Checked = $false
$msteamscb.Text = "Teams"
$installModule.Controls.Add($msteamscb)

$sharepointcb = New-Object System.Windows.Forms.RadioButton
$sharepointcb.Location = New-Object System.Drawing.Size(10,100)
$sharepointcb.Size = New-Object System.Drawing.Size(120,20)
$sharepointcb.Checked = $false
$sharepointcb.Text = "Sharepoint"
$installModule.Controls.Add($sharepointcb)

$azureazcb = New-Object System.Windows.Forms.RadioButton
$azureazcb.Location = New-Object System.Drawing.Size(10,120)
$azureazcb.Size = New-Object System.Drawing.Size(120,20)
$azureazcb.Text = "Azure Az"
$installModule.Controls.Add($azureazcb)

$azurermcb = New-Object System.Windows.Forms.RadioButton
$azurermcb.Location = New-Object System.Drawing.Size(10,120)
$azurermcb.Size = New-Object System.Drawing.Size(120,20)
$azurermcb.Text = "Azure RM"
$installModule.Controls.Add($azurermcb)

$mdecb = New-Object System.Windows.Forms.RadioButton
$mdecb.Location = New-Object System.Drawing.Size(10,140)
$mdecb.Size = New-Object System.Drawing.Size(120,20)
$mdecb.AutoSize = $True
$mdecb.Text = "Defender Endpoint"
$installModule.Controls.Add($mdecb)

$intunecb = New-Object System.Windows.Forms.RadioButton
$intunecb.Location = New-Object System.Drawing.Size(10,160)
$intunecb.Size = New-Object System.Drawing.Size(120,20)
$intunecb.Text = "Intune"
$installModule.Controls.Add($intunecb)

$uprintcb = New-Object System.Windows.Forms.RadioButton
$uprintcb.Location = New-Object System.Drawing.Size(10,180)
$uprintcb.Size = New-Object System.Drawing.Size(120,20)
$uprintcb.Text = "Universal Print"
$installModule.Controls.Add($uprintcb)

$powerappscb = New-Object System.Windows.Forms.RadioButton
$powerappscb.Location = New-Object System.Drawing.Size(10,200)
$powerappscb.Size = New-Object System.Drawing.Size(120,20)
$powerappscb.Text = "PowerApps"
$installModule.Controls.Add($powerappscb)

$graphapicb = New-Object System.Windows.Forms.RadioButton
$graphapicb.Location = New-Object System.Drawing.Size(10,220)
$graphapicb.Size = New-Object System.Drawing.Size(120,20)
$graphapicb.Text = "Microsoft Grap PowerShell"
$installModule.Controls.Add($graphapicb)

$allcb = New-Object System.Windows.Forms.RadioButton
$allcb.Location = New-Object System.Drawing.Size(10,240)
$allcb.Size = New-Object System.Drawing.Size(120,20)
$allcb.Text = "All Services"
$installModule.Controls.Add($allcb)
############################################## End Arch checkboxes 

############################################## Start buttons

$submitButton = New-Object System.Windows.Forms.Button 
$submitButton.Cursor = [System.Windows.Forms.Cursors]::Hand
$submitButton.BackColor = [System.Drawing.Color]::LightGreen
$submitButton.Location = New-Object System.Drawing.Size(10,300) 
$submitButton.Size = New-Object System.Drawing.Size(110,40) 
$submitButton.Text = "Install" 
$submitButton.Add_Click({m365ModulesInstall}) 
$Form.Controls.Add($submitButton) 


$updateButton = New-Object System.Windows.Forms.Button 
$updateButton.Cursor = [System.Windows.Forms.Cursors]::Hand
$updateButton.BackColor = [System.Drawing.Color]::Blue
$updateButton.Location = New-Object System.Drawing.Size(130,300) 
$updateButton.Size = New-Object System.Drawing.Size(110,40) 
$updateButton.Text = "Update" 
$updateButton.Add_Click({m365ModulesUpdate}) 
$Form.Controls.Add($updateButton) 

$uninstallButton = New-Object System.Windows.Forms.Button 
$uninstallButton.Cursor = [System.Windows.Forms.Cursors]::Hand
$uninstallButton.BackColor = [System.Drawing.Color]::Red
$uninstallButton.Location = New-Object System.Drawing.Size(250,300) 
$uninstallButton.Size = New-Object System.Drawing.Size(110,40) 
$uninstallButton.Text = "Uninstall" 
$uninstallButton.Add_Click({m365ModulesUninstall}) 
$Form.Controls.Add($uninstallButton) 

############################################## end buttons

$Form.Add_Shown({$Form.Activate()})
[void] $Form.ShowDialog()