**Simple** Change all loca admin pwords by AD OU

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Simple Change all loca admin pwords by AD OU

Logged in as: Guest

arrSession:exec spGetSession 2,16,49907

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> **Simple** Change all loca admin pwords by AD OU
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

**Simple** Change all loca admin pwords by AD OU - 7/24/2007 6:09:38 AM

DeepSkysUrGe

Posts: 8
Score: 0
Joined: 7/23/2007
Status: offline

Will change all local admin passwords in the provided organization group and report failures and successes. Good if you don't want to change local admin passwords network wide.

On Error Resume Next

Dim strComputer

Const ADS_SCOPE_SUBTREE = 2
Const ForWriting = 2

'---===Opens file to be edited===---
Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFile = objFSO.OpenTextFile("C:\changelog.txt", ForWriting)

'---===Creates a connection to the Active Directory Database with previous credentials===---
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand =   CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"

'---===Activates above connection and selects computers fromt the PassTest OU===---
Set objCommand.ActiveConnection = objConnection
objCommand.CommandText = "Select Name From 'LDAP://ou=YOUR ORGANIZATIONAL UNIT,dc=YOUR DOMAIN NAME,dc=com' WHERE objectCategory='computer'"

'---===Sets search options===---
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE

'---===Executes the SQL query and saves to a record set===---
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst

'---===Loops through all records in the set===---
Do Until objRecordSet.EOF
  strComputer = objRecordSet.Fields("Name").Value

Set objUser = GetObject("WinNT://" & strComputer & "/Administrator")
  
  '---===Checks to see if above line was executed, if so FAILED, if not password is changed===---
  If err <> 0 Then
      objFile.WriteLine ("<<<FAILED OPERATION:>>> " & strComputer)
  Else
      objUser.SetPassword "YOUR CHOSEN PASSWORD"
      objFile.WriteLine ("Successful: " & strComputer)
  End If
  err.clear
  objRecordSet.MoveNext
Loop

Make sure to create C:\changelog.txt before you run the script.