Rename computer

function Set-ComputerName {
	param(	[switch]$help,
		[string]$CurrentPCName=$(read-host "Please specify the current name of the computer"),
		[string]$computerName=$(read-host "Please specify the new name of the computer"))
			
	$usage = "set-ComputerName -CurrentPCname CurrentName -computername AnewName"
	if ($help) {Write-Host $usage;break}
	
	$computer = Get-WmiObject Win32_ComputerSystem -CurrentPCname CurrentName -computername $currentPCName
	$computer.Rename($computerName)
	}