VPF::Win 2003 Server and Shutdown Event Tracker - Форум программистов

str_vadim

Дата 31.7.2008, 18:23 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 9.1.2007
Где: Украина, Днепропе тровск

Репутация: 1
Всего: 1

Please help me!!!
У меня такой вопрос:
Win2003 Server, задалбывает всегда при попытке выключить или перезагрузить вопросами о причине сего действа (Окно называется Shutdown Event Tracker)

Так вот его я отключаю с помощью
(DWORD) HKEY_LOCAL_MACHINE\\Software\\Policies\\Microsoft\\Windows NT\\Reliability\\ShutdownReasonOn = 0
(DWORD) HKEY_LOCAL_MACHINE\\Software\\Policies\\Microsoft\\Windows NT\\Reliability\\ShutdownReasonUI= 0
все Ок.

Но есть одна наша утилита, на подобии ntbackup.exe, которая делает бекап и рестор состояния системы так вот когда она отрабатывает и перегружает комп (к стати при вызове АРI- шных ф-ций все проходит корректно и получение привилегий и сам ребут)
но этот Shutdown Event Tracker всеравно вылазит при загрузке, я бьюсь над этим уже пипец скоко не могу найти ответ.
Может в реестре какой флажок ставится не в курсе?
Кто что знает накропайте плиз пару слов.
Заранее спасибо)

mihanik

Дата 31.7.2008, 18:37 (ссылка)

(нет голосов)

Загрузка ...

-=Белый Медведь=-

Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 61
Всего: 109

А выключать комп отдельным скриптом не вариант?
Я отрубаю свой сервак скриптом

Код


'*******************************************************************
' Имя: Shutdown.vbs
' Язык: VBScript
' Описание: Выключение компьютера
'*******************************************************************
Option Explicit
On Error Resume Next
 
' Объявляем переменные
Dim strComputer       ' Имя компьютера
Dim strNamespace      ' Имя пространства имен
Dim strClass          ' Имя класса 
Dim objClass          ' Объект SWbemObject (класс WMI)
Dim colInstances      ' Коллекция экземпляров класса WMI
Dim objInstance       ' Элемент коллекции
Dim iAnswer           ' Код возврата функции MsgBox

'********************** Начало *************************************
' Присваиваем начальные значения переменным
strComputer = "."
strNamespace = "Root\CIMV2"
strClass = "Win32_OperatingSystem"

' Получаем указатель на класс WMI 
Set objClass = GetObject("WinMgmts:{(Shutdown,RemoteShutdown)}!\\" & strComputer & _
                         "\" & strNamespace & ":" & strClass)
' Создаем коллекцию экземпляров класса Win32_OperatingSystem
Set colInstances = objClass.Instances_

' Перебираем элементы коллекции 
For Each objInstance In colInstances
  ' Выводим на экран предупреждение

    objInstance.Shutdown()

    If Err.number <> 0 Then
      WScript.Echo  "Номер ошибки: " & Err.Number & vbNewLine & _
                    "Описание: " & Err.Description
    End If
 
Next
'************************* Конец ***********************************

Если немного модифицировать, то можно и перезагружать можно...

--------------------

Программистами не рождаются, - это родовая травма...

str_vadim

Дата 31.7.2008, 18:47 (ссылка)

(нет голосов)

Загрузка ...

Да оно то можно было бы но проблема в том что когда делаю reboot просто без рестора системы (тем же кодом что и в той утилите что я упоминал выше) то все проходит отлично. Я даже пробовал не reboo-тить программно а повырубать все приложения и через Пуск перегрузить - эффект тот же. Подозреdаю что мелкософтовская утилита что-то делает в реестре и т.о. не позволяет показывать это окно (Shutdown Event Tracker)

Naghual

Дата 31.7.2008, 21:34 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 9
Всего: 49

str_vadim, а почему не написать батник, который запустит вашу утилиту для создания рестора (без функции перезагрузки), дождется ее завершения, внесет изменения в реестр и перезагузит комп?

--------------------

Я желаю всем Счастья!

str_vadim

Дата 1.8.2008, 13:36 (ссылка)

(нет голосов)

Загрузка ...

Васем спасибо.

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

(DWORD)HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Reliability\\DirtyShutdown

В таком случае после рестора упомянутое мной окно не вылазит.

Еще раз спасибо за внимание)

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| MS Windows \| Следующая тема »