Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Серверные продукты Microsoft » Microsoft Windows NT/2000/2003 » Централизованно меняем пароли локального системного администратора

Ответить
Настройки темы
Централизованно меняем пароли локального системного администратора

Пользователь


Сообщения: 108
Благодарности: 3

Профиль | Отправить PM | Цитировать


НА сайте Системный администратор была статья за 06 год http://www.samag.ru/source/source6(43).txt
Централизованно меняем пароли локального системного администратора
от Ивана Коробко
Вот код
читать дальше »


Set objArgs=Wscript.Arguments
If Wscript.Arguments.Count=1 Then
If strcomp(ucase(objArgs(0)),UCase("-Domain"))=0 Then
mode=1
End If

If strcomp(ucase(objArgs(0)),UCase("-Group"))=0 Then
mode=2
End If

If strcomp(ucase(objArgs(0)),UCase("-PC"))=0 Then
mode=3
End If

Else
mode=0
End If


Select Case mode
Case 0
txt="ТЕКСТ СПРАВКИ"
WScript.Echo txt

Case 1


End Select


' Определение списка локальных пользователей
' на компьютере
Set obj_user= getobject("WinNT://" & pcname)
obj_user.filter = Array("user")
For Each user in obj_user
user_name= user_name +cstr(user.Name)
Next

' Переименование русского (*)Администратор(*)
' в латинское

If StrComp (UCase(user_name), UCase("Администратор"))=0 Then
Set obj_user2= getobject("WinNT://" & pcname&"/Администратор,User")
Set obj_user3= getobject("WinNT://" & pcname)
Set q=obj_user3.movehere(obj_user2.adspath,"Administrator")
Set obj_user2 = Nothing
Set obj_user3 = Nothing
End If


Set obj_user4= getobject("WinNT://" & pcname&"/Administrator,User")
Call obj_user4.setpassword(PWD)
Set obj_user4 = Nothing


Dim PWD
PWD = "987654321"

Select Case mode


Case 3

PWD=CStr(inputbox("Введите новый пароль локального администратора",,PWD))

PCNAME = "1230PC"
PCNAME=CStr(inputbox("Введите имя рабочей станции",,PCNAME))

' вызов функции изменения имен и назначения нового пароля
make pcname

End Select


Dim PWD
PWD = "987654321"
Select Case mode


Case 2

pwd=CStr(inputbox("Введите новый пароль локального администратора",,PWD))
GROUPNAME = "PC$_group"

GROUPNAME=CStr(inputbox("Введите имя группы, включая префикс",,GROUPNAME))

Set objSysInfo = CreateObject("ADSystemInfo")
domain=cstr(objSysInfo.DomainShortName)
Set obj_group= getobject("WinNT://" & domain &"/"&GROUPNAME)
For Each pc in obj_group.members
p=cstr(pc.name)
pcname=Left(p,Len(p)-1)
make pcname
Next
Set obj_group= Nothing


End Select


Set objSysInfo = CreateObject("ADSystemInfo")
domain=cstr(objSysInfo.DomainShortName)


Case 1


Set obj_comp = getobject("WinNT://" & domain)
obj_comp.filter = Array("Computer")

For Each Computer in obj_comp
pcname=cstr(Computer.Name)
make pcname
Next
Set obj_comp= Nothing



Set FSO=CreateObject("Scripting.FileSystemObject")
Set MyFile1 = fso.CreateTextFile("c:\"+report+".htm", True, TRUE)

MyFile1.WriteLine(data)
MyFile1.Close


Path=c:\report.htm

set oIE=Wscript.CreateObject("InternetExplorer.Application")
With oIE
.Left=100
.Top=100
.Height=400
.Width=400
.MenuBar=0
.Toolbar=0
.Statusbar=0
.Resizable=1
End With
oIE.Navigate Path
oIE.Visible=1

Запустил "pass.vbs -pc." Но что-то не работает вовсе. Ну к примеру в коде в некоторых местах стоят .... компилятор vbs ругается на них. Убрал. Потом стал ругаться на строку 73, символ 5. Имя переопределено. А это Dim PWD. Помогите разобраться со скриптом.

Отправлено: 14:16, 09-04-2009

 

Аватара для Telepuzik

Ветеран


Сообщения: 3722
Благодарности: 747

Профиль | Отправить PM | Цитировать


Можно воспользоваться утилитой psexec
Создать файлик содержащий имена компьютеров на которых необходимо сменить пароль.
С рабочей машины администратора с правами Администратора домена выполнить команду:
psexec @c:\comp.txt net user Администратор 12345678

-------
По'DDoS'ил и бросил :-)

Это сообщение посчитали полезным следующие участники:

Отправлено: 13:53, 10-04-2009 | #11



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Пользователь


Сообщения: 75
Благодарности: 4

Профиль | Отправить PM | Цитировать


Цитата monkkey:
Пользователи НЕ СМОГУТ выполнить этот сценарий »
если ты администратор домена имеешь доступ к ActiveDirectory
тогда создаешь политику которая меняет имя локального админа и в этой политике указываешь батник,
который меняет пароль этого админа
повторяю для тех кто в танке !!!!!! пользователь в этом случае не должен иметь никаких прав и
вообще не увидит и не узнает про то что на его компе изменилась учека админа и его пароль

Цитата monkkey:
Не считайте себя умнее создателей скриптов и программ для смены пароля администратора »
я не умный, я просто администрирую сервера и знаю в отличии от некоторых что можно сделать с помощью
групповых политик. мануал читать надо чаще .

Отправлено: 18:10, 10-04-2009 | #12


Пользователь


Сообщения: 75
Благодарности: 4

Профиль | Отправить PM | Цитировать


Изображения
Тип файла: jpg 1.JPG
(63.2 Kb, 103 просмотров)
Тип файла: jpg 2.JPG
(63.6 Kb, 98 просмотров)

на скринах выдно по-моему куда надо ложить батник

Отправлено: 18:24, 10-04-2009 | #13


Старожил


Сообщения: 186
Благодарности: 38

Профиль | Отправить PM | Цитировать


victor111, одно но! что увидит пользователь набрав rsop.msc ?
так что, как минимум, лучше батник хранить на сетевом ресурсе НЕДОСТУПНОМ пользователю, а доступному только учетке компа. и соответственно чтоб в скрипте было чтот вроеде этого
cmd /c \\srv\privat\batnik.cmd
а не так
net.exe user Administrator superpuperpass
Это сообщение посчитали полезным следующие участники:

Отправлено: 12:49, 13-04-2009 | #14


Ветеран


Сообщения: 4900
Благодарности: 496

Профиль | Сайт | Отправить PM | Цитировать


victor111,
Старайтесь не нервничать и писать по-русски ( вИдно и класть ).
Спасибо за скриншоты. Вы открыли мне тайну.

-------
Если сообщение оказалось полезным, нажмите, пожалуйста, соответствующую кнопку.


Отправлено: 15:01, 13-04-2009 | #15


Пользователь


Сообщения: 75
Благодарности: 4

Профиль | Отправить PM | Цитировать


Цитата Virtual:
одно но! что увидит пользователь набрав rsop.msc »
а почему пользователь должен это набирать???
можно вообще запретить пользователю истьльзовать консоль с помощью политик
Цитата Virtual:
лучше батник хранить на сетевом ресурсе НЕДОСТУПНОМ пользователю »
ну если ты это сделаешь он точно не применится
я не думаю что все пользователи такие умные в этом деле, им по-моему есть чем заниматься на рабочих местах

Цитата monkkey:
Старайтесь не нервничать и писать по-русски »
просто исправлять неохота было

Отправлено: 16:01, 13-04-2009 | #16


Пользователь


Сообщения: 75
Благодарности: 4

Профиль | Отправить PM | Цитировать


Virtual, могу сказать только одно если пользователь просто работает то он вообже ничего не увидит и не узнает про смену учетки и пароля
ну а если среди пользователей юные хакеры это тоже не проблема
1. запрещаем запуск всего что связано с администрированием
2. вход в систему только после инициализации сети
3. создаем политику кто может быть админом на клиентских машинах
4. запретить вход с локальной учеткой, только с доменной

в итоге даже при сбросе пароля админа (при загрузке с диска) вход без сети невозможен а если сеть работает должны сработать групповые политики и пароль снова и снова не будет давать хулиганить всяким разным

можно даже в батнике пароль иногда менять и он будет меняться на всех машинах

Отправлено: 16:16, 13-04-2009 | #17


Старожил


Сообщения: 186
Благодарности: 38

Профиль | Отправить PM | Цитировать


victor111,
Цитата:
Цитата Virtual:лучше батник хранить на сетевом ресурсе НЕДОСТУПНОМ пользователю » ну если ты это сделаешь он точно не применится я не думаю что все пользователи такие умные в этом деле, им по-моему есть чем заниматься на рабочих местах
фигасе еще как применится. сам так рулю, и давно,
как раз на твоих скриншотах это хорошо видно, скрипты выполнятся от 2х пользователей
1 скрин это kompname$ //и выполнится независимо залогинится кто нить из живых или нет, тоесть тут логинится комп в домен
2 скрин это username //скрипт аналог авторана для пользователя.

Цитата victor111:
я не умный, я просто администрирую сервера и знаю в отличии от некоторых что можно сделать с помощью
групповых политик. мануал читать надо чаще . »

не в обиду но просто неудержался тебя_ж процитировать

Отправлено: 08:47, 14-04-2009 | #18


Пользователь


Сообщения: 75
Благодарности: 4

Профиль | Отправить PM | Цитировать


Цитата Virtual:
лучше батник хранить на сетевом ресурсе НЕДОСТУПНОМ пользователю »
ну на кой ресурс должен быть сетевым если он не доступен ?????????
я вообще батники закидываю в папки где лежат сами политики

Отправлено: 15:24, 15-04-2009 | #19


Старожил


Сообщения: 186
Благодарности: 38

Профиль | Отправить PM | Цитировать


victor111,
через строчку читаем?

Цитата Virtual:
НЕДОСТУПНОМ пользователю, а доступному только учетке компа »
Это сообщение посчитали полезным следующие участники:

Отправлено: 06:58, 17-04-2009 | #20



Компьютерный форум OSzone.net » Серверные продукты Microsoft » Microsoft Windows NT/2000/2003 » Централизованно меняем пароли локального системного администратора

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Разное - Изменение пароля локального администратора Muero Microsoft Windows 2000/XP 6 10-07-2009 13:08
Дать пользователю прова локального администратора. YDen Microsoft Windows NT/2000/2003 14 08-06-2009 12:53
Доступ - [решено] Выполнение скрипта от имени локального администратора FunkyByte Microsoft Windows 2000/XP 1 11-09-2008 11:15
[решено] Восстановление пароля локального администратора human Microsoft Windows NT/2000/2003 187 24-07-2007 16:40
Защита от взлома пароля локального администратора AlexYk Microsoft Windows NT/2000/2003 7 19-02-2004 10:25




 
Переход