<%@ Language=VBScript%>
<% Option Explicit%>
<%
Response.Buffer = True
'-------------------------------------------------------------------------
' adminweb_prop.asp: Allows for the configuration of IP addresses
' and set the port to listen for non-encrypted and
' encrypted(SSL) HTTP admin web site.
'
' Copyright (c) Microsoft Corporation. All rights reserved.
'
' Date Description
' 28-02-2001 Created date
' 14-03-2001 Modified date
'-------------------------------------------------------------------------
%>
<!-- #include virtual="/admin/inc_framework.asp" -->
<!-- #include file="loc_adminweb.asp" -->
<%
'-------------------------------------------------------------------------
' Global Variables and Constants
'-------------------------------------------------------------------------
Dim G_objAdminService 'WMI server HTTP admin web site object
Dim G_objService 'WMI server object to get the IP addresses for NIC cards
Dim rc 'framework variable
Dim page 'framework variable
Dim SOURCE_FILE 'To hold source file name
SOURCE_FILE = SA_GetScriptFileName()
Const CONST_ARR_STATUS_CHECKED = "CHECKED" 'Constant for radio button checked property
Const CONST_ARR_STATUS_DISABLED = "DISABLED" 'Constant for disabling of SSL port
Const CONST_ARR_STATUS_TRUE = "YES" 'Constant for radio button status
Const CONST_ARR_STATUS_FALSE = "NO" 'Constant for radio button status
Const CONST_ARR_STATUS_NONE = "NONE" 'Constant for radio button status
'Port Locations for shares list page
CONST CONST_DEFAULT_PORTNAME ="AdminPort"
CONST CONST_SSL_PORTNAME ="SSLAdminPort"
'-------------------------------------------------------------------------
'Form Variables
'-------------------------------------------------------------------------
Dim F_strNonEncryptedIPAddress 'IP Address to be used for Non-Encrypted port
Dim F_strEncryptedIPAddress 'IP Address to be used for Encrypted port
Dim F_nNonEncryptedPort 'Non-encrypted port number to be used
Dim F_nEncryptedPort 'Encrypted port number(SSL) to be used
Dim F_strradIPAdd 'Value of radio button clicked
Dim F_strAll_IPAddress 'To set the status of the All IP address radio button
Dim F_strJustthis_IPAddress 'To set the status of the Just this IP address radio button
Dim F_strSSLPort_Status 'To set the status of the SSL port
'-------------------------------------------------------------------------
'END of Form Variables
'-------------------------------------------------------------------------
'
'Create a Property Page
rc = SA_CreatePage( L_PAGETITLE_ADMIN_TEXT , "", PT_PROPERTY, page )
If (rc = 0) Then
'Serve the page
SA_ShowPage(page)
End If
'---------------------------------------------------------------------
'Function: OnInitPage()
'Description: Called to signal first time processing for this page.
'Input Variables: PageIn,EventArg
'Output Variables: PageIn,EventArg
'Returns: True/False
'Global Variables: None
'---------------------------------------------------------------------
Public Function OnInitPage(ByRef PageIn, ByRef EventArg)
'Make it initialize to default always
F_strSSLPort_Status=""
'To get the admin web settings
OnInitPage = GetSystemSettings()
End Function
'-------------------------------------------------------------------------
'Function: OnPostBackPage()
'Description: Called to signal that the page has been posted-back.
'Input Variables: PageIn,EventArg
'Output Variables: PageIn,EventArg
'Returns: True/False
'Global Variables: F_(*)
'-------------------------------------------------------------------------
Public Function OnPostBackPage(ByRef PageIn,ByRef EventArg)
Call SA_TraceOut( SOURCE_FILE, "OnPostBackPage")
'Get the values from hidden variables
F_strradIPAdd = Request.Form("hdnIPAddressstatus")
F_nNonEncryptedPort = Request.Form("hdnNonencryptedPort")
F_nEncryptedPort = Request.Form("hdnEncryptedPort")
F_strSSLPort_Status = Request.Form("hdnSSLPortstatus")
If Ucase(F_strradIPAdd) = CONST_ARR_STATUS_TRUE then
F_strNonEncryptedIPAddress=""
F_strEncryptedIPAddress=""
ElseIf Ucase(F_strradIPAdd) = CONST_ARR_STATUS_FALSE Then
F_strNonEncryptedIPAddress = Request.Form("hdnNonEncryptedIPAddress")
F_strEncryptedIPAddress = Request.Form("hdnEncryptedIPAddress")
End If
'Getting the radio buttons status
If Ucase(F_strradIPAdd) = CONST_ARR_STATUS_TRUE Then
F_strAll_IPAddress = CONST_ARR_STATUS_CHECKED
F_strJustthis_IPAddress =""
ElseIf Ucase(F_strradIPAdd) = CONST_ARR_STATUS_FALSE Then
F_strJustthis_IPAddress = CONST_ARR_STATUS_CHECKED
F_strAll_IPAddress = ""
Else
F_strJustthis_IPAddress = ""
F_strAll_IPAddress = ""
End if
OnPostBackPage=TRUE
End Function
'---------------------------------------------------------------------
'Function: OnSubmitPage()
'Description: Called when the page has been submitted for processing.
'Input Variables: PageIn,EventArg
'Output Variables: PageIn,EventArg
'Returns: True/False
'Global Variables: G_objAdminService,G_objService,L_WMICONNECTIONFAILED_ERRORMESSAGE,
' CONST_WMI_IIS_NAMESPACE, CONST_WMI_WIN32_NAMESPACE
'---------------------------------------------------------------------
Public Function OnSubmitPage(ByRef PageIn, ByRef EventArg)
Err.Clear
On Error Resume Next
'Connecting to the WMI server
Set G_objAdminService = GetWMIConnection(CONST_WMI_IIS_NAMESPACE)
Set G_objService = GetWMIConnection(CONST_WMI_WIN32_NAMESPACE)
If Err.number <> 0 Then
Call SA_ServeFailurePage (L_WMICONNECTIONFAILED_ERRORMESSAGE & " (" & HEX(Err.Number) & ")" )
End if
'To set the admin web settings
OnSubmitPage = SetAdminConfig(G_objAdminService,G_objService)
End Function
'---------------------------------------------------------------------
'Function: OnClosePage()
'Description: Called when the page is about to be closed.
'Input Variables: PageIn,EventArg
'Output Variables: PageIn,EventArg
'Returns: True/False
'Global Variables: None
'---------------------------------------------------------------------
Public Function OnClosePage(ByRef PageIn, ByRef EventArg)
OnClosePage = TRUE
End Function
'-------------------------------------------------------------------------
'Function: OnServePropertyPage
'Description: Called when the page needs to be served.
'Input Variables: PageIn,EventArg
'Output Variables: PageIn,EventArg
'Returns: True/False
'Global Variables: F_(*), L_(*)
'-------------------------------------------------------------------------
Public Function OnServePropertyPage(ByRef PageIn,ByRef EventArg)
Call ServeCommonJavaScript()
%>
<table border=0>
<tr>
<td nowrap class = "TasksBody" colspan=2>
<%=L_ADMINUSAGE_TEXT%>
</td>
</tr>
<tr>
<td class = "TasksBody" ></td>
</tr>
<tr>
<td class = "TasksBody">
</td>
<td nowrap class = "TasksBody">
<input type="radio" value="YES" class="FormField" name=radIPADDRESS <%=Server.HTMLEncode(F_strAll_IPAddress)%> onClick="EnableControls(false)"> <%=L_ALLIPADDRESS_TEXT%>
</td>
</tr>
<tr>
<td class = "TasksBody">
</td>
<td nowrap class = "TasksBody">
<input type="radio" value="NO" class="FormField" name=radIPADDRESS <%=Server.HTMLEncode(F_strJustthis_IPAddress)%> onClick="EnableControls(true)"> <%=L_JUSTTHIS_IP_ADDRESS_TEXT%>
</td>
</tr>
<tr>
<td class = "TasksBody" colspan="2">
</td>
</tr>
<tr>
<td class = "TasksBody">
</td>
<td class = "TasksBody" colspan="3">
<select name="cboIPAddress" class="FormField">
<%GetSystemNICConfig F_strNonEncryptedIPAddress%>
</select>
</td>
</tr>
<tr>
<td class = "TasksBody">
</td>
<td nowrap class = "TasksBody">
<%=L_PORT_TEXT%> <input type="text" name="txtNonEncryptedPort" class="FormField" size="15" maxlength = "5" value="<%=F_nNonEncryptedPort%>" OnKeypress="javascript:checkKeyforNumbers(this);" >
</td>
</tr>
<tr>
<td class = "TasksBody">
</td>
<td class = "TasksBody">
<%=L_SSLPORT_TEXT%> <input type="text" name="txtEncryptedPort" class="FormField" size="15" maxlength = "5" <%=F_strSSLPort_Status%> value="<%=F_nEncryptedPort%>" OnKeypress="javascript:checkKeyforNumbers(this);" >
</td>
</tr>
<tr>
<td class = "TasksBody" colspan =2>
</td>
</tr>
<tr>
<td class = "TasksBody" colspan =2>
<%=L_ADMINNOTE_TEXT%>
</td>
</tr>
</table>
<input type=hidden name=hdnNonEncryptedIPAddress value ="<%=F_strNonEncryptedIPAddress%>">
<input type=hidden name=hdnEncryptedIPAddress value ="<%=F_strEncryptedIPAddress%>">
<input type=hidden name=hdnNonencryptedPort value ="<%=F_nNonEncryptedPort%>">
<input type=hidden name=hdnEncryptedPort value ="<%=F_nEncryptedPort%>">
<input type=hidden name=hdnIPAddressstatus value ="<%=F_strradIPAdd%>">
<input type=hidden name=hdnSSLPortstatus value ="<%=F_strSSLPort_Status%>">
<%
OnServePropertyPage=TRUE
End Function
'-------------------------------------------------------------------------
'Function: ServeCommonJavaScript
'Description: Serves in initializing the values,setting the form
' data and validating the form values
'Input Variables: None
'Output Variables: None
'Returns: True/False
'Global Variables: L_(*),F_(*)
'-------------------------------------------------------------------------
Function ServeCommonJavaScript()
%>
<script language="JavaScript" src="<%=m_VirtualRoot%>inc_global.js"></script>
<script language="JavaScript">
var CONST_ARR_INDEX_ALL_IP = 0
var CONST_ARR_INDEX_JUST_THIS_IP = 1
/* Init Function calls the EnableControls function to enable or disable the controls for the first time
and enable or disable the OK button */
function Init()
{
var strNonEncryptedIPAddress = "<%=F_strNonEncryptedIPAddress%>"
var strEncryptedIPAddress = "<%=F_strEncryptedIPAddress%>"
//If sites are configured at different IP addresses disable OK button
if(strNonEncryptedIPAddress.value != strEncryptedIPAddress)
{
DisableOK();
document.frmTask.cboIPAddress.disabled =true;
}
//Enabling or disabling of OK button depending on the status of radion button
if(document.frmTask.radIPADDRESS[CONST_ARR_INDEX_ALL_IP].checked)
EnableControls(false)
else if(document.frmTask.radIPADDRESS[CONST_ARR_INDEX_JUST_THIS_IP].checked)
EnableControls(true)
}
// Hidden Varaibles are updated in ValidatePage
function ValidatePage()
{
//Updating the hidden variables
document.frmTask.hdnNonEncryptedIPAddress.value = document.frmTask.cboIPAddress.value
document.frmTask.hdnNonencryptedPort.value = document.frmTask.txtNonEncryptedPort.value
document.frmTask.hdnEncryptedPort.value = document.frmTask.txtEncryptedPort.value
if (document.frmTask.radIPADDRESS[CONST_ARR_INDEX_ALL_IP].checked)
document.frmTask.hdnIPAddressstatus.value = document.frmTask.radIPADDRESS[CONST_ARR_INDEX_ALL_IP].value
else if(document.frmTask.radIPADDRESS[CONST_ARR_INDEX_JUST_THIS_IP].checked)
document.frmTask.hdnIPAddressstatus.value = document.frmTask.radIPADDRESS[CONST_ARR_INDEX_JUST_THIS_IP].value
//If Non-Encrypted Port is left blank display error
if (document.frmTask.txtNonEncryptedPort.value == "")
{
SA_DisplayErr('<%=SA_EscapeQuotes(L_ENTERPORTNUMBER_ERRORMESSAGE) %>');
document.frmTask.onkeypress = ClearErr
return false;
}
//If Encrypted Port is left blank display error
if (document.frmTask.txtEncryptedPort.value == "")
{
SA_DisplayErr('<%=SA_EscapeQuotes(L_ENTERPORTNUMBER_ERRORMESSAGE) %>');
document.frmTask.onkeypress = ClearErr
return false;
}
//If Non-Encrypted port number is less than 1 or greater then 65535 display error
var MAX_PORT_NO = 65535
var MIN_PORT_NO = 1
if (document.frmTask.txtNonEncryptedPort.value > MAX_PORT_NO || document.frmTask.txtNonEncryptedPort.value < MIN_PORT_NO)
{
SA_DisplayErr('<%=SA_EscapeQuotes(L_VALIDENTERPORTNUMBER_ERRORMESSAGE) %>');
document.frmTask.onkeypress = ClearErr
return false;
}
//If Encrypted port number is less than 1 or greater then 65535 display error
if (document.frmTask.txtEncryptedPort.value > MAX_PORT_NO || document.frmTask.txtEncryptedPort.value < MIN_PORT_NO)
{
SA_DisplayErr('<%=SA_EscapeQuotes(L_VALIDENTERPORTNUMBER_ERRORMESSAGE) %>');
document.frmTask.onkeypress = ClearErr
return false;
}
//If Non-Encrypted Port and Encrypted Port numbers are the same display error
if (document.frmTask.txtNonEncryptedPort.value == document.frmTask.txtEncryptedPort.value)
{
SA_DisplayErr('<%=SA_EscapeQuotes(L_PORTNUMBERS_ERRORMESSAGE)%>');
document.frmTask.onkeypress = ClearErr
return false;
}
return true;
}
//SetData function for the Framework.
function SetData()
{
}
// EnableControls Function is to enable or disable the controls depending on radio button value
function EnableControls(blnFlag)
{
EnableOK();
if (blnFlag)
{
document.frmTask.cboIPAddress.disabled = false;
}
else
{
document.frmTask.cboIPAddress.disabled =true;
}
}
</script>
<%
End Function
'-------------------------------------------------------------------------
'Function name: SetAdminConfig()
'Description: Serves in configuring IP address, encrypted port
' and non-encrypted port of HTTP admin web site
'Input Variables: G_objAdminService, G_objService
'Output Variables: True or false
'Returns: None
'Global Variables: F_strNonEncryptedIPAddress,F_nNonEncryptedPort,F_nEncryptedPort,L_(*)
'This function configures the IP address, encrypted port and non-encrypted of HTTP admin web site
'-------------------------------------------------------------------------
Function SetAdminConfig(G_objAdminService,G_objService)
Err.Clear
On Error Resume Next
Dim objAdminService 'Object to get instance of MicrosoftIISV1
Dim objService 'Object to get instance of CIMV2
Dim objNetWorkCon 'To get instance of IIs_WebServerSetting class
Dim objServerSetting 'To get instances of IIs_WebServerSetting class
Dim objNACCollection 'To get instance of IIs_WebServerSetting where site is other than Administration
Dim objinst 'To get instances of IIs_WebServerSetting where site is other than Administration
Dim nport 'Non-Encrypted port number
Dim strWMIpath 'WMI query to get admin web site
Dim strServerBindings 'To store the values obtained from ServerBindings property
Dim strIPAddress 'String to store the IP address for non-encrypted sites
Dim arrWinsSrv 'Array to store the IP address and non-encrypted port number
Dim arrIPAdd 'Array to store the port for encrypted sites
Dim nIPCount 'Count for getting the IP address and non-encrypted port number
Dim arrPort 'Array to store the port for non-encrypted sites
Dim strReturnURL 'Stores return URL
Dim objConfiguredIPs 'To get instance of win32_NetworkAdapterConfiguration
Dim objNICIP 'To get instances of win32_NetworkAdapterConfiguration
Dim strNICQuery 'Query to get all IP addresses
Dim nCount 'Count for getting the IP address and non-encrypted port number
Dim arrIPList(13) 'Array to store the IP addresses for all NIC cards
Dim nIPlistCount 'Count to get IP addresses for all NIC cards
Dim strIPFlag 'Boolean value to store the validity of IP address
Dim strAdminWebSite 'Admin web site name
Dim strFTPSite 'FTP site name
Dim strFTPpath 'FTP site path
Dim nFTPIPCount 'Count for getting the IP address and port number for FTP site
Dim strFTPServerBindings 'To store the values obtained from ServerBindings property for FTP site
Dim arrFTPWinsSrv 'Array to store the IP address and port for FTP site
Dim arrFTPIPAdd 'Array to store the IP address FTP site
Dim arrFTPPort 'Array to store the port for FTP site
Dim objFTPinst 'Gettings instances for FTP site
Dim objFTPInstances 'Object instance for FTP site
Dim strComputerName 'Computer name
Dim nSecureCount 'Count for getting the IP address and encrypted port number
Dim arrSecureIPAdd 'Array to store the IP address for encrypted sites
Dim arrSecurePort 'Array to store the port for encrypted sites
Dim arrWinsSecure 'Array to store the IP address and encrypted port number
Dim strSecureBindings 'To store the values obtained from SecureBindings property
Dim nSecurePort 'Encrypted port number
Dim strURL 'URL for non encrypted site
Dim strHTTPURL 'URL for encrypted site
Dim arrVarReplacementStringsAdminWeb(1) ' For localisation
Dim strErrMsg 'Error message
Const CONST_ARR_INDEX_IP = 0 'For IP address
Const CONST_ARR_INDEX_PORT = 1 'For port number
Const CONST_ARR_INDEX_HTTPS = "HTTPS" 'For secure site
SetAdminConfig = FALSE 'initialization default
Call SA_TraceOut( SOURCE_FILE, "SetAdminConfig")
'Getting the return URL
'That's a quick fix for 2.1 since in 2.1 administration site actually is
'under the virtual directory /admin.
If CONST_OSNAME_XPE = GetServerOSName() Then
strReturnURL = "/Admin/tasks.asp?" & SAI_FLD_PAGEKEY & "=" & SAI_GetPageKey() & "&tab1="
Else
strReturnURL = "/Admin/tasks.asp?" & SAI_FLD_PAGEKEY & "=" & SAI_GetPageKey() & "&tab1="
End If
'FTP site name
strFTPSite = "MSFTPSVC/1"
'Assign global objects to local objects
Set objAdminService = G_objAdminService
Set objService = G_objService
'Get the HTTP admin web site name
strAdminWebSite = GetAdminWebSite(objAdminService)
'To get instances of Web sites other than Administration
strWMIpath = "select * from " & GetIISWMIProviderClassName("IIs_WebServerSetting") & " where Name != " & Chr(34)& strAdminWebSite & Chr(34)
Set objNACCollection = objAdminService.ExecQuery(strWMIpath)
If Err.Number <> 0 Then
Call SA_SetErrMsg (L_IIS_WEBSERVERCONNECTION_ERRORMESSAGE & " (" & HEX(Err.Number) & ")" )
Exit Function
End If
arrVarReplacementStringsAdminWeb(0) = Cstr(F_nNonEncryptedPort)
strErrMsg = SA_GetLocString("adminweb.dll", "4045000F", arrVarReplacementStringsAdminWeb)
For each objinst in objNACCollection
'If other web site is configured with the same IP address and non-encrypted port number display error
If IsArray(objinst.ServerBindings) Then
For nIPCount = 0 to ubound(objinst.ServerBindings)
strServerBindings = objinst.ServerBindings(nIPCount)
if IsIIS60Installed() Then
If isObject(objinst.ServerBindings(nIPCount)) Then
arrIPAdd = objinst.ServerBindings(nIPCount).IP
arrPort = objinst.ServerBindings(nIPCount).Port
'Duplicate the code here
If F_strNonEncryptedIPAddress <> "" then
If arrIPAdd = F_strNonEncryptedIPAddress and arrPort = F_nNonEncryptedPort then
Call SA_SetErrMsg (strErrMsg)
Exit Function
End if
Else
If arrPort = F_nNonEncryptedPort then
Call SA_SetErrMsg (strErrMsg)
Exit Function
End if
End if
End If 'If isobject(...)
Else
If strServerBindings <> "" then
'split the strServerBindings array to get the IP address and non-encrypted port
arrWinsSrv = split(strServerBindings,":")
arrIPAdd = arrWinsSrv(CONST_ARR_INDEX_IP)
arrPort = arrWinsSrv(CONST_ARR_INDEX_PORT)
If F_strNonEncryptedIPAddress <> "" then
If arrIPAdd = F_strNonEncryptedIPAddress and arrPort = F_nNonEncryptedPort then
Call SA_SetErrMsg (strErrMsg)
Exit Function
End if
Else
If arrPort = F_nNonEncryptedPort then
Call SA_SetErrMsg (strErrMsg)
Exit Function
End if
End if
End If
End If 'IsIIS60Installed
Next
End If
'If other web site is configured with the same IP address and encrypted port number display error
If IsArray(objinst.SecureBindings) Then
For nSecureCount = 0 to ubound(objinst.SecureBindings)
strSecureBindings = objinst.SecureBindings(nSecureCount)
if IsIIS60Installed() Then
If IsObject(objinst.SecureBindings(nSecureCount)) Then
arrSecureIPAdd = objinst.SecureBindings(nSecureCount).IP
arrSecurePort = objinst.SecureBindings(nSecureCount).Port
' Check if the secure port is empty or not
If IsEmpty(arrSecurePort) or IsNull(arrSecurePort) Then
arrSecurePort = ""
Else
'Get rid of the ':'
arrSecurePort = CLng(Replace(arrSecurePort, ":", ""))
End If
If F_strEncryptedIPAddress <> "" then
If arrSecureIPAdd = F_strEncryptedIPAddress and arrSecurePort = F_nEncryptedPort then
Call SA_SetErrMsg (strErrMsg)
Exit Function
End if
Else
If arrSecurePort = F_nEncryptedPort then
Call SA_SetErrMsg (strErrMsg)
Exit Function
End if
End if
End If 'If IsObject(..)
Else
If strSecureBindings <> "" then
'split the strSecureBindings array to get the IP address and non-encrypted port
arrWinsSecure = split(strSecureBindings,":")
arrSecureIPAdd = arrWinsSecure(CONST_ARR_INDEX_IP)
arrSecurePort = arrWinsSecure(CONST_ARR_INDEX_PORT)
If F_strEncryptedIPAddress <> "" then
If arrSecureIPAdd = F_strEncryptedIPAddress and arrSecurePort = F_nEncryptedPort then
Call SA_SetErrMsg (strErrMsg)
Exit Function
End if
Else
If arrSecurePort = F_nEncryptedPort then
Call SA_SetErrMsg (strErrMsg)
Exit Function
End if
End if
End if
End If 'if IsIIS60Installed()
Next
End If
Next
'Display error if not able to verify with other web sites IP address and port number
If Err.Number <> 0 Then
Call SA_SetErrMsg (L_FAILEDTO_VERIFY_IPADD_PORT_ERRORMESSAGE)
Exit Function
End If
'To get the instance of FTP server settings
strFTPpath = "select * from " & GetIISWMIProviderClassName("IIS_FtpServerSetting") & " where Name = " & chr(34) & strFTPSite & chr(34)
Set objFTPInstances = objAdminService.ExecQuery(strFTPpath)
If Err.Number <> 0 Then
Call SA_SetErrMsg (L_IIS_WEBSERVERCONNECTION_ERRORMESSAGE & " (" & HEX(Err.Number) & ")")
Exit Function
End If
'Display error if Administration site is configured at same IP address and non-encrypted port number as FTP site
For each objFTPinst in objFTPInstances
If IsArray(objFTPinst.ServerBindings) Then
For nFTPIPCount = 0 to ubound(objFTPinst.ServerBindings)
strFTPServerBindings = objFTPinst.ServerBindings(nFTPIPCount)
if IsIIS60Installed() Then
If IsObject(objFTPinst.ServerBindings(nFTPIPCount)) then
'split the strFTPServerBindings array to get the IP address and port
arrFTPIPAdd = objFTPinst.ServerBindings(nFTPIPCount).IP
arrFTPPort = objFTPinst.ServerBindings(nFTPIPCount).Port
If F_strNonEncryptedIPAddress <> "" then
If arrFTPIPAdd = F_strNonEncryptedIPAddress and arrFTPPort = F_nNonEncryptedPort then
Call SA_SetErrMsg (strErrMsg)
Exit Function
ElseIf arrFTPIPAdd = "" and arrFTPPort = F_nNonEncryptedPort then
Call SA_SetErrMsg (strErrMsg)
Exit Function
End if
Else
If arrFTPPort = F_nNonEncryptedPort then
Call SA_SetErrMsg (strErrMsg)
Exit Function
End if
End if
End if 'If IsObject(...)
Else
If strFTPServerBindings <> "" then
'split the strFTPServerBindings array to get the IP address and port
arrFTPWinsSrv = split(strFTPServerBindings,":")
arrFTPIPAdd = arrFTPWinsSrv(CONST_ARR_INDEX_IP)
arrFTPPort = arrFTPWinsSrv(CONST_ARR_INDEX_PORT)
If F_strNonEncryptedIPAddress <> "" then
If arrFTPIPAdd = F_strNonEncryptedIPAddress and arrFTPPort = F_nNonEncryptedPort then
Call SA_SetErrMsg (strErrMsg)
Exit Function
ElseIf arrFTPIPAdd = "" and arrFTPPort = F_nNonEncryptedPort then
Call SA_SetErrMsg (strErrMsg)
Exit Function
End if
Else
If arrFTPPort = F_nNonEncryptedPort then
Call SA_SetErrMsg (strErrMsg)
Exit Function
End if
End if
End if
End If 'if IsIIS60Installed()
Next
End If
Next
'Display error if not able to verify with FTP site IP address and port number
If Err.Number <> 0 Then
Call SA_SetErrMsg (L_FAILEDTO_VERIFY_IPADD_PORT_ERRORMESSAGE)
Exit Function
End If
'Release objects
Set objFTPinst = Nothing
Set objFTPInstances = Nothing
'Assigning values to local variables
strIPAddress = F_strNonEncryptedIPAddress
nport = CLng(F_nNonEncryptedPort)
nSecurePort = CLng(F_nEncryptedPort)
'To get instance of win32_NetworkAdapterConfiguration class
strNICQuery = "select * from win32_NetworkAdapterConfiguration Where IPEnabled = true"
Set objConfiguredIPs = objService.ExecQuery(strNICQuery)
If Err.number <> 0 then
Call SA_ServeFailurePage (L_FAILEDTOGET_IPADDRESS_ERRORMESSAGE & " (" & HEX(Err.Number) & ")" )
Exit Function
End If
'Getting the NIC IP addresses
For each objNICIP in objConfiguredIPs
arrIPList(nIPlistCount) = objNICIP.IPAddress(nCount)
nIPlistCount = nIPlistCount+1
Next
'Release objects
Set objConfiguredIPs = nothing
Set objNICIP = nothing
'To check whether the selected IP address is a valid IP address
For nCount = 0 to nIPlistCount-1
If strIPAddress = arrIPList(nCount) or strIPAddress = "" Then
strIPFlag = true
Exit For
else
strIPFlag = false
End If
Next
'If selected Ip address is invalid display error
If strIPFlag = false then
Call SA_SetErrMsg (L_INVALID_IPADDRESS_ERRORMESSAGE)
Exit Function
End if
'Getting the IIS_WEB Server Setting instance
Set objNetWorkCon = objAdminService.ExecQuery("Select * from " & GetIISWMIProviderClassName("IIs_WebServerSetting") & " where Name=" & Chr(34)& strAdminWebSite & Chr(34))
If Err.Number <> 0 Then
Call SA_SetErrMsg (L_IIS_WEBSERVERCONNECTION_ERRORMESSAGE & " (" & HEX(Err.Number) & ")" )
Exit Function
End If
'Assign local variable mstrReturnURL
'For 2.2, only https supported
If ( Request.ServerVariables( "SERVER_PORT_SECURE" ) ) Then
strHTTPURL = "https"
Else
strHTTPURL = "https"
End If
'Loop to set the IP address and non-encrypted port number or encrypted port number depending on the
'Secure Certificate being provided
For each objServerSetting in objNetWorkCon
if IsIIS60Installed() Then
objServerSetting.ServerBindings(0).IP = strIPAddress 'IP Address
objServerSetting.ServerBindings(0).Port = nport 'Port
objServerSetting.SecureBindings(0).IP = strIPAddress 'IP Address
objServerSetting.SecureBindings(0).Port = nSecureport 'Port
Else
'Assigning values to properties
objServerSetting.ServerBindings = array(strIPAddress & ":" & nport & ":")
objServerSetting.SecureBindings = array(strIPAddress & ":" & nSecureport & ":")
End If ' if IsIIS60Installed()
'To get the computer name
strComputerName = GetComputerName()
'Error in getting Computer name
If Err.Number <> 0 Then
Call SA_ServeFailurePage (L_COMPUTERNAME_ERRORMESSAGE & " (" & HEX(Err.Number) & ")" )
Exit Function
End If
'If Secure Certificate is not provided change the URL
If Ucase(strHTTPURL) <> CONST_ARR_INDEX_HTTPS then
If strIPAddress = "" then
mstrReturnURL = "https://"& strComputerName & ":" & nport & strReturnURL & GetTab1()
Else
mstrReturnURL = "https://"& strIPAddress & ":" & nport & strReturnURL & GetTab1()
End if
Else
'If Secure Certificate is provided change the URL
If Ucase(F_strSSLPort_Status) <> CONST_ARR_STATUS_DISABLED then
If strIPAddress = "" then
mstrReturnURL = "https://"& strComputerName & ":" & nSecureport & strReturnURL & GetTab1()
Else
mstrReturnURL = "https://"& strIPAddress & ":" & nSecureport & strReturnURL & GetTab1()
End if
End if
End if
'Function call to set the SSL port in the registry
If not updatePortNumber( CONST_SSL_PORTNAME, nSecureport ) Then
SA_SetErrMsg L_REGISTRY_PORT_NUMBERS_NOTSET_ERRORMESSAGE
Exit Function
End If
'Function call to set the Default port in the registry
If not updatePortNumber( CONST_DEFAULT_PORTNAME , nport ) Then
SA_SetErrMsg L_REGISTRY_PORT_NUMBERS_NOTSET_ERRORMESSAGE
Exit Function
End If
%>
<SCRIPT LANGUAGE="JAVASCRIPT" >
{
top.location.href = "<%=mstrReturnURL%>"
}
</SCRIPT>
<%
Response.Flush
'Put the values in WMI
objServerSetting.Put_
Next
'Error while putting the web server settings
If Err.Number <> 0 Then
Call SA_SetErrMsg (L_COULDNOT_IIS_WEBSERVERSETTING_ERRORMESSAGE & " (" & HEX(Err.Number) & ")" )
Exit Function
End If
'Release the objects
Set objNetWorkCon = nothing
set objinst = nothing
set objNACCollection = nothing
set objServerSetting = nothing
Set objAdminService = nothing
Set objService = nothing
SetAdminConfig = TRUE 'success
End Function
'-------------------------------------------------------------------------
'Function name: updatePortNumber
'Description: Serves in updating the port in the registry
'Input Variables: strPortKey -Key name
' nportNumber -Port no
'Output Variables: None
'Returns: True /False
'Global Variables: L_(*)
'-------------------------------------------------------------------------
Function updatePortNumber(strPortKey,nportNumber)
On Error Resume Next
Err.Clear
Dim objRegistry 'Object for registry connection
Dim bReturnValue 'Boolean value
Const CONST_PORT_REGKEYPATH ="SOFTWARE\Microsoft\ServerAppliance\WebFramework"
updatePortNumber=False 'Default initialization
Set objRegistry=RegConnection() 'Connecting to the registry
If Err.number <> 0 Then
SA_SetErrMsg L_REGISTRYCONNECTIONFAIL_ERRORMESSAGE
Exit Function
End If
bReturnValue = updateRegkeyvalue(objRegistry ,CONST_PORT_REGKEYPATH , strPortKey , nportNumber , CONST_DWORD )
If bReturnValue = False Then 'If return status is error
Exit function
End If
Set objRegistry = Nothing
updatePortNumber=TRUE ' on success
End function
'-------------------------------------------------------------------------
'Function name: GetAdminWebSite
'Description: Get Admin web site name
'Input Variables: objAdminService
'Output Variables: None
'Global Variables: L_(*)
'Returns: Admin web site name
'-------------------------------------------------------------------------
Function GetAdminWebSite(objAdminService)
Err.Clear
On Error Resume Next
Dim strWMIpath 'WMI query
Dim objSiteCollection 'Get instance of IIs_WebServerSetting class
Dim objSite 'Get instances of IIs_WebServerSetting class
Dim objHTTPAdminService
Call SA_TraceOut( SOURCE_FILE, "GetAdminWebSite")
'Constant for the admin web site
Const CONST_MANAGEDSITENAME = "Administration"
Set objHTTPAdminService = objAdminService
'WMI query
'XPE only has one website
If CONST_OSNAME_XPE = GetServerOSName() Then
'WMI query
strWMIpath = "Select * from " & GetIISWMIProviderClassName("IIs_WebServerSetting") & " where Name =" & chr(34) & GetCurrentWebsiteName() & chr(34)
Else
strWMIpath = "Select * from " & GetIISWMIProviderClassName("IIs_WebServerSetting") & " where ServerComment =" & chr(34) & CONST_MANAGEDSITENAME & chr(34)
End If
'Create instance of IIs_WebServerSetting
Set objSiteCollection = objHTTPAdminService.ExecQuery(strWMIpath)
If Err.Number <> 0 Then
Call SA_ServeFailurePage (L_IIS_WEBSERVERCONNECTION_ERRORMESSAGE & " (" & HEX(Err.Number) & ")")
Exit Function
End If
'Get the admin web site name
For each objSite in objSiteCollection
GetAdminWebSite = objSite.Name
Exit For
Next
'If admin site name is empty display error
If GetAdminWebSite = "" Then
Call SA_ServeFailurePage (L_COULDNOT_ADMIN_WEBSITE_ERRORMESSAGE)
Exit Function
End If
'Release objects
Set objSite = Nothing
Set objSiteCollection = Nothing
Set objHTTPAdminService = Nothing
End Function
'-------------------------------------------------------------------------
'Subroutine name: GetSystemNICConfig
'Desription: Gets all the NIC IP's from the system
'Input Variables: F_strNonEncryptedIPAddress
'Output variables: None
'Global Variables: G_objService,CONST_WMI_WIN32_NAMESPACE,L_(*)
'-------------------------------------------------------------------------
Sub GetSystemNICConfig(F_strNonEncryptedIPAddress)
Err.clear
On Error Resume Next
Dim objConfiguredIPs 'To get instance of win32_NetworkAdapterConfiguration
Dim objNICIP 'To get instances of win32_NetworkAdapterConfiguration
Dim strNICQuery 'WMI query
Dim nCount 'Count to get IP address for all NIC cards
Dim arrIPList(13) 'Array to store all the IP addresses
Call SA_TraceOut( SOURCE_FILE, "GetSystemNICConfig")
'Connecting to the WMI server
Set G_objService = GetWMIConnection(CONST_WMI_WIN32_NAMESPACE)
If Err.number <> 0 Then
Call SA_ServeFailurePage (L_WMICONNECTIONFAILED_ERRORMESSAGE & " (" & HEX(Err.Number) & ")" )
Exit Sub
End if
'WMI query
strNICQuery = "select * from win32_NetworkAdapterConfiguration Where IPEnabled = true"
'Getting instance of win32_NetworkAdapterConfiguration
Set objConfiguredIPs = G_objService.ExecQuery(strNICQuery)
If Err.number <> 0 then
Call SA_ServeFailurePage (L_FAILEDTOGET_IPADDRESS_ERRORMESSAGE & " (" & HEX(Err.Number) & ")" )
Exit Sub
End If
'Populate the IP address combo box
For each objNICIP in objConfiguredIPs
If IsArray(objNICIP.IPAddress) Then
For nCount = 0 to ubound(objNICIP.IPAddress)
Redim arrIPList(ubound(objNICIP.IPAddress))
arrIPList(nCount) = objNICIP.IPAddress(nCount)
If arrIPList(nCount) <> "" Then
If (arrIPList(nCount) = F_strNonEncryptedIPAddress ) Then
Response.Write "<OPTION VALUE='" & arrIPList(nCount) &"' SELECTED >" & arrIPList(nCount) & "</OPTION>"
Else
Response.Write "<OPTION VALUE='" & arrIPList(nCount) &"' >" & arrIPList(nCount) & "</OPTION>"
End IF
End If
Next
End If
Next
'Release objects
Set objConfiguredIPs = nothing
Set objNICIP = nothing
End Sub
'-------------------------------------------------------------------------
'Function name: GetSystemSettings
'Description: Serves in getting the IP addresses, encrypted and non-encrypted
' port number from System for Admin web site
'Input Variables: None
'Output Variables: None
'Returns: True/False
'Global Variables: G_objAdminService, CONST_WMI_IIS_NAMESPACE, L_(*),F(*)
'-------------------------------------------------------------------------
Function GetSystemSettings()
Err.Clear
On Error resume Next
Dim objNACCollection 'Object to get WMI connection
Dim objinst 'Getting instances of IIs_WebServerSetting
Dim arrWinsSrv 'Array to store the IP address and non-encrypted port number
Dim arrWinsSecureSrv 'Array to store the IP address and encrypted port number
Dim arrIPAdd 'Array to store the IP address for non-encrypted sites
Dim arrPort 'Array to store the port for non-encrypted sites
Dim arrSecureIPAdd 'Array to store the IP address for encrypted sites
Dim arrSecurePort 'Array to store the port for encrypted sites
Dim nIPCount 'Count for getting the IP address and encrypted port number
Dim strServerBindings 'To store the values obtained from ServerBindings property
Dim strAdminWebSite 'Admin web site name
Dim nSecureCount 'Count for getting the IP address and encrypted port number
Dim strSecureBindings 'To store the values obtained from SecureBindings property
Dim strIISAdminWebSite 'IIS Admin Web Site name
Dim objIISVirtualDir 'Getting the IIs_WebVirtualDirSetting instance
Dim objIISDirInstances 'Getting the IIs_WebVirtualDirSetting instances
Dim strAccessSSL 'To store AccessSSL value
Call SA_TraceOut( SOURCE_FILE, "GetSystemSettings")
Const CONST_ARR_INDEX_IP = 0 'For IP address
Const CONST_ARR_INDEX_PORT = 1 'For port number
'Connecting to the WMI server
Set G_objAdminService = GetWMIConnection(CONST_WMI_IIS_NAMESPACE)
'Get the HTTP admin web site name
strAdminWebSite = GetAdminWebSite(G_objAdminService)
strIISAdminWebSite = strAdminWebSite & "/Root"
'Getting the admin web server setting instance
Set objNACCollection = G_objAdminService.ExecQuery("Select * from " & GetIISWMIProviderClassName("IIs_WebServerSetting") & " where Name=" & Chr(34)& strAdminWebSite & Chr(34))
If Err.Number <> 0 Then
Call SA_ServeFailurePage (L_IIS_WEBSERVERCONNECTION_ERRORMESSAGE & " (" & HEX(Err.Number) & ")")
GetSystemSettings = False
Exit Function
End If
For each objinst in objNACCollection
If IsArray(objinst.ServerBindings) Then
'Getting the IP address and non-encrypted port number from server bindings property
For nIPCount = 0 to ubound(objinst.ServerBindings)
strServerBindings = objinst.ServerBindings(nIPCount)
if IsIIS60Installed() Then
If IsObject(objinst.ServerBindings(nIPCount)) then
arrIPAdd = objinst.ServerBindings(nIPCount).IP
arrPort = objinst.ServerBindings(nIPCount).Port
F_strNonEncryptedIPAddress = arrIPAdd
F_nNonEncryptedPort =arrPort
End if 'If IsObject(..)
Else
If strServerBindings <> "" then
'split the strServerBindings array to get the IP address and port number
arrWinsSrv = split(strServerBindings,":")
arrIPAdd = arrWinsSrv(CONST_ARR_INDEX_IP)
arrPort = arrWinsSrv(CONST_ARR_INDEX_PORT)
F_strNonEncryptedIPAddress = arrIPAdd
F_nNonEncryptedPort =arrPort
End if
End If 'if IsIIS60Installed()
Next
End If
If IsArray(objinst.SecureBindings) Then
'Getting the IP address and encrypted port number from secure bindings property
For nSecureCount = 0 to ubound(objinst.SecureBindings)
strSecureBindings = objinst.SecureBindings(nSecureCount)
if IsIIS60Installed() Then
If IsObject(objinst.SecureBindings(nSecureCount)) then
arrSecureIPAdd = objinst.SecureBindings(nSecureCount).IP
arrSecurePort = objinst.SecureBindings(nSecureCount).Port
If IsEmpty(arrSecurePort) or IsNull(arrSecurePort) Then
arrSecurePort = ""
Else
'Get rid of the ':'
arrSecurePort = CLng(Replace(arrSecurePort, ":", ""))
End If
F_strEncryptedIPAddress = arrSecureIPAdd
F_nEncryptedPort = arrSecurePort
End if 'If IsObject(...)
Else
If strSecureBindings <> "" then
'split the strServerBindings array to get the IP address and port number
arrWinsSecureSrv = split(strSecureBindings,":")
arrSecureIPAdd = arrWinsSecureSrv(CONST_ARR_INDEX_IP)
arrSecurePort = arrWinsSecureSrv(CONST_ARR_INDEX_PORT)
F_strEncryptedIPAddress = arrWinsSecureSrv(CONST_ARR_INDEX_IP)
F_nEncryptedPort = arrWinsSecureSrv(CONST_ARR_INDEX_PORT)
End if
End If 'if IsIIS60Installed()
Next
End If
Next
'Error in getting the server IP address, encrypted and non-encrypted port number
If Err.Number <> 0 Then
Call SA_ServeFailurePage (L_COULDNOT_IIS_WEBSERVER_OBJECT_ERRORMESSAGE & " (" & HEX(Err.Number) & ")")
GetSystemSettings = False
Exit Function
End If
'Getting the IIs_WebVirtualDirSetting instance
Set objIISVirtualDir = G_objAdminService.ExecQuery("Select * from " & GetIISWMIProviderClassName("IIs_WebVirtualDirSetting") & " where Name=" & Chr(34)& strIISAdminWebSite & Chr(34))
If Err.Number <> 0 Then
Call SA_ServeFailurePage (L_IIS_WEBSERVERCONNECTION_ERRORMESSAGE & " (" & HEX(Err.Number) & ")")
GetSystemSettings = False
Exit Function
End If
Set objIISVirtualDir = Nothing
Set objIISDirInstances = Nothing
'Set the Radion button status depending on the system settings
If arrIPAdd = "" and arrSecureIPAdd = "" then
F_strAll_IPAddress = CONST_ARR_STATUS_CHECKED
F_strJustthis_IPAddress =""
F_strradIPAdd = CONST_ARR_STATUS_TRUE
ElseIf ((arrIPAdd <> "" and arrSecureIPAdd <> "") and (arrIPAdd = arrSecureIPAdd)) then
F_strJustthis_IPAddress = CONST_ARR_STATUS_CHECKED
F_strAll_IPAddress = ""
F_strradIPAdd = CONST_ARR_STATUS_FALSE
Else
F_strJustthis_IPAddress = ""
F_strAll_IPAddress = ""
F_strradIPAdd = CONST_ARR_STATUS_NONE
End if
'Release objects
Set objinst = Nothing
Set objNACCollection = Nothing
GetSystemSettings = True
End Function
%>