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

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

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

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