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