% @Language = "VBScript" %>
<% Response.buffer = true %>
<%
Dim oFS,oFSPath
Dim servername,serverinst, path
Dim oDefSite,sDefDoc,sSitePath,sDocName
Dim aDefDoc
Dim success
Dim infoobj, administ
Dim bind,binditems,port,adminURL
adminURL = ""
success = false
Set infoobj=GetObject("IIS://localhost/w3svc/info")
Set administ= GetObject("IIS://localhost/w3svc/" & infoobj.AdminServer)
bind = administ.ServerBindings(0)(0)
binditems = split(bind,":")
port= binditems(1)
adminURL = "http://localhost:" & port & "/"
Set oFS=CreateObject("Scripting.FileSystemObject")
servername=Request.ServerVariables("SERVER_NAME")
serverinst=Request.ServerVariables("INSTANCE_ID")
path = "IIS://" & servername & "/W3SVC/" & serverinst
Set oDefSite = GetObject(path)
thisURL = oDefSite.ADsPath & "/Root" & Request.ServerVariables("URL")
if instr(thisURL,"localstart.asp") > 0 then
thisURL = Mid(thisURL,1,instr(thisURL,"localstart.asp")-2)
end if
Set oDefSiteRoot = GetObject(thisURL)
'Get the default document for this site...
sDefDoc = oDefSite.DefaultDoc
sSitePath = oDefSiteRoot.Path
'parse through the default document string
aDefDocs = split(sDefDoc,",")
'and make sure at least one of them is valid
for each sDocName in aDefDocs
if oFS.FileExists(sSitePath & "\" & sDocName) then
if InStr(sDocName,"iisstart") = 0 then
success = True
exit for
end if
end if
next
%>
Welcome to Windows 2000 Internet Services
<% if not success and err = 0 then %>
You do not currently have a default document set for your
users. Any users attempting to connect to this site are currently receiving an ">"Under Construction page".
<% end if %>
Welcome to IIS 5.0
Internet Information Services (IIS) for
Microsoft Windows 2000 brings the power of Web computing to Windows.
With IIS, you can easily share files and printers and create
applications to securely publish information to improve
the way your organization works. IIS is a secure platform for building and deploying eCommerce solutions. IIS also makes it easy to bring mission-critical business applications to the Web.
Windows 2000 with IIS scales to meet your needs. You can:
Set up a personal Web server.
Share information within your team.
Access databases.
Create an enterprise intranet.
IIS integrates proven Internet standards with Windows, so that using the Web does
not mean having to start over and learn new ways to publish, manage, or develop.
Windows 2000 with Internet Information Services is the easiest way to
share information and run powerful applications on the Web.
Integrated Management
You can manage IIS through the Windows 2000 Computer Management console, or by using scripting. If you have installed Windows 2000 Server or Windows 2000 Advanced Server, the
<% if port <> "" then %>Administration Web site<% else %>Administration Web site<% end if %> can also be used to manage IIS.
You can also right-click on a directory,
and you can share its contents via the Web, as well as configure the most common IIS settings.
Online Documentation The award-winning IIS online documentation includes an index,
full-text search, and printing by node or by individual topic. You can:
Get help with tasks.
Learn about server operation.
Consult reference material.
View code samples.
<%
Dim WshShell, ver
Set WshShell = Server.CreateObject("Wscript.Shell")
On Error Resume Next
ver = 0
ver = WshShell.RegRead("HKLM\SOFTWARE\Policies\Microsoft\Windows NT\Printers\DisableWebPrinting")
%>
<% If ver <> 1 or err <> 0 Then %>
Web Printing Windows 2000 dynamically lists all the printers on your
server on an easily accessible Web site. You can browse this site
to monitor printers and their jobs. You can also connect to the printers via this site
from any Windows computer.