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

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

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

« Первая < Предыдущая 2 3 4
Ответить
Настройки темы
Централизованно меняем пароли локального системного администратора

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


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

 

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


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

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

Можно попробовать побаловаться с Microsoft Script Encoder.
http://www.microsoft.com/downloads/d...displaylang=en
Шифрование там простецкое, ключ как я понял - постоянный,
но от невооруженного взгляда новый пароль админа защитить - хватит.

Отправлено: 07:00, 16-07-2009 | #31



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

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


Старожил


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

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

Цитата victor111:
есть вариант такой
делаешь ГПО
батник с паролем помещаешь в политику старта компьютера.
а на вкладке безопасность добавляешь всех пользавателей и ставишь запрет
будет работать не знаю но попробовать надо »
мой пост №14 этой темы
все правильно, работать будет
1. запуск скрипта из политики компа
2. доступ на шару со скриптом, группе "*Компьютеры домена"
Это сообщение посчитали полезным следующие участники:

Отправлено: 13:31, 16-07-2009 | #32


Новый участник


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

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

Что то логова кипит уже ((
VBS скрипт не отрабатывает , батник простой работает
И хотел еще загнать скрипт с установкой msi пакетов тоже не идет
пишет отказано в доступе, никто не сталкивался с таким ?
Под админом все запускается локально на ура ((((

Отправлено: 15:27, 16-07-2009 | #33


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


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

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

Вложения
Тип файла: rar Архив WinRAR.rar
(10.1 Kb, 93 просмотров)

Вот кому надо читаем. нарыл из учебника + скрипт прилагается

Скрипт ChangeLocalPassword.wsf позволяет вам указывать один или несколько компьютеров. Чтобы применить этот скрипт для одного удаленного компьютера с именем Server А и изменить пароль для учетной записи Administrator, нужно использовать следующий код:
ChangeLocalPassword.wsf /computer:ServerA /user:Administrator / password: Новый_пароль
Вы можете также указать список компьютеров, содержащийся в текстовом файле. В каждой строке этого текстового файла указывается имя одного компьютера и никакой другой информации. Предполагая, что файл имеет имя C:\Computers.txt, нужно использовать следующий синтаксис: ChangeLocalPassword.wsf /list:C:\Computers.txt/user:Administrator /password:Новый_ пароль
И, наконец, вы можете указать целое подразделение (organizational" unit, OU) с учетными записями компьютеров. Если ваш домен содержит OU с именем West, то нужно использовать следующий синтаксис:
ChangeLocalPassword.wsf /containenwest /usenAdministrator / password: Новый_пароль
Отметим, что параметр /container будет действовать только в домене по умолчанию компьютера, на котором запускается этот скрипт. Иначе говоря, указанное OU должно находиться в том же домене, что и компьютер, на котором выполняется этот скрипт. Если указанное OU имеет вложенные OU, то вы можете также включить учетные записи их компьютеров с помощью одного дополнительного параметра:
ChangeLocalPassword.wsf /containenwest /recurse /usenAdministrator /password: Новый_пароль

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

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


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


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

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

нашел ошибки испраленое ниже

ChangeLocalPassword.wsf /container:west /user:Administrator / password: Новый_пароль

ChangeLocalPassword.wsf /container:west /recurse /user:Administrator /password: Новый_пароль

Отправлено: 17:18, 16-07-2009 | #35

« Первая < Предыдущая 2 3 4


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


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


 
Переход