Update Registry Computername with all CAPS

allCAPSRegistryUpdate.ps1

$path1 = "HKLM:\SYSTEM\ControlSet001\Control\ComputerName\ActiveComputerName"
$path2 = "HKLM:\SYSTEM\ControlSet001\Control\ComputerName\ComputerName"
$path3 = "HKLM:\SYSTEM\ControlSet002\Control\ComputerName\ComputerName"

$paths = @($path1,$path2,$path3)

foreach ($path in $paths) {
    Set-ItemProperty -Path $path -Name ComputerName -Value $env:COMPUTERNAME.ToUpper()
    (Get-ItemProperty -Path $path -Name ComputerName).ComputerName
}