download and open pdf vbscript
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell")
pdfPath = WScript.Arguments.Item(1)
Set MyFolder = objFSO.GetFolder(pdfPath)
For Each MyFile in MyFolder.Files
If Right(MyFile.Path,4) = ".pdf" Then
objShell.Run MyFile.Path
End If
Next