Control New-DiagramLink arrow width

[PatrickOnGit]

Dear Przemyslaw

Is it possible to control the width of an arrow between two nodes?
I have written a little function that visualizes AD Site configuration and would like to have different arrow sizes based on site costs.
Later I also want to add also option to click on a site / site link to get additional information. But that is a different topic;-)

The code currently looks like this:

`Import-Module PSWriteHTML -Force

New-HTML -TitleText 'AD Sites' -Online -FilePath $PSScriptRoot\ADSites.html {

New-HTMLSection {

    New-HTMLDiagram -Height 800 {
        New-DiagramOptionsPhysics -StabilizationEnabled $true -Solver repulsion 
        Get-ADReplicationSite -filter * |
            ForEach-Object {
                $Site = $_
                Switch -Regex ($_.Name) {
                    "^Default-First-Site-Name$" { New-DiagramNode -Label "$($Site.Name)" -Id "$($Site.DistinguishedName)" -ColorBackground Amber }
                    "^(MainSite-0|MainSite-2)$" { New-DiagramNode -Label "$($Site.Name)" -Id "$($Site.DistinguishedName)" -ColorBackground Amber }
                    Default {New-DiagramNode -Label "$($Site.Name)" -Id "$($Site.DistinguishedName)" }
                }

            }
        Get-ADReplicationSiteLink -filter * |
            ForEach-Object {
                 If ( $_.SitesIncluded.count -lt 2 ) {
                     Write-Warning $( "Sitelink {0} has {1} sites included." -f $_.Name, $_.SitesIncluded.Count )
                 }
                 # Create all possible links
                 for ($i = 0; $i -lt $_.SitesIncluded.count; $i++) {
                    for ($n = ($i + 1); $n -lt $_.SitesIncluded.count; $n++) {
                        New-DiagramLink -From $_.SitesIncluded[$i] -To $_.SitesIncluded[$n] -Label $_.Name
                        
                    }
                 }
                 
            }
    } #-DisableLoadingBar

}

} -ShowHTML`

Thank you for your support.
Patrick

[PrzemyslawKlys]

Cool you could improve my Show-WinADSites

The way I usually deal with "costs" is to use hierarchical diagram. You then tell it the Level you want it on. 0,1,2,3,4,5,6 and so on. This way its much more readable. You could probably control width on non-hierarchical diagram but I am afraid things would get ugly.

[PatrickOnGit]

I had a quick look into your new function. Think it gathers too much information when using it in large environments. It takes a long time. Of course it shows quite valuable information. But I would be first intersted in the connections:

Then, when selecting a site, the table could show me all subnets related to the site or all DCs responsible for this site.
The reason I would like to have different line weights is to quickly show if one link is more costly than another. I could do this also by color I guess. First get all costs, see how many different costs there are and then assign a color to each. From Green with low costs to red with high costs. Bad for color blind people, but at least some indicator.

Is it possible to hide / unhide information in the graphic on click?

[PatrickOnGit]

I did a quick rewrite of my version of the script to include your data table. It^s not ideal yet, like schedules is not resovled etc, and missing Subnets, but it took few seconds to build instead of, well, your version is still trying to show something ;-)
Its a decission between speed and informations. I will look later in your version.
I know you have example where you hide or show table information based on clicking the graphic. Would you mind pointing me to one?

Import-Module PSWriteHTML -Force
$Sites = Get-ADReplicationSite -filter *
$SiteLinks = Get-ADReplicationSiteLink -filter *

New-HTML -TitleText 'AD Sites' -Online -FilePath $PSScriptRoot\ADSites.html  {
    New-HTMLSectionStyle -BorderRadius 0px -HeaderBackGroundColor Grey -RemoveShadow
    New-HTMLTableOption -DataStore HTML
    New-HTMLTabStyle -BorderRadius 0px -TextTransform capitalize -BackgroundColorActive SlateGrey
    New-HTMLTabPanel {
        New-HTMLTab -TabName 'Standard' {
            New-HTMLSection -HeaderText 'Organization Diagram' {

                New-HTMLDiagram -Height 800 {
                    New-DiagramOptionsPhysics -StabilizationEnabled $true -Solver repulsion 
                    $Sites |
                        ForEach-Object {
                            $Site = $_
                            Switch -Regex ($_.Name) {
                                "^Default-First-Site-Name$" { New-DiagramNode -Label "$($Site.Name)" -Id "$($Site.DistinguishedName)" -ColorBackground Amber }
                                "^(MainSite-0|MainSite-2)$" { New-DiagramNode -Label "$($Site.Name)" -Id "$($Site.DistinguishedName)" -ColorBackground Amber }
                                Default {New-DiagramNode -Label "$($Site.Name)" -Id "$($Site.DistinguishedName)" }
                            }

                        }
                    $SiteLinks |
                        ForEach-Object {
                             If ( $_.SitesIncluded.count -lt 2 ) {
                                 Write-Warning $( "Sitelink {0} has {1} sites included." -f $_.Name, $_.SitesIncluded.Count )
                             }
                             # Create all possible links
                             for ($i = 0; $i -lt $_.SitesIncluded.count; $i++) {
                                for ($n = ($i + 1); $n -lt $_.SitesIncluded.count; $n++) {
                                    New-DiagramLink -From $_.SitesIncluded[$i] -To $_.SitesIncluded[$n] -Label $_.Name
                            
                                }
                             }
                     
                        }
                } 
            }
        }
    }
    New-HTMLSection -Title "Information about Sites" {
        New-HTMLTable -DataTable $Sites -Filtering {
            if (-not $DisableBuiltinConditions) {
                New-TableCondition -BackgroundColor MediumSeaGreen -ComparisonType number -Value 0 -Name SubnetsCount -Operator gt
                New-TableCondition -BackgroundColor CoralRed -ComparisonType number -Value 0 -Name SubnetsCount -Operator eq
            }
            if ($Conditions) {
                & $Conditions
            }
        } -DataTableID 'DT-StandardSites' -DataStore JavaScript


    }
    New-HTMLTable -DataTable $Replication -Filtering {
        if (-not $DisableBuiltinConditions) {
            New-TableCondition -BackgroundColor MediumSeaGreen -ComparisonType number -Value 0 -Name SubnetsCount -Operator gt
            New-TableCondition -BackgroundColor CoralRed -ComparisonType number -Value 0 -Name SubnetsCount -Operator eq
        }
        if ($Conditions) {
            & $Conditions
        }
    } -DataTableID 'DT-StandardSites1' -DataStore JavaScript
  #  }
} -ShowHTML

[PrzemyslawKlys]

You should read this:

• https://evotec.xyz/nested-tabs-diagram-updates-diagram-events-calendar-object-and-more-in-pswritehtml/ - there's level + width shown
• https://evotec.xyz/advanced-html-reporting-using-powershell/ - shows table events for charts

Import-Module .\PSWriteHTML.psd1 -Force

$Processes = Get-Process | Select-Object -First 3 -Property Name, ProcessName, Id, FileVersion, WorkingSet

New-HTML -TitleText 'My Title' -Online -FilePath $PSScriptRoot\Example30-LinkedTableToTable02.html -ShowHTML {
    New-HTMLTableOption -DataStore Javascript
    New-HTMLSection -Invisible {
        New-HTMLPanel {
            New-HTMLTable -DataTable $Processes -DataTableID 'RandomID1' {
                New-TableEvent -ID 'RandomID2' -SourceColumnID 0 -TargetColumnId 0
                New-TableEvent -ID 'RandomID3' -SourceColumnID 0 -TargetColumnId 0
            }
        }
        New-HTMLPanel {
            New-HTMLTable -DataTable $Processes -DataTableID 'RandomID2'
        }
    }
    New-HTMLPanel {
        New-HTMLTable -DataTable $Processes -DataTableID 'RandomID3'
    }
}

[PatrickOnGit]

I played a little bit more around and it now looks quite good. Still I would be happy to be able to have different arrow weights ;-)

It is not yet ideal and it doesn't yet fit into your ADEssentials module, but let me know what you think.
If possible I would like to hide the DNs, but I need them as unique reference.
Sometimes the filter from last created HTML file is also used on a freshly opened document.
The comparison of the \A0DEL to verify if a deleted object is referenced breaks the first table.

Import-Module PSWriteHTML -Force
$Subnets = Get-ADReplicationSubnet -Filter * | Select @{n='Site';e={ $_.Site  -replace 'CN=(.*?),.*','$1' }}, @{n='Subnet';e={ $_.Name}}, Location, @{ n='SiteDN';e={$_.Site}}
$SubnetsHash =  @{}
$Subnets | %{ if ( $SubnetsHash.ContainsKey($_.SiteDN) ) {  $SubnetsHash[$_.SiteDN] += $_.Subnet  } else { $SubnetsHash.Add( $_.SiteDN,@(,$_.Subnet) ) } }
$Sites = Get-ADReplicationSite -filter * | 
        Select-Object Name, Description,
            @{ n="InterSiteTopologyGenerator";e={ 
                if ( $_.InterSiteTopologyGenerator -match "\\0ADEL" ) {
                    $_.InterSiteTopologyGenerator } else {
                    try { Get-ADObject -searchbase "$($_.InterSiteTopologyGenerator -replace '.*?,(.*)$','$1' )" -SearchScope Base  -Filter * -Properties dnsHostName  | Select-Object -ExpandProperty dnsHostName } catch {  }  }
             }},
             @{ n='SubnetCount';e={ $SubnetsHash[$_.DistinguishedName].count } },
             ManagedBy,  
            @{ n='hasSchedule';e={ if( $_.ReplicationSchedule ) {$true} else {$false} }},UniversalGroupCachingRefreshSite, 
            DistinguishedName
$SiteLinks = Get-ADReplicationSiteLink -filter * | Select-Object Name, Cost, ReplicationFrequencyInMinutes, SitesIncluded, DistinguishedName

$CostGroup = $SiteLinks | Group Cost -NoElement
$Script:LinkToSite = @()
New-HTML -TitleText 'AD Sites' -Online -FilePath $PSScriptRoot\ADSites.html  {
    New-HTMLSectionStyle -BorderRadius 0px -HeaderBackGroundColor Grey -RemoveShadow
    New-HTMLTableOption -DataStore HTML
    New-HTMLTabStyle -BorderRadius 0px -TextTransform capitalize -BackgroundColorActive SlateGrey
    New-HTMLTabPanel {
        New-HTMLTab -TabName 'Standard' {
            New-HTMLSection -HeaderText 'Organization Diagram' {

                New-HTMLDiagram -Height 800 {
                    New-DiagramOptionsPhysics -StabilizationEnabled $true -Solver repulsion 
                    $Sites |
                        ForEach-Object {
                            $Site = $_
                            Switch -Regex ($_.Name) {
                                "^Default-First-Site-Name$" { New-DiagramNode -Label "$($Site.Name)" -Id "$($Site.DistinguishedName)" -ColorBackground Amber }
                                "^(CHBS-0|USEH-0|INKL-0|SGSG-0)$" { New-DiagramNode -Label "$($Site.Name)" -Id "$($Site.DistinguishedName)" -ColorBackground Amber }
                                Default {New-DiagramNode -Label "$($Site.Name)" -Id "$($Site.DistinguishedName)" }
                            }

                        }
                    New-DiagramEvent -ID 'DT-Sites' -ColumnID 7
                    New-DiagramEvent -ID 'DT-Subnets' -ColumnID 3
                    New-DiagramEvent -ID 'DT-SiteLinks' -ColumnID 5

                    $SiteLinks |
                        ForEach-Object {
                             $SiteLink = $_
                             If ( $_.SitesIncluded.count -lt 2 ) {
                                 Write-Warning $( "Sitelink {0} has {1} sites included." -f $_.Name, $_.SitesIncluded.Count )
                                 $Script:LinkToSite += New-Object PSObject -Property  ( [ordered] @{
                                    linkedFrom = $_.SitesIncluded[0] -replace 'CN=(.*?),.*','$1'
                                    linkedTo = ''
                                    linkName = $_.Name
                                    Cost = $_.Cost
                                    ReplicationFrequencyInMinutes =  $_.ReplicationFrequencyInMinutes
                                    linkDN = $_.SitesIncluded[0]
                                } )
                             }
                             # Create all possible links
                             for ($i = 0; $i -lt $_.SitesIncluded.count; $i++) {
                                for ($n = ($i + 1); $n -lt $_.SitesIncluded.count; $n++) {
                                    New-DiagramLink -From $_.SitesIncluded[$i] -To $_.SitesIncluded[$n] -Label $_.Name
                                    $Script:LinkToSite += New-Object PSObject -Property  ( [ordered] @{
                                        linkedFrom = $_.SitesIncluded[$i] -replace 'CN=(.*?),.*','$1'
                                        linkedTo = $_.SitesIncluded[$n] -replace 'CN=(.*?),.*','$1'
                                        linkName = $_.Name
                                        Cost = $_.Cost
                                        ReplicationFrequencyInMinutes =  $_.ReplicationFrequencyInMinutes
                                        linkDN = $_.SitesIncluded[$i]
                                    } )
                                    # To be able to select either site, the link information needs to be added twice
                                    $Script:LinkToSite += New-Object PSObject -Property  ( [ordered] @{
                                        linkedFrom = $_.SitesIncluded[$i] -replace 'CN=(.*?),.*','$1'
                                        linkedTo = $_.SitesIncluded[$n] -replace 'CN=(.*?),.*','$1'
                                        linkName = $_.Name
                                        Cost = $_.Cost
                                        ReplicationFrequencyInMinutes =  $_.ReplicationFrequencyInMinutes
                                        linkDN = $_.SitesIncluded[$n]
                                    } )
                                }
                             }
                     
                        }
                } 
            }
        }
    }
    New-HTMLSection -Title "Information about Sites" {
        New-HTMLTable -DataTable $Sites -Filtering {
            New-TableColumnOption -Hidden $true -ColumnIndex 1
            if (-not $DisableBuiltinConditions) {
                New-TableCondition -BackgroundColor MediumSeaGreen -ComparisonType number -Value 0 -Name SubnetCount -Operator gt
                New-TableCondition -BackgroundColor CoralRed -ComparisonType number -Value 0 -Name SubnetCount -Operator eq
               # New-TableCondition -BackgroundColor MediumSeaGreen -ComparisonType string -Value '*\0ADEL*' -Name InterSiteTopologyGenerator -Operator notlike
               # New-TableCondition -BackgroundColor CoralRed -ComparisonType string -Value '*\0ADEL*' -Name InterSiteTopologyGenerator -Operator like
            }
            if ($Conditions) {
                & $Conditions
            }
        } -DataTableID 'DT-Sites' -DataStore JavaScript

        New-HTMLTable -DataTable $Subnets -Filtering {
           #  New-TableColumnOption -Hidden $true -ColumnIndex 0
        } -DataTableID 'DT-Subnets' -DataStore JavaScript
    
        New-HTMLTable -DataTable $Script:LinkToSite -Filtering {
          #  New-TableColumnOption -Hidden $true -ColumnIndex 2

        } -DataTableID 'DT-SiteLinks' -DataStore JavaScript 
  }
} -ShowHTML