strFile="c:\boot.ini"

Set objFSO=CreateObject("Scripting.FileSystemObject")
Set objFile=objFSO.GetFile(strFile)
With objFile
    strHTML="<Table border=0 width=100%><TR><TD colspan=2>" &_
    "<Font color=Blue>" & strFile & "</Font></TD></TR>"
    strHTML=strHTML & "<TR><TD>Created </TD><TD>" & .datecreated & _
     "</TD></TR>"
    strHTML=strHTML & "<TR><TD>Modified </TD><TD>" & _
 .DateLastModified &"</TD></TR>"
    strHTML=strHTML & "<TR><TD>Size </TD><TD>" & .Size & _
     " bytes</TD></TR>"
    strHTML=strHTML & "<TR><TD>Type </TD><TD>" & .Type &_
     "</TD></TR>"
    If .Attributes And 2048 Then strAttrib = strAttrib & "Compressed,"
    If .Attributes And 64 Then strAttrib = strAttrib & "Shortcut,"
    If .Attributes And 32 Then strAttrib = strAttrib & "Archive,"
    If .Attributes And 4 Then strAttrib = strAttrib & "System,"
    If .Attributes And 2 Then strAttrib = strAttrib & "Hidden,"
    If .Attributes And 1 Then strAttrib = strAttrib & "ReadOnly,"
    If .Attributes And 0 Then strAttrib = strAttrib & "Normal"
    'remove any trailing commas
    If Right(strAttrib,1)="," Then 
       strAttrib=Left(strAttrib,(Len(strAttrib)-1))
    end if
    
    strHTML=strHTML & "<TR><TD>Attributes </TD><TD>" & strAttrib &_
     "</TD></TR>"
       strHTML=strHTML & "</table>"
 
End With

set ie=Wscript.createObject("internetexplorer.application")
With ie
    .width=400
    .height=300
    .statusbar=False
    .menubar=False
    .toolbar=False
    .visible=True
    .Navigate("About:blank")
    .document.body.innerhtml=strHtml
End With