Some sample code because it isn't the most redundant thing on the web.
<%
dim objDocProp, objProp
set objProp = server.CreateObject("DSOleFile.PropertyReader"
set objDocProp = objProp.GetDocumentProperties(objFile.Path)
response.write "<br>Subject: " & objDocProp.Subject
response.write "<br>Category: " & objDocProp.Category
response.write "<br>Company: " & objDocProp.Company
response.write "<br>Manager: " & objDocProp.Manager
response.write "<br>CLSID: " & objDocProp.CLSID
response.write "<br>ProgID: " & objDocProp.ProgId
response.write "<br>Word Count: " & objDocProp.WordCount
response.write "<br>Page Count: " & objDocProp.PageCount
response.write "<br>Paragraph Count: " & response.write objDocProp.ParagraphCount
response.write "<br>Line Count: " & objDocProp.LineCount
response.write "<br>Character Count: " & objDocProp.CharacterCount
response.write "<br>Character Count (w/spaces): " & objDocProp.CharacterCountWithSpaces
response.write "<br>Byte Count: " & objDocProp.ByteCount
response.write "<br>Slide Count: " & objDocProp.SlideCount
response.write "<br>Note Count: " & objDocProp.PresentationNotes
response.write "<br>Hidden Slides: " & objDocProp.HiddenSlides
response.write "<br>MultimediaClips: " & objDocProp.MultimediaClips
response.write "<br>Last Edited by: " & objDocProp.LastEditedBy
response.write "<br>Date Created: " & objDocProp.DateCreated
response.write "<br>Date Last Printed: " & objDocProp.DateLastPrinted
response.write "<br>Date Last Saved: " & objDocProp.DateLastSaved
response.write "<br>Total Editing Time (mins): " & objDocProp.TotalEditTime
response.write "<br>Version: " & objDocProp.Version
response.write "<br>Revision Number: " & objDocProp.RevisionNumber
response.write "<br>Template Name: " & objDocProp.Template
response.write "<br>Presentation Format: " & objDocProp.PresentationFormat
set objProp = nothing
%>