parse_NTFS.ps1
something exciting
Some information about the exciting thing
Table of contents generated with markdown-toc
Script
<###############################################
Variables
################################################>
$MyDir = Split-Path $MyInvocation.MyCommand.Definition
. "$MyDir\Variablen-Visio.ps1"
$WarningPreference = 'SilentlyContinue'
<###############################################
Functions
################################################>
function connect-visioobject ($firstObj, $secondObj) {
$shpConn = $pagObj.Drop($pagObj.Application.ConnectorToolDataObject, 0, 0)
#// Connect its Begin to the 'From' shape:
$connectBegin = $shpConn.CellsU("BeginX").GlueTo($firstObj.CellsU("PinX"))
#// Connect its End to the 'To' shape:
$connectEnd = $shpConn.CellsU("EndX").GlueTo($secondObj.CellsU("PinX"))
}
function add-visioobject ($mastObj, $item, $x, $y) {
Write-Host "Adding $item"
# Drop the selected stencil on the active page, with the coordinates x, y
$shpObj = $pagObj.Drop($mastObj, $x, $y)
# Enter text for the object
$shpObj.Text = $item
#Return the visioobject to be used
return $shpObj
}
function New-VisioDocument ($visible) {
$AppVisio = New-Object -ComObject Visio.Application
$AppVisio.Visible = $visible
$docsObj = $AppVisio.Documents
$DocObj = $docsObj.Add("ActDir_M.vst")
$pagsObj = $AppVisio.ActiveDocument.Pages
$pagObj = $pagsObj.Item(1)
$ADStencil = $docsObj.Item("ADO_M.vss")
$AppVisio
}
function recFileStructure ($item, $parent, $iterator) {
Write-Host $item
$dirs = Get-ChildItem -Path $item | Where-Object { $_.Psiscontainer }
if ($dirs -and ($iterator -lt 3)) {
foreach ($dir in $dirs) {
$accessList = Get-ACL $dir.FullName -WarningAction $WarningPreference
$ok = $false
Foreach ($list in $accessList.Access) { if ($list.IsInherited -eq $false) { $ok = $true } }
if ($accessList -and $ok) {
$x += 0.3
$object = add-visioobject $OUItem $dir.Name $x $y
Foreach ($shape in $object.Shapes) { $shape.Cells("FillForegnd").FormulaU = "RGB(255,0,0)" }
$notiz = $NotizItem.Masters.ItemU("Box Callout")
$f = $pagObj.DropCallout($notiz, $object)
$f.CellsSRC($visSectionCharacter, 0, $visCharacterSize).FormulaU = "6 pt"
$f.CellsSRC($visSectionParagraph, 0, $visHorzAlign).FormulaU = "0"
$f.CellsSRC($visSectionObject, $visRowText, $visTxtBlkVerticalAlign).FormulaU = "0"
$f.CellsSRC($visSectionObject, $visRowFill, $visFillForegnd).FormulaU = "THEMEGUARD(MSOTINT(THEME(""AccentColor4""),80))"
$f.Text = $dir.Fullname + "`n"
Foreach ($access in $accessList.Access) {
if (!$access.isInherited) {
$zeile = $access.IdentityReference.ToString() + " | " + $access.FileSystemRights.ToString() + "`n"
$f.Text += $zeile
}
}
$f.Text = $f.Text.Substring(0, $f.Text.Length - 1)
$f.CellsU("Width").Formula = "MAX(TEXTWIDTH(theText), 6 * Char.Size)"
$f.CellsU("PinX").FormulaU = "0"
$f.CellsU("PinY").FormulaU = "0"
$color = $Host.UI.RawUI.ForegroundColor
$Host.UI.RawUI.ForegroundColor = "cyan"
$accessList
$Host.UI.RawUI.ForegroundColor = $color
connect-visioobject $parent $object
$y += 0.3
}
$pagObj.PageSheet.CellsSRC($visSectionObject, $visRowPageLayout, $visPLOPlaceStyle).FormulaForceU = "7"
$pagObj.PageSheet.CellsSRC($visSectionObject, $visRowPageLayout, $visPLORouteStyle).FormulaForceU = "3"
$pagObj.Layout()
recFileStructure $dir.FullName $object ($iterator + 1)
}
}
}
<###############################################
MAIN
################################################>
# Definitions
$VisioDocu = New-VisioDocument $true
$pagObj = $VisioDocu.ActiveDocument.Pages.Item(1)
$domainItem = $VisioDocu.Documents.Item("ADO_M.vss").Masters.ItemU("Domain")
$OUItem = $VisioDocu.Documents.Item("ADO_M.vss").Masters.ItemU("Container") # 'Folder'
$NotizItem = $VisioDocu.Documents.OpenEx($VisioDocu.GetBuiltInStencilFile($visBuiltinStencilCallouts, $visMSDefault), $visOpenHidden) # CallOut
# Define Path and start recursion
$PathtoScan = "\\servername\sharename\foldername\"
$root = add-visioobject $domainItem $PathtoScan
recFileStructure $PathtoScan $root 0
# Set Layout
# Reset coordinates of all CallOuts
Foreach ($id in $pagObj.GetCallouts(0)) {
$pagObj.Shapes.ItemFromID($id).CellsU("PinX").FormulaU = "CALLOUTTARGETREF()!PinX + 2"
$pagObj.Shapes.ItemFromID($id).CellsU("PinY").FormulaU = "CALLOUTTARGETREF()!PinY + 1"
$pagObj.Shapes.ItemFromID($id).SendToBack()
}
$pagObj.Layout()
$pagObj.ResizeToFitContents()
$Background = $VisioDocu.Documents.OpenEx($VisioDocu.GetBuiltInStencilFile($visBuiltinStencilBackgrounds, $visMSDefault), $visOpenHidden)
$nil = $pagObj.Drop($Background.Masters.ItemU("Vertical Gradient"), 4.133858, 5.850394)
$Titel = $VisioDocu.Documents.OpenEx($VisioDocu.GetBuiltinStencilFile($visBuiltinStencilBorders, $visMSDefault), $visOpenHidden)
$Titel_drop = $pagObj.Drop($Titel.Masters.ItemU("Blocks"), 7.723097, 7.46063)
Foreach ($id in $pagObj.GetCallouts(0)) {
$pagObj.Shapes.ItemFromID($id).CellsU("PinX").FormulaU = "CALLOUTTARGETREF()!PinX + 2"
$pagObj.Shapes.ItemFromID($id).CellsU("PinY").FormulaU = "CALLOUTTARGETREF()!PinY + 1"
$pagObj.Shapes.ItemFromID($id).SendToBack()
}
Download
Please feel free to copy parts of the script or if you would like to download the entire script, simple click the download button. You can download the complete repository in a zip file by clicking the Download link in the menu bar on the left hand side of the page.
Report Issues
You can report an issue or contribute to this site on GitHub. Simply click the button below and add any relevant notes. I will attempt to respond to all issues as soon as possible.