Site Logo Image Maintenance Scripts

A repository of PowerShell Scripts to automate a variety of IT related maintenance tasks.

© 2023. All rights reserved.

parse_NTFS.ps1

Description

@GitHub Copilot - Welcome @BanterBoy, I’m your Copilot and I’m here to help you get things done faster. I can identify issues, explain and even improve code.

You can ask generic questions, but what I’m really good at is helping you with your code. For example:

Generate unit tests for my code Explain the selected code Propose a fix for the bugs in my code If you want to learn more about my capabilities and limitations, check out the Copilot documentation.

I’m powered by AI, so surprises and mistakes are possible. Make sure to verify any generated code or suggestions, and share feedback so that we can learn and improve.

@BanterBoy: - Explain what the script does and why it is useful.

@GitHub Copilot -

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()
}

Back to Top

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.

Issue

Back to Top