<%@ Language = "VBScript" %> <% Response.Buffer = True %> <% Dim sServername, sServerinst, sPhyspath, sServerVersion Dim sServerIP, sRemoteIP sServername = LCase(Request.ServerVariables("SERVER_NAME")) sServerinst = Request.ServerVariables("INSTANCE_ID") sPhyspath = LCase(Request.ServerVariables("APPL_PHYSICAL_PATH")) sServerVersion = LCase(Request.ServerVariables("SERVER_SOFTWARE")) sServerIP = LCase(Request.ServerVariables("LOCAL_ADDR")) ' Server's IP address sRemoteIP = LCase(Request.ServerVariables("REMOTE_ADDR")) ' Client's IP address %> IIS Info

Server Info

Request.ServerVariables("SERVER_NAME"):	<%=Request.ServerVariables("SERVER_NAME") %>
Request.ServerVariables("INSTANCE_ID"):	<%=Request.ServerVariables("INSTANCE_ID") %>
Request.ServerVariables("APPL_PHYSICAL_PATH"):	<%=Request.ServerVariables("APPL_PHYSICAL_PATH") %>
Request.ServerVariables("SERVER_SOFTWARE"):	<%=Request.ServerVariables("SERVER_SOFTWARE") %>
Request.ServerVariables("LOCAL_ADDR"):	<%=Request.ServerVariables("LOCAL_ADDR") %> - Server's IP Address
Request.ServerVariables("REMOTE_ADDR"):	<%=Request.ServerVariables("REMOTE_ADDR") %> - Client's IP Address