internal/Write-Exception.ps1

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Function Write-Exception
{
<#
.SYNOPSIS
Internal function. Writes exception to disk (my docs\dbatools-exceptions.txt) for later analysis.
#>

[CmdletBinding()]
param (
[Parameter(Mandatory = $true)]
[object]$e
)

$docs = [Environment]::GetFolderPath("mydocuments")
$errorlog = "$docs\dbatools-exceptions.txt"
$message = $e.Exception
$infocation = $e.InvocationInfo

$position = $infocation.PositionMessage
$scriptname = $infocation.ScriptName
if ($e.Exception.InnerException -ne $null) { $messsage = $e.Exception.InnerException }

$message = $message.ToString()

Add-Content $errorlog $(Get-Date)
Add-Content $errorlog $scriptname
Add-Content $errorlog $position
Add-Content $errorlog $message
Write-Warning "See error log $(Resolve-Path $errorlog) for more details."
}