开发者社区> 科技小能手> 正文
阿里云
为了无法计算的价值
打开APP
阿里云APP内打开

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

简介:
+关注继续查看

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

源代码如下:

strMessage = "File number more than10, please check"

strTo= "sample@home.cn"

strFrom="sample@home.cn"

strSubject="File number more than 10,please check"

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

strComputer = "."

Set objWMIService =GetObject("winmgmts:\\" & strComputer &"\root\cimv2")

Do While True

   Set colFileList = objWMIService.ExecQuery _

       ("ASSOCIATORS OF {Win32_Directory.Name='D:\sample\'} Where " _

           & "ResultClass = CIM_DataFile")

    If colFileList.Count >= 10 Then

      SendMail strFrom,strTo,strSubject,strMessage,strSMTPServer

     Exit Do

   End If

   Wscript.Sleep 600000'--一小时

Loop

使用SMTP服务器发送邮件

Function SendMail( strFrom, strSendTo,strSubject, strMessage , 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

         'build message

         WithoEmail

              .From = strFrom

              .To = strSendTo 

              .Subject = strSubject

              .TextBody = strMessage

         EndWith

         'send message

         OnError Resume Next

         oEmail.Send

         IfErr Then

              WScript.Echo "SendMail Failed:"& Err.Description

         EndIf

End Function

 

本文转自 lzf328 51CTO博客,原文链接:

http://blog.51cto.com/lzf328/1252922


版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。

相关文章
JavaScript基础——HTML DOM (文档对象模型)
JavaScript基础——HTML DOM (文档对象模型)
30 0
《JavaScript面向对象精要》——1.7 鉴别数组
虽然instanceof可以鉴别数组,但是有一个例外会影响网页开发者:JavaScript的值可以在同一个网页的不同框架之间传来传去。当你试图鉴别一个引用值的类型时,这就有可能成为一个问题,因为每一个页面拥有它自己的全局上下文——Object、Array以及其他内建类型的版本。
1017 0
Javascript数组对象的方法和属性
2.1.1.  数组对象的方法和属性 数组对象最常用的属性之一就是length属性,它返回比数组中最后一个数组项索引大1的索引。
659 0
23703
文章
0
问答
文章排行榜
最热
最新
相关电子书
更多
低代码开发师(初级)实战教程
立即下载
阿里巴巴DevOps 最佳实践手册
立即下载
冬季实战营第三期:MySQL数据库进阶实战
立即下载