» Автоматизация администрирования. Часть 2

а не посоветуйете ли скриптик
по отключниею пользователей из списка.
не домен.

Ребята, а subinacl'ом можно снять галку "Наследовать разрешения от родительских объектов"?

Добавлено:
mistx

Цитата:

просмотрел справку по psexec.exe, что-то не нашел как изменить дисплей.
Какой именно синтаксис у нее?

дисплей ты меняешь первой утилитой (или любой другой), а выполняешь команду на удалённой машине с помощью второй.

cluster
Наследование обычным cacls.exe можно снять, если первый раз его без ключа /e выполнить

Привeт,
пoмoгитe плиз, с кoдoм:

Option Explicit
Dim aShell
Dim aEnv

Set aShell=CreateObject("Wscript.Shell")
Set aEnv=aShell.Environment("Process")
aShell.Run "cmd.exe /k runas.exe /user:administrator прoгрaммa.cmd"
Wscript.Sleep 50
aShell.AppActivate aEnv("SystemRoot") & "\system32\runas.exe"
Wscript.Sleep 50
aShell.SendKeys "пaрoль_aдминистрaтoрa" & "~"
Wscript.Sleep 500

Set aShell=Nothing
Set aEnv=Nothing

зaпускaeтсa прoгрaммa.cmd с прaвaми aдминистрaтoрa.

Кaк oтфильтрoвaть oшибку в runas, eсли ввeдeн нeпрaвильный пaрoль?
Дeлo в тoм чтo сущeствуeт нeскoлькo пaрoлeй, нa рaзных кoмпютeрaх.

Зaдaчa: eсли выдaст oшибку o ввeдeннoм нeпрaвильнoм пaрoлe, нaдo пeрeпрoбoвaть другoй.

спс, всeм зaрaнee

P.S.: пaрoль будeт шифрoвaться, мнe прoстo нужнo пoнять кaк oтфильтрoвaть oшибку runas:
Attempting to start cmd as user "кoмпютeр\юсeрнeйм
RUNAS ERROR: Unable to run - cmd
1326: Logon failure: unknown user name or bad password.

Как сделать чтобы винды обновлялись по лок сети, а не через инет.

alexipp

Цитата:

обновлялись по лок сети

Это имелось в виду через WSUS?

Можно так:
[more]
REM останавливаем службу
net stop wuauserv

REM проверка флажка, который указывает что сброс идентификатора уже был
reg query HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate /v panda > C:\wutemp.tmp
Findstr "0x1" "c:\wutemp.tmp"
If %Errorlevel% ==0 Goto SetWU

REM установка флажка и сброс идентификатора
REM просто идентификатор иногда может быть одинаковым (машины из образа ставились итд)
REM и тогда WSUS-сервер не различит их
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate /v panda /t REG_DWORD /d 0x00000001 /f
reg delete HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate /v AccountDomainSid /f
reg delete HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate /v SusClientId /f
reg delete HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate /v PingID /f

REM собственно добавление ключей
:SetWU
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate /f
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate /v WUServer /t REG_SZ /d http://wsus.server.domain /f
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate /v WUStatusServer /t REG_SZ /d http://wsus.server.domain /f

reg add HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU /f
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU /v AutoInstallMinorUpdates /t REG_DWORD /d 0x00000001 /f
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU /v NoAutoRebootWithLoggedOnUsers /t REG_DWORD /d 0x00000001 /f
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU /v NoAUShutdownOption /t REG_DWORD /d 0x00000001 /f
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU /v NoAUAsDefaultShutdownOption /t REG_DWORD /d 0x00000001 /f
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU /v NoAutoUpdate /t REG_DWORD /d 0x00000000 /f
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU /v AUOptions /t REG_DWORD /d 0x00000003 /f
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU /v ScheduledInstallDay /t REG_DWORD /d 0x00000000 /f
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU /v ScheduledInstallTime /t REG_DWORD /d 0x0000000a /f
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU /v UseWUServer /t REG_DWORD /d 0x00000001 /f
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU /v RescheduleWaitTimeEnabled /t REG_DWORD /d 0x00000001 /f
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU /v RescheduleWaitTime /t REG_DWORD /d 0x00000001 /f
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU /v DetectionFrequencyEnabled /t REG_DWORD /d 0x00000001 /f
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU /v DetectionFrequency /t REG_DWORD /d 0x00000001 /f
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU /v RebootRelaunchTimeoutEnabled /t REG_DWORD /d 0x00000001 /f
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU /v RebootRelaunchTimeout /t REG_DWORD /d 0x0000000a /f

REM конфигурирование служб обновлений на авто-запуск
sc config wuauserv start= auto
sc config BITS start= auto
sc config EventLog start= auto

REM старт служб
net start BITS
net start EventLog
net start wuauserv

Del C:\wutemp.tmp

REM собственно генерирование нового идентификатора и запуск обнаружения обновлений
wuauclt.exe /resetauthorization /detectnow

[/more]

To Dilshod
Вставляй обработку ошибки через On Error, лови анализируй и выполняй действия в зависимости от ошибки

Dilshod
Тут в голову пришла одна идея. Можно проверить пароль полльзователя через следующую функцию:


Код:
Function CheckUser(UserName, Password)
Dim WshNetwork
Set WshNetwork = WScript.CreateObject("WScript.Network")
On Error Resume Next
WshNetwork.MapNetworkDrive "X:", "\\localhost\C$", "true", Username, Password
If Err.Number <> 0 Then
    CheckUser=False
Else CheckUser=True
End If
WshNetwork.RemoveNetworkDrive "x:",True,False
End Function

msgbox CheckUser("admin","pass")

В bat-файле, что прописан при логоне юзеров есть строчки:


Код:
REG ADD HKLM\SYSTEM\ControlSet001\Services\SharedAccess\Parameters\FirewallPolicy\DomainProfile\IcmpSettings /v AllowInboundEchoRequest /t REG_DWORD /d 1 /f
REG ADD HKLM\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\DomainProfile\IcmpSettings /v AllowInboundEchoRequest /t REG_DWORD /d 1 /f

По идее только в ветку HKLM имеют право писать, а обычные юзвери не имеют, т.е. только один выход - либо дать им права админа, либо в реестре поставить разрешение на запись в эту ветку.

aleksanchez
Ни то ни другое делать не охота.
Может как-то запустить батник с админскими правами?...

Lovec


Цитата:

Option Explicit
Dim aShell
Dim aEnv

Set aShell=CreateObject("Wscript.Shell")
Set aEnv=aShell.Environment("Process")
aShell.Run "cmd.exe /k runas.exe /user:administrator прoгрaммa.cmd"
Wscript.Sleep 50
aShell.AppActivate aEnv("SystemRoot") & "\system32\runas.exe"
Wscript.Sleep 50
aShell.SendKeys "пaрoль_aдминистрaтoрa" & "~"
Wscript.Sleep 500

Set aShell=Nothing
Set aEnv=Nothing

зaпускaeтсa прoгрaммa.cmd с прaвaми aдминистрaтoрa.

Вот же готовый пример. Запускается cmd файл от имени администратора. Ну или Bat файл. Это без разницы ведь

всем привет. есть такая задача:
происходит бэкап при помощи ntbackup. хочу получать уведомление на почту о состоянии процесса, т.е. прошло успешно или нет. как такое организовать.
про почту в топике много написанно - думаю с этим разберусь. как быть с самим состоянием ? ntbackup создаёт логи. но не отдельно по кажному файлу вроде.

может кто испольует уже такое ?

спасибо.

Товарищи помогите написать KIX скрипт, который бы разрешал пользователям домена лазить только в своем сетевом ресурсе, а в другие сетевые ресурсы других пользователей - запрещал.

Valentino10
для KIX вроде своя тема есть.

Ой, извините - вы правы - не заметил!
А возможно ли сделать такой скрипт на VBS?
Если да, то напишите кто может, как он выглядит(синтаксис).Спасибо, кто откликнется на просьбу!

вариант по решению моей задачи - Email NTBackup log files

Valentino10
Тебе может помочь следующий скрипт

Код: Set objDomain = GetObject("LDAP://192.168.11.1/ou=Сотрудники,dc=home,dc=local")
objDomain.Filter = Array("User")
Dim fso
Set fso = CreateObject("scripting.filesystemobject")
Dim WshShell
set WshShell = CreateObject("wscript.Shell")
path = "\\192.168.11.1\pub\"
For Each objUser In objDomain
    login = objUser.sAMAccountName
    fso.CreateFolder(path & login)
    WshShell.Run "cmd /c echo y|cacls " & path & login & " /g " & login &":F Администратор:F"    
Next

All
Запихал скрипт в Default Domain Policy в автозагрузку (\\<домен>.local\sysvol\<домен>.local\Policies\{31B2F340-016D-11D2-945F-00C04FB984F9}\MACHINE\Scripts\Startup). Щас он выполняется на всех компах домена (и на контроллерах) при загрузке компа, еще до логина.
Куда его засунуть, чтобы он не выполнялся на контроллерах домена?

Lovec
В любую другую политику, кот. не применяется на контроллерах домена.

Lovec
Можно добавить в начало скрипта

Код:
Dim WshNetwork
Set WshNetwork = WScript.CreateObject("WScript.Network")
If WshNetwork.ComputerName = "DCserver1" Then quit
If WshNetwork.ComputerName = "DCserver2" Then quit
If WshNetwork.ComputerName = "DCserver3" Then quit

Если не трудно подскажите
как из командной строки добавить DNS 192.168.1.1 к примеру

шлюз добавить можно командой

добавить Шлюз

route delete 0.0.0.0
route add 0.0.0.0 mask 0.0.0.0 172.16.0.254

ну и удалить Шлюз
route delete 0.0.0.0 mask 0.0.0.0

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

Etalon
Я слаб в GPO... Куда конкретно? Есть созданные по умолчанию или надо создавать?

Lovec
Создать новую политику и применить её к OU не содержащей контроллеров домена и серверов.

lameruga
добавляем Gate
>netsh interface ip set address name="Local Area Connection" gateway=192.168.1.1 gwmetric=auto

там же DNS

>netsh interface ip set dns "Local Area Connection" static 192.168.1.1 primary

вопрос неоднократно обсуждался в темах:
Командная строка, батники\сценарии
Задачи на bat-файлах

Lovec
Ну если у тебя настолько часто меняется состав контроллеров домена тогда можно вот это вначало добавить

Код: Dim WshNetwork
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set objOU= GetObject("LDAP://192.168.11.1/ou=Domain Controllers,dc=home,dc=local")
For Each v In objOu
    If WshNetwork.ComputerName = v.cn Then quit
next

всем привет. сорри за глупый вопрос, но я не програмист.
VB Script - хочу начать изучать, для администрирования.
Есть VB, есть VB Script.
для администрирования используется VBScript ?
И нужно учить всё что каcается VBScript ? я так посмотрел там куча всего для WEB есть.
Хотел уточнить что и как учить ? где можно почитать. поиски в гуле значим успехом не увенчались.

спасибо.

slech
Плохо видимо искал
Во-первых в шапке ссылки на доки по теме есть.
Во-вторых вот тут еще посмотри Учебный курс "Программирование для администраторов "
Кстати этот линк недавно нашел. Можно его в шапку добавить.
Все по-русски написано и достаточно доступно

aleksanchez
спасибо, самое оно.
кидаю в шапку.

Да не за что.
Сам щас читаю эту доку.
Главно подробно написано и от самых азов до более сложных вещей типа ADSI