服务器 Gind.cn
  1. 服务器 Gind.cn
  3. Windows Server 2003上的警报configuration
Intereting Posts
如何为Mellanox ConnectX-3 Ubuntu 12.04.3启用SR-IOV？ logging串口数据 PostgreSQL在启动后退出 SQL Server镜像拒绝工作。 把我的头发撕掉 服务器无法通过IP访问 SFTP服务器为所有连接提供types2（协议错误） VirtualBox（NAT + PAT）中奇怪的套接字行为？ 为什么GlusterFS复制卷不build议在不同数据中心的主机上使用？ Nginx反向代理通过客户端证书 从Hyper-V主机的冷启动直接引导到VM 如何使用PAM检查某些用户的LDAP密码，但始终使用本地文件中的UID / GID？ Web服务器和SQL Server之间的身份validation 如果两个驱动器在外部硬盘驱动器中的RAID 0，我删除一个会发生什么？ 什么是保存增量子文件夹的最佳结构？ 低stream量服务器上的RAID？

Windows Server 2003上的警报configuration

我试图在Windows Server 2003的磁盘空间不足上configuration一个警报，我已经按照这个一步一步教程的微软 。 我尝试执行由我创build的bat文件，位于我正在使用的用户的主文件夹中。

当可用空间低于6 GB时，当磁盘的可用空间低于6 GB时，我会select“触发”以触发，“采样数据间隔”是默认值（5秒）。

问题是警报没有触发。

而另一件事情是，用于警报的用户不是root用户，但它具有pipe理权限。

提前致谢

尝试下面的脚本，这是自我解释。 如果磁盘空间小于1 GB，此脚本将发送电子邮件至[email protected]。 您需要修改电子邮件帐户的详细信息并将其作为任务进行安排。

计算服务器上的可用磁盘空间

Const HARD_DISK = 3

strComputer =“。”

设置objWMIService = GetObject（“winmgmts：”_

＆“{impersonationLevel = impersonate}！\”＆strComputer＆“\ root \ cimv2”）

设置colDisks = objWMIService.ExecQuery _

（“Select * from Win32_LogicalDisk Where DriveType =”＆HARD_DISK＆“”）

Set objComputer = CreateObject（“Shell.LocalMachine”）

我= 0

intCharacters = 5

标志= 0

对于colDisks中的每个objDisk

freespace = objDisk.FreeSpace

drive = objDisk.DeviceID

totalspace = objDisk.Size

totalspace =总计空间/ 1073741824

totalspace = Left（totalspace，intCharacters）

总计空间=总计空间和“GB”

freespace = freespace / 1073741824

freespace = Left（freespace，intCharacters）

如果freespace <1，那么

标志= 1

万一

freespace = freespace＆“GB”

display = display + Cstr（objDisk.DeviceID）＆“”+ freespace + display1＆“”+ Cstr（objDisk.DeviceID）＆“”+ totalspace + vbNewLine + vbNewLine

computer =“Server：”＆objComputer.MachineName + vbNewLine + vbNewLine +“Space available on each drives：”+ vbNewLine + vbNewLine

head =“可用空间总空间”+ vbNewLine + vbNewLine

下一个

如果flag = 1那么

Set 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'基本（纯文本）身份validation

'ObjEmail.Configuration.Fields.Item（“ http://schemas.microsoft.com/cdo/configuration/sendusername ”）=“[email protected]”

'ObjEmail.Configuration.Fields.Item（“ http://schemas.microsoft.com/cdo/configuration/sendpassword ”）=“EMAIL PASSWORD”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

万一