fso.GetFileVersion Description ? Company ?

[Rich75]

Hi
i have the code below that picks up the file version okay but i need to pick up the addition attributes of the .dll files
i.e company and description

any ideas????

thanks

Rich75

Function ShowFileDescription(filespec)
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(filespec) Then
On Error Resume Next
sVersion = fso.GetFileVersion(filespec)

If sVersion <> "" And sVersion <> Empty Then
ShowFileDescription = sVersion.Description
msgbox "here"
Else
ShowFileDescription = "NONE"
End If
Else
ShowFileDescription = "Missing"
End If

End Function