VBScript For Listing Owner & Email of Public Folders

Hello,

I am looking for a VBScript (not PowerShell) that will do the following:

>> User enters the Exchange Server Name (Exchange 2003 or Later)

>> The Script should search and list All Public Folders

>> Also, Display the Owner Name and Email address of each public folder

I have been searching for the same VBScript; but no result. Please help.

Thanks.