# PowerShell cmdlets to read & write MS Office document properties
# Compiled by rlv-dan from various source online
function Get-OfficeDocBuiltInProperties {
[OutputType([Hashtable])]
Param
(
[Parameter(Mandatory=$true)]
[System.__ComObject] $Document
)
$result = @{}
$binding = "System.Reflection.BindingFlags" -as [type]
$properties = $Document.BuiltInDocumentProperties
foreach($property in $properties)
{
$pn = [System.__ComObject].invokemember("name",$binding::GetProperty,$null,$property,$null)
trap [system.exception]
{
continue
}
$result.Add($pn, [System.__ComObject].invokemember("value",$binding::GetProperty,$null,$property,$null))
}
return $result
}
function Get-OfficeDocBuiltInProperty {
[OutputType([string],$null)]
Param
(
[Parameter(Mandatory=$true)]
[string] $PropertyName,
[Parameter(Mandatory=$true)]
[System.__ComObject] $Document
)
try {
$comObject = $Document.BuiltInDocumentProperties($PropertyName)
$binding = "System.Reflection.BindingFlags" -as [type]
$val = [System.__ComObject].invokemember("value",$binding::GetProperty,$null,$comObject,$null)
return $val
} catch {
return $null
}
}
function Set-OfficeDocBuiltInProperty {
[OutputType([boolean])]
Param
(
[Parameter(Mandatory=$true)]
[string] $PropertyName,
[Parameter(Mandatory=$true)]
[string] $Value,
[Parameter(Mandatory=$true)]
[System.__ComObject] $Document
)
try {
$comObject = $Document.BuiltInDocumentProperties($PropertyName)
$binding = "System.Reflection.BindingFlags" -as [type]
[System.__ComObject].invokemember("Value",$binding::SetProperty,$null,$comObject,$Value)
return $true
} catch {
return $false
}
}
function Get-OfficeDocCustomProperties {
[OutputType([HashTable])]
Param
(
[Parameter(Mandatory=$true, Position=2)]
[System.__ComObject] $Document
)
$result = @{}
$binding = "System.Reflection.BindingFlags" -as [type]
$properties = $Document.CustomDocumentProperties
foreach($property in $properties)
{
$pn = [System.__ComObject].invokemember("name",$binding::GetProperty,$null,$property,$null)
trap [system.exception]
{
continue
}
$result.Add($pn, [System.__ComObject].invokemember("value",$binding::GetProperty,$null,$property,$null))
}
return $result
}
function Get-OfficeDocCustomProperty {
[OutputType([string], $null)]
Param
(
[Parameter(Mandatory=$true)]
[string] $PropertyName,
[Parameter(Mandatory=$true)]
[System.__ComObject] $Document
)
try {
$comObject = $Document.CustomDocumentProperties($PropertyName)
$binding = "System.Reflection.BindingFlags" -as [type]
$val = [System.__ComObject].invokemember("value",$binding::GetProperty,$null,$comObject,$null)
return $val
} catch {
return $null
}
}
function Set-OfficeDocCustomProperty {
[OutputType([boolean])]
Param
(
[Parameter(Mandatory=$true)]
[string] $PropertyName,
[Parameter(Mandatory=$true)]
[string] $Value,
[Parameter(Mandatory=$true)]
[System.__ComObject] $Document
)
try
{
$customProperties = $Document.CustomDocumentProperties
$binding = "System.Reflection.BindingFlags" -as [type]
[array]$arrayArgs = $PropertyName,$false, 4, $Value
try
{
[System.__ComObject].InvokeMember("add", $binding::InvokeMethod,$null,$customProperties,$arrayArgs) | out-null
}
catch [system.exception]
{
$propertyObject = [System.__ComObject].InvokeMember("Item", $binding::GetProperty, $null, $customProperties, $PropertyName)
[System.__ComObject].InvokeMember("Delete", $binding::InvokeMethod, $null, $propertyObject, $null)
[System.__ComObject].InvokeMember("add", $binding::InvokeMethod, $null, $customProperties, $arrayArgs) | Out-Null
}
return $true
}
catch
{
return $false
}
}
