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

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

PowerZ

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

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

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

Есть скрипт, который проверяет реестр, и если нет параметра, то добавляет его.
Скрипт будет запускаться через 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