کد اسکریپت کار با دستورات داس در VbScript

این هم نمونه کدش

Dim WshShell, fso, file
Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
WshShell.Run("cmd for %i in (D:CentersCO022Test*.pdf) do ""C:Program Files (x86)A-PDF Renamepcmd.exe"" %i ""[%Content_1% ] %Content_2% (%Content_P3%)"" -L""C:Scripts1.rul"",""C:Scripts2.rul"",""C:Sc ripts3.rul"" > ""C:ScriptsCO022-RPL-Log.txt"""),1,false
wscript.quit