code:

---

$obj = createobject("word.application")
$objdoc = $obj.Documents.Open("c:\data\scripts\titlea.doc")
for each $property in $objdoc.BuiltinDocumentProperties
	? $property.name + "=" + $property.value
next
$objdoc.close
$obj.quit  

---