Chapter 9: IIS Web Site Operations Code | Windows NT/2000 ADSI Scripting for System Administration

Chapter 9: IIS Web Site Operations Code

Querying ServerComment Using a VBScript Active Server Page

 Dim Site Dim ServerName Dim Index ServerName = "IIS_Server_Name" Index = Site_Index_Integer Set Site = GetObject("IIS://" & ServerName & "/W3SVC/" & Index) Response.Write Site.ServerComment

Setting ServerComment Using a VBScript Active Server Page

 Dim Site Dim ServerName Dim Index Dim NewServerComment ServerName = "IIS_Server_Name" Index = Site_Index_Integer NewServerComment = "New_Server_Comment_String" Set Site = GetObject("IIS://" & ServerName & "/W3SVC/" & Index) Site.ServerComment = NewServerComment Site.SetInfo

Querying ServerBindings Using a VBScript Active Server Page

 Dim Site Dim ServerName Dim SiteIndex ServerName = "IIS_Server_Name" SiteIndex = Site_Index_Value Set Site = GetObject("IIS://" & ServerName & "/W3SVC/" & SiteIndex) For Each Binding In Site.ServerBindings   Response.Write Binding & "<BR>" Next

Setting ServerBindings Using a VBScript Active Server Page

 Dim Site Dim ServerName Dim SiteIndex Dim NewBindingArray Dim ServerBindingString1 Dim ServerBindingString2 Dim ServerBindingString3 ServerName = "IIS_Server_Name" SiteIndex = Site_Index_Value ServerBindingString1 = "IP_Address:TCP_Port:Hostname" ServerBindingString2 = "IP_Address:TCP_Port:Hostname" ServerBindingString3 = "IP_Address:TCP_Port:Hostname" NewBindingArray = Array(ServerBindingString1, ServerBindingString2, ServerBindingString3) Set Site = GetObject("IIS://" & ServerName & "/W3SVC/" & SiteIndex) Site.ServerBindings = NewBindingArray Site.SetInfo

Querying SecureBindings Using a VBScript Active Server Page

 Dim Site Dim ServerName Dim SiteIndex ServerName = "IIS_Server_Name" SiteIndex = Site_Index_Value Set Site = GetObject("IIS://" & ServerName & "/W3SVC/" & SiteIndex) For Each Binding In Site.SecureBindings   Response.Write Binding&"<BR>" Next

Setting SecureBindings Using a VBScript Active Server Page

 Dim Site Dim ServerName Dim SiteIndex Dim NewBindingArray Dim ServerBindingString1 Dim ServerBindingString2 Dim ServerBindingString3 ServerName = "IIS_Server_Name" SiteIndex = Site_Index_Value ServerBindingString1 = "IP_Address:TCP_Port:Hostname" ServerBindingString2 = "IP_Address:TCP_Port:Hostname" ServerBindingString3 = "IP_Address:TCP_Port:Hostname" NewBindingArray = Array(ServerBindingString1, ServerBindingString2, ServerBindingString3) Set Site = GetObject("IIS://" & ServerName & "/W3SVC/" & SiteIndex) Site.SecureBindings = NewBindingArray Site.SetInfo

Querying Maximum Connections Using a VBScript Active Server Page

 Dim Site Dim ServerName Dim Index Dim RetVal ServerName = "IIS_Server_Name" Index = Site_Index Set Site = GetObject("IIS://" & ServerName & "/W3SVC/" & Index) RetVal = Site.MaxConnections Response.Write RetVal

Setting Maximum Connections Using a VBScript Active Server Page

 Dim Site Dim ServerName Dim Index Dim NewMaxConnections ServerName = "IIS_Server_Name" Index = Site_Index NewMaxConnections = Maximum_Number_of_Connections Set Site = GetObject("IIS://" & ServerName & "/W3SVC/" & Index) Site.MaxConnections = NewMaxConnections Site.SetInfo

Querying Connection Timeout Using a VBScript Active Server Page

 Dim Site Dim ServerName Dim Index Dim RetVal ServerName = "IIS_Server_Name" Index = Site_Index Set Site = GetObject("IIS://" & ServerName & "/W3SVC/" & Index) RetVal = Site.ConnectionTimeout Response.Write RetVal

Setting Connection Timeout Using a VBScript Active Server Page

 Dim Site Dim ServerName Dim Index Dim ConnectionTimeout ServerName = "IIS_Server_Name" Index = Site_Index_Value NewConnectionTimeout = Connection_Timeout_in_Seconds Set Site = GetObject("IIS://" & ServerName & "/W3SVC/" & Index) Site.ConnectionTimeout = NewConnectionTimeout Site.SetInfo

Querying Operators Using a VBScript Active Server Page

 Dim Site Dim ServerName Dim SiteIndex ServerName = "IIS_Server_Name" SiteIndex = Site_Index_Value Set Site = GetObject("IIS://" & ServerName & "/W3SVC/" & SiteIndex) Set SecurityDescriptor = Site.AdminAcl Set DiscretionaryAcl = SecurityDescriptor.DiscretionaryAcl For Each Item In DiscretionaryAcl   If Item.AccessMask = 11 Or Item.AccessMask = 262315 Then     Response.Write Item.Trustee & "<BR>"   End If Next

Setting a New Operator Using a VBScript Active Server Page

 Dim Site Dim ACE Dim DiscretionaryACL Dim ServerName Dim SiteIndex Dim NewOperator ServerName = "IIS_Server_Name" SiteIndex = Site_Index_Value NewOperator = "New_Operator_in_Format_Domain\Username" Set Site = GetObject("IIS://" & ServerName & "/W3SVC/" & SiteIndex) Set SecurityDescriptor = Site.AdminACL Set DiscretionaryACL = SecurityDescriptor.DiscretionaryACL Set ACE = CreateObject("AccessControlEntry") ACE.Trustee = NewOperator ACE.AccessMask = 11 DiscretionaryACL.AddAce ACE SecurityDescriptor.DiscretionaryACL = DiscretionaryACL Site.AdminACL = SecurityDescriptor Site.SetInfo

Removing an Operator Using a VBScript Active Server Page

 Dim Site Dim ACE Dim DiscretionaryACL Dim ServerName Dim SiteIndex Dim OperatorToRemove ServerName = "IIS_Server_Name" SiteIndex = Site_Index_Value OperatorToRemove = "User_Name_to_Remove" Set Site = GetObject("IIS://" & ServerName & "/W3SVC/" & SiteIndex) Set SecurityDescriptor = Site.AdminACL Set DiscretionaryACL = SecurityDescriptor.DiscretionaryACL Set ACE = CreateObject("AccessControlEntry") ACE.Trustee = OperatorToRemove ACE.AccessMask = 11 DiscretionaryACL.RemoveAce ACE SecurityDescriptor.DiscretionaryACL = DiscretionaryACL Site.AdminACL = SecurityDescriptor Site.SetInfo

Querying ServerSize Using a VBScript Active Server Page

 Dim Site Dim ServerName Dim SiteIndex ServerName = "IIS_Server_Name" SiteIndex = Site_Index_Value Set Site = GetObject("IIS://" & ServerName & "/W3SVC/" & SiteIndex) Response.Write Site.ServerSize

Setting ServerSize Using a VBScript Active Server Page

 Dim Site Dim ServerName Dim SiteIndex Dim NewServerSize ServerName = "IIS_Server_Name" SiteIndex = Site_Index_Value NewServerSize = 0 Set Site = GetObject("IIS://" & ServerName & "/W3SVC/" & SiteIndex) Site.ServerSize = NewServerSize Site.SetInfo

Querying Maximum Bandwidth for a Site Using a VBScript Active Server Page

 Dim Site Dim ServerName Dim SiteIndex ServerName = "IIS_Server_Name" SiteIndex = Site_Index_Value Set Site = GetObject("IIS://" & ServerName & "/W3SVC/" & SiteIndex) Response.Write Site.MaxBandwidth

Setting Maximum Bandwidth for a Site Using a VBScript Active Server Page

 Dim Site Dim ServerName Dim SiteIndex Dim NewMaxBandwidth ServerName = "IIS_Server_Name" SiteIndex = Site_Index_Value NewMaxBandwidth = Value_in_Bytes Set Site = GetObject("IIS://" & ServerName & "/W3SVC/" & SiteIndex) Site.MaxBandwidth = NewMaxBandwidth Site.SetInfo

Querying HTTP Keep “Alive Processing Status Using a VBScript Active Server Page

 Dim Site Dim ServerName Dim SiteIndex ServerName = "IIS_Server_Name" SiteIndex = Site_Index_Value Set Site = GetObject("IIS://" & ServerName & "/W3SVC/" & SiteIndex) Response.Write Site.AllowKeepAlive

Setting HTTP Keep “Alive Processing Status Using a VBScript Active Server Page

 Dim Site Dim ServerName Dim SiteIndex Dim AllowKeepAlive ServerName = "IIS_Server_Name" SiteIndex = Site_Index_Value AllowKeepAlive = True Set Site = GetObject("IIS://" & ServerName & "/W3SVC/" & SiteIndex) Site.AllowKeepAlive = AllowKeepAlive Site.SetInfo

Querying the Local Path Property for a Site's Root Virtual Directory Using a VBScript Active Server Page

 Dim VirtualDirectory Dim ServerName Dim Index Dim RetVal ServerName = "IIS_Server_Name" Index = Site_Index_Value Set VirtualDirectory = GetObject("IIS://" & ServerName & "/W3SVC/" & Index & "/ROOT") RetVal = VirtualDirectory.Path Response.Write RetVal

Modifying the Local Path Property for a Site's Root Virtual Directory Using a VBScript Active Server Page

 Dim VirtualDirectory Dim ServerName Dim Index Dim NewVirtualDirPath ServerName = "IIS_Server_Name" Index = Site_Index_Value NewVirtualDirPath = "New_Path_for_Site" Set VirtualDirectory = GetObject("IIS://" & ServerName & "/W3SVC/" & Index & "/ROOT") VirtualDirectory.Path = NewVirtualDirPath VirtualDirectory.SetInfo

Querying the Remote Path Property and UNC Connection Information for a Site's Root Virtual Directory Using a VBScript Active Server Page

 Dim VirtualDirectory Dim ServerName Dim Index Dim RetVal ServerName = "IIS_Server_Name" Index = Site_Index_Value Set VirtualDirectory = GetObject("IIS://" & ServerName & "/W3SVC/" & Index & "/ROOT") Response.Write VirtualDirectory.Path & "<BR>" Response.Write VirtualDirectory.UNCUserName & "<BR>" Response.Write VirtualDirectory.UNCPassword

Modifying the Remote Path Property for a Site's Root Virtual Directory Using a VBScript Active Server Page

 Dim VirtualDirectory Dim ServerName Dim Index Dim NewVirtualDirPath Dim NewVirtualDirUser Dim NewVirtualDirPassword ServerName = "IIS_Server_Name" Index = Site_Index_Value NewVirtualDirPath = "New_Path_for_Site" NewVirtualDirUser = "UNC_Credentials_Used_To_Establish_Connection" NewVirtualDirPassword = "UNC_Credentials_Used_To_Establish_Connection" Set VirtualDirectory = GetObject("IIS://" & ServerName & "/W3SVC/" & Index & "/ROOT") VirtualDirectory.Path = NewVirtualDirPath VirtualDirectory.UNCUsername = NewVirtualDirUser VirtualDirectory.UNCPassword = NewVirtualDirPassword VirtualDirectory.SetInfo

Managing Access Permissions and Content Control Properties Using a VBScript Active Server Page

 Dim VirtualDirectory Dim ServerName Dim Index ServerName = "IIS_Server_Name" Index = Site_Index_Value Set VirtualDirectory = GetObject("IIS://" & ServerName & "/W3SVC/" & Index & "/ROOT") Response.Write "Read:" & VirtualDirectory.AccessRead & "<BR>" Response.Write "Write:" & VirtualDirectory.AccessWrite & "<BR>" Response.Write "Logging Disabled: " & VirtualDirectory.DontLog & "<BR>" Response.Write "Dir Browsing: " & VirtualDirectory.EnableDirBrowsing & "<BR>" Response.Write "Index Content: " & VirtualDirectory.ContentIndexed & "<BR>" Set VirtualDirectory = GetObject("IIS://" & ServerName & "/W3SVC/" & Index) Response.Write "FrontPage Web:" & VirtualDirectory.FrontPageWeb

Querying Application Configuration Using a VBScript Active Server Page

 Dim Application Dim ServerName Dim Index ServerName = "IIS_Server_Name" Index = Site_Index_Value Set Application = GetObject("IIS://" & ServerName & "/W3SVC/" & Index & "/ROOT") Response.Write "Friendly Name:" & Application.AppFriendlyName & "<BR>" Response.Write "Application Root:" & Application.AppRoot & "<BR>" Response.Write "Isolated Process:" & Application.AppIsolated & "<BR>" Response.Write "Read:" & Application.AccessRead & "<BR>" Response.Write "Execute:" & Application.AccessExecute

Setting Application Configuration Using a VBScript Active Server Page

 Dim Application Dim ServerName Dim Index Dim ApplicationName Dim Isolated Dim Read Dim Execute ServerName = "IIS_Server_Name" Index = Site_Index_Value ApplicationName = "Application_Name" Isolated = True Read = True Execute = True Set Application = GetObject("IIS://" & ServerName & "/W3SVC/" & Index & "/ROOT") Application.AppRoot = Replace(Application.ADsPath, "IIS://" & ServerName, "/LM") Application.AppFriendlyName = ApplicationName Application.AppIsolated = Isolated Application.AccessRead = Read Application.AccessExecute = Execute Application.SetInfo

Configuring Application Options Using a VBScript Active Server Page

 Dim Application Dim ServerName Dim Index ServerName = "IIS_Server_Name" Index = Site_Index_Value Set Application = GetObject("IIS://" & ServerName & "/W3SVC/" & Index & "/ROOT") Response.Write "Session Timeout:" & Application.AspSessionTimeout & "<BR>" Response.Write "Buffering:" & Application.AspBufferingOn & "<BR>" Response.Write "Parent Paths:" & Application.AspEnableParentPaths & "<BR>" Response.Write "Script Language:" & Application.AspScriptLanguage & "<BR>" Response.Write "Script Timeout:" & Application.AspScriptTimeout

Manipulating Process Options Using a VBScript Active Server Page

 Dim Application Dim ServerName Dim Index ServerName = "IIS_Server_Name" Index = Site_Index_Value Set Application = GetObject("IIS://" & ServerName & "/W3SVC/" & Index & "/ROOT") Response.Write "NT Event Logging:" & Application.AspLogErrorRequests & "<BR>" Response.Write "Debug Exceptions:" & Application.AspExceptionCatchEnable & "<BR>" Response.Write "Script Engines Cached:" & Application.AspScriptEngineCacheMax & "<BR>" Response.Write "Script File Cache:" & Application.AspScriptFileCacheSize & "<BR>" Set Application = GetObject("IIS://" & ServerName & "/W3SVC/" & Index) Response.Write "CGI Script Timeout:" & Application.CGITimeout

Manipulating the ASP Debugging Option Using a VBScript Active Server Page

 Dim Application Dim ServerName Dim Index ServerName = "IIS_Server_Name" Index = Site_Index_Value Set Application = GetObject("IIS://" & ServerName & "/W3SVC/" & Index & "/ROOT") Response.Write "ASP Server-Side Debugging:" & Application.AppAllowDebugging & "<BR>" Response.Write "ASP Client-Side Debugging:" & Application.AppAllowClientDebug & "<BR>" Response.Write "Detailed Client Error Messages:" &  Application.AspScriptErrorSentToBrowser & "<BR>" If Application.AspScriptErrorSentToBrowser = False then  Response.Write "Error Message Text:" & Application.AspScriptErrorMessage & "<BR>" End If

Querying Current Running Redirection Status Using a VBScript Active Server Page

 Dim Resource Dim ServerName Dim Index ServerName = "IIS_Server_Name" Index = Site_Index_Value Set Resource = GetObject("IIS://" & ServerName & "/W3SVC/" & Index & "/ROOT") Response.Write Resource.HttpRedirect

Setting New Resource Redirection Using a VBScript Active Server Page

 Dim Resource Dim ServerName Dim SiteIndex Dim HttpRedirectString ServerName = "IIS_Server_Name" SiteIndex = Site_Index_Value HttpRedirectString = "http://www.sitename.com,FLAG, Set Resource = GetObject("IIS://" & ServerName & "/W3SVC/" & SiteIndex & "/ROOT") Resource.HttpRedirect = HttpRedirectString Resource.SetInfo

Querying EnableDefaultDoc Using a VBScript Active Server Page

 Dim Resource Dim ServerName Dim Index ServerName = "IIS_Server_Name" Index = Site_Index_Value Set Resource = GetObject("IIS://" & ServerName & "/W3SVC/" & Index & "/ROOT") Response.Write Resource.EnableDefaultDoc

Setting EnableDefaultDoc Using a VBScript Active Server Page

 Dim Resource Dim ServerName Dim SiteIndex Dim EnableDefaultDocument ServerName = "IIS_Server_Name" SiteIndex = Site_Index_Value EnableDefaultDocument = True Set Resource = GetObject("IIS://" & ServerName & "/W3SVC/" & SiteIndex & "/ROOT") Resource.EnableDefaultDoc = EnableDefaultDocument Resource.SetInfo

Querying DefaultDoc Using a VBScript Active Server Page

 Dim Resource Dim ServerName Dim Index ServerName = "IIS_Server_Name" Index = Site_Index_Value Set Resource = GetObject("IIS://" & ServerName & "/W3SVC/" & Index & "/ROOT") Response.Write Resource.DefaultDoc

Setting DefaultDoc Using a VBScript Active Server Page

 Dim Resource Dim ServerName Dim SiteIndex Dim DefaultDocument ServerName = "IIS_Server_Name" SiteIndex = Site_Index_Value DefaultDocument = "default.asp,default.htm,index.html" Set Resource = GetObject("IIS://" & ServerName & "/W3SVC/" & SiteIndex & "/ROOT") Resource.DefaultDoc = DefaultDocument Resource.SetInfo

Querying DefaultDocFooter Using a VBScript Active Server Page

 Dim Resource Dim ServerName Dim Index ServerName = "IIS_Server_Name" Index = Site_Index_Value Set Resource = GetObject("IIS://" & ServerName & "/W3SVC/" & Index & "/ROOT") Response.Write Resource.DefaultDocFooter

Setting DefaultDocFooter Using a VBScript Active Server Page

 Dim Resource Dim ServerName Dim SiteIndex Dim DefaultDocumentFooter ServerName = "IIS_Server_Name" SiteIndex = Site_Index_Value DefaultDocumentFooter = "c:\legal_footers\copyright.htm" Set Resource = GetObject("IIS://" & ServerName & "/W3SVC/" & SiteIndex & "/ROOT") Resource.DefaultDocFooter = DefaultDocumentFooter Resource.SetInfo

Querying EnableDocFooter Using a VBScript Active Server Page

 Dim Resource Dim ServerName Dim Index ServerName = "IIS_Server_Name" Index = Site_Index_Value Set Resource = GetObject("IIS://" & ServerName & "/W3SVC/" & Index & "/ROOT") Response.Write Resource.EnableDocFooter

Setting EnableDocFooter Using a VBScript Active Server Page

 Dim Resource Dim ServerName Dim SiteIndex Dim EnableDocumentFooter ServerName = "IIS_Server_Name" SiteIndex = Site_Index_Value EnableDocumentFooter = True Set Resource = GetObject("IIS://" & ServerName & "/W3SVC/" & SiteIndex & "/ROOT") Resource.EnableDocFooter = EnableDocumentFooter Resource.SetInfo

Querying Authentication Methods Used for a Given Resource Using a VBScript Active Server Page

 Dim Resource Dim ServerName Dim SiteIndex ServerName = "IIS_Server_Name" SiteIndex = Site_Index_Value Set Resource = GetObject("IIS://" & ServerName & "/W3SVC/" & SiteIndex & "/ROOT") Response.Write "Authentication Methods for " & Resource.AdsPath & ":" Response.Write " <BR>" Response.Write "Anonymous Access:" & Resource.AuthAnonymous& "<BR>" If Resource.AuthAnonymous = True Then   Response.Write "Anonymous User Account Name:" &_ Resource.AnonymousUsername & "<BR>"   Response.Write "Anonymous User Account Password:" &_ Resource.AnonymousUserPass & "<BR>"   Response.Write "Anonymous User Password Synchronization:"& Resource.AnonymousPasswordSync & "<BR>" End If Response.Write "Basic Authentication:" & Resource.AuthBasic & "<BR>" If Resource.AuthBasic = True Then   Response.Write "Default Authentication Domain: " &_ Resource.DefaultLogonDomain & "<BR>" End If Response.Write "NTLM Authentication:" & Resource.AuthNTLM

Enabling Anonymous Access Using a VBScript Active Server Page

 Dim Resource Dim ServerName Dim SiteIndex Dim EnableAnonymousAccess Dim AnonUserName Dim AnonUserPassword Dim AnonPasswordSync ServerName = "IIS_Server_Name" SiteIndex = Site_Index_Value EnableAnonymousAccess = True AnonUserName = "Username_for_Anonymous_Access" AnonUserPassword = "Password_for_Anonymous_Access_Account" AnonPasswordSync = True Set Resource = GetObject("IIS://" & ServerName & "/W3SVC/" & SiteIndex & "/ROOT") Resource.AuthAnonymous = EnableAnonymousAccess Resource.AnonymousUsername = AnonUserName Resource.AnonymousUserPass = AnonUserPassword Resource.AnonymousPasswordSync = AnonPasswordSync Resource.SetInfo

Enabling Basic Authentication Using a VBScript Active Server Page

 Dim Resource Dim ServerName Dim SiteIndex Dim EnableBasicAuth Dim DefaultLogonDomain ServerName = "IIS_Server_Name" SiteIndex = Site_Index_Value EnableBasicAuth = True DefaultLogonDomain = "Domain_Used_for_Authentication" Set Resource = GetObject("IIS://" & ServerName & "/W3SVC/" & SiteIndex & "/ROOT") Resource.AuthBasic= EnableBasicAuth Resource.DefaultLogonDomain = DefaultLogonDomain Resource.SetInfo

Enabling NTLM Authentication Using a VBScript Active Server Page

 Dim Resource Dim ServerName Dim SiteIndex Dim EnableNTLMAuth ServerName = "IIS_Server_Name" SiteIndex = Site_Index_Value EnableNTLMAuth = True Set Resource = GetObject("IIS://" & ServerName & "/W3SVC/" & SiteIndex & "/ROOT") Resource.AuthNTLM= EnableNTLMAuth Resource.SetInfo

Querying Secure Communication Configuration Using a VBScript Active Server Page

 Dim Resource Dim ServerName Dim SiteIndex ServerName = "IIS_Server_Name" SiteIndex = Site_Index_Value Set Resource = GetObject("IIS://" & ServerName & "/W3SVC/" & SiteIndex & "/ROOT") Response.Write "Require SSL:" & Resource.AccessSSLn & "<BR>" Response.Write "Require 128-bit SSL:" & Resource.AccessSSL128 & "<BR>" Response.Write "Map Client Certificates to NT UserIDs:" & Resource.AccessSSLMapCert & "<BR>" Response.Write "Negotiate Client Certificates:" & Resource.AccessSSLNegotiateCert & "<BR>" Response.Write "Require Client Certificates:" & Resource.AccessSSLRequireCert & "<BR>"

Setting New Secure Communication Configuration Using a VBScript Active Server Page

 Dim Resource Dim ServerName Dim SiteIndex ServerName = "IIS_Server_Name" SiteIndex = Site_Index_Value Set Resource = GetObject("IIS://" & ServerName & "/W3SVC/" & SiteIndex & "/ROOT") Resource.AccessSSL = True Resource.AccessSSL128 = True Resource.AccessSSLMapCert = True Resource.AccessSSLNegotiateCert = True Resource.AccessSSLRequireCert = True Resource.SetInfo

Querying IP Address Restrictions Using a VBScript Active Server Page

 Dim Site Dim ServerName Dim SiteIndex Dim IPSecurity ServerName = "IIS_Server_Name" SiteIndex = Site_Index_Value Set Site = GetObject("IIS://" & ServerName & "/W3SVC/" & SiteIndex & "/ROOT") Set IPSecurity = Site.IPSecurity If IPSecurity.GrantByDefault Then      Response.Write "All addresses will be allowed, except as follows:" & "<BR>"      For Each Entry In IPSecurity.IPDeny           If InStr(1, Entry, "255.255.255.255") Then                Response.Write "Denied IP: "& Replace(Entry, ", 255.255.255.255", "") &  "<BR>"           Else                Response.Write "Denied Subnet: " & Entry & "<BR>"           End If      Next      For Each Entry In IPSecurity.DomainDeny           Response.Write "Denied Domain: " & Entry & "<BR>"      Next Else      Response.Write "All addresses will be blocked, except as follows:" & "<BR>"      For Each Entry In IPSecurity.IPGrant           If InStr(1, Entry, "255.255.255.255") Then                Response.Write "Allowed IP: "& Replace(Entry, ", 255.255.255.255", "") &  "<BR>"           Else                Response.Write "Allowed Subnet: "& Entry & "<BR>"           End If      Next      For Each Entry In IPSecurity.DomainGrant           Response.Write "Allowed Domain: "& Entry & "<BR>"      Next End If

Setting New IP Address Restrictions Using a VBScript Active Server Page

 Dim Site Dim ServerName Dim SiteIndex Dim IPSecurity Dim IPAddress Dim IPSubnet Dim Domain Dim ActionType ServerName = "IIS_Server_Name" SiteIndex = Site_Index_Value IPAddress = "xxx.xxx.xxx.xxx" IPSubnet = "xxx.xxx.xxx.xxx" Domain = "DNS_Domain.Name" ActionType = "GRANTIP" 'ActionType = "GRANTSUBNET" 'ActionType = "GRANTDOMAIN" 'ActionType = "DENYIP" 'ActionType = "DENYSUBNET" 'ActionType = "DENYDOMAIN" Set Site = GetObject("IIS://" & ServerName & "/W3SVC/" & SiteIndex & "/ROOT") Select Case ActionType     Case "GRANTIP"         Set IPSecurity = Site.IPSecurity         IPSecurity.GrantByDefault = False         Site.IPSecurity = IPSecurity         Site.SetInfo         IPSecurity.IPGrant = Array(IPAddress&", 255.255.255.255")         Site.IPSecurity = IPSecurity         Site.SetInfo     Case "GRANTSUBNET"         Set IPSecurity = Site.IPSecurity         IPSecurity.GrantByDefault = False         IPSecurity.IPGrant = Array(IPAddress & ", "& IPSubnet)         Site.IPSecurity = IPSecurity         Site.SetInfo     Case "GRANTDOMAIN"         Set IPSecurity = Site.IPSecurity         IPSecurity.GrantByDefault = False         IPSecurity.DomainGrant = Array(Domain)         Site.IPSecurity = IPSecurity         Site.SetInfo     Case "DENYIP"         Set IPSecurity = Site.IPSecurity         IPSecurity.GrantByDefault = True         IPSecurity.IPDeny = Array(IPAddress & ", 255.255.255.255")         Site.IPSecurity = IPSecurity         Site.SetInfo     Case "DENYSUBNET"         Set IPSecurity = Site.IPSecurity         IPSecurity.GrantByDefault = True         IPSecurity.IPDeny = Array(IPAddress & ", " & IPSubnet)         Site.IPSecurity = IPSecurity         Site.SetInfo     Case "DENYDOMAIN"         Set IPSecurity = Site.IPSecurity         IPSecurity.GrantByDefault = True         IPSecurity.DomainDeny = Array(Domain)         Site.IPSecurity = IPSecurity         Site.SetInfo End Select

Querying Current Value of Content Expiration Using a VBScript Active Server Page

 Dim Resource Dim ServerName Dim Index ServerName = "IIS_Server_Name" Index = Site_Index_Value Set Resource = GetObject("IIS://" & ServerName & "/W3SVC/" & Index & "/ROOT") Response.Write Resource.HttpExpires

Enabling Content Expiration Using a VBScript Active Server Page

 Dim Resource Dim ServerName Dim SiteIndex Dim ContentExpiration ServerName = "IIS_Server_Name" SiteIndex = Site_Index_Value ContentExpiration = "D, 0" Set Resource = GetObject("IIS://" & ServerName & "/W3SVC/" & SiteIndex & "/ROOT") Resource.HttpExpires = ContentExpiration Resource.SetInfo

Querying Custom HTTP Header Configurations Using a VBScript Active Server Page

 Dim Resource Dim ServerName Dim Index ServerName = "IIS_Server_Name" Index = Site_Index_Value Set Resource = GetObject("IIS://" & ServerName & "/W3SVC/" & Index & "/ROOT") For Each HeaderEntry in Resource.HttpCustomHeaders    Response.Write HeaderEntry & "<BR>" Next

Assigning a Custom HTTP Header Using a VBScript Active Server Page

 Dim Resource Dim ServerName Dim Index Dim NewHeaderArray ServerName = "IIS_Server_Name" Index = Site_Index_Value NewHeaderArray = Array("HeaderName: HeaderValue") Set Resource = GetObject("IIS://" & ServerName & "/W3SVC/" & Index & "/ROOT") Resource.HttpCustomHeaders = NewHeaderArray Resource.SetInfo

Querying RSACi Rating for a Given Resource Using a VBScript Active Server Page

 Dim Resource Dim ServerName Dim Index Dim Entry ServerName = "IIS_Server_Name" Index = Site_Index_Value Set Resource = GetObject("IIS://" & ServerName & "/W3SVC/" & Index & "/ROOT") For Each Entry In Resource.HttpPics      Response.Write Entry & "<BR>" Next

Setting RSACi Rating for a Given Resource Using a VBScript Active Server Page

 Dim Resource Dim ServerName Dim Index Dim PICSLabel ServerName = "IIS_Server_Name" Index = Site_Index_Value PICSLabel = "PICS_Format_String" Set Resource = GetObject("IIS://" & ServerName & "/W3SVC/" & Index & "/ROOT") Resource.HttpPics = PICSLabel Resource.SetInfo

Querying MIME Type Definitions for Resources Using a VBScript Active Server Page

 Dim Resource Dim ServerName Dim Index ServerName = "IIS_Server_Name" Index = Site_Index_Value Set Resource = GetObject("IIS://" & ServerName & "/W3SVC/" & Index & "/ROOT") Response.Write "Registered File Types:" & "<BR>" For Each MimeMapping in Resource.MimeMap    Response.Write "Extension: "& MimeMapping.Extension & " MIME Content Type: "&  MimeMapping.MimeType & "<BR>" Next

Setting MIME Type Definitions for Resources Using a VBScript Active Server Page

 Dim Resource Dim ServerName Dim Index Dim MimeMapping Dim NewMimeMapping Dim MimeExtension Dim MimeType Dim i MimeExtension = "New_MIME_Extension" MimeType = "New_MIME_Type" ServerName = "IIS_Server_Name" Index = Site_Index_Value Set Resource = GetObject("IIS://" & ServerName & "/W3SVC/" & Index & "/ROOT") NewMimeMapping = Resource.GetEx("MimeMap") i = UBound(NewMimeMapping) + 1 ReDim Preserve NewMimeMapping(i) Set NewMimeMapping(i) = CreateObject("MimeMap") NewMimeMapping(i).MimeType = MimeType NewMimeMapping(i).Extension = MimeExtension Resource.PutEx ADS_PROPERTY_UPDATE, "MimeMap", NewMimeMapping Resource.SetInfo

Top