Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Dim fso, objShell '=================================== 'Start of Sub-routine Sub fFIND(oFolder) DIM oFile DIM oSdate, oCdate,objFile 'Look at each file in the current folder Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.GetFile((oFile.Name), "C:\myfolder\Log20*") For Each oFile in oFolder.Files 'Check for a file of the format *LOG20*.TXT if inStr(uCase(oFile.Name), "LOG20") > 0 and uCase(right(oFile.name,4)) = ".TXT" then oSdate = DateValue(oFile.DateLastModified) oCdate = DateDiff("d", oSdate, Date) 'Log and delete *LOG20*.TXT files older than 15 days if oCdate >= 15 And objFSO.size < 2 Then Call LoggerF(oFile.Path) oFile.Delete True End if end If Next End Sub '====================================== '===================== 'Write Log Sub Sub LoggerF(fPath) DIM oFSO, oStream, oFile, WshNetwork On Error Resume Next Set WshNetwork = WScript.CreateObject("WScript.Network") Set oFSO = CreateObject("Scripting.FileSystemObject") Set oFile = oFSO.GetFile("CleanupLog.txt") Set oStream = oFile.OpenAsTextStream(8, 0) oStream.Write VbCrLf & Ucase(WshNetwork.UserName) & " deleted " & fPath & " at " & Now oStream.Close set oStream = Nothing set oFile = Nothing set oFSO = Nothing set WshNetwork = Nothing End Sub '===================== on error resume Next Set fso = WScript.CreateObject("Scripting.FileSystemObject") Set objShell = Wscript.CreateObject("Wscript.Shell") 'Call the Sub-routine that searches and deletes the files fFIND fso.GetFolder("C:\myfolder") objShell.LogEvent EVENT_SUCCESS, "Log file cleanup finished at " & date Wscript.Quit set objShell = Nothing set fso = Nothing
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|change the windows script file to BAT||10||56|
|A Table within a User Form||24||63|
|Need help Creating PowerShell Script||4||46|
|HTA with vb script to restart specific windows services||12||73|