sol9-2.vbs

Apress - Managing Enterprise Systems With The Windows Script Host Source Code

'get a reference to a document
Set objDoc = GetObject("d:\data\word\report.doc")

On Error Resume Next
For Each objProp In objDoc.BuiltinDocumentProperties
  Wscript.Echo objProp.Name, objProp.Value
Next