# encoding: ascii
# api: powershell
# title: Set-LocalPassword
# description: Get-OUComputerNames
# version: 0.1
# type: function
# author: Nathan Hartley
# license: CC0
# x-poshcode-id: 547
# x-derived-from-id: 576
# x-archived: 2016-03-23T06:31:24
# x-published: 2009-08-22T19:03:00
#
# usage : [computerName1,computerName2,... | ] ./Set-LocalPassword.ps1 [-user] <userName> [-password] <password> [[-computers] computerName1,computerName2,...]
# returns : Sets local account passwords on one or more computers
#
param(
[switch]$Help
, [string] $User
, [string] $Password
, [string[]] $ComputerNames = @()
)
$usage = @'
Get-OUComputerNames
usage : [computerName1,computerName2,... | ] ./Set-LocalPassword.ps1 [-user] <userName> [-password] <password> [[-computers] computerName1,computerName2,...]
returns : Sets local account passwords on one or more computers
author : Nathan Hartley
'@
if ($help) {Write-Host $usage;break}
$ComputerNames += @($input)
if (! $ComputerNames)
{
$ComputerNames = $env:computername
}
function ChangePassword ([string] $ChangeComputer, [string] $ChangeUser, [string] $ChangePassword) {
"*** Setting password for $ChangeComputer/$ChangeUser"
& {
$ErrorActionPreference="silentlycontinue"
([ADSI] "WinNT://$computer/$user").SetPassword($password)
if ($?) { " Success" }
else { " Failed: $($error[0])" }
}
}
ForEach ($computer in $ComputerNames) {
ChangePassword $computer $user $password
}