home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 April B / Pcwk4b98.iso / ie401gb / IEAK4.CAB / autocfg.asp < prev    next >
Text File  |  1997-10-08  |  3KB  |  80 lines
  1. <% 
  2. Response.Buffer=TRUE
  3.  
  4. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  5. '% Request the User String
  6. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  7. IEAKuser = Request("User")
  8.  
  9. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  10. '% Check to see if a user is entered
  11. '% if not then display a message
  12. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  13. if IEAKuser = "" then
  14. Response.Write "Please enter a username"
  15.  
  16. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  17. '% If the user does enter a User variable then we
  18. '% write an INS file with their User Information 
  19. '% in it.  And name the file [user].INS
  20. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  21. else
  22. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  23. '% Write information out to a text file
  24. '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  25.     Set fs = CreateObject("Scripting.FileSystemObject")
  26.     filepath = server.mappath(IEAKUser & ".ins")
  27.     Set a = fs.CreateTextFile(filepath, True)
  28.  
  29.     a.WriteLine("[Entry]")
  30.     a.WriteLine("Entry_Name=Your Internet Connection")
  31.     a.WriteLine("")
  32.     a.WriteLine("[User]")
  33.     '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  34.     '% Notice that we are placing the User = to the
  35.     '% user variable in the URL
  36.     '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  37.     a.WriteLine("Name1=" & IEAKuser)
  38.     '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  39.     a.WriteLine("Password=passsword")
  40.     a.WriteLine(IEAKuser)
  41.     a.WriteLine("[Phone]")
  42.     a.WriteLine("Phone_Number=1234567")
  43.     a.WriteLine("Area_Code=123")
  44.     a.WriteLine("Country_Code=1")
  45.     a.WriteLine("Country_ID=1")
  46.     a.WriteLine("")
  47.     a.WriteLine("[Server]")
  48.     a.WriteLine("Type=PPP")
  49.     a.WriteLine("SW_Compress=yes")
  50.     a.WriteLine("PW_Encrypt=no")
  51.     a.WriteLine("Network_Logon=no")
  52.     a.WriteLine("SW_Encrypt=no")
  53.     a.WriteLine("Negotiate_TCP/IP=yes")
  54.     a.WriteLine("")
  55.     a.WriteLine("[TCP/IP]")
  56.     a.WriteLine("Specify_IP_Address=no")
  57.     a.WriteLine("Specify_Server_Address=no")
  58.     a.WriteLine("IP_Header_Compress=yes")
  59.     a.WriteLine("Gateway_On_Remote=yes")
  60.     a.WriteLine("")
  61.     a.WriteLine("[Internet_Mail]")
  62.     a.WriteLine("SMTP_Server=msmail-gw.bbc.com")
  63.     a.WriteLine("Name=" &  IEAKuser)
  64.     a.WriteLine("Password=password")
  65.     a.WriteLine("POP_Server=msmail-gw.bbc.com")
  66.     a.WriteLine("Domain=microsoft.com")
  67.     a.WriteLine("Install_Mail_16=0")
  68.     a.WriteLine("Email_Name=")
  69.     a.WriteLine("POP_Logon_Name=" &  IEAKuser)
  70.     a.WriteLine("POP_Logon_Password=password")
  71.     a.WriteLine("Email_Address=")
  72.     a.WriteLine("")
  73.     a.WriteLine("[Internet_News]")
  74.     a.WriteLine("NNTP_Server=msnews-gw.bbc.com")
  75.     a.WriteLine("Logon_Required=0")
  76.     a.Close
  77.     Response.redirect IEAKUser & ".ins"
  78.     'Response.write "IEAKuser:" & IEAKuser
  79. end if
  80. %>