Re: Resetting Local Admin password
From: JP Martinez (pierre_at_perutek.com)
Date: 09/08/04
- Next message: MFor: "RE: Adding a domain admin account to local admin groups"
- Previous message: AOA West Scripting Kiddie: "WSHShell.Exec stops after 9kb data in StdOut ?"
- In reply to: Stuart Langston: "RE: Resetting Local Admin password"
- Messages sorted by: [ date ] [ thread ]
Date: Wed, 8 Sep 2004 10:49:27 -0400
Thanks - I will give it a try.
-Pierre
"Stuart Langston" <StuartLangston@discussions.microsoft.com> wrote in
message news:CF8F5A45-4003-499C-B561-DDE94E00DFA8@microsoft.com...
> This should work. The list of machines comes from the workstation.lst
file.
> Obviously replace the administrator account name and password to your
> requirements
>
> Set objFSO = CreateObject("Scripting.FileSystemObject")
> Set oShell =CreateObject("Wscript.Shell")
> Set objFile = objFSO.OpenTextFile("c:\password\workstation.lst", 1)
> Do Until objFile.AtEndofStream
> strComputer = objFile.Readline
> Err.Clear
> Wscript.Echo "Processing: " & strComputer
> On Error Resume Next
> Set objUser = GetObject("WinNT://" & strComputer & "/Administrator,user")
> objUser.SetPassword "requiredpassword"
> objUser.SetInfo
> Loop
>
>
> "JP Martinez" wrote:
>
> > Hi I would like to be able to reset the local admin password in various
> > remote file servers and workstations in the Enterprise.
> >
> > Could someone point me to a sample script to accomplish this?
> >
> > Any help will be appreciated
> >
> > -JPierre
> >
> >
> >
- Next message: MFor: "RE: Adding a domain admin account to local admin groups"
- Previous message: AOA West Scripting Kiddie: "WSHShell.Exec stops after 9kb data in StdOut ?"
- In reply to: Stuart Langston: "RE: Resetting Local Admin password"
- Messages sorted by: [ date ] [ thread ]
Relevant Pages
|
