监控window下文件夹停留文件

通过zabbix实现对Windowx监控,如WinXP、Win2003、Vista、Win8、Win7……
回复
头像
xiaobu
初学乍练
初学乍练
帖子: 33
注册时间: 2014年 2月 19日 22:02 星期三

监控window下文件夹停留文件

帖子 xiaobu » 2014年 5月 7日 15:39 星期三

有些时候我们可能需要监控特定文件夹下是否有文件pending超过一段时间,这种时候zabbix自带的功能就无能为力了,这里共享一个我用的vbscript 脚本. 有两个参数,第一个是所监控的文件夹名,第二个是规定文件超过多少秒数。

代码: 全选

' vbs script to monitor file timestamp in a folder
'
On Error Resume Next

Dim objFSO, objFolder, colFiles, objFile, objStartFolder
Dim CurrentTime, TimeDiff, BodyText, FailCounter,TimeThreshold
Set objFSO = CreateObject("Scripting.FileSystemObject")
CurrentTime = Now()

' Path to monitor
objStartFolder = Wscript.Arguments.Item(0)
TimeThreshold = Int(Wscript.Arguments.Item(1))

If WScript.Arguments.Count = 0 Then
    WScript.Echo "Missing Parameters."
Else
	Set objFolder = objFSO.GetFolder(objStartFolder)
	Set colFiles = objFolder.Files
	FailCounter = 0
	For Each objFile in colFiles
		TimeDiff = DateDiff("s", objFile.DateLastModified, CurrentTime)
		If TimeDiff > TimeThreshold Then
				'The ReadAll method reads the entire file into the variable BodyText
				BodyText = BodyText & Chr(13) & Chr(10) & objStartFolder & "\" & objFile.Name & " - no pudate over(mins):" & Round(TimeDiff/60,2)
				FailCounter = FailCounter + 1
		End If
	Next

	If FailCounter > 0 Then
		WScript.Echo BodyText
    Else
        WScript.Echo "NoPending"
	End IF
End If

头像
oulin_hl
论坛管理员
论坛管理员
帖子: 113
注册时间: 2013年 11月 22日 21:46 星期五

Re: 监控window下文件夹停留文件

帖子 oulin_hl » 2014年 5月 11日 10:55 星期天

很好的idear,谢谢共享!

代码: 全选

ZABBIX中文论坛
欢迎热爱zabbix的网友们,在此我们可以一起探讨、交流、沟通zabbix的所有操作与问题!

回复