I'm talking about a .vbs WScript.
Here is the ASP Page ( in wwwroot ):
<% dim s
s=Server.MapPath("listprocesses.vbs")
CommandLine s,""
Sub CommandLine(progName,strVariable)
'Create Shell Object
Set objScriptShell = Server.CreateObject("Wscript.Shell")
'now run your program and dump the results into a .txt file
ss= "cscript " & progName & " " & strVariable _
& "> " & Server.MapPath("shellLog") & "\log" & ".txt"
objScriptShell.Run (ss, 0, True)
End Sub
And here is the vbs script that I am trying to execute ( in wwwroot ):
'
' listprocesses.vbs
'
set objService = getobject("winmgmts:")
dim s
for each Process in objService.InstancesOf("Win32_process")
if lcase(process.name)="dllhost.exe" then
s=s & Process.Name & vbTab & Process.processid & vbCrLf
end if
Next
WScript.echo s
TIA,
Larry