This discussion has been locked. The information referenced herein may be inaccurate due to age, software updates, or external references.
You can no longer post new replies to this discussion. If you have a similar question you can start a new discussion in this forum.

Can't identify dynamic column definitions from script output

please help identify the problem on below script that previously worked in "Application Monitor": error message: "Can't identify dynamic column definitions from script output"... Thank you...

strFolder = "\\servername.com\sharedfolder$\Usr\crownord"

intMinutes = 10

strEmailFrom = "Orion@NOtifications"

strEmailTo = "users@email.com;phonenumber@vtext.com"

strEmailSubject = "Server Files Not Been Processed (crownord folder)"

strEmailBody = "The following files were over " & intMinutes &_

    " minutes old   ---   Follow Instructions in: \\servername.com\share\share\share\share\share\instructions.txt to troubleshoot this message"    & vbCrLf & vbCrLf

strSMTP = "snmtpserver.com"

arrReport = Array("File" & vbTab &_

    "Size" & vbTab & "Date Created")

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFolder = objFSO.GetFolder(strFolder)

For Each objFile In objFolder.Files

    dtmCreated = objFile.DateCreated

    intDiff = DateDiff("n", dtmCreated, Now)

    If intDiff > intMinutes Then

        intLen = Len(objFile.Path)

       

        If intLen > intLongest Then

            intLongest = intLen

        End If

       

        ArrayAppend arrReport, objFile.Path & vbTab & objFile.Size & vbTab & dtmCreated

    End If

Next

If UBound(arrReport) > 0 Then

    For i = 0 To UBound(arrReport)

        strLine = arrReport(i)

        intPos = InStr(strLine, vbTab) - 1

        intPad = intLongest - intPos

        arrReport(i) = Replace(strLine, vbTab, Space(intPad) & vbTab, 1, 1)

    Next

    Set objEmail = CreateObject("CDO.Message")

    objEmail.From = strEmailFrom

    objEmail.To = strEmailTo

    objEmail.Subject = strEmailSubject

    objEmail.Textbody = strEmailBody & Join(arrReport, vbCrLf)

    objEmail.Configuration.Fields.Item _

        ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

    objEmail.Configuration.Fields.Item _

        ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSMTP

    objEmail.Configuration.Fields.Item _

        ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

    objEmail.Configuration.Fields.Update

    objEmail.Send

End If

Sub ArrayAppend(arrInputArray, strNewValue)

    If Not IsArray(arrInputArray) Then

        arrInputArray = Array()

    End If

   

    intElemCount = UBound(arrInputArray) + 1

    ReDim Preserve arrInputArray(intElemCount)

    arrInputArray(intElemCount) = strNewValue

End Sub