if WScript.Arguments.Count < 2 Then
WScript.Echo "Error! Please specify the source path and the destination. Usage: TestCon SourcePath.xls Destination.txt"
Wscript.Quit
End If
Dim acroAppObj : set acroAppObj = CreateObject("AcroExch.App")
Set myAcroDoc = CreateObject("AcroExch.AVDoc")
Dim acroADocObj : Set acroADocObj = Nothing
Dim acroPDocObj
Dim jsObj
Dim fsObj : Set fsObj = CreateObject("Scripting.FileSystemObject")
path = Wscript.Arguments.Item(0)
myAcroDoc.Open path, path
Set acroADocObj = acroAppObj.GetActiveDoc
Set acroPDocObj = acroADocObj.GetPDDoc
Set jsObj = acroPDocObj.GetJSObject
lFileName = Wscript.Arguments.Item(1)
If fsObj.FileExists(lFileName) Then fsObj.DeleteFile lFileName
jsObj.SaveAs lFileName, "com.adobe.acrobat.accesstext"
acroADocObj.Close False
Set acroADocObj = Nothing
Set acroPDocObj = Nothing
Set jsoObj = Nothing