strFile="c:\windows\WindowsUpdate.log"
strFind="SUBMITTED"
Set objFSO=CreateObject("Scripting.FileSystemObject")
Set objFile=objFSO.OpenTextFile(strFile)
strText=objFile.ReadAll
objFile.Close
iPosition=InStrRev(strText,strFind)

If iPosition<>0 Then
    WScript.Echo Mid(strText,iPosition-38)
Else
    WScriptWScript.echo "Failed to find " & Chr(34) & strFind & Chr(34) & _
    " in " & strFile
End If