Change Local Administrator Password on 9000 WS via AD

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

http://www.vbskrypt.com/index.php?/a...Computers.html

That should help, or at least get you going in the right direction.

Rod

"loafclover" <loafclover@discussions.microsoft.com> wrote in message
news:C4777484-8010-4166-8E85-D737DC0B65C0@microsoft.com...
> 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

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" <loafclover@discussions.microsoft.com> wrote in message
> news:C4777484-8010-4166-8E85-D737DC0B65C0@microsoft.com...
> > 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
>
>
>

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" <loafclover@discussions.microsoft.com> wrote in message
news:6FC4779C-9F26-4126-B755-D606C5F67591@microsoft.com...
> 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" <loafclover@discussions.microsoft.com> wrote in message
>> news:C4777484-8010-4166-8E85-D737DC0B65C0@microsoft.com...
>> > 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
>>
>>
>>

This is a very common question in the AD news group. Look at cusrmgr.....

--
Cary W. Shultz
Roanoke, VA 24012
"loafclover" <loafclover@discussions.microsoft.com> wrote in message
news:C4777484-8010-4166-8E85-D737DC0B65C0@microsoft.com...
> 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