Set local admin password

I would like to change all XP local admins password to the same on the
network. I have a list of computers in a text file that I would like to
point to and then return to a file if it was successful or not.

Anyone have any ideas?

Mike

this script will work, just modify it to loop through a text file and add
error handling to track successes and changes.

<script>
On Error Resume Next

Dim oWshNet, sComputerName, sLocalAdmin

' get computer name for local computer
Set oWshNet = CreateObject("WScript.Network")
sComputerName = oWshNet.ComputerName

' Get Local Administrator Name
sLocalAdmin = GetAdministratorName(sComputerName)

' Call sub
ChPW

Sub ChPW()

' connect to user object
Set oUser = GetObject("WinNT://" & sComputerName & "/" _
& sLocalAdmin & ",user")

' Change PW
oUser.SetPassword sNewPassword
oUser.SetInfo

End Sub

Function GetAdministratorName(sComputerName)
Dim sUserSID, oWshNetwork, oUserAccount

Set oUserAccounts = GetObject( _
"winmgmts:{impersonationLevel=impersonate}!//" _
& sComputerName & "/root/cimv2").ExecQuery( _
"Select Name, SID from Win32_UserAccount WHERE Domain = '" _
& sComputerName & "'")

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
</script>

"Mike" wrote:

> I would like to change all XP local admins password to the same on the
> network. I have a list of computers in a text file that I would like to
> point to and then return to a file if it was successful or not.
>
> Anyone have any ideas?
>
> Mike