VBS/WSH/JS - Скрипт по редактированию реестра с перезагрузкой компьютера

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

VBS/WSH/JS - Скрипт по редактированию реестра с перезагрузкой компьютера

PowerZ

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

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

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

Здравствуйте, необходима помощь.

Есть скрипт, который проверяет реестр, и если нет параметра, то добавляет его.
Скрипт будет запускаться через GPO.
Нужно добавить в скрипт: если параметры добавляются в реестр, то следом запускалась перезагрузка компьютера.

Сам скрипт редактирования реестра, который нашел:

Код:

Option Explicit
Dim i,Shell,KeyValue,Keys(1,4)
set Shell = WScript.CreateObject("WScript.Shell")
Keys(0,0)="AllowTGTSessionKey"
Keys(0,1)="HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa\Kerberos\Parameters\"
Keys(0,2)="1"
Keys(0,3)="REG_DWORD"

On Error Resume Next
For i=0 To UBOUND(Keys)-1
  Shell.RegRead(Keys(i,1)&Keys(i,0))
    if Err.Source="WshShell.RegRead" then
   Shell.RegWrite Keys(i,1)&Keys(i,0),Keys(i,2),Keys(i,3)
   KeyValue=Keys(i,2)
   else
   KeyValue= Shell.RegRead(Keys(i,1)&"\"&Keys(i,0))
end if
   Err.Clear
 If KeyValue<>Keys(i,2) then
   Shell.RegDelete(Keys(i,1)&"\"&Keys(i,0))
   Shell.RegWrite Keys(i,1)&Keys(i,0),Keys(i,2),Keys(i,3)
 End If
Next

Скрипт для перезагрузки компьютера:

Код:

Set OpSysSet = GetObject("winmgmts:{(Shutdown)}" ).ExecQuery("select * from Win32_OperatingSystem where Primary=true" )
For Each OpSys In OpSysSet
OpSys.Reboot()
Next

Помогите, пожалуйста.

Отправлено: 12:14, 23-03-2014