sub GenPDF (byval sURL, byval sCatalog, byval sFileName, byval sAddPrm)
	dim wshell, intReturn, sAddr

	sAddr = "D:\wkhtmltox\bin\wkhtmltopdf.exe " & sAddPrm & " --username user --password user" & Chr(34) & sURL & Chr(34) & " " & sCatalog & sFileName

	set wshell = server.createobject("wscript.shell")
    intReturn = wshell.run(sAddr, 0, True)
    set wshell = nothing
end sub

 intReturn = wshell.run(sAddr, 0, True)

sAddr = "D:\wkhtmltox1\bin\wkhtmltopdf.exe  --username user --password user http://localhost/Cat1/Cat2/Spravka.asp?IDStatement=71474 D:\STATEMENTSPDF\71474AN_4.pdf"