home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 August / CHIP_08_2003.iso / Spesial / proxy / ProxPro / ProxyPro.exe / data1.cab / ConfigSite_Files / network.agp < prev    next >
Encoding:
Text File  |  2002-12-09  |  6.8 KB  |  184 lines
  1. <%
  2.     Message = ""
  3.     action = Request.ReqParam("action")
  4.     
  5.     if (action = "Apply") then
  6.  
  7.         Message = "The following settings have been configured:<br>"
  8.  
  9.         if (Request.ReqParam("secureLAN") <> "") then
  10.         ' configure secured LAN
  11.         
  12.     'step1 - removing trusted IPs
  13.         
  14.         IPString = Accounts.MaskList            ' get the trusted IP list            
  15.         i = Instr(IPString,"<a>")+3            ' find the first IP
  16.         while (i > 3)
  17.             if (i>3) then
  18.                 IPString = Mid(IPString,i)                ' IPString = 192.168.</a>....
  19.                 i = Instr(IPString,"</a")
  20.                 tempstring = Left(IPString,i-1)                ' tempstring = 192.168.
  21.                 Accounts.DeleteMask(tempstring)                ' delete it
  22.             end if
  23.             i = Instr(IPString,"<a>")+3                    ' get next IP
  24.         wend
  25.     'step2 - get local IPs
  26.         'simulate adding a proxy 
  27.         Set proxy = Proxies.NewProxy
  28.         proxy.FileName = "GKHttp.dll"
  29.         ' get default input address -> all IP addresses available on the server.
  30.         IPString = proxy.GetDefaultStringProperty("Input_Address")
  31.  
  32.         'now parse the string
  33.         while (IPString <> "")
  34.  
  35.             i = Instr(1,IPString,vbCr)                    ' find the end-of-line
  36.  
  37.             tempstring = Left(IPString,i+1)                    ' the first line - 192.168.1.1 (LAN)
  38.  
  39.             if (i>0) then
  40.                 IPString = Mid(IPString,i+1)                ' if not the last line then get to the next
  41.             else
  42.                 IPString = ""                        ' no more line - force end of parsing
  43.             end if
  44.  
  45.             i = Instr(1,tempstring,"LAN")                    ' check if it is a LAN IP or not
  46.             if (i > 0) then                            ' it is a LAN IP
  47.                 
  48.                 i = Instr(tempstring,".") +1                ' find the dot (.)
  49.                 tempstring2 = Mid(tempstring, i+1)            ' tempstring2 = 168.1.1
  50.  
  51.                 tempstring2 = Left(tempstring2,Instr(1,tempstring2,".")) 'tempstring2 = 168.
  52.                 tempstring = Left(tempstring,Instr(1,tempstring,".")+1)  'tempstring  = 192.
  53.                 tempstring = tempstring + tempstring2             'tempstring = 192.168.
  54.  
  55.                 On Error Resume Next
  56.                 Accounts.AddFilterMask tempstring            ' Add Trusted IP Mask
  57.  
  58.                 If Not Err.Number = 0 Then 
  59.                     ErrLine = Err.Description            'Error occured
  60.                 else                            'no error - notify user
  61.                     Message = Message + "  - ALLOWED trusted IP address(range) : "+ tempstring+ "<br>"
  62.                 End If
  63.             end if
  64.         wend
  65.         
  66.         Accounts.AccessType = True                        ' set to DENY from all IPs except the LAN
  67.     'step3 DISABLE Guest Access
  68.  
  69.         ' removing all guest ips
  70.         IPString = Accounts.GuestMaskList
  71.         i = Instr(IPString,"<a>")+3
  72.         while (i > 3)
  73.             if (i>3) then
  74.                 IPString = Mid(IPString,i)
  75.                 i = Instr(IPString,"</a")
  76.                 tempstring = Left(IPString,i-1)
  77.                 Accounts.DeleteGuestMask(tempstring)
  78.             end if
  79.             i = Instr(IPString,"<a>")+3
  80.         wend
  81.         Message = Message + "  - Guest Access Disabled - please use the GKAccess.exe on the workstations to login to the service<br>"
  82.         Accounts.GuestAccessType = True
  83.  
  84.         end if
  85.  
  86.         if (Request.ReqParam("dns") <> "") then
  87.         ' configure the DNS server
  88.             Message = Message + "  - DNS server started. DNS forwarded to 10.24.145.38<br>"
  89.             DNS.Enabled = True
  90.             DNS.Logging = True
  91.             DNS.KicksDialer = True
  92.             DNS.RemoteDNS = "10.24.145.38"
  93.         end if
  94.  
  95.         if (Request.ReqParam("dhcp") <> "") then
  96.         ' configure DHCP for a LAN
  97.             if (Message = "") then
  98.                 Message = Message + "- <br>"
  99.             end if
  100.  
  101.             ComDhcp.Enabled = True
  102.             ComDhcp.Commit
  103.  
  104.             index=0
  105.             while (ComDhcp.Subnet(index)<>"")
  106.                 Response.Write ComDhcp.Subnet(index)
  107.                 ComDhcp.DeleteSubNet ComDhcp.Subnet(index)
  108.                 index=index+1
  109.             wend
  110.     
  111.             ' add subnet         name   start_ip      end_ip        no-exc.  time
  112.             ComDhcp.AddNewSubNet "255.255.255.0","192.168.1.1","192.168.1.255","",    259200, "LAN",1
  113.             ComDhcp.DHCPOption(comDhcp.Subnet(0),3) = "192.168.1.1"
  114.             ComDhcp.DHCPOption(comDhcp.Subnet(0),5) = "192.168.1.1"
  115.             ComDhcp.DHCPOption(comDhcp.Subnet(0),6) = "192.168.1.1"
  116.             ComDhcp.DHCPOption(comDhcp.Subnet(0),15) = "local.lan"
  117.             ComDhcp.DHCPOption(comDhcp.Subnet(0),44) = "192.168.1.1"
  118.             ComDhcp.DHCPOption(comDhcp.Subnet(0),46) = "8"
  119.         end if
  120.     end if
  121. %>
  122. <html>
  123. <head>
  124. <title>Family GateKeeper Configuration Pages - Infopulse</title>
  125. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-2">
  126. <script language="JavaScript">
  127. <!--
  128. function MM_preloadImages() { //v3.0
  129.   var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
  130.     var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
  131.     if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
  132. }
  133.  
  134. function MM_swapImgRestore() { //v3.0
  135.   var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
  136. }
  137.  
  138. function MM_findObj(n, d) { //v4.0
  139.   var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
  140.     d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  141.   if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  142.   for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  143.   if(!x && document.getElementById) x=document.getElementById(n); return x;
  144. }
  145.  
  146. function MM_swapImage() { //v3.0
  147.   var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
  148.    if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
  149. }
  150. //-->
  151. </script>
  152. </head>
  153.  
  154. <body bgcolor="#FFFFFF" text="#3060A0" topmargin="0" leftmargin="0" marginwidth="0" marginheight="0"
  155.  onLoad="MM_preloadImages('../images/about_on.jpg')">
  156. <table border="0" cellspacing="0" cellpadding="0" width="100%">
  157. <tr>
  158. <td width="5%"></td>
  159. <td width="95%">
  160. <center><br><big>
  161. <font size="3" face="MS Sans Serif"><Strong>
  162. Quick network configuration</strong>
  163. </font></big>
  164. </center>
  165. <Br>
  166. Please check the options you want to configure. Checked options are recommended.
  167. <br>
  168. Also note, that all current settings will be overridden! 
  169. <br><br>
  170. <form name="network" method="POST" action="network.agp">
  171. <input type="checkbox" name="secureLAN" value="check" checked>  Secure your network - the proxy will serve only users from within your local network; everyone has to login to the service in order to access the Internet.
  172. <br>
  173. <input type="checkbox" name="dns" value="check" checked>  Start DNS service - the proxy will resolve the hostnames to IP addresses, instead of using the Windows' DNS service.
  174. <br>
  175. <input type="checkbox" name="dhcp" value="check" checked>  DHCP server - assign automatically IP addresses to the workstations.
  176. <br><br>
  177. <input type="image" name="Apply" src="../images/apply.gif" OnClick="javascript:document.network.action.value='Apply';document.network.submit()" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Apply','','../images/apply01.gif',1)" border="0">
  178. <input type="hidden" name="action" value=""><br>
  179. </form>
  180.  
  181. <br>
  182. <font size="1" face="MS Sans Serif"><%Response.Write(GateKeeper.Version)%></font>
  183. </td></tr></table>
  184. </body></html>