\n\nSet WMI=GetObject("winMgmts:")\n\nfunction isUnexpected\n\tREM возвращает true, если suhtdown unexpected\n\n\tdim result\n\tresult=false\n\nSet events=WMI.ExecQuery("Select * from Win32_NTLogEvent WHERE LogFile=\'System\'")\nfor each evt in events\n REM Event ID -  6008  - это unexpected shutdown\n REM прочитаем все события system до его появления или до нормального старта системы\n\tif evt.EventCode= 6008  then result=true \n\tif evt.EventCode= 6009  then exit for\nnext\n\n\nend function\n\n\nflag=isUnexpected()\n\nREM если все плохо - то будем отключать сервисы (например, IIS Admin поставим в Disabled)\n\nif flag then \n WScript.echo "Previous shutdown is unexpected"\n\n Set serv=WMI.ExecQuery("SELECT * FROM Win32_Service")\n\n\n for each sv in serv \n\tif(sv.Name="IISADMIN") then\n                result = sv.Change( , , , ,  "Disabled")\n\tend if\nnext\n    \nend if\n\n

if evt.EventCode= 6008  then
 result=true
 exit for 
end if