Re: Как поменять пароль локального администратора?
От: Sergeant_BY Беларусь  
Дата: 31.10.04 09:25
Оценка: 4 (2)
Здравствуйте, 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 >>
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.