How to to get all site collections with their sub webs

$SiteURL = "https://domain-admin.sharepoint.com/"
$UserName = "UserName@domain.onmicrosoft.com"
$Password = "********"
$SecureStringPwd = $Password | ConvertTo-SecureString -AsPlainText -Force 
$Creds = New-Object System.Management.Automation.PSCredential -ArgumentList $UserName, $SecureStringPwd

Function Login {
    [cmdletbinding()]
    param([parameter(Mandatory = $true, ValueFromPipeline = $true)] $Creds)
    Write-Host "Connecting to Tenant Admin Site '$($SiteURL)'" 
    Connect-PnPOnline -Url $SiteURL -Credentials $creds
    Write-Host "Connection Successfull"
}

Function AllSiteCollAndSubWebs() {
    Login($Creds)
    $TenantSites = (Get-PnPTenantSite) | Select Title, Url       
       
    ForEach ( $TenantSite in $TenantSites) { 
        Connect-PnPOnline -Url $TenantSite.Url -Credentials $Creds
        Write-Host $TenantSite.Title $TenantSite.Url
        $subwebs = Get-PnPSubWebs -Recurse | Select Title, Url
        foreach ($subweb in $subwebs) { 
            Connect-PNPonline -Url $subweb.Url -Credentials $Creds
            Write-Host $subweb.Title $subweb.Url 
        }  
    }
}

AllSiteCollAndSubWebs

function PrintSite([string]$type, $sitesJson) {
    $sites = $sitesJson | ConvertFrom-Json
    $sitesCount = $sites.Count
    Write-Host "--------------------------------------------------------------------"
    Write-Host "$type (amount: $sitesCount):"
    foreach ($site in $sites) {
        Write-Host $site.Title $site.Url    
        $subWebs = m365 spo web list -u $site.Url
        $subWebs = $subWebs | ConvertFrom-Json
        foreach ($subWeb in $subWebs) {
            Write-Host $subWeb.Title $subWeb.Url
        }
    }
}

function AllSiteCollAndSubWebs() {
    $m365Status = m365 status
    if ($m365Status -match "Logged Out") {
        m365 login
    }

    $teamSites = m365 spo site list --type TeamSite
    PrintSite -type 'Team Sites' -sitesJson $teamSites

    $communicationSites = m365 spo site list --type CommunicationSite
    PrintSite -type 'Communication Sites' -sitesJson $communicationSites

    $classicSites = m365 spo site classic list
    PrintSite -type 'Classic Sites' -sitesJson $classicSites

    $deletedSites = m365 spo site list --deleted
    PrintSite -type 'Deleted Sites' -sitesJson $deletedSites
}

AllSiteCollAndSubWebs