classname for adobe acrobat reader

Hi all i am using this code to find tha valid path of the docuemtn opened inside a word application...
the ccde is
***********
Set app = GetObject(, "Word.application")
If app Is Nothing Then
    MsgBox "There is no active WORD Session"
Else
appWord.activedocument.Name
MsgBox app.activedocument.FullName
End If
**********

How can i do this same thing for Adode Acrobat Reader...
please help...soon
Points will not be an issuse if my problem gets solved...