How to sync user credentials?

Question

Data synchronization

Hello,
tell me if there are standard ways to solve the following problem.
Given, several independent peer-to-peer networks. On computers mostly Windows 7, found with Windows XP. All computers have the same user with the same password with administrative rights.
The task is to change the user's password on all computers, create a new user with a specific name, password and privileges.

Answer 1

pens or write a script add to the download Create a LocalAdm.vbs file, specify the password you need instead of "[email protected]"
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery ("Select * from Win32_UserAccount Where LocalAccount = True")
For Each objItem in colItems
If Left (objItem.SID , 6) = "S-1-5-" and Right(objItem.SID, 4) = "-500" Then
Set objUser = GetObject("WinNT://" & strComputer & "/" & objItem.name & " ,user")
objUser.SetPassword "[email protected]"
objUser.

Answer 2

Just for the solution of such problems also exist Active Directory domain services.