AD 환경에서 도메인 멤버 서버 또는 Windows XP Pro, Vista 등의 멤버 클라이언트의 로컬 Administrator 암호가 대부분 쉽게 되어 있거나 암호를 알 수 없는 경우가 있습니다. 이런 경우 한번에 바꿀수 있다면, 당연히 하나 하나 바꾸는 것 보다는 훨씬 빠르고 암호를 관리하기 쉬워지겠지요.
아래의 스크립트를 통해서 모든 로컬 administrator 의 암호를 일괄적으로 바꿀 수 있습니다.
이 스크립트를 통하여 administrator 가 아닌 다른 계정의 패스워드도 일괄 변경이 가능 합니다.
n Error Resume Next
Const ADS_SCOPE_SUBTREE = 2
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
objCommand.CommandText = _
"Select Name From 'LDAP://DC=microsoft,DC=com' Where objectClass='computer'"
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
strComputer = objRecordSet.Fields("Name").Value
Set objUser = GetObject("WinNT://" & strComputer & "/Administrator")
objUser.SetPassword "변경할 패스워드"
objRecordSet.MoveNext
Loop
이올린에 북마크하기
이올린에 추천하기
