That would do one at a time manually.
Try this
sPassword = "" ' put your static password here
sComputer = "."
Set oUser = GetObject("WinNT://" & sComputer & "/Administrator, user")
WScript.Echo "changing the password on " & sComputer & " to " & sPassword
oUser.SetPassword "'" & sPassword & "'"
oUser.SetInfo
If (err.Number <> 0) Then
MsgBox Err.Description,,"Error!"
Else
MsgBox "Password Change is complete",,"Completed"
End if
--
Rodney Buike
MVP Windows Server - Directory Services
http://thelazyadmin.com
"loafclover" <(E-Mail Removed)> wrote in message
news:6FC4779C-9F26-4126-B755-(E-Mail Removed)...
> Hi Rodney,
> Many thanks for your reply. I have had a look and have a
> question for you. Would this be an automated process or manual as in do I
> have to type the computer name individually for each client machine that
> needs local admin password resetting ?
>
> What I would ideally like to do is change local admin password on all the
> 9000 clients by implementing a group policy which will run this script.
>
> Please advise.
>
> Thanks.
>
>
> "Rodney Buike [MVP - Directory Services]" wrote:
>
>> http://www.vbskrypt.com/index.php?/a...Computers.html
>>
>> That should help, or at least get you going in the right direction.
>>
>> Rod
>>
>> "loafclover" <(E-Mail Removed)> wrote in message
>> news:C4777484-8010-4166-8E85-(E-Mail Removed)...
>> > We need to change local administrator password on 9000 workstartion and
>> > was
>> > wondering if this can be done by creating a script and deploying it by
>> > AD.
>> >
>> > Can someone please help and advise. Any help would be grately
>> > appreciated.
>> >
>> > Thanks
>>
>>
>>