<%@ 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
%>
<html>
<head>IIS Info</head>
<body>
<h1 align="center">Server Info</h1>
<table>
<tr>
<td>Request.ServerVariables("SERVER_NAME"):</td><td><%=Request.ServerVariables("SERVER_NAME") %></td>
</tr>
<tr>
<td>Request.ServerVariables("INSTANCE_ID"):</td><td><%=Request.ServerVariables("INSTANCE_ID") %></td>
</tr>
<tr>
<td>Request.ServerVariables("APPL_PHYSICAL_PATH"):</td><td><%=Request.ServerVariables("APPL_PHYSICAL_PATH") %></td>
</tr>
<tr>
<td>Request.ServerVariables("SERVER_SOFTWARE"):</td><td><%=Request.ServerVariables("SERVER_SOFTWARE") %></td>
</tr>
<tr>
<td>Request.ServerVariables("LOCAL_ADDR"):</td><td><%=Request.ServerVariables("LOCAL_ADDR") %> - Server's IP Address</td>
</tr>
<tr>
<td>Request.ServerVariables("REMOTE_ADDR"):</td><td><%=Request.ServerVariables("REMOTE_ADDR") %> - Client's IP Address</td>
</tr>
</table>
</body>
</html>