VB Script判断文件夹下文件的数量并发MAIL预警

概述最近用户有个需求，需要监控文件夹下面文件的数量。如果超过一定的阀值需要发MAIL预警。从网上找了些VB Script的代码然后自己修改了一下就可以了。 源代码如下： strMessage = "File number more than10, please check" strTo= "sample@home.cn" strFrom="sample@home.cn" strSubject="Fil

最近用户有个需求，需要监控文件夹下面文件的数量。如果超过一定的阀值需要发MAIL预警。从网上找了些VBScript的代码然后自己修改了一下就可以了。

源代码如下：

strMessage="filenumbermorethan10,pleasecheck"

strTo="sample@home.cn"

strFrom="sample@home.cn"

strSubject="filenumbermorethan10,pleasecheck"

strSMTPServer="smtp.home.cn"'--smtp地址

strComputer="."

SetobjWMIService=Getobject("winmgmts:\"&strComputer&"\root\cimv2")

DoWhileTrue

SetcolfileList=objWMIService.Execquery_

("ASSOCIATORSOF{Win32_Directory.name='D:\sample\'}Where"_

&"ResultClass=CIM_Datafile")

IfcolfileList.Count>=10Then

SendMailstrFrom,strTo,strSubject,strMessage,strSMTPServer

ExitDo

EndIf

Wscript.Sleep600000'--一小时

Loop

'使用SMTP服务器发送邮件

FunctionSendMail(strFrom,strSendTo,strSMTP)

SetoEmail=CreateObject("cdo.message")

'configuremessage

WithoEmail.Configuration.FIElds

.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2

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

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")=strSMTP

.item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=0'不执行验证

.Update

EnDWith

'buildmessage

WithoEmail

.From=strFrom

.To=strSendTo

.Subject=strSubject

.Textbody=strMessage

EnDWith

'sendmessage

OnErrorResumeNext

oEmail.Send

IfErrThen

WScript.Echo"SendMailFailed:"&Err.Description

EndIf

EndFunction

总结

以上是内存溢出为你收集整理的VB Script判断文件夹下文件的数量并发MAIL预警全部内容，希望文章能够帮你解决VB Script判断文件夹下文件的数量并发MAIL预警所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。