{"id":1039,"date":"2015-01-15T17:00:19","date_gmt":"2015-01-15T16:00:19","guid":{"rendered":"http:\/\/www.symablog.de\/blog\/?p=1039"},"modified":"2015-01-21T17:04:05","modified_gmt":"2015-01-21T16:04:05","slug":"vb-monitorscript-alter-von-dateien-in-verzeichnissen","status":"publish","type":"post","link":"https:\/\/www.symablog.de\/blog\/vb-monitorscript-alter-von-dateien-in-verzeichnissen\/","title":{"rendered":"VB Monitorscript &#8211; Alter von Dateien in Verzeichnissen"},"content":{"rendered":"<p>Visual Basic Script (VB Script) f\u00fcr einen Monitor (z.B. SCOM)<\/p>\n<p>Aufgabe: Es soll in mehreren Verzeichnissen nach nicht verarbeiteten Dateien gesucht werden. Dabei soll bei einer Schwellwert\u00fcberschreitung das Script &#8222;ERROR&#8220; liefern, sonst &#8222;OK&#8220;.<\/p>\n<pre lang=\"VB\" line=\"1\">' Dieses Monitorscript prueft auf ein maximales Alter von Dateien\r\n' in mehreren Foldern - Return ist \"OK\" oder \"ERROR\"\r\n' Detailiertes LOG fuer Schwellwertueberschreitungen in LogDatei\r\nOption Explicit\r\nDim objFSO, objFile, objFolder, objLogFile, objAlter, maxtoleranz, Status, Folder, jetzt\r\nDim FolderArray, FStream, strFile, Alter, LogMsg\r\n\r\n' Schwellwert f\u00fcr die Fehlerausloesung (LastModified-Alter in Sekunden)\r\nmaxtoleranz = 300\r\n\r\n'ARRAY der Folder \r\n'entweder hier ReDim oder unter Dim direkt Groesse vereinbaren\r\nReDim FolderArray(2)\r\nFolderArray(0) = \"c:\\Folder_1\\\"\r\nFolderArray(1) = \"c:\\Folder_2\\\"\r\nFolderArray(2) = \"c:\\Folder_3\\\"\r\n\r\nStatus = \"OK\"\r\n\r\nFor Each Folder in FolderArray\r\n\tjetzt = now\r\n\tSet objFSO = CreateObject(\"Scripting.FileSystemObject\")\r\n\tSet objFolder = objFSO.GetFolder(Folder)\r\n\t\r\n\tFor Each strFile in objFolder.Files\r\n\t\tSet objFile = objFSO.GetFile(strFile)\r\n\t\tAlter = Datediff(\"s\",objFile.DateLastModified,jetzt)\r\n\t\tIf (Alter &gt; maxtoleranz) Then\r\n\t\t\tStatus = \"ERROR\"\r\n\t\t\tLogMsg = jetzt &amp; \" \" &amp; Alter &amp; \" \" &amp; strFile \r\n\t\t\tSet objLogFile = objFSO.OpenTextFile(\"C:\\log\\fileage.log\", 8, True)\r\n\t\t\tobjLogFile.WriteLine(LogMsg)\r\n\t\t\tobjLogFile.Close\r\n\t\tEnd If\r\n\tNext\r\nNext\r\n\r\nWscript.echo Status<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>Visual Basic Script (VB Script) f\u00fcr einen Monitor (z.B. SCOM) Aufgabe: Es soll in mehreren Verzeichnissen nach nicht verarbeiteten Dateien gesucht werden. Dabei soll bei einer Schwellwert\u00fcberschreitung das Script &#8222;ERROR&#8220; liefern, sonst &#8222;OK&#8220;. &#8218; Dieses Monitorscript prueft auf ein maximales &hellip; <a class=\"more-link\" href=\"https:\/\/www.symablog.de\/blog\/vb-monitorscript-alter-von-dateien-in-verzeichnissen\/\">Weiterlesen <span class=\"meta-nav\">&rarr;<\/span><\/a><\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"jetpack_post_was_ever_published":false,"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":true,"jetpack_social_options":{"image_generator_settings":{"template":"highway","enabled":false}}},"categories":[78,4,184],"tags":[178,180,161,179,181],"class_list":["post-1039","post","type-post","status-publish","format-standard","hentry","category-praxis","category-scom","category-vbscript","tag-alter-von-dateien","tag-monitor","tag-scom-monitor","tag-scripting-filesystemobject","tag-vbscript"],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"jetpack_shortlink":"https:\/\/wp.me\/p37Rzq-gL","_links":{"self":[{"href":"https:\/\/www.symablog.de\/blog\/wp-json\/wp\/v2\/posts\/1039"}],"collection":[{"href":"https:\/\/www.symablog.de\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.symablog.de\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.symablog.de\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.symablog.de\/blog\/wp-json\/wp\/v2\/comments?post=1039"}],"version-history":[{"count":4,"href":"https:\/\/www.symablog.de\/blog\/wp-json\/wp\/v2\/posts\/1039\/revisions"}],"predecessor-version":[{"id":1043,"href":"https:\/\/www.symablog.de\/blog\/wp-json\/wp\/v2\/posts\/1039\/revisions\/1043"}],"wp:attachment":[{"href":"https:\/\/www.symablog.de\/blog\/wp-json\/wp\/v2\/media?parent=1039"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.symablog.de\/blog\/wp-json\/wp\/v2\/categories?post=1039"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.symablog.de\/blog\/wp-json\/wp\/v2\/tags?post=1039"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}