Назад | Перейти на главную страницу

Конфигурация предупреждения в Windows Server 2003

Я пытаюсь настроить предупреждение о нехватке места на диске в Windows Server 2003, я уже выполнил этот шаг за шагом учебник Microsoft. Я пытаюсь запустить созданный мной bat-файл, расположенный в домашней папке пользователя, которого я использую.

Я настроил запуск, когда свободное пространство меньше 6 ГБ, когда на диске меньше свободного места, чем 6 ГБ, по умолчанию используется «Интервал выборки данных» (5 секунд).

Проблема в том, что предупреждение не срабатывает.

И еще одно: пользователь, настроенный для оповещения, не является пользователем root, но у него есть права администратора.

заранее спасибо

Попробуйте следующий сценарий, он не требует пояснений. Этот сценарий отправит электронное письмо на адрес RECEIPIENT@DOMAIN.COM, если на диске меньше 1 ГБ. Вам необходимо изменить данные учетной записи электронной почты и запланировать это как задачу.

Рассчитать свободное дисковое пространство на сервере

Const HARD_DISK = 3

strComputer = "."

Установите objWMIService = GetObject ("winmgmts:" _

& "{impersonationLevel = impersonate}! \" & strComputer & "\ root \ cimv2")

Установите colDisks = objWMIService.ExecQuery _

("Выберите * из Win32_LogicalDisk, где DriveType =" & HARD_DISK & "")

Установите objComputer = CreateObject ("Shell.LocalMachine")

я = 0

intCharacters = 5

flag = 0

Для каждого objDisk в colDisks

freespace = objDisk.FreeSpace

диск = objDisk.DeviceID

totalspace = objDisk.Size

totalspace = totalspace / 1073741824

totalspace = Left (totalspace, intCharacters)

totalspace = totalspace & "ГБ"

freespace = freespace / 1073741824

freespace = Left (свободное пространство, intCharacters)

если freespace <1, то

flag = 1

конец, если

freespace = freespace & "ГБ"

display = display + Cstr (objDisk.DeviceID) & "" + freespace + display1 & "" + Cstr (objDisk.DeviceID) & "" + totalspace + vbNewLine + vbNewLine

computer = "Сервер:" & objComputer.MachineName + vbNewLine + vbNewLine + "Свободное место на каждом диске:" + vbNewLine + vbNewLine

head = "Общее пространство свободного места" + vbNewLine + vbNewLine

следующий

если flag = 1, то

Установите objEmail = CreateObject ("CDO.Message")

        ObjEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the  network).

        ObjEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="SMTP SERVER"

        ObjEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

        ObjEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False)

        ObjEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

'ObjEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'базовая (открытый текст) аутентификация

'ObjEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") =" USER@DOMAIN.COM "

'ObjEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") =" ПАРОЛЬ ЭЛЕКТРОННОЙ ПОЧТЫ "ObjEmail.Configuration.Fields.Update

        objEmail.From = "USER@DOMAIN.COM"

        objEmail.To = "RECEIPIENT@DOMAIN.COM"

        objEmail.Subject = "YOUR SUBJECT"

        objEmail.Textbody = head + display

        objEmail.Send

        Set ObjEmail = Nothing

конец, если