Ad
News

Microsoft releases free encrypted folder app

Published on July 10, 2006

Microsoft has released a free application that allows users to create an encrypted and password-protected folder. Microsoft Private Folder 1.0 works on Windows XP and Media Center Editions with Service Pack 2 and is meant to provide a consumer-level of protection. Read more

Finally, there are password-protected bullets

Published on June 27, 2006

Safety catches do not always prevent firearm accidents and even newfangled biometric guns, which check the identity of a user by their fingerprint, cannot stop thieves from using stolen ammunition in other weapons. Read more

Windows Live Local and Ask upgrade maps

Published on March 01, 2006

Along with the launch of the new Ask.com yesterday, the company introduced an upgraded mapping product that now looks very much like Google Local and Windows Live Local. Read more

Vonage starts offering free local traffic reports

Published on October 23, 2006

Vonage, an Internet telephone provider, is now offering free local traffic reports for their customers. By dialing 511 from a Vonage phone, customers in thirty areas will receive average speed and accident reports about the local freeways. Read more

Latest Reviews & Articles

Core i7: 4-Way CrossFire, 3-way SLI, Paradise?

Published on November 04, 2008

For the first time ever, gamers are being treated to a reasonably priced platform enabling the best that AMD and Nvidia have to offer. Is Core i7 a gamer’s nirvana or does the processor serve up more of the same? Read more

Editor's Corner: Overclocking Core i7

Published on November 04, 2008

After discovering Intel's Overspeed Protection in yesterday's first-look at Core i7's performance, we're back to set the record straight on the overclocking headroom of the flagship 965 Extreme and entry-level Core i7 920. Read more

Intel's Core i7: Blazing Fast, But Crippled O/C

Published on November 03, 2008

Core i7--previously referred to as Nehalem--requires new motherboards, coolers and memory. Its performance is compelling and means AMD is falling behind even further, but Intel is putting in some speed bumps that will impact overclocking enthusiasts. Read more

System Builder Marathon: Performance & Value

Published on October 31, 2008

Three dramatically different builds face off in a show of performance, defining the real value of each. Our mainstream system is designed to meet the needs of most users. Who should spend more and who can live with less? Read more

  Tom's Hardware Forums » Windows XP » change local admin password
 

change local admin password




Word :   Username :  
 
Bottom
Author
 Thread : change local admin password
 
Profile: stranger
More Information

Archived from groups: microsoft.public.windowsxp.security_admin (More info?)

 

I want to change the local admin password on all the computers in our
company. I remember there is a tool to do it in Windows 2000 (Resource
Kit?). Can someone tell me how I can do it?

Related Product

Register or log in to remove.

More Information

Archived from groups: microsoft.public.windowsxp.security_admin (More info?)

 

Tiffany wrote:

> I want to change the local admin password on all the computers
> in our company. I remember there is a tool to do it in Windows
> 2000 (Resource Kit?). Can someone tell me how I can do it?
Hi,

If the computers are in an Active Directory domain:

You could do it in a computer startup script (with a GPO) that runs
as part of the boot up process (before the user logs in). It runs
under the system context and has admin rights.

To avoid users being able to read the script where the password is
stored, grant read access only for the AD group "Domain Computers"
to the script file.

Here is a VBScript that does the job (it will find the builtin
administrator account regardless of it's name):

'--------------------8<----------------------

sNewPassword = "testpassword"

Set oWshNet = CreateObject("WScript.Network" )
sComputer = oWshNet.ComputerName
sAdminName = GetAdministratorName

On Error Resume Next
Set oUser = GetObject("WinNT://" & sComputer & "/" & sAdminName & ",user" )
oUser.SetPassword sNewPassword
oUser.SetInfo
On Error Goto 0


Function GetAdministratorName()

Dim sUserSID, oWshNetwork, oUserAccount

Set oWshNetwork = CreateObject("WScript.Network" )
Set oUserAccounts = GetObject( _
"winmgmts://" & oWshNetwork.ComputerName & "/root/cimv2" ) _
.ExecQuery("Select Name, SID from Win32_UserAccount" _
& " WHERE Domain = '" & oWshNetwork.ComputerName & "'" )

On Error Resume Next
For Each oUserAccount In oUserAccounts
If Left(oUserAccount.SID, 9) = "S-1-5-21-" And _
Right(oUserAccount.SID, 4) = "-500" Then
GetAdministratorName = oUserAccount.Name
Exit For
End if
Next
End Function
'--------------------8<----------------------


--
torgeir, Microsoft MVP Scripting and WMI, Porsgrunn Norway
Administration scripting examples and an ONLINE version of
the 1328 page Scripting Guide:
http://www.microsoft.com/technet/s [...] fault.mspx


  Tom's Hardware Forums » Windows XP » change local admin password

Go to:
 

Google Ads