Option Explicit
'===========================================================================
'  Scheduled Task - Visual Basic ActiveX Script
'===========================================================================
'  Date    : 09/12/2002
'  Auth    : Israel Farfan
'  Desc    : VBScript file that deletes old files
'===========================================================================

'--  Empty out "Drop" and "Bad" mail folder from non-sent emails
Call CleanDirectory("C:\Inetpub\mailroot\Drop")
Call CleanDirectory("C:\Inetpub\mailroot\Badmail")



'===========================================================================
'  Name    : CleanDirectory()
'  Desc    : Delete Files from a Directory
'===========================================================================
Function CleanDirectory(strPath2Folder)
    Dim fso, f, fc, f1, strFiles, intFiles

    strFiles = ""
    intFiles = 0

    Set fso = CreateObject("Scripting.FileSystemObject")
    If (fso.FolderExists(strPath2Folder)) Then
        Set f = fso.GetFolder(strPath2Folder)
        Set fc = f.Files

        '-- Delete each file in Folder
        For Each f1 in fc
            strFiles = strFiles & f1.Name & vbCrLf
            intFiles = intFiles + 1
            f1.Delete(True)
        Next

        Set f1 = Nothing
        Set fc = Nothing
        Set f = Nothing

        '-- Send email with list of files deleted
        If Len(strFiles) > 0 Then
            strFiles = "Deleted " & intFiles & " File(s) on " & strPath2Folder & vbCrLf & _ 
                vbCrLf & "FILES:" & vbCrLf & "===================" & vbCrLf & strFiles
            Call SendAlertEmail("CleanDirectory() Deleted " & intFiles & " File(s)", strFiles)
        End if
    Else
        '-- Path Not Found!
        Call SendAlertEmail("CleanDirectory() Failed!", "[ERROR!] File Path not Found : " & _
            strPath2Folder)
    End If
    Set fso = Nothing
End Function


'===========================================================================
'  Name    : GetMachineName()
'  Desc    : Determine Computer's Machine Name
'===========================================================================
Function GetMachineName()
    On Error Resume Next

    '-- Try Network Object
    Dim WshNetwork

    Set WshNetwork = CreateObject("WScript.Network")
    GetMachineName = WshNetwork.ComputerName
    Set WshNetwork = Nothing

    If IsNull(GetMachineName) Or GetMachineName = "" Then
        '-- Try Shell Object
        Dim wshShell

        Set wshShell = CreateObject("WSCript.Shell")
        GetMachineName = wshShell.RegRead _
            ("HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName")
        Set wshShell = Nothing

    If IsNull(GetMachineName) Or GetMachineName = "" Then
            '-- Try Windows Mgmt Implementation
            Dim objWMIService, OSItems, objItem
        
            Set objWMIService = GetObject _
                ("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
            Set OSItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem", , 48)
            For Each objItem in OSItems
                GetMachineName = objItem.CSName
                Next
        End If
    End If
    Err.Clear

    If IsNull(GetMachineName) Or GetMachineName = "" Then GetMachineName = "LOCALHOST"
End Function


'===========================================================================
'  Name    : SendAlertEmail(Subject Line, Email Body)
'  Desc    : Send Error/Alert Email
'===========================================================================
Function SendAlertEmail(strSubject, strErrorText)
    '-- Get Machine Name
    Dim oEmail, strMachineName
    strMachineName = GetMachineName()

    '-- Send Email
    Set oEmail = CreateObject("CDO.Message")
    oEmail.From = strMachineName
    oEmail.To   = "myemail@mydomain.com"
    oEmail.Subject = strMachineName & " : " & strSubject & " @ " & Now
    oEmail.TextBody = strErrorText
    oEmail.Send()
    Set oEmail = Nothing
End Function