90 lines
2.8 KiB
PowerShell
90 lines
2.8 KiB
PowerShell
#!powershell
|
|
# This file is part of Ansible
|
|
#
|
|
# Copyright 2015, Jon Hawkesworth (@jhawkesworth) <figs@unity.demon.co.uk>
|
|
#
|
|
# Ansible is free software: you can redistribute it and/or modify
|
|
# it under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation, either version 3 of the License, or
|
|
# (at your option) any later version.
|
|
#
|
|
# Ansible is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with Ansible. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
# WANT_JSON
|
|
# POWERSHELL_COMMON
|
|
|
|
Function Convert-RegistryPath {
|
|
Param (
|
|
[parameter(Mandatory=$True)]
|
|
[ValidateNotNullOrEmpty()]$Path
|
|
)
|
|
|
|
$output = $Path -replace "HKLM:", "HKLM"
|
|
$output = $output -replace "HKCU:", "HKCU"
|
|
|
|
Return $output
|
|
}
|
|
|
|
$params = Parse-Args $args
|
|
$result = New-Object PSObject
|
|
Set-Attr $result "changed" $False
|
|
|
|
$path = Get-Attr -obj $params -name path -failifempty $True -resultobj $result
|
|
$compare_to = Get-Attr -obj $params -name compare_to -failifempty $False -resultobj $result
|
|
|
|
# check it looks like a reg key, warn if key not present - will happen first time
|
|
# only accepting PS-Drive style key names (starting with HKLM etc, not HKEY_LOCAL_MACHINE etc)
|
|
|
|
$do_comparison = $False
|
|
|
|
If ($compare_to) {
|
|
$compare_to_key = $params.compare_to.ToString()
|
|
If (Test-Path $compare_to_key -pathType container ) {
|
|
$do_comparison = $True
|
|
} Else {
|
|
Set-Attr $result "compare_to_key_found" $False
|
|
}
|
|
}
|
|
|
|
If ( $do_comparison -eq $True ) {
|
|
$guid = [guid]::NewGuid()
|
|
$exported_path = $env:TEMP + "\" + $guid.ToString() + 'ansible_win_regmerge.reg'
|
|
|
|
$expanded_compare_key = Convert-RegistryPath ($compare_to_key)
|
|
|
|
# export from the reg key location to a file
|
|
$reg_args = @("EXPORT", "$expanded_compare_key", $exported_path)
|
|
& reg.exe $reg_args
|
|
|
|
# compare the two files
|
|
$comparison_result = Compare-Object -ReferenceObject $(Get-Content $path) -DifferenceObject $(Get-Content $exported_path)
|
|
|
|
If (Get-Member -InputObject $comparison_result -Name "count" -MemberType Properties )
|
|
{
|
|
# Something is different, actually do reg merge
|
|
$reg_import_args = @("IMPORT", "$path")
|
|
& reg.exe $reg_import_args
|
|
Set-Attr $result "changed" $True
|
|
Set-Attr $result "difference_count" $comparison_result.count
|
|
} Else {
|
|
Set-Attr $result "difference_count" 0
|
|
}
|
|
|
|
Remove-Item $exported_path
|
|
Set-Attr $result "compared" $True
|
|
|
|
} Else {
|
|
# not comparing, merge and report changed
|
|
$reg_import_args = @("IMPORT", "$path")
|
|
& reg.exe $reg_import_args
|
|
Set-Attr $result "changed" $True
|
|
Set-Attr $result "compared" $False
|
|
}
|
|
|
|
Exit-Json $result
|