Здравствуйте, bo, Вы писали:
bo>Как с сервера (2k Server) поменять пароли локальных уч. записей "Администратор" на рабочих станциях под управлением Win 2k (например, с помощью групповых политик)?
Скриптом. Типа такого (не тестировал ибо сегодня негде):
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, Location from 'LDAP://DC=yourdomain,DC=ru' " _
& "where objectClass='computer'"
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Timeout") = 30
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
objCommand.Properties("Cache Results") = False
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
strComputer = objRecordSet.Fields("Name").Value
Set objUser = GetObject("WinNT://" & strComputer & "/Администратор, user")
objUser.SetPassword "testpassword"
objUser.SetInfo
objRecordSet.MoveNext
Loop
Если в сети компов больше 1000 надо будет увеличивать PageSize.
<< RSDN@Home 1.1.4 beta 3.201 >>