Set-RegString.ps1

function Set-RegString
{

    <#
    .SYNOPSIS
           Sets or creates a string (REG_SZ) registry value on local or remote computers.
 
    .DESCRIPTION
           Use Set-RegString to set or create registry string (REG_SZ) value on local or remote computers.
            
    .PARAMETER ComputerName
            An array of computer names. The default is the local computer.
 
    .PARAMETER Hive
           The HKEY to open, from the RegistryHive enumeration. The default is 'LocalMachine'.
           Possible values:
            
        - ClassesRoot
        - CurrentUser
        - LocalMachine
        - Users
        - PerformanceData
        - CurrentConfig
        - DynData
 
    .PARAMETER Key
           The path of the registry key to open.
 
    .PARAMETER Value
           The name of the registry value.
 
    .PARAMETER Data
           The data to set the registry value.
 
    .PARAMETER Force
           Overrides any confirmations made by the command. Even using the Force parameter, the function cannot override security restrictions.
 
    .PARAMETER Ping
           Use ping to test if the machine is available before connecting to it.
           If the machine is not responding to the test a warning message is output.
 
    .PARAMETER PassThru
           Passes the newly custom object to the pipeline. By default, this function does not generate any output.
 
    .EXAMPLE
        $Key = "SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce"
        Set-RegString -Key $Key -Value Notepad -Data "notepad.exe"
         
        Description
        -----------
        The command Sets or Creates a registry value named Notepad on the local computer RunOnce key.
        The name of ComputerName parameter, which is optional, is omitted.
         
    .EXAMPLE
        "SERVER1","SERVER1","SERVER3" | Set-RegString -Key $Key -Value Notepad -Data "notepad.exe" -Ping
         
        Description
        -----------
        The command sets or creates a registry value named Notepad on three remote computers local computer's RunOnce key.
        When the Switch parameter Ping is specified the command issues a ping test to each computer.
        If the computer is not responding to the ping request a warning message is written to the console and the computer is not processed.
 
    .EXAMPLE
        Get-Content servers.txt | Set-RegString -Key $Key -Value Notepad -Data "notepad.exe" -Force -PassThru
 
        ComputerName Hive Key Value Data Type
        ------------ ---- --- ----- ---- ----
        SERVER1 LocalMachine SOFTWARE\Microsoft\Windows\CurrentVersion\Run Notepad notepad.exe String
        SERVER2 LocalMachine SOFTWARE\Microsoft\Windows\CurrentVersion\Run Notepad notepad.exe String
        SERVER3 LocalMachine SOFTWARE\Microsoft\Windows\CurrentVersion\Run Notepad notepad.exe String
 
        Description
        -----------
        The command uses the Get-Content cmdlet to get the server names from a text file.
        It Sets or Creates a registry String value named Notepad on three remote computers.
        By default, the caller is prompted to confirm each action. To override confirmations, the Force Switch parameter is specified.
        By default, the command doesn't return any objects back. To get the values objects, specify the PassThru Switch parameter.
         
    .OUTPUTS
        PSFanatic.Registry.RegistryValue (PSCustomObject)
 
    .NOTES
        Author: Shay Levy
        Blog : http://blogs.microsoft.co.il/blogs/ScriptFanatic/
         
    .LINK
        http://code.msdn.microsoft.com/PSRemoteRegistry
 
    .LINK
        Get-RegString
        Get-RegValue
        Remove-RegValue
        Test-RegValue
    #>

    
    
    [OutputType('PSFanatic.Registry.RegistryValue')]
    [CmdletBinding(SupportsShouldProcess=$true,ConfirmImpact='High',DefaultParameterSetName="__AllParameterSets")]
                    
    param( 
        [Parameter(
            Position=0,
            ValueFromPipeline=$true,
            ValueFromPipelineByPropertyName=$true,
            HelpMessage="An array of computer names. The default is the local computer."
        )]        
        [Alias("CN","__SERVER","IPAddress")]
        [string[]]$ComputerName="",        
        
        [Parameter(
            Position=1,
            ValueFromPipelineByPropertyName=$true,
            HelpMessage="The HKEY to open, from the RegistryHive enumeration. The default is 'LocalMachine'."
        )]
        [ValidateSet("ClassesRoot","CurrentUser","LocalMachine","Users","PerformanceData","CurrentConfig","DynData")]
        [string]$Hive="LocalMachine",

        [Parameter(
            Mandatory=$true,
            Position=2,
            ValueFromPipelineByPropertyName=$true,
            HelpMessage="The path of the subkey to open or create."
        )]
        [string]$Key,

        [Parameter(
            Mandatory=$true,
            Position=3,
            ValueFromPipelineByPropertyName=$true,
            HelpMessage="The name of the value to set."
        )]
        [string]$Value,

        [Parameter(
            Mandatory=$true,
            Position=4,
            HelpMessage="The data to set the registry value."
        )]
        [string]$Data,
        
        [switch]$Force,
        [switch]$Ping,
        [switch]$PassThru
    ) 
    

    process
    {
     
            Write-Verbose "Enter process block..."
        
        foreach($c in $ComputerName)
        {    
            try
            {                
                if($c -eq "")
                {
                    $c=$env:COMPUTERNAME
                    Write-Verbose "Parameter [ComputerName] is not present, setting its value to local computer name: [$c]."
                    
                }
                
                if($Ping)
                {
                    Write-Verbose "Parameter [Ping] is present, initiating Ping test"
                    
                    if( !(Test-Connection -ComputerName $c -Count 1 -Quiet))
                    {
                        Write-Warning "[$c] doesn't respond to ping."
                        return
                    }
                }

                
                Write-Verbose "Starting remote registry connection against: [$c]."
                Write-Verbose "Registry Hive is: [$Hive]."
                $reg = [Microsoft.Win32.RegistryKey]::OpenRemoteBaseKey([Microsoft.Win32.RegistryHive]$Hive,$c)    

                Write-Verbose "Open remote subkey: [$Key] with write access."
                $subKey = $reg.OpenSubKey($Key,$true)
                
                if(!$subKey)
                {
                    Throw "Key '$Key' doesn't exist."
                }                

                if($Force -or $PSCmdlet.ShouldProcess($c,"Set Registry String Value '$Hive\$Key\$Value'"))
                {                    
                    Write-Verbose "Parameter [Force] or [Confirm:`$False] is present, suppressing confirmations."
                    Write-Verbose "Setting value name: [$Value]"
                    $subKey.SetValue($Value,$Data,[Microsoft.Win32.RegistryValueKind]::String)
                }    
                
                
                if($PassThru)
                {                    
                    Write-Verbose "Parameter [PassThru] is present, creating PSFanatic registry custom objects."
                    Write-Verbose "Create PSFanatic registry value custom object."
                    
                    $pso = New-Object PSObject -Property @{
                        ComputerName=$c
                        Hive=$Hive
                        Value=$Value
                        Key=$Key
                        Data=$subKey.GetValue($Value)
                        Type=$subKey.GetValueKind($Value)
                    }

                    
                    Write-Verbose "Adding format type name to custom object."
                    $pso.PSTypeNames.Clear()
                    $pso.PSTypeNames.Add('PSFanatic.Registry.RegistryValue')
                    $pso                
                }                
                
                Write-Verbose "Closing remote registry connection on: [$c]."
                $subKey.close()
            }
            catch
            {
                Write-Error $_
            }
        } 
        
        Write-Verbose "Exit process block..."
    }
}