Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

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

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

1 2 3 Следующая > Последняя »
Ответить
Настройки темы
Централизованно меняем пароли локального системного администратора

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


Сообщения: 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

 

Ветеран


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

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

XS BAP allows you to import or manually enter each computer you want to manage

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

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

Отправлено: 16:19, 09-04-2009 | #2



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

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


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


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

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

Цитата petro89:
Централизованно меняем пароли локального системного администратора »
меняем в домене ??????????

Отправлено: 16:23, 09-04-2009 | #3


Ветеран


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

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

in your domain safely and securely.
Лень прочитать аннотацию?

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

Отправлено: 16:27, 09-04-2009 | #4


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


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

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

если домен, тогда политикой меняем имя локального админа на любое другое типа admin
и батник в заугузку net eser admin 12345 и все
это по-моему самый простой способ

Цитата victor111:
net eser admin 12345 »
извеняюсь
net user admin 12345

Отправлено: 16:41, 09-04-2009 | #5


Ветеран


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

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

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

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

Отправлено: 16:51, 09-04-2009 | #6


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


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

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

Цитата monkkey:
Да, конечно, и все пользователи знают пароль локального администратора. »
с чего это вдруг они знают
батник применяется групповыми политиками !!!!!!!!!!!!!!

Отправлено: 17:02, 09-04-2009 | #7


ИО Капитана Очевидности


Contributor


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

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

А лучше так "@net user admin 12345", чтобы сама команда не выводилась.
И разрешить пользователям только запуск файла - без просмотра

-------
Самое совершенное оружие, которым забиты арсеналы богатых и процветающих наций, может легко уничтожить необразованного, больного, бедного и голодного. Но оно не может уничтожить невежество, болезнь, нищету и голод. (Фидель Кастро)

Почему всех осужденных за измену Родине при Сталине реабилитировали при Горбачёве по отсутствию состава преступления? Потому что при Горбачёве измену Родине перестали считать преступлением.

Отправлено: 07:51, 10-04-2009 | #8


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


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

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

Цитата El Scorpio:
А лучше так "@net user admin 12345", чтобы сама команда не выводилась.
И разрешить пользователям только запуск файла - без просмотра »
если делать в домене лучше батник поместить в сценарий запуска
применяется при входе и пользователь вообще ничего не увидит и не узнает
главное имя админа политикой поменять чтобы у всех одинаковое было
Это сообщение посчитали полезным следующие участники:

Отправлено: 08:21, 10-04-2009 | #9


Ветеран


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

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

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

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

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

1 2 3 Следующая > Последняя »


Компьютерный форум 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


« Предыдущая тема | Следующая тема »


 
Переход