Announcement

Collapse
No announcement yet.

Admin Passwords

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • Admin Passwords

    hi,

    i need to change administrator passwords on more servers 2003(they all have domains for each other but the same dhcp) in the same time is that even possible, because i now need to enter each server when i need change passwords.ty

  • #2
    Re: Admin Passwords

    Do you want to change local admin passwords, or domain admin passwords, or both? Is there more than one domain? Do you have the current password(s)?
    ** Remember to give credit where credit is due and leave reputation points where appropriate **

    Comment


    • #3
      Re: Admin Passwords

      every server has his own domain,i have all passwords and i need to change domain administrator

      Comment


      • #4
        Re: Admin Passwords

        if server can reboot , then you can add in logon script,

        - Call to it "password.vbe" from logon script.
        - Group Policy start up script (Computer Configuration -> Windows
        Settings -> Scripts -> Startup).

        else

        you can use script

        http://forums.techarena.in/windows-2...ry/1000859.htm

        =========
        Option Explicit
        Dim strComputer, objAdmin, strPassword

        strPassword = "xzy213q"
        strComputer = "west241"
        Set objAdmin = GetObject("WinNT://" & strComputer & "/administrator,user")
        objAdmin.SetPassword strPassword
        =========
        To read a text file of computer NetBIOS names you could use code similar to:
        ==========
        Option Explicit
        Dim strComputer, strPassword, objAdmin, strFile, objFSO, objFile
        Const ForReading = 1

        strPassword = "xzy213q"

        ' Open text file of computer names.
        strFile = "c:\scripts\computers.txt"
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        Set objFile = objFSO.OpenTextFile(strFile, ForReading)

        ' Read the file.
        Do Until objFile.AtEndOfStream
        strComputer = Trim(objFile.ReadLine)
        ' Skip blank lines.
        If (strComputer <> "") Then
        ' Bind to local Administrator user on remote computer.
        ' Trap error if computer not available.
        On Error Resume Next
        Set objAdmin = GetObject("WinNT://" & strComputer _
        & "/administrator,user")
        If (Err.Number <> 0) Then
        Wscript.Echo "Unable to connect to " & strComputer
        End If
        On Error GoTo 0
        ' Reset password.
        objAdmin.SetPassword strPassword
        End If
        Loop
        objFile.Close
        =========


        or

        Use PsPasswd v1.22 tool, you can download from below link .

        Introduction
        Systems administrators that manage local administrative accounts on multiple computers regularly need to change the account password as part of standard security practices. PsPasswd is a tool that lets you change an account password on the local or remote systems, enabling administrators to create batch files that run PsPasswd against the computers they manage in order to perform a mass change of the administrator password.



        Installation
        Just copy PsPasswd onto your executable path, and type "pspasswd" with the command-line syntax shown below..



        Using PsPasswd
        You can use PsPasswd to change the password of a local or domain account on the local or a remote computer.

        usage: pspasswd [[\\computer[,computer[,..] | @file [-u user [-p psswd]]] Username [NewPassword]

        computer Perform the command on the remote computer or computers specified. If you omit the computer name the command runs on the local system, and if you specify a wildcard (\\*), the command runs on all computers in the current domain.
        @file Run the command on each computer listed in the text file specified.
        -u Specifies optional user name for login to remote computer.
        -p Specifies optional password for user name. If you omit this you will be prompted to enter a hidden password.
        Username Specifies name of account for password change.
        NewPassword New password. If ommitted a NULL password is applied.


        http://technet.microsoft.com/en-us/s.../bb897543.aspx

        Comment

        Working...
        X