Configuração de alerta no Windows Server 2003

Question

Estou tentando configurar um alerta em pouco espaço no disco no Windows Server 2003, já segui este tutorial passo a passo microsoft . Eu tento executar um arquivo bat criado por mim, localizado na pasta inicial do usuário que estou usando.

Eu configurei para acionar quando o espaço livre estiver abaixo de 6 GB quando o disco tiver menos espaço livre que 6 GB, o "Intervalo de dados de amostra" será o padrão (5 segundos).

O problema é que o alerta não é acionado.

E outra coisa, o usuário que está configurado para o alerta não é o usuário root, mas tem privilégios de administração.

Obrigado antecipadamente

    

Answer 1

Tente o seguinte script, é auto-explicativo. Este script enviará um email para [email protected] se o espaço em disco for menor que 1 GB. Você precisa modificar os detalhes da conta de e-mail e programá-la como uma tarefa.

Calcule o espaço livre em disco no servidor

Const HARD_DISK = 3

strComputer="."

Defina objWMIService = GetObject ("winmgmts:" _

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

Defina colDisks = objWMIService.ExecQuery _

("Selecione * em Win32_LogicalDisk, em que DriveType=" & HARD_DISK & "")

Defina objComputer = CreateObject ("Shell.LocalMachine")

i = 0

intCharacters = 5

flag = 0

Para cada objDisk em colDisks

freespace = objDisk.FreeSpace

drive = objDisk.DeviceID

totalspace = objDisk.Size

totalspace = totalspace / 1073741824

totalspace = Esquerda (espaço total, intCaracteres)

totalspace = totalspace & "GB"

freespace = espaço livre / 1073741824

freespace = Esquerda (espaço livre, intCaracteres)

se espaço livre < 1 então

flag = 1

final se

freespace = espaço livre & "GB"

display = display + Cstr (objDisk.DeviceID) & "" + freespace + display1 & "" + Cstr (objDisk.DeviceID) & "" + espaço total + vbNewLine + vbNewLine

computer="Servidor:" & objComputer.MachineName + vbNewLine + vbNewLine + "Espaço Disponível em cada unidade:" + vbNewLine + vbNewLine

head="Espaço Livre em Espaço Livre" + vbNewLine + vbNewLine

Próximo

se flag = 1 então

Defina 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 (" link ") = 1' básico (texto não criptografado ) autenticação

'ObjEmail.Configuration.Fields.Item (" link ")="[email protected]"

'ObjEmail.Configuration.Fields.Item (" link ")="SENHA E-MAIL" ObjEmail.Configuration .Fields.Update

        objEmail.From = "[email protected]"

        objEmail.To = "[email protected]"

        objEmail.Subject = "YOUR SUBJECT"

        objEmail.Textbody = head + display

        objEmail.Send

        Set ObjEmail = Nothing

end if