in teoria non ti servirebbe nemmeno la libreria in vb. Dovresti riuscire a lanciare la shell direttamente da asp.
Salva questa classe in una pagina asp (per esempio shell.asp)
codice:
<%
Class cShell
Public WScript
Public Output
Public Error
Private Sub Class_Initialize()
Set WScript = Server.CreateObject("WScript.Shell")
End Sub
Public Function Execute(commandLine)
Dim oExec
on error resume next
Set oExec = WScript.Exec(commandLine)
If Err.number <> 0 then
Response.Write("<p style='font-family:verdana;font-size:11px'>Shell Error
"& Err.Description & "
CommandLine : " & commandLine)
Response.End
end if
on error goto 0
Error = False
Output = oExec.StdOut.ReadAll()
if Output="" then
Output = oExec.StdErr.ReadAll()
Error = True
End If
Execute = Error
End Function
Private Sub Class_Terminate()
Set WScript = nothing
End Sub
End Class
%>
poi crea una nuova pagina asp e copia questo codice:
codice:
<%
Set Shell = new cShell
Response.Write("<BODY style='font-size:11px;font-family:verdana'>")
Response.Write("Execute:"& Shell.Execute("cmd /?") & "
")
Response.Write("Error:"&Shell.Error & "
")
Response.Write("Output:"& replace(Server.HtmlEncode(Shell.Output), vbcrlf, "
" & vbcrlf) & "
")
Response.Write("</dir>")
%>
dovresti ottenere una pagina con l'help dei comandi.
Se funziona puoi sostituire "Shell.Execute("cmd /?")", con il tuo programma.