pasar funcion de vb a asp

[juliko]

Saludos a todos/as
¿como puedo pasar la siguiente declaración de función que tengo en vb a asp sin que me de errores?

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Gracias

[sander]

En si ASP usa VBS pero en tu ejemplo no se entiende bien que hace, seria bueno que des mas informacion de que hace tu codigo asi talves recibirias mas respuestas.
Saludos.

[juliko]

Esto es la declaración de la funcion

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Y la llamada a la función es esta:

ShellExecute 0&, "print", fichero a imprimir & "" & Chr$(0), vbNullString, vbNullString, SW_HIDE

que lo que hace es imprimir un documento desde visual basic y lo que yo pretendo es adaptar este código para que pueda imprimir documentos en el servidor desde mi página web.
No se si con esto esta todo un poco más claro.

[trasgukabi]

Un ejemplo para ejecutar un .bat.

set ObjShell = server.createObject("Wscript.shell")
command = "archbat.bat"

Dim sexec

Set sexec = ObjShell.Exec(command)

Do While sexec.Status<1
'esperamos el resultado de la ejecución
'aquí, si teneis instalado el objeto timer se podría esperar con un temporizador
Loop

Dim sout 'resultado de la salida estandar
sout = sexec.stdout.readAll

Dim serr 'resultado del error
serr = sexec.stderr.readAll

Response.write "OUT:" & sout & "<br>"
Response.write "ERR:" & serr & "<br>"

[Myakire]

No se si puedas ejecutar el ShellExecute de la API de Windows desde ASP. Podrías hacer una DLL en VB que haga eso e invocarla desde ASP o utilizar un componente que te permita ejecutar comandos, o utilizar el objeto Shell.Application o wscript.shell que es lo que yo he hecho con anterioridad con buenos resultados.

Saludos

[juliko]

Alguien me puede decir como crear la dll que Myakire me aconseja, gracias