Function Compare-ObjectProperties {
    Param(
        [PSObject]$refObject,
        [PSObject]$difObject,
        [string]$propertyName
    )

    try {
        if ( $refObject.Count -eq 0 -and $difObject.Count -eq 0 ) { "INFO: Nothing to compare, both properties are null ($propertyName)" >> log.txt; return }
        $objprops = $refObject | Get-Member -MemberType Property, NoteProperty -ErrorAction SilentlyContinue | ForEach-Object Name
        $objprops += $difObject | Get-Member -MemberType Property, NoteProperty -ErrorAction SilentlyContinue | ForEach-Object Name
        $objprops = $objprops | Sort-Object | Select-Object -Unique
        $diffs = @()
        foreach ($objprop in $objprops) {
            # skipping "useless" comparisons
            if ($objprop -in ('id', 'etag', 'resourceguid') -or $objprop -like '*text') { continue }
            $diff = Compare-Object $refObject $difObject -Property $objprop
            if ($diff) {            
                $diffprops = @{
                    PropertyName   = $objprop
                    ParentProperty = $propertyName
                    RefValue       = ($diff | Where-Object {$_.SideIndicator -eq '<='} | ForEach-Object $($objprop))
                    DiffValue      = ($diff | Where-Object {$_.SideIndicator -eq '=>'} | ForEach-Object $($objprop))
                }
                $diffs += New-Object PSObject -Property $diffprops
            }        
        }
        if ($diffs) { 
            return ( $diffs )
        }
        else {
            "INFO: properties are equal or skipped ($propertyName)" >> log.txt 
        }
    }
    catch {
        "ERROR: something went wrong with $propertyName" >> log.txt
        $_ | Export-Clixml errors.txt
    }
}

Function Compare-AzureObjects {
    Param(
        [Parameter(Mandatory)]
        $firstObject,
        [Parameter(Mandatory)]
        $secondObject
    )
    $firstObject | Get-Member -MemberType Property | Where-Object { $PSItem.Name -notlike '*text' } | ForEach-Object {
        $propertyName = $_.Name
        $data = Compare-ObjectProperties $firstObject.($propertyName) $secondObject.($propertyName) $propertyName
        if ($data) {
            $data | Format-Table @{n = "Parent Property"; e = {$_.ParentProperty}}, @{n = "Child Property"; e = {$_.PropertyName}}, @{n = $firstObject.Name; e = {$_.RefValue}}, @{n = $secondObject.Name; e = {$_.DiffValue}} -Wrap
        }
    }
}