Retrive a file keywords using script

I cant find out how to get a file keywords, i can get title, aurthor and everything else.

I can rightclick the file and choose properties to enter new keywords but it would be great if it works by using script..

Here is an example..

Dim arrHeaders(35)

Set objShell = CreateObject("Shell.Application")

Set objFolder = objShell.Namespace("C:\Scripts")

For i = 0 to 34

arrHeaders(i) = objFolder.GetDetailsOf(objFolder.Items, i)

Next

For Each strFileName in objFolder.Items

For i = 1 to 34

Wscript.Echo i & vbtab & arrHeaders(i) _

& ": " & objFolder.GetDetailsOf(strFileName, i)

Next

Next

Continue reading...