Retreiving extended file properties - Company Name

Hello everyone,

I have been tasks with trying to document owner, author, and company name for each file on our network. I have had limited success using the code below but it doesn't seem to be getting the information from Office documents.

Dim arrHeaders(100)
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace("t:\test\")
For i = 0 to 100
 arrHeaders(i) = objFolder.GetDetailsOf(objFolder.Items, i)
Next
For Each strFileName in objFolder.Items
 For i = 0 to 100
 Wscript.Echo i & vbtab & arrHeaders(i) _& ": " & objFolder.GetDetailsOf(strFileName, i)
 Next
Next

Can anyone give me some pointers? I have trawled through countless scripting examples and they all seem to fall short of what I have been asked to do.

Thanks,

Matt