<code>
'file_info.vbs - print out information about boot.ini
Option Explicit
Dim refFile
Set refFile = GetObject("winMgmts:CIM_DataFile.Name='c:\boot.ini'")
WScript.echo "Information about " & refFile.Name
With refFile
	WScript.echo "Name: " & .Name
	WScript.echo "Size: " & .FileSize
	WScript.echo "Created on " & GetVBDate(.CreationDate)
	WScript.echo "Last modified on " & GetVBDate(.LastModified)
	WScript.echo "Last accessed on " & GetVBDate(.LastAccessed)
	WScript.echo "Short filename: " & .EightDotThreeFileName
	WScript.echo "Filetype: " & .FileType
	WScript.echo "Extension: " & .Extension
	WScript.echo "Path: " & .Path
	WScript.echo "Drive: " & .Drive
	If .Archive then WScript.echo "Archive bit set"
	If .Hidden then WScript.echo "File is hidden"
	If .System then WScript.echo "System File"
	If .Compressed then WScript.echo "Compressed with " & .CompressionMethod
	If .Encrypted then WScript.echo "Encrypted with " & .EncryptionMethod
	If .Readable then
		WScript.echo "You may read this file"
	Else
		WScript.echo "You may not read this file."
	End If
	If .Writeable then
		WScript.echo "You may write to this file"
	Else
		WScript.echo "You may not write to this file"
	End If
End With
Set refFile = Nothing

'Don't forget to include this function...
Function GetVBDate(wd)
GetVBDate = DateSerial(left(wd,4),mid(wd,5,2),mid(wd,7,2)) _
          + TimeSerial(mid(wd,9,2),mid(wd,11,2),mid(wd,13,2))
End Function
</code>