Cambio de contraseñas locales de administrador

El siguiente script muestra como cambiar la contraseña del administrador local en varios equipos a la vez:

$erroractionpreference = "SilentlyContinue"
$Equipos=@("PC1","PC2","localhost")

foreach ($equipo in $Equipos)
{

Test-Connection $equipo -Count 1 >$null
if ($? -eq $true)
{
$admin=[adsi]("WinNT://" + $equipo + "/administrador, user")
$admin.psbase.invoke("SetPassword", "micontraseña")
if ($? -eq $true){ Write-Host "Equipo $equipo. Contraseña cambiada." -Foreground Green}
else { Write-Host "Equipo $equipo. No se ha podido cambiar la contraseña." -Foreground Red}
}
else{ Write-Host "Equipo $equipo no accesible" -Foreground Red }


}