Option Explicit
    Dim FSO,File
    Dim Date1,Date2,Hour1,Hour2
    set FSO=CreateObject("Scripting.FileSystemObject")
'    Set File=FSO.GetFile("C:\autotask\times.log")
    Set File=FSO.GetFile("C:\\Inetpub\wwwroot\QuoteChk\sqlbakhtm1345.txt")
    Date1=Now()
    Date2=File.DateLastModified
    wscript.echo Date1
    wscript.echo Date2
    Hour1=DatePart("h",Date1)
    Hour2=DatePart("h",Date2)
    wscript.echo Hour1-Hour2,"Hours"
    wscript.echo DateDiff("h",Date2,Date1),"Hours"
    wscript.echo DateDiff("n",Date2,Date1),"Minutes"
    wscript.echo DateDiff("s",Date2,Date1),"Seconds"