|
|
<%@Language=VbScript%>
<% Option Explicit %>
<%
'-------------------------------------------------------------------------
' nicip_prop.asp : Page gets/sets the IP adresses along with
' GateWay Addresses
'
' Copyright (c) Microsoft Corporation. All rights reserved.
'
' Date Description
' 06-Mar-2001 Created date
' 10-Mar-2001 Modified date
'-------------------------------------------------------------------------
%>
<!-- #include virtual="/admin/inc_framework.asp"--->
<!-- #include file="inc_network.asp" -->
<!-- #include file="loc_nicspecific.asp" -->
<%
'-------------------------------------------------------
' Form Variables
'-------------------------------------------------------
Dim F_strIPAddress ' to hold IP address
Dim F_strSubnetMask ' to hold subnet mask
Dim F_nConnectionMetric ' to hold connection metric
Dim F_strGatewayAddress ' to hold gateway address
Dim F_strListIP ' to hold array of IP
Dim F_strListGateway ' to hold array of Gateway
Dim F_strRadIP ' to hold the radio button selected
'-------------------------------------------------------
' Global Variables
'-------------------------------------------------------
Dim g_arrIPList ' List of IP Addresses
Dim g_arrGATEWAYList ' List of Gateway Addresses
Dim page ' to hold page object
Dim blnDHCPEnabled ' to hold whether DHCP is enabled or not
Dim g_strDeviceID ' to hold device ID Dim g_initialIPAddress
Dim SOURCE_FILE
SOURCE_FILE = SA_GetScriptFileName()
Dim g_iTabGeneral ' to hold value of general page
Dim g_iTabAdvanced ' to hold value of Advanced page
Dim g_strTabValue ' to hold value of general tab
Dim g_strAdvTabValue ' to hold value of Advanced tab
Const G_CONST_REGISTRY_PATH ="SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces"
'-------------------------------------------------------
' Entry point
'-------------------------------------------------------
' Create a Property Page
Call SA_CreatePage( L_TASKTITLE_TEXT, "", PT_TABBED, page )
Call SA_AddTabPage(page, L_GENERAL_TEXT, g_iTabGeneral)
Call SA_AddTabPage(page, L_ADVANCED_TEXT, g_iTabAdvanced)
' Serve the page
Call SA_ShowPage( page )
'-------------------------------------------------------
' Web Framework Event Handlers
'-------------------------------------------------------
'-------------------------------------------------------------------------
'Function: OnInitPage()
'Description: Called to signal first time processing for this page.
' Use this method to do first time initialization tasks.
'Input Variables: PageIn,EventArg
'Output Variables: PageIn,EventArg
'Returns: TRUE to indicate initialization was successful. FALSE to indicate
' errors. Returning FALSE will cause the page to be abandoned.
'Global Variables: None
'-------------------------------------------------------------------------
Public Function OnInitPage(ByRef PageIn, ByRef EventArg)
Dim itemCount 'holds item count
Dim x 'holds increment count for the loop
Dim itemKey 'holds the item selected from the OTS page
Call SA_TraceOut(SOURCE_FILE, "OnInitPage")
itemCount = OTS_GetTableSelectionCount("")
For x = 1 to itemCount
If ( OTS_GetTableSelection("", x, itemKey) ) Then
g_strDeviceID = itemKey ' to get the device ID
Exit for
End If
Next
OnInitPage = TRUE
End Function
'-------------------------------------------------------------------------
'Function: OnServeTabbedPropertyPage
'Description: Called when the page needs to be served.Use this
' method to serve content
'Input Variables: PageIn,EventArg, iTab,bIsVisible
'Output Variables: PageIn,EventArg
'Returns: TRUE to indicate not problems occured. FALSE to indicate errors.
' Returning FALSE will cause the page to be abandoned.
'Global Variables: SOURCE_FILE, g_*
'-------------------------------------------------------------------------
Public Function OnServeTabbedPropertyPage(ByRef PageIn, _
ByVal iTab, _
ByVal bIsVisible, ByRef EventArg)
Call SA_TraceOut(SOURCE_FILE, "OnServeTabbedPropertyPage")
Select Case iTab
Case g_iTabGeneral
Call ServeTabGeneral(PageIn, bIsVisible)
Case g_iTabAdvanced
Call ServeTabAdvanced(PageIn, bIsVisible)
Case Else
Call SA_TraceErrorOut(SOURCE_FILE, "OnServeTabbedPropertyPage unrecognized tab id: " + CStr(iTab))
End Select
OnServeTabbedPropertyPage = TRUE
End Function
'-------------------------------------------------------------------------
'Function: OnPostBackPage()
'Description: Called to signal a post-back. A post-back occurs as the user
' navigates through pages. This event should be used to save the
' state of the current page.
'Input Variables: PageIn,EventArg
'Output Variables: PageIn,EventArg
'Returns: True
'Global Variables: F_*,G_*,g_*
'-------------------------------------------------------------------------
Public Function OnPostBackPage(ByRef PageIn, ByRef EventArg)
Call SA_TraceOut(SOURCE_FILE, "OnPostBackPage")
g_strTabValue = Request.Form("hdnGeneralTabValue")
g_strAdvTabValue = Request.Form("hdnAdvancedTabValue")
g_strDeviceID = Request.Form("hdnDeviceID") g_initialIPAddress = Request.Form("hdnInitialIPValue")
F_strRadIP = Request.Form("hdnRadIP")
F_strListIP = Request.Form("hdnlstIP")
F_strListGateway = Request.Form("hdnlstGATEWAY")
F_strIPAddress = Request.Form("txtIP")
F_strSubnetMask = Request.Form("txtMask")
F_strGatewayAddress = Request.Form("txtGateway")
F_nConnectionMetric = Request.Form("txtConnectionMetric")
OnPostBackPage = TRUE
End Function
'-------------------------------------------------------------------------
'Function: OnSubmitPage()
'Description: Called when the page has been submitted for processing.
' Use this method to process the submit request.
'Input Variables: PageIn,EventArg
'Output Variables: PageIn,EventArg
'Returns: TRUE if the submit was successful, FALSE to indicate error(s).
' Returning FALSE will cause the page to be served again using
' a call to OnServeTabbedPropertyPage.
'Global Variables: F_*, g_*, blnDHCPEnabled,
'-------------------------------------------------------------------------
Public Function OnSubmitPage(ByRef PageIn, ByRef EventArg)
Call SA_TraceOut(SOURCE_FILE, "OnSubmitPage")
'checking whether DHCP is enabled
If Ucase(Request.Form("radIP"))="IPDEFAULT" Then
blnDHCPEnabled = TRUE
Else
blnDHCPEnabled = FALSE
End If
'Set Individual NIC properties
OnSubmitPage = setNIC()
End Function
'-------------------------------------------------------------------------
'Function: OnClosePage()
'Description: Called when the page is about closed.Use this method
' to perform clean-up processing
'Input Variables: PageIn,EventArg
'Output Variables: PageIn,EventArg
'Returns: TRUE to allow close, FALSE to prevent close. Returning FALSE
' will result in a call to OnServeTabbedPropertyPage.
'Global Variables: None
'-------------------------------------------------------------------------
Public Function OnClosePage(ByRef PageIn, ByRef EventArg)
Call SA_TraceOut(SOURCE_FILE, "OnClosePage")
OnClosePage = TRUE
End Function
'-------------------------------------------------------------------------
'Function: ServeTabGeneral
'Description: Called when the general page needs to be served.
'Input Variables: PageIn,EventArg
'Output Variables: PageIn,EventArg
'Returns: SA_NO_ERROR
'Global Variables: SOURCE_FILE, g_*,F_*
'-------------------------------------------------------------------------
Private Function ServeTabGeneral(ByRef PageIn, ByVal bIsVisible)
Call SA_TraceOut(SOURCE_FILE, "ServeTabGeneral(PageIn, bIsVisible="+ CStr(bIsVisible) + ")")
If ( bIsVisible ) Then
'call the java script function
Call ServeCommonJavaScript()
Call ServeGeneralTabJavaScript()
'Serves UI for General tab
Call ServeGeneralUI()
Else
Response.Write("<input type=hidden name=hdnDeviceID value='"+g_strDeviceID +"' >")
Response.Write("<input type=hidden name=hdnGeneralTabValue value='"+g_strTabValue +"' >")
Response.Write("<input type=hidden name=txtIP value='"+F_strIPAddress +"' >")
Response.Write("<input type=hidden name=txtGateway value='"+F_strGatewayAddress +"' >")
Response.Write("<input type=hidden name=txtMask value='"+F_strSubnetMask +"' >")
Response.Write("<input type=hidden name=hdnRadIP value='"+F_strRadIP +"' >")
End If
ServeTabGeneral = SA_NO_ERROR
End Function
'-------------------------------------------------------------------------
'Function: ServeTabAdvanced
'Description: Called when the Advanced page needs to be served.
'Input Variables: PageIn,EventArg
'Output Variables: PageIn,EventArg
'Returns: SA_NO_ERROR
'Global Variables: SOURCE_FILE, g_*,F_*
'-------------------------------------------------------------------------
Private Function ServeTabAdvanced(ByRef PageIn, ByVal bIsVisible)
Call SA_TraceOut(SOURCE_FILE, "ServeTabAdvanced(PageIn, bIsVisible="+ CStr(bIsVisible) + ")")
If ( bIsVisible ) Then
'Serve common javascript that is required for this page type.
Call ServeCommonJavaScript()
Call ServeAdvancedTabJavaScript()
'Serve UI for Advanced tab
Call ServeAdvancedUI()
Else
Response.Write("<input type=hidden name=hdnDeviceID value='"+g_strDeviceID +"' >")
Response.Write("<input type=hidden name=txtConnectionMetric value='"+F_nConnectionMetric +"' >")
Response.Write("<input type=hidden name=hdnlstIP value='"+F_strListIP +"'>")
Response.Write("<input type=hidden name=hdnlstGATEWAY value='"+F_strListGateway +"' >")
Response.Write("<input type=hidden name=hdnAdvancedTabValue value='"+g_strAdvTabValue+"'>")
End If
ServeTabAdvanced = SA_NO_ERROR
End Function
'-------------------------------------------------------------------------
'Function: ServeGeneralTabJavaScript
'Description: Serve common javascript that is required for general tab
'Input Variables: None
'Output Variables: None
'Returns: None
'Global Variables: None
'-------------------------------------------------------------------------
Function ServeGeneralTabJavaScript()
%>
<SCRIPT LANGUAGE="JavaScript">
//
// Microsoft Server Appliance Web Framework Support Functions
// Copyright (c) Microsoft Corporation. All rights reserved.
//
// Init Function
// -----------
// This function is called by the Web Framework to allow the page
// to perform first time initialization.
//
// This function must be included or a javascript runtime error will occur.
//
function Init()
{
var OptionSel = "<%=F_strRadIP %>";
if (OptionSel != "")
{
document.frmTask.radIP[OptionSel].checked = true; if (OptionSel == 0) { enableIPControls(true); } else if(OptionSel == 1) { enableIPControls(false); }
}
return true;
}
// ValidatePage Function
// ------------------
// This function is called by the Web Framework as part of the
// submit processing. Used to validate user input. Returning
// false will cause the submit to abort.
// Returns: True if the page is OK, false if error(s) exist.
function ValidatePage()
{
var retVal; if (document.frmTask.txtIP.disabled == false)
{
var IPVal = document.frmTask.txtIP;
if( IPVal.value != "")
{
retVal = isValidIP(IPVal);
if(retVal!=0)
{
//Calling to validate the IP and display the error message
SA_DisplayErr('<%=SA_EscapeQuotes(L_IP_ERRORMESSAGE)%>');
document.frmTask.onkeypress = ClearErr;
return false;
}
} if (IPVal.value == "") { SA_DisplayErr('<%=SA_EscapeQuotes(L_IP_ERRORMESSAGE)%>');
document.frmTask.onkeypress = ClearErr;
return false; }
}
if (document.frmTask.txtMask.disabled == false)
{
var IPMask = document.frmTask.txtMask;
var IPVal = document.frmTask.txtIP;
if (IPMask.value == "" && IPVal.value != "")
{
SA_DisplayErr('<%=SA_EscapeQuotes(L_INVALIDSUBNETADDRESSES_ERRORMESSAGE)%>');
return false;
}
if(IPMask.value != "")
{
retVal = isValidSubnetMask(IPMask)
if(!retVal)
{
SA_DisplayErr('<%=SA_EscapeQuotes(L_INVALIDFORMATFORSUBNET_ERRORMESSAGE)%>');
return false;
}
}
retVal = isValidSubnetMask(IPMask)
if(retVal == true && IPVal.value == "")
{
SA_DisplayErr('<%=SA_EscapeQuotes(L_IP_ERRORMESSAGE)%>');
document.frmTask.onkeypress = ClearErr;
return false;
}
}
if (document.frmTask.txtGateway.disabled == false)
{
var IPVal = document.frmTask.txtGateway;
if ( IPVal.value != "")
{
retVal = isValidIP(IPVal)
if(retVal!=0)
{
//Calling to validate the IP and display the error message
SA_DisplayErr('<%=SA_EscapeQuotes(L_IP_ERRORMESSAGE)%>');
document.frmTask.onkeypress = ClearErr;
return false;
}
} else // checking for the blank gateway case { SA_DisplayErr('<%=SA_EscapeQuotes(L_GATEWAY_ERRORMESSAGE)%>');
document.frmTask.onkeypress = ClearErr;
return false; }
}
document.frmTask.hdnGeneralTabValue.value = "true";
if(document.frmTask.radIP[0].checked==true)
{
document.frmTask.hdnRadIP.value = 0;
}
else if(document.frmTask.radIP[1].checked)
{
document.frmTask.hdnRadIP.value = 1;
}
return true;
}
// SetData Function
// --------------
// This function is called by the Web Framework and is called
// only if ValidatePage returned a success (true) code.
function SetData()
{
return true;
}
</SCRIPT>
<%
End Function
'-------------------------------------------------------------------------
'Function: ServeAdvancedTabJavaScript
'Description: Serve common javascript that is required for Advanced tab
'Input Variables: None
'Output Variables: None
'Returns: None
'Global Variables: None
'-------------------------------------------------------------------------
Function ServeAdvancedTabJavaScript()
%>
<SCRIPT LANGUAGE="JavaScript">
//
// Microsoft Server Appliance Web Framework Support Functions
// Copyright (c) Microsoft Corporation. All rights reserved.
//
// Init Function
// -----------
// This function is called by the Web Framework to allow the page
// to perform first time initialization.
function Init()
{
var OptionSel = "<%=F_strRadIP %>";
if (OptionSel == 0)
{
// disable IP controls
document.frmTask.lstIP.disabled = true;
document.frmTask.btnAddIP.disabled = true;
document.frmTask.btnRemoveIP.disabled = true;
document.frmTask.txtAdvIP.disabled = true;
document.frmTask.txtAdvMask.disabled = true;
// disable Gateway controls
document.frmTask.lstGATEWAY.disabled = true;
document.frmTask.txtAdvGATEWAY.disabled = true;
document.frmTask.btnAddGATEWAY.disabled = true;
document.frmTask.txtGATEWAYMetric.disabled = true;
document.frmTask.btnRemoveGATEWAY.disabled = true;
}
else
{
LimitListLength(document.frmTask.lstIP,40,document.frmTask.txtAdvIP,document.frmTask.txtAdvMask,document.frmTask.btnAddIP);
LimitListLength(document.frmTask.lstGATEWAY,20,document.frmTask.txtAdvGATEWAY,document.frmTask.txtGATEWAYMetric,document.frmTask.btnAddGATEWAY);
// default value of Gateway metric
if(document.frmTask.lstGATEWAY.length >=20)
document.frmTask.txtGATEWAYMetric.value = "";
else
document.frmTask.txtGATEWAYMetric.value = 1;
document.frmTask.btnAddIP.disabled = true;
document.frmTask.btnAddGATEWAY.disabled = true;
} if(document.frmTask.lstIP.length == 0) document.frmTask.btnRemoveIP.disabled = true; if(document.frmTask.lstGATEWAY.length == 0) document.frmTask.btnRemoveGATEWAY.disabled = true;
return true;
}
// ValidatePage Function
// ------------------
// This function is called by the Web Framework as part of the
// submit processing. Used to validate user input. Returning
// false will cause the submit to abort.
// Returns: True if the page is OK, false if error(s) exist.
function ValidatePage()
{
var i=0;
var arrIP = "";
var arrGatewayIP = "";
if(document.frmTask.hdnAdvancedTabValue.value != "")
{
for(i=0;i<document.frmTask.lstIP.length;i++)
{
arrIP = arrIP+ document.frmTask.lstIP.options[i].value + ";";
}
for(i=0;i<document.frmTask.lstGATEWAY.length;i++)
{
arrGatewayIP = arrGatewayIP + document.frmTask.lstGATEWAY.options[i].value + ";";
}
arrIP = arrIP.substring(0,arrIP.length-1);
arrGatewayIP = arrGatewayIP.substring(0,arrGatewayIP.length-1);
document.frmTask.hdnlstIP.value = arrIP;
document.frmTask.hdnlstGATEWAY.value = arrGatewayIP;
var OptionSel = "<%=F_strRadIP %>";
if (OptionSel == 1)
{
var arrIPValue;
var strIPValue;
if ( document.frmTask.lstGATEWAY.length == 0) // checking for the blank gateway case { SA_DisplayErr('<%=SA_EscapeQuotes(L_GATEWAY_ERRORMESSAGE)%>');
document.frmTask.onkeypress = ClearErr;
return false; } if(document.frmTask.lstIP.length != 0)
{
strIPValue = document.frmTask.lstIP[0].value;
arrIPValue = strIPValue.split(':');
document.frmTask.txtIP.value = arrIPValue[0];
document.frmTask.txtMask.value = arrIPValue[1];
var arrGatewayValue;
arrGatewayValue = arrGatewayIP.split(' <%=L_METRIC_TEXT%> ');
document.frmTask.txtGateway.value = arrGatewayValue[0];
}
else if(document.frmTask.lstIP.length == 0)
{
document.frmTask.txtIP.value = "";
document.frmTask.txtMask.value = "";
}
}
}
return true;
}
// SetData Function
// --------------
// This function is called by the Web Framework and is called
// only if ValidatePage returned a success (true) code.
function SetData()
{
return true;
}
</SCRIPT>
<%
End Function
'-------------------------------------------------------------------------
'Function: ServeCommonJavaScript
'Description: Serve common javascript that is required for this page type.
'Input Variables: None
'Output Variables: None
'Returns: None
'Global Variables: None
'-------------------------------------------------------------------------
Function ServeCommonJavaScript()
%>
<script language="JavaScript" src="<%=m_VirtualRoot%>inc_global.js">
</script>
<script language="JavaScript">
//
// Microsoft Server Appliance Web Framework Support Functions
// Copyright (c) Microsoft Corporation. All rights reserved.
//
// Function to enable or disable controls of the General tab
function enableIPControls(Flag)
{
// Disable text boxes
document.frmTask.txtIP.disabled=Flag;
document.frmTask.txtMask.disabled=Flag;
document.frmTask.txtGateway.disabled=Flag;
}
//Function to validate the Subnet mask and return true or false.
function isValidSubnetMask(objSubnetMask)
{
var strMasktext = objSubnetMask.value;
if (strMasktext.length == 0)
return false; // No subnet entered
// counts no of dots by calling the function if it is less returns 0
if ( countChars(strMasktext,".") != 3)
{
// Invalid format
return false;
}
var arrMask = strMasktext.split(".");
var i,j,blnValid ;
for(i = 0; i < 4; i++)
{
if ( (arrMask[i].length < 1 ) || (arrMask[i].length > 3 ) )
{
// Invalid format
return false;
}
if ( !isInteger(arrMask[i]))
{
// Invalid characters
return false;
}
arrMask[i] = parseInt(arrMask[i],10);
if (arrMask[i] > 255)
{
// Out of bounds
return false;
}
} // end of for loop
if ( arrMask[0] == 0 || arrMask[3] == 255)
{
// mask must not start with 0 or end with 255
return false;
}
for(i=0;i<4;i++)
{
if(arrMask[i] != 255)
{
for(j=i+1 ; j<4; j++)
{
if (arrMask[j] != 0)
{ // mask not contiguous
return false;
}
}// end of j for loop
blnValid = false;
for(j=1;j<9;j++)
{
if (arrMask[i] == (256-Math.pow(2, j)))
blnValid = true;
}
if(!blnValid)
{
// mask not contiguous
return false;
}
}// end of if(arrMask[i] != 255)
}// end of for loop
objSubnetMask.value = arrMask.join(".");
return true;
}
//Disable the controls related to Gateway when no items in Gateway listbox
function enableGatewayControls()
{
if(document.frmTask.lstGATEWAY.length==0)
{
document.frmTask.btnAddGATEWAY.disabled=true;
}
else
{
document.frmTask.txtAdvGATEWAY.disabled = false;
document.frmTask.txtGATEWAYMetric.disabled = false;
document.frmTask.txtGATEWAYMetric.value = 1;
}
}
//Disable the controls related to IP when no items in IP listbox
function enableAdvIPControls()
{
if(document.frmTask.lstIP.length==0)
{
document.frmTask.btnAddIP.disabled=true;
}
else
{
document.frmTask.txtAdvIP.disabled = false;
document.frmTask.txtAdvMask.disabled = false;
}
}
//Limits the length of listbox to a specified value and disables the appropriate textboxes
function LimitListLength(Obj,Objlen,ObjFirst,ObjSecond,ObjButton)
{
var lstIPLength = Obj.length;
if(lstIPLength >= Objlen)
{
ObjFirst.disabled = true;
ObjSecond.disabled = true;
ObjButton.disabled = true;
}
}
// Function to add the IP& subnet to the selected list box
function addIPtoListBox(objLst,objFirst,objSecond,objRemove)
{
var strIPANDSubnet=objFirst.value+":"+objSecond.value;
//calling function to validate IP
var intResult=isValidIP(objFirst);
if(intResult!=0)
{
//Calling to validate the IP and display the error message
SA_DisplayErr('<%=SA_EscapeQuotes(L_IP_ERRORMESSAGE)%>');
document.frmTask.onkeypress = ClearErr;
selectFocus(objFirst);
return;
}
//Checking for the SubnetMask validation
if (objSecond.value==""|| !isValidSubnetMask(objSecond))
{
SA_DisplayErr('<%=SA_EscapeQuotes(L_INVALIDSUBNETADDRESSES_ERRORMESSAGE)%>');
document.frmTask.onkeypress = ClearErr;
selectFocus(objSecond);
return;
}
// checking for the duplicate values if not add to the list box
if (!addToListBox(objLst,objRemove,strIPANDSubnet,strIPANDSubnet))
{
SA_DisplayErr('<%=SA_EscapeQuotes(L_DUPLICATEADDRESSES_ERRORMESSAGE)%>');
document.frmTask.onkeypress = ClearErr;
}
else
{
objFirst.value="";
objSecond.value="";
objFirst.focus();
// making the addIP button disable
document.frmTask.btnAddIP.disabled=true;
if(objLst.length >= 40)
{
objFirst.disabled = true;
objSecond.disabled = true;
}
}
}// end of function addIPtoListBox
// to set the default subnetmask depending
// on the Class of IP address
function setDefaultSubnet(objIP,objSubnet)
{
// get the IP and subnet values
var strIPtext = objIP.value;
var strSubnet = objSubnet.value;
// validate the IP address first
var nRetval = isValidIP(objIP)
if (nRetval!= 0)
{
return;
}
// return if the subnet already has some value
if(!(Trim(strSubnet) == ""))
{
return;
}
// decide the class of IP to give the default Subnet
var arrIP = strIPtext.split(".");
var nClassId = parseInt(arrIP[0],10);
// set the value of the subnet depending on the class
if(nClassId <=126)
objSubnet.value = "255.0.0.0"; // Class A
else if(nClassId <=191)
objSubnet.value = "255.255.0.0"; // Class B
else if(nClassId < 255)
objSubnet.value = "255.255.255.0"; // Class C
// set the focus on the subnet
selectFocus(objSubnet);
}
// Function to add the Gateway & Gatewaymetric to the selected list box
function addGATEWAYtoListBox(objLst,objFirst,objSecond,objRemove)
{
var strGatewayANDMetric=objFirst.value + " <%=L_METRIC_TEXT%> " + objSecond.value;
//calling function to validate GATEWAY
var intResult=isValidIP(objFirst)
if(intResult!=0)
{
//Calling to validate the GATEWAY and display the error message
SA_DisplayErr('<%=SA_EscapeQuotes(L_IP_ERRORMESSAGE)%>');
document.frmTask.onkeypress = ClearErr;
selectFocus(objFirst);
return;
}
//Checking for the SubnetMask validation
if (objSecond.value=="" || !validateMetric(objSecond,
'<%=SA_EscapeQuotes(L_INVALIDGATEWAYMETRIC_ERRORMESSAGE)%>'))
{
SA_DisplayErr('<%=SA_EscapeQuotes(L_INVALIDGATEWAYMETRIC_ERRORMESSAGE)%>');
document.frmTask.onkeypress = ClearErr;
selectFocus(objSecond);
return;
}
// checking for the duplicate values if not add to the list box
if (!addToListBox(objLst,objRemove,strGatewayANDMetric,strGatewayANDMetric))
{
SA_DisplayErr('<%=SA_EscapeQuotes(L_DUPLICATEADDRESSES_ERRORMESSAGE)%>');
document.frmTask.onkeypress = ClearErr;
}
else
{
objFirst.value="";
objSecond.value="";
objFirst.focus();
// making the addGATEWAY button disable
document.frmTask.btnAddGATEWAY.disabled=true;
objSecond.value=1;
if(objLst.length >= 20)
{
objFirst.disabled = true;
objSecond.disabled = true;
objSecond.value = "";
}
}
}// end of function addGATEWAYtoListBox
function validateMetric(objTxt,strErrorMsg)
{
if (objTxt.value=="" || objTxt.value==0 ||objTxt.value > 9999 )
{
SA_DisplayErr(strErrorMsg);
document.frmTask.onkeypress = ClearErr;
// making the value null
objTxt.value="";
objTxt.focus();
return false;
}
else
return true;
}
</script>
<%
End Function
'-------------------------------------------------------------------------
'Function: ServeGeneralUI
'Description: Serves the HTML content for General tab
'Input Variables: None
'Output Variables: None
'Returns: None
'Global Variables: g_*, F_*, blnDHCPEnabled, L_*
'-------------------------------------------------------------------------
Function ServeGeneralUI()
Call SA_TraceOut(SOURCE_FILE, "ServeGeneralUI") 'check whether DHCP is enabled
Dim objService ' WMI connection object Dim objInstance ' Adapter instance 'Trying to connect to the server
Set objService=GetWMIConnection(CONST_WMI_WIN32_NAMESPACE)
'Getting the instance of the particulat NIC card object
Set objInstance = getNetworkAdapterObject(objService,g_strDeviceID)
' Getting DHCP Enable/Disable and accordingly set radio values
blnDHCPEnabled = isDHCPenabled(objInstance)
'Release the objects set objService = nothing set objInstance = nothing
if trim(g_strTabValue) = "" or blnDHCPEnabled then
Call getDefaultGeneralValues() 'Get the default values for General tab
end if
%>
<TABLE ALIGN=left BORDER=0 CELLSPACING=0 CELLPADDING=2>
<TR>
<TD COLSPAN=2 nowrap class="TasksBody">
<INPUT TYPE="RADIO" CLASS="FormRadioButton" NAME="radIP" VALUE="IPDEFAULT" TABINDEX=1 <%If (blnDHCPEnabled) Then Response.Write " CHECKED" End If%> onClick="enableIPControls(true)" > <%=L_OBTAINIPFROMDHCP_TEXT %>
</TD>
</TR>
<TR>
<TD COLSPAN=2 nowrap class="TasksBody">
<INPUT TYPE="RADIO" CLASS="FormRadioButton" NAME="radIP" VALUE="IPMANUAL" TABINDEX=1 <%If (Not blnDHCPEnabled) Then Response.Write " CHECKED" End If %> onClick="enableIPControls(false)" > <%=L_CONFIGUREMANUALLY_TEXT%>
</TD>
</TR>
<TR>
<TD COLSPAN=2 class="TasksBody">
<P> </P>
</TD>
</TR>
<TR>
<TD ALIGN=LEFT nowrap class="TasksBody">
<%=L_NIC_IP_IP%>
</TD>
<TD ALIGN=left class="TasksBody">
<% select case blnDHCPEnabled
case false
%>
<INPUT CLASS='FormField' TYPE="TEXT" NAME="txtIP" VALUE="<%=F_strIPAddress %>" TABINDEX=2 MAXLENGTH=15 OnKeyPress="if(window.event.keyCode == 13) return true ; checkKeyforIPAddress(this);">
<%
case true
%>
<INPUT CLASS='FormField' TYPE="TEXT" NAME="txtIP" VALUE="<%=F_strIPAddress %>" disabled TABINDEX=2 MAXLENGTH=15 OnKeyPress="if(window.event.keyCode == 13) return true ; checkKeyforIPAddress(this);">
<%
end select
%>
</TD>
</TR>
<TR>
<TD ALIGN=LEFT nowrap class="TasksBody">
<%=L_SUBNETMASK_TEXT%>
</TD>
<TD ALIGN=left class="TasksBody">
<%
select case blnDHCPEnabled
case false
%>
<INPUT CLASS='FormField' TYPE="TEXT" NAME="txtMask" VALUE="<%=F_strSubnetMask%>" TABINDEX=3 MAXLENGTH=15 OnKeyPress=" if(window.event.keyCode == 13) return true ; checkKeyforIPAddress(this);">
<%
case true
%>
<INPUT CLASS='FormField' TYPE="TEXT" NAME="txtMask" VALUE="<%=F_strSubnetMask%>" disabled TABINDEX=3 MAXLENGTH=15 OnKeyPress=" if(window.event.keyCode == 13) return true ; checkKeyforIPAddress(this);">
<%
end select
%>
</TD>
</TR>
<TR>
<TD ALIGN=left nowrap class="TasksBody">
<%=L_DEFAULTGATEWAY_TEXT%>
</TD>
<TD ALIGN=left class="TasksBody">
<%
select case blnDHCPEnabled
case false
%>
<INPUT CLASS='FormField' TYPE="TEXT" NAME="txtGateway" VALUE="<%=F_strGatewayAddress%>" TABINDEX=3 MAXLENGTH=15 OnKeyPress=" if(window.event.keyCode == 13) return true ; checkKeyforIPAddress(this);">
<%
case true
%>
<INPUT CLASS='FormField' TYPE="TEXT" DISABLED NAME="txtGateway" VALUE="<%=F_strGatewayAddress%>" TABINDEX=3 MAXLENGTH=15 OnKeyPress=" if(window.event.keyCode == 13) return true ; checkKeyforIPAddress(this);">
<%
end select
%>
</TD>
</TR>
</TABLE>
<INPUT TYPE=hidden NAME=hdnGeneralTabValue VALUE=""> <INPUT TYPE=hidden NAME=hdnInitialIPValue VALUE="<%= g_initialIPAddress %>">
<INPUT TYPE=hidden NAME=hdnRadIP VALUE="">
<%
End Function
'-------------------------------------------------------------------------
'Function: ServeAdvancedUI
'Description: Serves the HTML content for Advanced tab
'Input Variables: None
'Output Variables: None
'Returns: None
'Global Variables: g_*, F_*, L_*
'-------------------------------------------------------------------------
Function ServeAdvancedUI()
Call SA_TraceOut(SOURCE_FILE, "ServeAdvancedUI")
if trim(g_strAdvTabValue) = "" then
getDefaultAdvancedvalues() 'Get the default values for Advanced tab
else
UpdateDefaultValues() 'Update the values when navigated between tabs
end if
%>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=2 class="TasksBody">
<TR>
<TD NOWRAP class="TasksBody" >
<P><%=L_NIC_IP_IP%></P>
</TD> <TD class="TasksBody"> </TD> <TD VALIGN=TOP nowrap rowspan=2 class="TasksBody" > <BR> <%=L_NIC_IP_IP%><BR>
<INPUT CLASS='FormField' TYPE="TEXT" NAME="txtAdvIP" VALUE="" TABINDEX=3 SIZE=20 MAXLENGTH=15 OnKeyPress="checkKeyforIPAddress(this)" onKeyUP="disableAddButton(this,btnAddIP)">
<BR>
<%=L_ADVSUBNETMASK_TEXT%><BR>
<INPUT CLASS='FormField' TYPE="TEXT" NAME="txtAdvMask" VALUE="" TABINDEX=5 SIZE=20 MAXLENGTH=15 OnKeyPress="checkKeyforIPAddress(this);" onfocus="setDefaultSubnet(txtAdvIP,this);">
</TD>
</TR>
<TR>
<TD class="TasksBody" width=23%>
<SELECT NAME="lstIP" style="width=225px" class="FormField" TABINDEX=2 SIZE=7 >
<%
'Function call to add the IP Addresses and Subnet masks to the List box and limit the size to 40
ServeListValues g_arrIPList,L_SERVEVALUES_ERRORMESSAGE, 40
%>
</SELECT>
</TD>
<TD class="TasksBody" ALIGN=center width=23%>
<% Call SA_ServeOnClickButtonEx(L_BUTTON_ADD_TEXT,"","addIPtoListBox(lstIP,txtAdvIP,txtAdvMask,btnRemoveIP)",90,0,"DISABLED","btnAddIP")%>
<BR><BR><BR><BR> <% Call SA_ServeOnClickButtonEx(L_BUTTON_REMOVE_TEXT,"","removeListBoxItems(lstIP,btnRemoveIP);enableAdvIPControls()",90,0,"ENABLED","btnRemoveIP")%>
</TD>
</TR>
<TR> <TD class="TasksBody" NOWRAP COLSPAN="3" ><BR><p><%=L_GATEWAYADDRESS_TEXT%></P></TD>
</TR>
<TR>
<TD class="TasksBody">
<SELECT NAME="lstGATEWAY" class="FormField" style="width=225px" TABINDEX=7 SIZE=6>
<%
'Function call to add the Gateway Addresses and Metric to the List box and limit the size to 20
ServeListValues g_arrGATEWAYList,L_SERVEVALUES_ERRORMESSAGE, 20
%>
</SELECT>
</TD>
<TD class="TasksBody" ALIGN=center >
<% Call SA_ServeOnClickButtonEx(L_BUTTON_ADD_TEXT,"","addGATEWAYtoListBox(lstGATEWAY,txtAdvGATEWAY,txtGATEWAYMetric,btnRemoveGATEWAY)",90,0,"DISABLED","btnAddGATEWAY")%>
<BR><BR><BR><BR>
<% Call SA_ServeOnClickButtonEx(L_BUTTON_REMOVE_TEXT,"","removeListBoxItems(lstGATEWAY,btnRemoveGATEWAY); enableGatewayControls();",90,0,"ENABLED","btnRemoveGATEWAY")%>
</TD>
<TD nowrap class="TasksBody">
<%=L_GATEWAY_TEXT %><BR>
<INPUT CLASS='FormField' TYPE="TEXT" NAME="txtAdvGATEWAY" VALUE="" TABINDEX=8 SIZE=20 MAXLENGTH=15 OnKeyPress="checkKeyforIPAddress(this)" OnKeyUP="disableAddButton(this,btnAddGATEWAY)">
<BR>
<%=L_GATEWAYMETRIC_TEXT%><br>
<INPUT CLASS='FormField' TYPE="TEXT" NAME="txtGATEWAYMetric" TABINDEX=9 VALUE="" SIZE=6 MAXLENGTH=4 OnKeyPress="checkKeyforNumbers(this)">
</TD>
</TR>
<TR>
<TD COLSPAN=3 class="TasksBody" nowrap TITLE="<%=L_METRICDESC_TEXT%>"><BR><%=L_IPCONNECTIONMETRIC_TEXT%>
<INPUT TYPE="TEXT" NAME="txtConnectionMetric" TABINDEX=12 SIZE=15 MAXLENGTH=4 VALUE="<%=F_nConnectionMetric%>" OnKeyPress="checkKeyforNumbers(this)">
</TD>
</TR>
<TR>
<TD COLSPAN=3 class="TasksBody">
<%= L_METRICDESC_TEXT %>
</TD>
</TR>
</TABLE>
<INPUT TYPE=hidden NAME=hdnlstIP VALUE="<%=F_strListIP%>">
<INPUT TYPE=hidden NAME=hdnlstGATEWAY VALUE="<%=F_strListGateway%>">
<INPUT TYPE=hidden NAME=hdnAdvancedTabValue VALUE="<%= g_strAdvTabValue %>"> <INPUT TYPE=hidden NAME=hdnInitialIPValue VALUE="<%= g_initialIPAddress %>">
<%
End Function
'-------------------------------------------------------------------------
'Sub routine name: ServeListValues
'Description: Serves in Loading the IP's/Gateways into the list box
'Input Variables: In - strList->list of the addresses with concatination
' character as ;
' In - ERRORMESSAGE->Error message for that particular call
'Output Variables: None
'Returns: None
'Global Variables: None
'-------------------------------------------------------------------------
Sub ServeListValues(strList,ERRORMESSAGE,nMaxcount)
Err.Clear
On Error Resume Next
Dim arrTempList 'holds the array of items
Dim i 'holds the increment count
Dim nCountVal 'holds the count of items to limit the items in the listbox
Call SA_TraceOut(SOURCE_FILE, "ServeListValues")
' splitting the string into array
arrTempList=split(strList,";",-1,1)
nCountVal =0
'Printing the array values into the listbox
For i=Lbound(arrTempList) To Ubound(arrTempList)
nCountVal = nCountVal + 1
' checking for empty and if the string is ":" dont display in the list box
If arrTempList(i) <> "" AND arrTempList(i) <> ":" Then
If i=Lbound(arrTempList) Then
Response.Write "<OPTION VALUE=" & chr(34) & arrTempList(i)_
& chr(34)& " SELECTED>" & arrTempList(i) & " </OPTION>"
Else
Response.Write "<OPTION VALUE=" & chr(34) & arrTempList(i)_
& chr(34)& " >" & arrTempList(i) & " </OPTION>"
End if
End If
if nCountVal = nMaxcount then exit for
Next
If Err.number <> 0 Then
Call SA_TraceOut(SOURCE_FILE, "ServeListValues failed")
SA_SetErrMsg ERRORMESSAGE & "(" & Hex(Err.Number) & ")"
End If
End Sub
'-------------------------------------------------------------------------
'Function name: getDefaultGeneralValues
'Description: Serves in Getting the Default values from the System
'Input Variables: None
'Output Variables: None
'Returns: True/False
'Global Variables: In:G_CONST_REGISTRY_PATH-Reg path
' In:CONST_WMI_WIN32_NAMESPACE
' In:L_* -Localized strings
' Out:F_* - Form variables
'
'Called several functions regConnection,
'getNetworkAdapterObject,isDHCPenabled,getRegkeyvalue
'which will be helpful in getting the NIC information
'-------------------------------------------------------------------------
Function getDefaultGeneralValues()
Err.Clear
On Error Resume Next
Dim objService
Dim objInstance
Dim arrIPList 'hold array IP list
Dim arrSubnetList 'hold array Subnet list
Dim nCount
Dim strSettingID 'hold setting id
Dim arrGATEWAYList 'hold gateway array list
Dim objRegistry
Call SA_TraceOut(SOURCE_FILE, "getDefaultGeneralValues")
'Trying to connect to the server
Set objService=GetWMIConnection(CONST_WMI_WIN32_NAMESPACE)
'Connect to registry Set objRegistry=regConnection()
'Getting the instance of the particulat NIC card object
Set objInstance = getNetworkAdapterObject(objService,g_strDeviceID)
' Getting DHCP Enable/Disable and accordingly set radio values
blnDHCPEnabled = isDHCPenabled(objInstance)
'Getting the SettingID
strSettingID=objInstance.SettingID
'Getting IP values from the registry by giving the complete path arrIPList = objInstance.IPAddress
'Getting subnet values from the registry by giving the complete path arrSubnetList = objInstance.IPSubnet
'Getting GATEWAY values from the registry by giving the complete path
arrGATEWAYList=getRegkeyvalue(objRegistry,G_CONST_REGISTRY_PATH & "\" _
& strSettingID,"DefaultGateway",CONST_MULTISTRING)
'Forming the string of IP+ SubnetMask list
For nCount=LBound(arrIPList) To UBound(arrIPList)
F_strIPAddress = arrIPList(nCount) g_initialIPAddress = arrIPList(nCount)
F_strSubnetMask = arrSubnetList(nCount)
F_strGatewayAddress = arrGATEWAYList(nCount)
Exit for
Next
getDefaultGeneralValues = true
'release objects
Set objInstance = Nothing
Set objService = Nothing
Set objRegistry = Nothing End Function
'-------------------------------------------------------------------------
'Function name: getDefaultAdvancedvalues
'Description: Serves in Getting the Default values from the System
'Input Variables: None
'Output Variables: None
'Returns: True/False
'Global Variables: In:G_CONST_REGISTRY_PATH-Reg path
' Out:F_nConnectionMetric-IP connection
' metric(from Registry)
' Out:g_arrIPList-List of Ips& subnetmask
' Out:G_arrGATEWAYList-List of Gateways& Metrics
' In :L_* -Localized strings
'
'Called several functions regConnection,
'getNetworkAdapterObject,isDHCPenabled,getRegkeyvalue
'which will be helpful in getting the NIC information
'-------------------------------------------------------------------------
Function getDefaultAdvancedvalues()
Err.Clear
On Error Resume Next
Dim objInstance
Dim objRegistry
Dim objService 'holds WMI Connection
Dim arrIPList 'holds IP array list
Dim arrSubnetList 'holds subnet array
Dim arrGATEWAYList 'holds gateway array
Dim arrGATEWAYMetricList 'holds gateway metric list
Dim strSettingID 'holds setting ID
Dim nCount
g_strAdvTabValue = "true"
Call SA_TraceOut(SOURCE_FILE, "getDefaultAdvancedvalues")
'Trying to connect to the server
Set objService=GetWMIConnection(CONST_WMI_WIN32_NAMESPACE)
if Err.number <> 0 then
SA_ServeFailurePage L_WMI_CONNECTIONFAIL_ERRORMESSAGE
getDefaultAdvancedvalues = False
Exit Function
end if
'Connecting to default namespace to carry registry operations
Set objRegistry=regConnection()
If (objRegistry is Nothing) Then
SA_ServeFailurePage L_SERVERCONNECTIONFAIL_ERRORMESSAGE
getDefaultAdvancedvalues = False
Exit Function
End If
'Getting the instance of the particulat NIC card object
Set objInstance = getNetworkAdapterObject(objService,g_strDeviceID)
'Getting the SettingID
strSettingID=objInstance.SettingID
'Getting IP values from the registry by giving the complete path
'arrIPList=getRegkeyvalue(objRegistry,G_CONST_REGISTRY_PATH & "\" _
'& strSettingID,"IPAddress",CONST_MULTISTRING) arrIPList = objInstance.IPAddress
'Getting subnet values from the registry by giving the complete path
'arrSubnetList=getRegkeyvalue(objRegistry,G_CONST_REGISTRY_PATH & "\" _
'& strSettingID,"SubnetMask",CONST_MULTISTRING) arrSubnetList = objInstance.IPSubnet
if trim(F_strIPAddress) <> "" then
g_arrIPList = F_strIPAddress & ":" & F_strSubnetMask & ";"
'Forming the string of IP+ SubnetMask list
For nCount=LBound(arrIPList) + 1 To UBound(arrIPList)
g_arrIPList=g_arrIPList+arrIPList(nCount)+":"+arrSubnetList(nCount)+";"
Next
else
'Forming the string of IP+ SubnetMask list
if F_strRadIP = 1 then
For nCount=LBound(arrIPList)+1 To UBound(arrIPList)
g_arrIPList=g_arrIPList+arrIPList(nCount)+":"+arrSubnetList(nCount)+";"
Next
end if
if F_strRadIP = 0 then
For nCount=LBound(arrIPList) To UBound(arrIPList)
g_arrIPList=g_arrIPList+arrIPList(nCount)+":"+arrSubnetList(nCount)+";"
Next
end if
end if
'Getting GATEWAY values from the registry by giving the complete path
arrGATEWAYList=getRegkeyvalue(objRegistry,G_CONST_REGISTRY_PATH & "\" _
& strSettingID,"DefaultGateway",CONST_MULTISTRING)
'Getting GateWayCostMetric from registry by giving the complete path
arrGATEWAYMetricList =getRegkeyvalue(objRegistry,G_CONST_REGISTRY_PATH _
& "\" & strSettingID,"DefaultGatewayMetric",CONST_MULTISTRING)
if F_strRadIP <> 0 then
if F_strGatewayAddress <> "" then g_arrGATEWAYList = F_strGatewayAddress & " "+L_METRIC_TEXT+" 1;"
'Forming the string of gateway+ metric list
For nCount=LBound(arrGATEWAYList) + 1 To UBound(arrGATEWAYList)
g_arrGATEWAYList = g_arrGATEWAYList+arrGATEWAYList(nCount)+ _
" "+L_METRIC_TEXT+" "+arrGATEWAYMetricList(nCount)+";"
Next
else
'Forming the string of gateway+ metric list
For nCount=LBound(arrGATEWAYList) To UBound(arrGATEWAYList)
g_arrGATEWAYList = g_arrGATEWAYList+arrGATEWAYList(nCount)+ _
" "+L_METRIC_TEXT+" "+arrGATEWAYMetricList(nCount)+";"
Next
end if
'Getting InterfaceMetric from the registry by giving the complete path
F_nConnectionMetric=getRegkeyvalue(objRegistry,G_CONST_REGISTRY_PATH _
& "\" & strSettingID ,"InterfaceMetric",CONST_DWORD)
'Set to Nothing
Set objService=Nothing
Set objRegistry=Nothing
Set objInstance=Nothing
getDefaultAdvancedvalues = true
End Function
'-------------------------------------------------------------------------
'Function: UpdateDefaultValues
'Description: Updates the state of fields when navigated from one tab
' to another
'Input Variables: None
'Output Variables: None
'Returns: string
'Global Variables: F_*,g_*
'-------------------------------------------------------------------------
Function UpdateDefaultValues()
Dim arrTempList 'holds temporary array
Dim i 'holds increment count
Call SA_TraceOut(SOURCE_FILE, "UpdateDefaultValues")
arrTempList=split(F_strListGateway,";",-1,1)
if F_strRadIP = 1 then
if F_strGatewayAddress <> "" then g_arrGATEWAYList = F_strGatewayAddress & " "+L_METRIC_TEXT+" 1;"
For i=Lbound(arrTempList)+ 1 To Ubound(arrTempList)
g_arrGATEWAYList = g_arrGATEWAYList & arrTempList(i) & ";"
next
end if
if F_strRadIP = 0 then
For i=Lbound(arrTempList) To Ubound(arrTempList)
g_arrGATEWAYList = g_arrGATEWAYList & arrTempList(i) & ";"
next
End if
arrTempList=split(F_strListIP,";",-1,1)
if F_strIPAddress <> "" then
g_arrIPList = F_strIPAddress & ":" & F_strSubnetMask & ";"
if F_strRadIP = 1 then
For i=Lbound(arrTempList)+ 1 To Ubound(arrTempList)
g_arrIPList = g_arrIPList & arrTempList(i) & ";"
next
end if
elseif F_strIPAddress = "" then
if F_strRadIP = 0 then
For i=Lbound(arrTempList) To Ubound(arrTempList)
g_arrIPList = g_arrIPList & arrTempList(i) & ";"
next
end if
end if
End Function
'-------------------------------------------------------------------------
'Function name: setNIC
'Description: serves in Setting new IP & gateway values
'Input Variables: None
'Output Variables:
'Returns: Boolean - Returns ( True/Flase )
'Global Variables: In - blnDHCPEnabled -Radio button value
' In - G_CONST_REGISTRY_PATH -Reg path
' In - L_* - Localized strings
'Called registry related functions to update the values and displays the
'corresponding error if any.
'-------------------------------------------------------------------------
Function setNIC()
Err.Clear
On Error resume next
Dim objInstance
Dim objService
Dim objRegistry 'holds registry connection object
Dim arrIPList
Dim arrSubnetList 'holds subnet array list
Dim arrGATEWAYList() 'holds gateway array list
Dim arrTemp
Dim arrMetricList
Dim strSettingID 'holds setting ID
Dim StrIP
Dim strSubnet
Dim strGATEWAY
Dim strMetric
Dim strTmpIP
Dim strTmpGATEWAY
Dim i
Dim intReturnValue
Dim arrGATEWAY Dim strRetURL Dim retVal
Redim arrIPList(0)
Redim arrGATEWAYList(0)
Redim arrSubnetList(0)
'Initializing to FALSE
setNIC = FALSE
Call SA_TraceOut(SOURCE_FILE, "setNIC")
'Connecting to the server
Set objService=GetWMIConnection(CONST_WMI_WIN32_NAMESPACE) if Err.number <> 0 then
SA_ServeFailurePage L_WMI_CONNECTIONFAIL_ERRORMESSAGE
Exit Function
end if
'Checks whether ServerAppliance IP Address is equal to IPAddress entered 'Added check to only validate IP when we are specifying it (Static IP) if (NOT(F_strRadIP = 0)) AND (trim(g_initialIPAddress) <> trim(F_strIPAddress)) then
' ' Check to see if address is in-use if ( TRUE = Ping(F_strIPAddress) ) then call SA_SetActiveTabPage(page,g_iTabGeneral) SA_SetErrMsg L_IP_INUSE_ERRORMESSAGE exit function end if end if 'Getting the instance of the particulat NIC card
Set objInstance = getNetworkAdapterObject(objService,g_strDeviceID) If ( F_strRadIP = 0 ) Then Call SA_TraceOut(SOURCE_FILE, "Enabled DHCP") if ( Not objInstance.DHCPEnabled ) then
intReturnValue = enableDHCP(objInstance)
end if
'Connecting to default namespace to carry registry operations Set objRegistry=regConnection() If (objRegistry is Nothing) Then
SA_ServeFailurePage L_SERVERCONNECTIONFAIL_ERRORMESSAGE
Exit Function
End If 'Getting the SettingID
strSettingID=objInstance.SettingID 'Set Interface metric
intReturnValue=updateRegkeyvalue(objRegistry,G_CONST_REGISTRY_PATH & "\" & strSettingID ,"InterfaceMetric",F_nConnectionMetric,CONST_DWORD)
If intReturnValue = FALSE Then
SA_SetErrMsg L_NIC_IP_ERR_COULDNOTSETIPCONNECTIONMETRIC & "(" & Hex(Err.Number) & ")"
Exit Function
End If
setNIC = TRUE 'Release the objects Set objInstance = Nothing Set objRegistry=Nothing Exit Function
End If
'Connecting to default namespace to carry registry operations Set objRegistry=regConnection() if F_strListIP = "" then
F_strListIP = F_strIPAddress & ":" & F_strSubnetMask
end if
if F_strListGateway = "" then
F_strListGateway = F_strGatewayAddress & " "+L_METRIC_TEXT+" 1;"
end if
If (objRegistry is Nothing) Then
SA_ServeFailurePage L_SERVERCONNECTIONFAIL_ERRORMESSAGE
Exit Function
End If
'Getting the SettingID
strSettingID=objInstance.SettingID
Dim arrNewIp
Dim arrNewSubnet
Dim nPos
'Split Ip List into arrays of Ip and Subnet mask
nPos = InStr(F_strListIP, ";")
if( Cint(nPos) = 0 ) then
ReDim strTmpIP(0)
strTmpIP(0) = F_strListIP
else
strTmpIP = Split(F_strListIP, ";",-1,1)
end if
ReDim arrNewIp(UBound(strTmpIp))
ReDim arrNewSubnet(UBound(strTmpIp))
'Loop to pack Ip's and subnetmasks in different variables
For i= 0 To UBound(strTmpIp)
arrTemp = Split(strTmpIP(i),":",-1,1)
arrNewIp(i) = arrTemp(0)
arrNewSubnet(i) = arrTemp(1)
Next
'Split Gateway List into arrays of gateway and metric
strTmpGATEWAY = Split(F_strListGateway, ";", -1, 1) redim arrGATEWAY(UBound(strTmpGATEWAY))
'Loop to pack Gateways's and Metrics in different variables
For i= 0 to Ubound(strTmpGATEWAY)
if strTmpGATEWAY(i) = "" then exit for end if
arrTemp = Split(strTmpGATEWAY(i)," "+L_METRIC_TEXT+" ",-1,1)
If (isnull (strGATEWAY)) Then
strGATEWAY = arrTemp(0) & ";"
Else
strGATEWAY = strGATEWAY & arrTemp(0) & ";"
End If
If (isnull (strMetric)) Then
strMetric = arrTemp(1) & ";"
Else
strMetric = strMetric & arrTemp(1) & ";"
End If
Next
'call wmi method EnableStatic in win32_networkadapterconfiguration to set the static ip
'sets the ip and subnet
Call objInstance.EnableStatic(arrNewIp, arrNewSubnet)
If Err.Number <> 0 Then
SA_SetErrMsg L_NIC_IP_ERR_COULDNOTSETIP & objInstance.Description & "(" & Hex(Err.Number) & ")"
Exit Function
end if
if strGATEWAY <> "" then
strGATEWAY=Mid(strGATEWAY,1,(Len(strGATEWAY)-1))
end if
'Splitting the string into array of GATEWAYS
redim arrGATEWAY(UBound(strTmpGATEWAY))
arrGATEWAY = split(strGATEWAY, ";", -1 ,1)
if strMetric <> "" then
strMetric=Mid(strMetric,1,(Len(strMetric)-1))
end if
'Splitting the string into array of GATEWAYMetrics
arrMetricList= split(strMetric, ";", -1 ,1) 'Sets gateway and connection metric intReturnValue=objInstance.SetGateways(arrGATEWAY,arrMetricList)
If intReturnValue <> 0 Then SA_SetErrMsg L_NIC_IP_ERR_COULDNOTSETGATEWAY & objInstance.Description & "(" & Hex(Err.Number) & ")"
Exit Function
end if
'Sets Interface metric
intReturnValue=updateRegkeyvalue(objRegistry,G_CONST_REGISTRY_PATH & "\" & strSettingID ,"InterfaceMetric",F_nConnectionMetric,CONST_DWORD)
If intReturnValue = FALSE Then
SA_SetErrMsg L_NIC_IP_ERR_COULDNOTSETIPCONNECTIONMETRIC & "(" & Hex(Err.Number) & ")"
Exit Function
End If
'Set to Nothing
Set objService=Nothing
Set objRegistry=Nothing
Set objInstance=Nothing
setNIC = TRUE
End Function '-------------------------------------------------------------------------
'Function: GetReturnURL
'Description: Forms new URL for changed IP
'Input Variables: strNewIP
'Output Variables: strRetURL 'returns newly formed URL
'Returns: string
'Global Variables: None
'-------------------------------------------------------------------------
Function GetReturnURL(strNewIp) Err.Clear On Error Resume Next
GetReturnURL = ""
Dim strRetURL Dim strBase Dim strTab
strBase = SA_GetNewHostURLBase(strNewIp, SA_DEFAULT, FALSE, SA_DEFAULT)
strRetURL = strBase & "network/nicinterface_prop.asp"
strTab = GetTab1() If ( Len(strTab) > 0 ) Then Call SA_MungeURL(strRetURL, "Tab1", strTab) End If strTab = GetTab2() If ( Len(strTab) > 0 ) Then Call SA_MungeURL(strRetURL, "Tab2", strTab) End If
Call SA_TraceOut(SOURCE_FILE, strRetURL) GetReturnURL = strRetURL End Function
Function Ping(ByVal sIP) on error resume next err.Clear()
Dim oHelper Ping = FALSE
Set oHelper = CreateObject("ComHelper.NetworkTools") if ( Err.Number <> 0 ) Then Call SA_TraceOut("INC_GLOBAL", "Error creating ComHelper.NetworkTools object, error: " + CStr(Hex(Err.Number))) Exit Function End If
Ping = oHelper.Ping(sIP) if ( Err.Number <> 0 ) Then Ping = FALSE Call SA_TraceOut("INC_GLOBAL", "oHelper.Ping(), error: " + CStr(Hex(Err.Number)) + " " + Err.Description) Exit Function End If
if ( Ping > 0 ) Then Ping = TRUE End If Set oHelper = Nothing
End Function
%>
|
