home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / d / d423_zhw / 4.ddi / OEMNSVRA.IN_ / OEMNSVRA.IN
Encoding:
INI File  |  1993-07-24  |  107.3 KB  |  2,509 lines
  1. [Identification]
  2.     OptionType = NetService
  3. [Options]
  4.     RAS
  5. [GeneralConstants]
  6.     Chosen       = "ON"
  7.     NotChosen    = "OFF"
  8.     TRUE         = 1
  9.     FALSE        = 0
  10.     NoTitle      = 0
  11.     !DebugOutputControl = 0
  12.     FLibraryErrCtl = 1
  13.     OldVersionExisted = $(FALSE)
  14. [FileConstants]
  15.     HandleNull   = ""
  16.     RASDLGHANDLE = $(HandleNull)
  17.     PORTSDLGHANDLE = $(HandleNull)
  18.     RasServerOption = "Server"
  19.     RasClientOption = "Client"
  20.     RasAdminOption  = "Admin"
  21.     RasClientAndServerOption = "ClientAndServer"
  22.     Manufacturer    = "Microsoft"
  23.     ProductMajorVersion    = "3"
  24.     ProductMinorVersion    = "1"
  25.     ProductVersion  = $(ProductMajorVersion)"."$(ProductMinorVersion)
  26.     NetEventDLL = "%SystemRoot%\System32\netevent.dll"
  27.     IoLogMsgDll = "%SystemRoot%\System32\drivers\IoLogMsg.dll"
  28.     RasMsgDll   = "%SystemRoot%\System32\rasmsg.dll"
  29.     HideComponent = 1
  30.     HideBindings  = 16
  31.     ProductInfName     = "OEMNSVRA.INF"
  32.     ProductFullInfName = $(!STF_CWDDIR)$(ProductInfName)
  33.     RasDir      = $(!STF_CWDDIR)RAS
  34.     ProductPath = $(RasDir)"\"
  35.     ProductRASName        = "RAS"
  36.     ProductRASImagePath   = "%SystemRoot%\system32\ras"
  37.     ProductRASSvcType     = "system"
  38.     NetRuleRASClass       = "classRasService ""basic"""
  39.     NetRuleRASType        = "RasService classRasService"
  40.     NetRuleRASUse         = $(ProductRASSvcType)
  41.     ProductRASSVRName       = "RemoteAccess"
  42.     ProductRASSVRImagePath  = "%SystemRoot%\system32\rassrv.exe"
  43.     ProductRASSVRSvcType    = "service"
  44.     NetRuleRASSVRClass    = "classRasServer ""basic"""
  45.     NetRuleRASSVRType    = "RasServer classRasServer"
  46.     NetRuleRASSVRUse    = $(ProductRASSVRSvcType)
  47.     NetRuleRASSVRBindForm    = """RasServer"" yes yes container"
  48.     NetRuleRASSVRBindable    = "classRasServer netBiosTransport non non 100"
  49.     ProductRASMANName       = "RasMan"
  50.     ProductRASMANImagePath  = "%SystemRoot%\system32\rasman.exe"
  51.     ProductRASMANSvcType    = "service"
  52.     NetRuleRASMANClass      = "classRasManager ""basic"""
  53.     NetRuleRASMANType       = "RasManager classRasManager"
  54.     NetRuleRASMANUse        = $(ProductRASMANSvcType)
  55.     NetRuleRASMANBindForm   = """RasManager"" yes no container"
  56.     NetRuleRASMANBindable   = ""
  57.     ProductRASHUBName      = "RasHub"
  58.     ProductRASHUBImagePath = "\SystemRoot\system32\drivers\rashub.sys"
  59.     ProductRASHUBSvcType   = "kernel"
  60.     ProductRASHUBType      = "transport"
  61.     NetRuleRASHUBType      = "rasHubDrv rasHubTransport"
  62.     NetRuleRASHUBClass     = {"rasHubTransport basic"}
  63.     NetRuleRASHUBUse       = $(ProductRASHUBType)" yes yes"
  64.     NetRuleRASHUBBindForm  = """RasHub"" yes no container"
  65.     NetRuleRASHUBBindable  = {"rasHubTransport rasHubAdapterDialIn non exclusive 100",+
  66.                               "rasHubTransport rasHubAdapterDialOut non exclusive 100",+
  67.                               "rasCapableTransport rasHubTransport non exclusive 100"}
  68.     ProductRASASYMACName      = "AsyncMac"
  69.     ProductRASASYMACImagePath = "\SystemRoot\system32\drivers\asyncmac.sys"
  70.     ProductRASASYMACType      = "driver"
  71.     ProductRASASYMACSvcType   = "kernel"
  72.     NetRuleRASASYMACType      = "rasAsyMacDrv rasAsyMacDriver"
  73.     NetRuleRASASYMACClass      = {"rasAsyMacDriver basic"}
  74.     NetRuleRASASYMACUse      = $(ProductRASASYMACType)
  75.     NetRuleRASASYMACBindForm  = """RasAsyMac"" yes no container"
  76.     NetRuleRASASYMACBindable  = {"rasAsyMacDriver rasAsyMacAdapter non exclusive 100"}
  77.     ProductRASHUBDIALINName       = "RasHubDialin"
  78.     ProductRASHUBDIALOUTName      = "RasHubDialout"
  79.     NetRuleHardwareRASHUBBindForm = " yes yes container"
  80.     NetRuleHardwareDIALINType     = "rashubdialin rasHubAdapterDialIn"
  81.     NetRuleHardwareDIALINClass    = {"rasHubAdapterDialIn basic"}
  82.     NetRuleHardwareDIALINBlock    = {"lanmanServer rasHubAdapterDialIn",+
  83.                                      "lanmanWorkstation rasHubAdapterDialIn"}
  84.     NetRuleHardwareDIALOUTType     = "rashubdialout rasHubAdapterDialOut"
  85.     NetRuleHardwareDIALOUTClass    = {"rasHubAdapterDialOut basic"}
  86.     NetRuleHardwareDIALOUTBlock    = {}
  87.     NetRuleHardwareRASASYMACType     = "rasAsyMac rasAsyMacAdapter"
  88.     NetRuleHardwareRASASYMACBindForm = " yes yes container"
  89.     NetRuleHardwareRASASYMACClass     = {"rasAsyMacAdapter basic"}
  90.     ProductKeyBase  = $(!NTN_SoftwareBase)"\"$(Manufacturer)
  91.     ProductKeyName          = $(!NTN_SoftwareBase)"\"$(Manufacturer)"\"$(ProductRASName)"\CurrentVersion"
  92.     NetworkCardKeyName      = $(!NTN_SoftwareBase)"\Microsoft\Windows NT\CurrentVersion\NetworkCards"
  93.     RasSvrKeyName           = $(!NTN_ServiceBase)"\"$(ProductRASSVRName)
  94.     RasSvrParamKeyName      = $(!NTN_ServiceBase)"\"$(ProductRASSVRName)"\Parameters"
  95.     RasManParamKeyName      = $(!NTN_ServiceBase)"\"$(ProductRASMANName)"\Parameters"
  96.     RasManLinkageKeyName    = $(!NTN_ServiceBase)"\"$(ProductRASMANName)"\Linkage"
  97.     WkstaLinkageKeyName     = $(!NTN_ServiceBase)"\LanmanWorkstation\Linkage"
  98.     RasHubParamKeyName      = $(!NTN_ServiceBase)"\"$(ProductRASHUBName)"\Parameters"
  99.     RasHubLinkageKeyName    = $(!NTN_ServiceBase)"\"$(ProductRASHUBName)"\Linkage"
  100.     RasAsyMacKeyName        = $(!NTN_ServiceBase)"\"$(ProductRASASYMACName)
  101.     RasAsyMacParamKeyName   = $(!NTN_ServiceBase)"\"$(ProductRASASYMACName)"\Parameters"
  102.     RasMacLinkageKeyName    = $(!NTN_ServiceBase)"\"$(ProductRASASYMACName)"\Linkage"
  103.     RasMediaIsdnKeyName     = $(!NTN_SoftwareBase)"\"$(Manufacturer)"\"$(ProductRASName)"\"MEDIA"\"ISDN
  104.     LinkageKeyName          = $(!NTN_ServiceBase)"\"$(Product$(Option)Name)"\Linkage"
  105.     ProductRASHUBKeyName    = $(!NTN_SoftwareBase)"\"$(Manufacturer)"\"$(ProductRASHUBName)"\CurrentVersion"
  106.     ProductRASASYMACKeyName = $(!NTN_SoftwareBase)"\"$(Manufacturer)"\"$(ProductRASASYMACName)"\CurrentVersion"
  107.     UtilityInf     = "UTILITY.INF"
  108.     subroutninf    = "SUBROUTN.INF"
  109.     RascfgDll      = "RASCFG.DLL"
  110.     RasresDll      = "RASRES.DLL"
  111.     Exit_Code      = 0
  112.     ShellCode      = 0
  113.     from      = ""
  114.     to        = ""
  115.     ExitCodeOk     = 0
  116.     ExitCodeCancel = 1
  117.     ExitCodeFatal  = 2
  118.     KeyNull         = ""
  119.     !MAXIMUM_ALLOWED   = 33554432
  120.     RegistryErrorIndex = NO_ERROR
  121.     ServerSize  = 820116
  122.     ClientSize  = 634260
  123.     AdminSize   = 513962
  124.     FInstallServer = $(Chosen)
  125.     FInstallClient = $(Chosen)
  126.     FInstallAdmin  = $(Chosen)
  127. [UiVars]
  128.     VolumeList      = {} ? $(!LIBHANDLE) GetHardDriveLetters
  129.     VolumeFreeList  = {} ? $(!LIBHANDLE) GetHardDriveFreeSpace
  130.     VolumeFSList    = {} ? $(!LIBHANDLE) GetHardDriveFileSystems
  131.     DestVolume      = ""
  132.     MinHelpID   = 25000
  133.     MaxHelpID   = 25999
  134. [AvailableSystemMemory]
  135.     SystemMemory    = "" ? $(!LIBHANDLE) GetMemorySize
  136.     MinSystemMemory = 2048
  137. [date]
  138.     Now = {} ? $(!LIBHANDLE) GetSystemDate
  139. [HelpContextIDs]
  140.     HC_RASOPTIONS     = 25020
  141.     HC_CLIENTACCESS   = 25021
  142.     HC_INSTALLOVER1   = 25022
  143.     HC_INSTALLOVER2   = 25023
  144. [Identify]
  145.     read-syms Identification
  146.     set Status     = STATUS_SUCCESSFUL
  147.     set Identifier = $(OptionType)
  148.     set Media      = #("Source Media Descriptions", 1, 1)
  149.     Return $(Status) $(Identifier) $(Media)
  150. [ReturnOptions]
  151.     set Status        = STATUS_FAILED
  152.     set OptionList     = {}
  153.     set OptionTextList = {}
  154.     set LanguageList = ^(LanguagesSupported, 1)
  155.     Ifcontains(i) $($0) in $(LanguageList)
  156.         goto returnoptions
  157.     Else
  158.         set Status = STATUS_NOLANGUAGE
  159.         goto finish_ReturnOptions
  160.     Endif
  161. returnoptions = +
  162.     set OptionList     = ^(Options, 1)
  163.     set OptionTextList = ^(OptionsText$($0), 1)
  164.     set Status         = STATUS_SUCCESSFUL
  165. finish_ReturnOptions = +
  166.     Return $(Status) $(OptionList) $(OptionTextList)
  167. [InstallOption]
  168.     Debug-Output "In InstallOption section"
  169.     Debug-Output "Are we IDW? "$(!STF_IDW)
  170.     set Status   = STATUS_FAILED
  171.     set Option      = $($1)
  172.     set SourceDir   = $($2)
  173.     set DoCopy      = $($4)
  174.     set LanguageList = ^(LanguagesSupported, 1)
  175.     Ifcontains(i) $($0) NOT-IN $(LanguageList)
  176.         Return STATUS_NOLANGUAGE
  177.     endif
  178.     StartWait
  179.     set-subst LF = "\n"
  180.     read-syms UiVars
  181.     detect    UiVars
  182.     set !STF_NTPATH = $(!STF_WINDOWSSYSPATH)
  183.     GetDriveInPath !STF_NTDRIVE $(!STF_WINDOWSSYSPATH)
  184.     read-syms GeneralConstants
  185.     read-syms FileConstants
  186.     read-syms DialogConstants$(!STF_LANGUAGE)
  187.     read-syms FileConstants$(!STF_LANGUAGE)
  188.     detect date
  189.     read-syms HelpContextIDs
  190.     SetHelpFile $(!STF_CWDDIR)rassetup.hlp $(MinHelpID) $(MaxHelpID)
  191.     set-title  $(FunctionTitle)
  192.     set to   = Begin
  193.     set from = Begin
  194.     set CommonStatus = STATUS_SUCCESSFUL
  195.     Debug-Output "OEMNSVRA.INF: STF_CWDDIR is: "$(!STF_CWDDIR)
  196.     Debug-Output "OEMNSVRA.INF: STF_LANGUAGE is: "$(!STF_LANGUAGE)
  197.     Debug-Output "OEMNSVRA.INF: Option is: "$(Option)
  198.     Debug-Output "OEMNSVRA.INF: NTN_SoftwareBase is: "$(!NTN_SoftwareBase)
  199.     Debug-Output "OEMNSVRA.INF: NTN_ServiceBase is: "$(!NTN_ServiceBase)
  200.     EndWait
  201. Begin = +
  202.     set NETCARD_LIST    = {}
  203.     set ServerInstalled = FALSE
  204.     set ClientInstalled = FALSE
  205.     set AdminInstalled  = FALSE
  206.     set DoServer     = TRUE
  207.     set DoClient     = TRUE
  208.     set DoAdmin      = TRUE
  209.     set DoServerOnly = FALSE
  210.     set DoClientOnly = FALSE
  211.     set DoAdminOnly  = FALSE
  212.     set DoRas        = FALSE
  213.     set DoRasSvr     = FALSE
  214.     set DoRasMan     = FALSE
  215.     set DoRasHub     = FALSE
  216.     set DoRasAsyMac  = FALSE
  217.     IfStr(i) $(!NTN_InstallMode)    ==    deinstall
  218.         Set StartLabel = RemoveRas
  219.     else-Ifstr(i) $(!NTN_InstallMode) == Update
  220.         set StartLabel = UpgradeRas
  221.     else-Ifstr(i) $(!NTN_InstallMode) == configure
  222.         set StartLabel = ConfigureRas
  223.     else-Ifstr(i) $(!NTN_InstallMode) == bind
  224.         set StartLabel = BindingsRas
  225.     else
  226.         set StartLabel = InstallRas
  227.     endif
  228.     set from = Begin
  229.     set to = end
  230.     goto $(StartLabel)
  231. InstallRas = +
  232.     StartWait
  233.     Debug-Output "In InstallRas Section"
  234.     Debug-Output "Origin is "$(!NTN_Origination)
  235.     Debug-Output "Install Mode "$(!NTN_InstallMode)
  236.     Debug-Output "Install phase "$(!NTN_InstallPhase)
  237.     Debug-Output "Copy Flag is "$(DoCopy)
  238.     Debug-Output "Option is "$(Option)
  239.     Debug-Output "SrcDir is "$(SourceDir)
  240.     Debug-Output "Context Inf name "$(STF_CONTEXTINFNAME)
  241.     set RasComponentsList = {} 
  242.     set NumInstalled = 0       
  243.     OpenRegKey $(!REG_H_LOCAL) "" $(ProductKeyName) $(!MAXIMUM_ALLOWED) KeyProduct
  244.     Ifstr $(KeyProduct) != $(KeyNull)
  245.         GetRegValue $(KeyProduct) "MajorVersion" VersionInfo
  246.         set VersionMajor = *($(VersionInfo), 4)
  247.         GetRegValue $(KeyProduct) "MinorVersion" VersionInfo
  248.         set VersionMinor = *($(VersionInfo), 4)
  249.         set InstalledVersion = $(VersionMajor)"."$(VersionMinor)
  250.         ifstr(i) $(ProductVersion) != $(InstalledVersion)
  251.             Shell "" QueryRasUpgrade $(ProductRASTitle) $(InstalledVersion) +
  252.                                      $(ProductVersion)
  253.             ifint $($ShellCode) != $(!SHELL_CODE_OK)
  254.                goto ShellCodeError
  255.             endif
  256.             Ifstr(i) $($R1) == "OK"
  257.                 set from = InstallRas
  258.                 set to   = InstallRas1
  259.                 goto RemoveRas
  260.             else
  261.                 goto end
  262.             endif
  263.         endif
  264.         shell "" QueryComponentsInstalled $(ProductKeyName)
  265.         Ifstr(i) $($R0) == STATUS_SUCCESSFUL
  266.             Set RasComponentsList = $($R1)
  267.             Set InstalledFlags = $($R2)
  268.             Set ServerInstalled = *($(InstalledFlags),1)
  269.             Set ClientInstalled = *($(InstalledFlags),2)
  270.             Set AdminInstalled  = *($(InstalledFlags),3)
  271.         Endif
  272.         Debug-Output "Installed List is "$(RasComponentsList)
  273.         Debug-Output "Installed Flags is "$(InstalledFlags)
  274.         QueryListSize NumInstalled $(RasComponentsList)
  275.         ifint $(NumInstalled) == 3
  276.             read-syms VerExists$(!STF_LANGUAGE)
  277.             set Text = $(Product$(Option)Description)$(Ver)$(ProductVersion)+
  278.                        $(Text1)
  279.             Shell $(subroutninf), SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(Text)
  280.             Ifint $($ShellCode) != $(!SHELL_CODE_OK)
  281.                 Goto fatal
  282.             Else-Ifstr(i) $($R0) == STATUS_FAILED
  283.                 Goto fatal
  284.             Else-Ifstr(i) $($R0) == STATUS_USERCANCEL
  285.                 Goto end
  286.             Endif
  287.             goto end
  288.         endif
  289.         CloseRegKey $(KeyProduct)
  290.     else
  291. InstallRas1 =+
  292.        set fRemoveRas   = TRUE
  293.     endif
  294.     goto memorycheck
  295. setupabort = +
  296.     read-syms SetupAbortDlg$(!STF_LANGUAGE)
  297.     ui start "SetupAbort"
  298.     ifstr(i) $(DLGEVENT) == "CONTINUE"
  299.         ui pop 1
  300.         Exit
  301.     else
  302.         ui pop 1
  303.         Exit
  304.     endif
  305. memorycheck = +
  306.     read-syms AvailableSystemMemory
  307.     detect AvailableSystemMemory
  308.     Debug-Output "Available Memory is "$(SystemMemory)
  309.     IfInt $(SystemMemory) < $(MinSystemMemory)
  310.         read-syms FatalErrorMem$(!STF_LANGUAGE)
  311.         shell "subroutn.inf" SetupMessage $(!STF_LANGUAGE) "FATAL" $(Fatal)
  312.         goto setupabort
  313.     Else
  314.         goto CopyResources
  315.     EndIf
  316. CopyResources = +
  317.     ifstr(i) $(!NTN_InstallMode) == "install"
  318.         Ifstr(i) $(DoCopy) == "YES"
  319.            Shell $(UtilityInf), DoAskSource, $(!STF_CWDDIR), $(SourceDir) YES
  320.            Ifint $($ShellCode) != $(!SHELL_CODE_OK)
  321.                Goto ShellCodeError
  322.            Else-Ifstr(i) $($R0) == STATUS_FAILED
  323.                Shell $(UtilityInf) RegistryErrorString "ASK_SOURCE_FAIL"
  324.                ifint $($ShellCode) != $(!SHELL_CODE_OK)
  325.                    goto ShellCodeError
  326.                endif
  327.                set Error = $($R0)
  328.                goto fatal
  329.            Else-Ifstr(i) $($R0) == STATUS_USERCANCEL
  330.                Goto end
  331.            Endif
  332.            Set !STF_SRCDIR = $($R1)
  333.            Set SourceDir  = $($R1)
  334.            Debug-Output "SrcDir "$(SourceDir)
  335.         Endif
  336.         Debug-Output "OEMNSVRA.INF: Copying files"
  337.         install InstallRasFiles
  338.         ifstr(i) $(STF_INSTALL_OUTCOME) != STF_SUCCESS
  339.             goto filecopycancel
  340.         endif
  341.     endif
  342.     LibraryProcedure FilePresent, $(!LIBHANDLE), CheckFileExistance $(!STF_CWDDIR)rasres.dll
  343.     ifstr(i) $(FilePresent) != "YES"
  344.         Debug-Output "OEMNSVRA.INF:rasres.dll not found."
  345.         Install InstallResources
  346.         ifstr(i) $(STF_INSTALL_OUTCOME) != STF_SUCCESS
  347.             goto filecopycancel
  348.         endif
  349.     endif
  350.     LoadLibrary "x" $(!STF_CWDDIR)rasres.dll RASDLGHANDLE
  351.     goto InstallNetwork
  352. InstallNetwork =+
  353.     ifstr(i) $(DoServer) == FALSE
  354.        ifstr(i) $(DoClient) == FALSE
  355.            goto InstallNetworkOver
  356.        endif
  357.     endif
  358.     shell "" IsNetworkConfigured
  359.     Debug-Output "IsNetworkConfigured returned R0 "$($R0)
  360.     Debug-Output "IsNetworkConfigured returned R1 "$($R1)
  361.     Debug-Output "IsNetworkConfigured returned R2 "$($R2)
  362.     Debug-Output "IsNetworkConfigured returned R3 "$($R3)
  363.     ifstr(i) $($R0) == STATUS_SUCCESSFUL
  364.         set NbfConfigured     = $($R1)
  365.         set NetbiosConfigured = $($R2)
  366.         set WkstaConfigured   = $($R3)
  367.     else
  368.         read-syms NetworkConfigError$(!STF_LANGUAGE)
  369.         set Text = $(Text1)
  370.         shell $(subroutninf) SetupMessage $(!STF_LANGUAGE) "FATAL" $(Text)
  371.         goto end
  372.     endif
  373.     ifstr(i) $(NbfConfigured) == TRUE
  374.         ifstr(i) $(NetbiosConfigured) == TRUE
  375.              ifstr(i) $(WkstaConfigured) == TRUE
  376.                  goto InstallNetworkOver
  377.              else
  378.                  goto InstallNetworkError
  379.              endif
  380.         else
  381.              goto InstallNetworkError
  382.         endif
  383.     else
  384.         goto InstallNetworkError
  385.     endif
  386. InstallNetworkError =+
  387.     set CommonStatus = STATUS_NO_EFFECT
  388.     read-syms NetworkConfigError$(!STF_LANGUAGE)
  389.     set Text = $(Text2)
  390.     shell $(subroutninf) SetupMessage $(!STF_LANGUAGE) "WARNING" $(Text)
  391.     goto end
  392. InstallNetworkOver =+
  393.     ifstr(i) $(DoAdminOnly) == TRUE
  394.         goto CommonCode
  395.     endif
  396.     goto PortsConfigure
  397. ConfigureRas = +
  398.     set OldVersionExisted = $(TRUE)
  399.     StartWait
  400.     read-syms StatusDeterminingConfig$(!STF_LANGUAGE)
  401.     shell $(subroutninf) PushBillBoard NETSTATUSDLG $(ReadingConfig)
  402.     shell "" QueryComponentsInstalled
  403.     Ifstr(i) $($R0) == STATUS_SUCCESSFUL
  404.         Set InstalledComps = $($R1)
  405.         Set InstalledFlags = $($R2)
  406.         Set DoServer      = *($(InstalledFlags),1)
  407.         Set DoClient      = *($(InstalledFlags),2)
  408.         Set DoAdmin       = *($(InstalledFlags),3)
  409.         Set DoServerOnly  = *($(InstalledFlags),4)
  410.         Set DoClientOnly  = *($(InstalledFlags),5)
  411.         Set DoAdminOnly   = *($(InstalledFlags),6)
  412.     Endif
  413.     Set ServerInstalled = $(DoServer)
  414.     Set ClientInstalled = $(DoClient)
  415.     Set AdminInstalled  = $(DoAdmin)
  416.     Debug-Output "DoServer "$(DoServer)
  417.     Debug-Output "DoClient "$(DoClient)
  418.     Debug-Output "DoAdmin "$(DoAdmin)
  419.     Debug-Output "DoServerOnly "$(DoServerOnly)
  420.     Debug-Output "DoClientOnly "$(DoClientOnly)
  421.     Debug-Output "DoAdminOnly "$(DoAdminOnly)
  422.     EndWait
  423.     shell $(subroutninf) PopBillBoard
  424.     ifstr(i) $(DoAdminOnly) == TRUE
  425.         read-syms NoConfigAdmin$(!STF_LANGUAGE)
  426.         shell "subroutn.inf" SetupMessage $(!STF_LANGUAGE) "WARNING" $(NoConfigAdmin)
  427.         goto end
  428.     endif
  429.     LoadLibrary "x" $(!STF_CWDDIR)rasres.dll   RASDLGHANDLE
  430.     goto PortsConfigure
  431. PortsConfigure = +
  432.     LoadLibrary "x" $(!STF_CWDDIR)rascfg.dll PORTSDLGHANDLE
  433.     set Result = {}
  434.     set fNetcardInstalled = FALSE
  435.     shell "" IsNetcardInstalled $(NetworkCardKeyName) $(PORTSDLGHANDLE)
  436.     ifstr(i) $($R0) == STATUS_SUCCESSFUL
  437.         set fNetcardInstalled = $($R1)
  438.     endif
  439.     Debug-Output "fNetcardInstalled Option "$(fNetcardInstalled)
  440.     StartWait
  441.     LibraryProcedure Result, $(PORTSDLGHANDLE), RasPortsConfig $(!STF_HWND) $(!NTN_InstallMode) $(fNetcardInstalled) $(ProductPath)
  442.     EndWait
  443.     set NewNumPorts   = 0
  444.     set NewNumDialout = 0
  445.     set NewNumDialin  = 0
  446.     set fSerialInstalled = FALSE
  447.     set fIsdnInstalled = FALSE
  448.     set NewNumPorts   = *($(Result),1)
  449.     set NewNumPortsList = {}
  450.     set NullString   = ""
  451.     Debug-Output "PortsConfigure returned: "$(Result)
  452.     Debug-Output "PortsConfigure NewNumPorts: "$(NewNumPorts)
  453.     ifstr(i) $(NewNumPorts) == "EXITSETUP"
  454.         Debug-Output "PortsConfigre User selected ExitSetup."
  455.         goto RemoveDiskFiles
  456.     else-ifstr(i) $(NewNumPorts) == "NOPORTS"
  457.         Debug-Output "PortsConfigre: No serial ports detected."
  458.         goto RemoveDiskFiles
  459.     else-ifstr(i) $(NewNumPorts) == "FAILURE"
  460.         Debug-Output "PortsConfigre: Unknown failure."
  461.         goto RemoveDiskFiles
  462.     endif
  463.     goto PortsConfigure1
  464. RemoveDiskFiles = +
  465.     set CommonStatus = STATUS_NO_EFFECT
  466.     ifstr(i) $(!NTN_InstallMode) == "install"
  467.         goto filecopycancel
  468.     endif
  469.     goto end
  470. PortsConfigure1 = +
  471.     set NewNumDialout = *($(Result),2)
  472.     Debug-Output "PortsConfigure NewNumDialout: "$(NewNumDialout)
  473.     set NewNumDialin  = *($(Result),3)
  474.     Debug-Output "PortsConfigure NewNumDialin: "$(NewNumDialin)
  475.     set-add NewNumTotal = $(NewNumDialin), $(NewNumDialout)
  476.     set fSerialInstalled = *($(Result),4)
  477.     Debug-Output "PortsConfigure fSerialInstalled: "$(fSerialInstalled)
  478.     set fIsdnInstalled = *($(Result),5)
  479.     Debug-Output "PortsConfigure fIsdnInstalled: "$(fIsdnInstalled)
  480.     set NetBiosGtwyEnabled = *($(Result),6)
  481.     Debug-Output "PortsConfigure NetBiosgtwyEnabled: "$(NetBiosGtwyEnabled)
  482.     ifstr(i) $(fSerialInstalled) == TRUE
  483.         set NewNumPortsList = >($(NewNumPortsList), $(NullString)$(NewNumPorts)$(NullString))
  484.     endif
  485.     ifint $(NetBiosGtwyEnabled) == 0
  486.         set-add NewNumDialout  = $(NewNumDialout), $(NewNumDialin)
  487.         set     NewNumDialin = 0
  488.         Debug-Output "Mapped dialin ports to dialout ports "$(NewNumDialout)
  489.     endif
  490.     goto CommonCode
  491. CommonCode = +
  492.     ifstr(i) $(OldVersionExisted) == $(TRUE)
  493.         ifstr(i) $(!NTN_InstallMode) == configure
  494.            goto WriteParameters
  495.         endif
  496.     endif
  497.     QueryListSize ListCount $(RasComponentsList)
  498.     ifint $(ListCount) == 0
  499.         goto FirstTimeInstall
  500.     else
  501.         ifstr(i) $(DoServer) == TRUE
  502.             ifstr(i) $(ClientInstalled) == FALSE
  503.                 ifstr(i) $(AdminInstalled) == FALSE
  504.                     set DoRas    = TRUE
  505.                 endif
  506.                 set DoRasSvr     = TRUE
  507.                 set DoRasMan     = TRUE
  508.                 set DoRasHub     = TRUE
  509.                 set DoRasAsyMac  = TRUE
  510.             else
  511.                 set DoRasSvr     = TRUE
  512.             endif
  513.             set RasComponentsList = >($(RasComponentsList), $(RasServerOption))
  514.         endif
  515.         ifstr(i) $(DoClient) == TRUE
  516.             ifstr(i) $(ServerInstalled) == FALSE
  517.                 ifstr(i) $(AdminInstalled) == FALSE
  518.                     set DoRas    = TRUE
  519.                 endif
  520.                 set DoRasMan     = TRUE
  521.                 set DoRasHub     = TRUE
  522.                 set DoRasAsyMac  = TRUE
  523.             endif
  524.             set RasComponentsList = >($(RasComponentsList), $(RasClientOption))
  525.         endif
  526.         ifstr(i) $(DoAdmin) == TRUE
  527.             ifstr(i) $(ServerInstalled) == FALSE
  528.                 ifstr(i) $(ClientInstalled) == FALSE
  529.                     set DoRas = TRUE
  530.                 endif
  531.             endif
  532.             set RasComponentsList = >($(RasComponentsList), $(RasAdminOption))
  533.         endif
  534.         shell "" UpdateComponentsInstalled $(RasComponentsList) $(ProductKeyName)
  535.         goto FirstTimeInstall-1
  536.     endif
  537. FirstTimeInstall =+
  538.     ifstr(i) $(DoServer) == TRUE
  539.         set DoRas             = TRUE
  540.         set DoRasSvr          = TRUE
  541.         set DoRasMan          = TRUE
  542.         set DoRasHub          = TRUE
  543.         set DoRasAsyMac       = TRUE
  544.         set RasComponentsList = >($(RasComponentsList), $(RasServerOption))
  545.     endif
  546.     ifstr(i) $(DoClient) == TRUE
  547.         set DoRas             = TRUE
  548.         set DoRasMan          = TRUE
  549.         set DoRasHub          = TRUE
  550.         set DoRasAsyMac       = TRUE
  551.         set RasComponentsList = >($(RasComponentsList), $(RasClientOption))
  552.     endif
  553.     ifstr(i) $(DoAdmin) == TRUE
  554.         set DoRas             = TRUE
  555.         set RasComponentsList = >($(RasComponentsList), $(RasAdminOption))
  556.     endif
  557. FirstTimeInstall-1 = +
  558.     ifstr(i) $(DoRas) == TRUE
  559.         StartWait
  560.         read-syms StatusUpdatingRegistry$(!STF_LANGUAGE)
  561.         shell $(subroutninf) PushBillBoard NETSTATUSDLG $(CreatingRas)
  562.         set ThisOption = RAS
  563.         Shell $(UtilityInf), InstallSoftwareProduct, $(Manufacturer),+
  564.               $(Product$(ThisOption)Name), $(ProductInfName)
  565.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  566.               Debug-Output "InstallSoftware bombed out."
  567.               goto ShellCodeError
  568.         endif
  569.         set RegistryErrorIndex = $($R0)
  570.         Ifstr(i) $(RegistryErrorIndex) != "NO_ERROR"
  571.             Debug-Output "REGISTRY GOODAL"
  572.             EndWait
  573.             CloseRegKey $($R1)
  574.             CloseRegKey $($R2)
  575.             goto fatalregistry
  576.         endif
  577.         Set SoftProductKey    = $($R1)
  578.         Set SoftNetRuleKey    = $($R2)
  579.         set NewValueList = +
  580.             {{Infname ,$(NoTitle),$(!REG_VT_SZ),$(ProductInfName)},+
  581.              {SoftwareType,$(NoTitle),$(!REG_VT_SZ),+
  582.               $(Product$(ThisOption)SvcType)},+
  583.              {Title,$(NoTitle),$(!REG_VT_SZ), $(Product$(ThisOption)Title)},+
  584.              {Description,$(NoTitle),$(!REG_VT_SZ),+
  585.               $(Product$(ThisOption)Description)},+
  586.              {PathName,$(NoTitle),$(!REG_VT_SZ),+
  587.               $(Product$(ThisOption)ImagePath)},+
  588.              {MajorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMajorVersion)},+
  589.              {MinorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMinorVersion)},+
  590.              {RasComponents,$(NoTitle),$(!REG_VT_MULTI_SZ),$(RasComponentsList)},+
  591.              {InstallDate,$(NoTitle),$(!REG_VT_DWORD),*($(Now),1)}}
  592.         Shell $(UtilityInf), AddValueList, $(SoftProductKey), $(NewValueList)
  593.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  594.             CloseRegKey $(SoftProductKey)
  595.             CloseRegKey $(SoftNetRuleKey)
  596.             goto ShellCodeError
  597.         endif
  598.         set RegistryErrorIndex = $($R0)
  599.         CloseRegKey $(SoftProductKey)
  600.         Ifstr(i) $(RegistryErrorIndex) != "NO_ERROR"
  601.            EndWait
  602.            CloseRegKey $(SoftNetRuleKey)
  603.            goto fatalregistry
  604.         endif
  605.         set NewValueList = +
  606.             {{class, $(NoTitle), $(!REG_VT_SZ), $(NetRule$(ThisOption)Class)},+
  607.              {type,$(NoTitle),$(!REG_VT_SZ),$(NetRule$(ThisOption)Type)},+
  608.              {use,$(NoTitle),$(!REG_VT_SZ),$(NetRule$(ThisOption)Use)}, +
  609.              {InfOption,$(NoTitle),$(!REG_VT_SZ),$(ThisOption)}, +
  610.              {Infname ,$(NoTitle),$(!REG_VT_SZ),$(ProductInfName)}}
  611.         Shell  $(UtilityInf), AddValueList, $(SoftNetRuleKey), $(NewValueList)
  612.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  613.             goto addrastoregistryend
  614.         endif
  615.         set RegistryErrorIndex = $($R0)
  616.         CloseRegKey $(SoftNetRuleKey)
  617.         Ifstr(i) $(RegistryErrorIndex) != "NO_ERROR"
  618.             EndWait
  619.             goto fatalregistry
  620.         endif
  621.     endif 
  622.     ifstr(i) $(DoRasSvr) == TRUE
  623.         set ThisOption = RASSVR
  624.         set RasSpecificString = $(Product$(ThisOption)Name)
  625.         Shell $(UtilityInf), AddSoftwareComponent, $(Manufacturer), +
  626.               $(Product$(ThisOption)Name), $(Product$(ThisOption)Name), +
  627.               $(Product$(ThisOption)DisplayName), +
  628.               $(ProductInfName), $(Product$(ThisOption)ImagePath),+
  629.               "service", "Network", {"LanmanServer","RasMan"}, "", +
  630.               $(RasMsgDll)
  631.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  632.             Debug-Output "DoRasSvr: AddSoftware bombed out"
  633.             goto ShellCodeError
  634.         endif
  635.         set RegistryErrorIndex = $($R0)
  636.         Ifstr(i) $(RegistryErrorIndex) != "NO_ERROR"
  637.             EndWait
  638.             Debug-Output "DoRasSvr: Registry Error "$(RegistryErrorIndex)
  639.             CloseRegKey $($R1)
  640.             CloseRegKey $($R2)
  641.             CloseRegKey $($R3)
  642.             CloseRegKey $($R4)
  643.             CloseRegKey $($R5)
  644.             goto fatalregistry
  645.         endif
  646.         Set SoftProductKey    = $($R1)
  647.         Set SoftNetRuleKey    = $($R2)
  648.         CloseRegKey $($R3)
  649.         Set SoftParamsKey     = $($R4)
  650.         Set SoftLinkageKey    = $($R5)
  651.         set NewValueList = +
  652.             {{Infname ,$(NoTitle),$(!REG_VT_SZ),$(ProductInfName)},+
  653.              {ServiceName,$(NoTitle),$(!REG_VT_SZ),+
  654.               $(Product$(ThisOption)Name)},+
  655.              {SoftwareType,$(NoTitle),$(!REG_VT_SZ),+
  656.               $(Product$(ThisOption)SvcType)},+
  657.              {Title,$(NoTitle),$(!REG_VT_SZ),$(Product$(ThisOption)Title)},+
  658.              {Description,$(NoTitle),$(!REG_VT_SZ),+
  659.               $(Product$(ThisOption)Description)},+
  660.              {PathName,$(NoTitle),$(!REG_VT_SZ),+
  661.               $(Product$(ThisOption)ImagePath)},+
  662.              {MajorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMajorVersion)},+
  663.              {MinorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMinorVersion)},+
  664.              {InstallDate,$(NoTitle),$(!REG_VT_DWORD),*($(Now),1)},+
  665.              {Hidden,$(NoTitle),$(!REG_VT_DWORD),$(HideComponent)}}
  666.         Shell  $(UtilityInf), AddValueList, $(SoftProductKey), $(NewValueList)
  667.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  668.             Debug-Output "DoRasSvr:product: AddValueList bombed out"
  669.             goto ShellCodeError
  670.         endif
  671.         set RegistryErrorIndex = $($R0)
  672.         CloseRegKey $(SoftProductKey)
  673.         Ifstr(i) $(RegistryErrorIndex) != "NO_ERROR"
  674.             EndWait
  675.             Debug-Output "DoRasSvr: Registry Error "$(RegistryErrorIndex)
  676.             CloseRegKey $(SoftNetRuleKey)
  677.             CloseRegKey $(SoftLinkageKey)
  678.             CloseRegKey $(SoftParamsKey)
  679.             goto fatalregistry
  680.         endif
  681.         set NewValueList = +
  682.             {{class, $(NoTitle), $(!REG_VT_SZ), $(NetRule$(ThisOption)Class)},+
  683.              {type,$(NoTitle),$(!REG_VT_SZ),$(NetRule$(ThisOption)Type)},+
  684.              {use,$(NoTitle),$(!REG_VT_SZ),$(NetRule$(ThisOption)Use)}, +
  685.              {InfOption,$(NoTitle),$(!REG_VT_SZ),$(ThisOption)}, +
  686.              {bindform,$(NoTitle),$(!REG_VT_SZ),+
  687.               $(NetRule$(ThisOption)BindForm)}, +
  688.              {bindable,$(NoTitle),$(!REG_VT_SZ),+
  689.               $(NetRule$(ThisOption)Bindable)}, +
  690.              {Infname ,$(NoTitle),$(!REG_VT_SZ),$(ProductInfName)}}
  691.         Shell  $(UtilityInf), AddValueList, $(SoftNetRuleKey), $(NewValueList)
  692.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  693.             Debug-Output "DoRasSvr:netrules: AddValueList bombed out"
  694.             goto ShellCodeError
  695.         endif
  696.         set RegistryErrorIndex = $($R0)
  697.         CloseRegKey $(SoftNetRuleKey)
  698.         Ifstr(i) $(RegistryErrorIndex) != "NO_ERROR"
  699.             CloseRegKey $(SoftLinkageKey)
  700.             CloseRegKey $(SoftParamsKey)
  701.             EndWait
  702.             Debug-Output "DoRasSvr: Registry Error "$(RegistryErrorIndex)
  703.             goto fatalregistry
  704.         endif
  705.         set RasDependencies = {}
  706.         ifstr(i) $(!STF_PRODUCT) == "LANMANNT"
  707.             set RasDependencies = {"Netbios","Netlogon","LanmanServer","RasMan"}
  708.         else
  709.             set RasDependencies = {"Netbios","LanmanServer","RasMan"}
  710.         endif
  711.         set NewValueList = +
  712.             {{OtherDependencies, $(NoTitle), $(!REG_VT_MULTI_SZ),+
  713.               $(RasDependencies)}}
  714.         Shell  $(UtilityInf), AddValueList, $(SoftLinkageKey), $(NewValueList)
  715.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  716.             Debug-Output "DoRasSvr:Linkage: AddValueList bombed out"
  717.             goto ShellCodeError
  718.         endif
  719.         set RegistryErrorIndex = $($R0)
  720.         CloseRegKey $(SoftLinkageKey)
  721.         Ifstr(i) $(RegistryErrorIndex) != "NO_ERROR"
  722.             EndWait
  723.             Debug-Output "DoRasSvr: Registry Error "$(RegistryErrorIndex)
  724.             goto fatalregistry
  725.         endif
  726.         set NewValueList = +
  727.             {{AuthenticateRetries, $(NoTitle), $(!REG_VT_DWORD), 2},+
  728.             {AuthenticateTime, $(NoTitle), $(!REG_VT_DWORD), 120},+
  729.             {EnableAudit, $(NoTitle), $(!REG_VT_DWORD), 1},+
  730.             {CallbackTime, $(NoTitle), $(!REG_VT_DWORD), 2}}
  731.         Shell  $(UtilityInf), AddValueList, $(SoftParamsKey), $(NewValueList)
  732.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  733.              Debug-Output "AddValueList bombed out"
  734.              goto ShellCodeError
  735.         endif
  736.         set RegistryErrorIndex = $($R0)
  737.         Ifstr(i) $(RegistryErrorIndex) != "NO_ERROR"
  738.             goto fatalregistry
  739.         endif
  740.         OpenRegKey $(SoftParamsKey) "" "NetBiosGateway" $(!MAXIMUM_ALLOWED) KeyNetbiosGtwy
  741.         ifstr $(KeyNtbiosGtwy) == $(KeyNull)
  742.             CreateRegKey $(SoftParamsKey) {"NetBiosGateway",$(NoTitle),GenericClass} "" $(!MAXIMUM_ALLOWED) "" KeyNetbiosGtwy
  743.             OpenRegKey $(SoftParamsKey) "" "NetBiosGateway" $(!MAXIMUM_ALLOWED) KeyNetbiosGtwy
  744.         endif
  745.         set NewValueList = +
  746.             {{Autodisconnect, $(NoTitle), $(!REG_VT_DWORD), 1200},+
  747.             {EnableBroadcast, $(NoTitle), $(!REG_VT_DWORD), 0},+
  748.             {EnableNetbiosSessionsAuditing, $(NoTitle), $(!REG_VT_DWORD), 0},+
  749.             {MaxDynMem, $(NoTitle), $(!REG_VT_DWORD), 655350},+
  750.             {MaxNames, $(NoTitle), $(!REG_VT_DWORD), 255},+
  751.             {MaxSessions, $(NoTitle), $(!REG_VT_DWORD), 255},+
  752.             {MulticastForwardRate, $(NoTitle), $(!REG_VT_DWORD), 5},+
  753.             {SizWorkbuf, $(NoTitle), $(!REG_VT_DWORD), 4500},+
  754.             {RemoteListen, $(NoTitle), $(!REG_VT_DWORD), 1},+
  755.             {NameUpdateTime, $(NoTitle), $(!REG_VT_DWORD), 120},+
  756.             {MaxDgBufferedPerGroupName, $(NoTitle), $(!REG_VT_DWORD), 10},+
  757.             {RcvDgSubmittedPerGroupName, $(NoTitle), $(!REG_VT_DWORD), 3},+
  758.             {DisableMcastFwdWhenSessionTraffic, $(NoTitle), $(!REG_VT_DWORD), 1},+
  759.             {MaxBcastDgBuffered, $(NoTitle), $(!REG_VT_DWORD), 32},+
  760.             {NumRecvQueryIndications, $(NoTitle), $(!REG_VT_DWORD), 3}}
  761.         Shell  $(UtilityInf), AddValueList, $(KeyNetbiosGtwy), $(NewValueList)
  762.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  763.              Debug-Output "AddValueList bombed out"
  764.              goto ShellCodeError
  765.         endif
  766.         set RegistryErrorIndex = $($R0)
  767.         Ifstr(i) $(RegistryErrorIndex) != "NO_ERROR"
  768.             goto fatalregistry
  769.         endif
  770.         CloseRegKey $(KeyNetbiosGtwy)
  771.         CloseRegKey $(SoftParamsKey)
  772.     endif 
  773.     ifstr(i) $(DoRasMan) == TRUE
  774.         set ThisOption = RASMAN
  775.         set RasSpecificString = $(Product$(ThisOption)Name)
  776.         Shell $(UtilityInf), AddSoftwareComponent, $(Manufacturer), +
  777.               $(Product$(ThisOption)Name), $(Product$(ThisOption)Name), +
  778.               $(Product$(ThisOption)DisplayName), +
  779.               $(ProductInfName), $(Product$(ThisOption)ImagePath), "service",+
  780.               "Network", {}, "", $(RasMsgDll)
  781.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  782.             Debug-Output "AddSoftware bombed out"
  783.             goto ShellCodeError
  784.         endif
  785.         set RegistryErrorIndex = $($R0)
  786.         Ifstr(i) $(RegistryErrorIndex) != "NO_ERROR"
  787.             EndWait
  788.             CloseRegKey $($R1)
  789.             CloseRegKey $($R2)
  790.             CloseRegKey $($R3)
  791.             CloseRegKey $($R4)
  792.             CloseRegKey $($R5)
  793.             goto fatalregistry
  794.         endif
  795.         Set SoftProductKey    = $($R1)
  796.         Set SoftNetRuleKey    = $($R2)
  797.         CloseRegKey $($R3)
  798.         Set SoftParamsKey     = $($R4)
  799.         CloseRegKey $($R5)
  800.         set NewValueList = +
  801.             {{Infname ,$(NoTitle),$(!REG_VT_SZ),$(ProductInfName)},+
  802.              {ServiceName,$(NoTitle),$(!REG_VT_SZ),+
  803.               $(Product$(ThisOption)Name)},+
  804.              {SoftwareType,$(NoTitle),$(!REG_VT_SZ),+
  805.               $(Product$(ThisOption)SvcType)},+
  806.              {Title,$(NoTitle),$(!REG_VT_SZ),$(Product$(ThisOption)Title)},+
  807.              {Description,$(NoTitle),$(!REG_VT_SZ),+
  808.               $(Product$(ThisOption)Description)},+
  809.              {PathName,$(NoTitle),$(!REG_VT_SZ),+
  810.               $(Product$(ThisOption)ImagePath)},+
  811.              {MajorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMajorVersion)},+
  812.              {MinorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMinorVersion)},+
  813.              {Review, $(NoTitle), $(!REG_VT_DWORD), 1}, +
  814.              {InstallDate,$(NoTitle),$(!REG_VT_DWORD),*($(Now),1)},+
  815.              {Hidden,$(NoTitle),$(!REG_VT_DWORD),$(HideComponent)}}
  816.         Shell  $(UtilityInf), AddValueList, $(SoftProductKey), $(NewValueList)
  817.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  818.             Debug-Output "AddValueList bombed out"
  819.             goto ShellCodeError
  820.         endif
  821.         set RegistryErrorIndex = $($R0)
  822.         CloseRegKey $(SoftProductKey)
  823.         Ifstr(i) $(RegistryErrorIndex) != "NO_ERROR"
  824.             EndWait
  825.             CloseRegKey $(SoftNetRuleKey)
  826.             CloseRegKey $(SoftParamsKey)
  827.             goto fatalregistry
  828.         endif
  829.         set NewValueList = +
  830.             {{class, $(NoTitle), $(!REG_VT_SZ), $(NetRule$(ThisOption)Class)},+
  831.              {type,$(NoTitle),$(!REG_VT_SZ),$(NetRule$(ThisOption)Type)},+
  832.              {use,$(NoTitle),$(!REG_VT_SZ),$(NetRule$(ThisOption)Use)}, +
  833.              {bindform,$(NoTitle),$(!REG_VT_SZ),+
  834.               $(NetRule$(ThisOption)BindForm)}, +
  835.              {bindable,$(NoTitle),$(!REG_VT_SZ),+
  836.               $(NetRule$(ThisOption)Bindable)}, +
  837.              {InfOption,$(NoTitle),$(!REG_VT_SZ),$(ThisOption)}, +
  838.              {Infname ,$(NoTitle),$(!REG_VT_SZ),$(ProductInfName)}}
  839.         Shell  $(UtilityInf), AddValueList, $(SoftNetRuleKey), $(NewValueList)
  840.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  841.             Debug-Output "AddValueList bombed out"
  842.             goto ShellCodeError
  843.         endif
  844.         set RegistryErrorIndex = $($R0)
  845.         CloseRegKey $(SoftNetRuleKey)
  846.         Ifstr(i) $(RegistryErrorIndex) != "NO_ERROR"
  847.             EndWait
  848.             goto fatalregistry
  849.         endif
  850.         set NewValueList = {{Logging, $(NoTitle), $(!REG_VT_DWORD), 0}}
  851.         Shell  $(UtilityInf), AddValueList, $(SoftParamsKey), $(NewValueList)
  852.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  853.              Debug-Output "AddValueList bombed out"
  854.              goto ShellCodeError
  855.         endif
  856.         set RegistryErrorIndex = $($R0)
  857.         Ifstr(i) $(RegistryErrorIndex) != "NO_ERROR"
  858.             goto fatalregistry
  859.         endif
  860.         CloseRegKey $(SoftParamsKey)
  861.     endif 
  862.     ifstr(i) $(DoRasHub) == TRUE
  863.         set ThisOption = RASHUB
  864.         set RasSpecificString = $(Product$(ThisOption)Name)
  865.         Shell $(UtilityInf), AddSoftwareComponent, $(Manufacturer), +
  866.               $(Product$(ThisOption)Name), $(Product$(ThisOption)Name), +
  867.               $(Product$(ThisOption)DisplayName), +
  868.               $(ProductInfName), $(Product$(ThisOption)ImagePath),+
  869.            "kernel", "NDIS", {}, "", $(RasMsgDll)
  870.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  871.             Debug-Output "AddSoftware bombed out"
  872.             goto ShellCodeError
  873.         endif
  874.         set RegistryErrorIndex = $($R0)
  875.         Ifstr(i) $(RegistryErrorIndex) != "NO_ERROR"
  876.             EndWait
  877.             CloseRegKey $($R1)
  878.             CloseRegKey $($R2)
  879.             CloseRegKey $($R3)
  880.             CloseRegKey $($R4)
  881.             CloseRegKey $($R5)
  882.             goto fatalregistry
  883.         endif
  884.         Set SoftProductKey    = $($R1)
  885.         Set SoftNetRuleKey    = $($R2)
  886.         CloseRegKey $($R3)
  887.         CloseRegKey $($R4)
  888.         CloseRegKey $($R5)
  889.         set NewValueList = +
  890.             {{Infname ,$(NoTitle),$(!REG_VT_SZ),$(ProductInfName)},+
  891.              {ServiceName,$(NoTitle),$(!REG_VT_SZ),+
  892.               $(Product$(ThisOption)Name)},+
  893.              {SoftwareType,$(NoTitle),$(!REG_VT_SZ),+
  894.           $(Product$(ThisOption)Type)},+
  895.              {Title,$(NoTitle),$(!REG_VT_SZ),$(Product$(ThisOption)Title)},+
  896.              {Description,$(NoTitle),$(!REG_VT_SZ),+
  897.               $(Product$(ThisOption)Description)},+
  898.              {PathName,$(NoTitle),$(!REG_VT_SZ),+
  899.               $(Product$(ThisOption)ImagePath)},+
  900.              {MajorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMajorVersion)},+
  901.              {MinorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMinorVersion)},+
  902.              {BindControl,$(NoTitle),$(!REG_VT_DWORD),$(HideBindings)},+
  903.              {InstallDate,$(NoTitle),$(!REG_VT_DWORD),*($(Now),1)},+
  904.              {Hidden,$(NoTitle),$(!REG_VT_DWORD),$(HideComponent)}}
  905.         Shell  $(UtilityInf), AddValueList, $(SoftProductKey), $(NewValueList)
  906.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  907.             Debug-Output "AddValueList bombed out"
  908.             goto ShellCodeError
  909.         endif
  910.         set RegistryErrorIndex = $($R0)
  911.         CloseRegKey $(SoftProductKey)
  912.         Ifstr(i) $(RegistryErrorIndex) != "NO_ERROR"
  913.             EndWait
  914.             CloseRegKey $(SoftNetRuleKey)
  915.             goto fatalregistry
  916.         endif
  917.         set NewValueList = +
  918.         {{class, $(NoTitle), $(!REG_VT_MULTI_SZ), $(NetRule$(ThisOption)Class)},+
  919.              {type,$(NoTitle),$(!REG_VT_SZ),$(NetRule$(ThisOption)Type)},+
  920.              {use,$(NoTitle),$(!REG_VT_SZ),$(NetRule$(ThisOption)Use)}, +
  921.              {bindform,$(NoTitle),$(!REG_VT_SZ),+
  922.               $(NetRule$(ThisOption)BindForm)}, +
  923.          {bindable,$(NoTitle),$(!REG_VT_MULTI_SZ),+
  924.               $(NetRule$(ThisOption)Bindable)}, +
  925.              {InfOption,$(NoTitle),$(!REG_VT_SZ),$(ThisOption)}, +
  926.              {Infname ,$(NoTitle),$(!REG_VT_SZ),$(ProductInfName)}}
  927.         Shell  $(UtilityInf), AddValueList, $(SoftNetRuleKey), $(NewValueList)
  928.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  929.             Debug-Output "AddValueList bombed out"
  930.             goto ShellCodeError
  931.         endif
  932.         set RegistryErrorIndex = $($R0)
  933.         CloseRegKey $(SoftNetRuleKey)
  934.         Ifstr(i) $(RegistryErrorIndex) != "NO_ERROR"
  935.             EndWait
  936.             goto fatalregistry
  937.         endif
  938. DoRasHubEnd = +
  939.     endif 
  940.     ifstr(i) $(DoRasAsyMac) == TRUE
  941.         set ThisOption = RASASYMAC
  942.         set RasSpecificString = $(Product$(ThisOption)Name)
  943.         ifstr(i) $(fSerialInstalled) == TRUE
  944.             set AsySoftwareType = "kernel"
  945.         else
  946.             set AsySoftwareType = "kerneldisable"
  947.         endif
  948.         Shell $(UtilityInf), AddSoftwareComponent, $(Manufacturer), +
  949.               $(Product$(ThisOption)Name), $(Product$(ThisOption)Name), +
  950.               $(Product$(ThisOption)DisplayName), +
  951.               $(ProductInfName), $(Product$(ThisOption)ImagePath), $(AsySoftwareType),+
  952.               "NDIS", {}, "", $(RasMsgDll)
  953.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  954.             Debug-Output "AddSoftware bombed out"
  955.             goto ShellCodeError
  956.         endif
  957.         set RegistryErrorIndex = $($R0)
  958.         Ifstr(i) $(RegistryErrorIndex) != "NO_ERROR"
  959.             EndWait
  960.             CloseRegKey $($R1)
  961.             CloseRegKey $($R2)
  962.             CloseRegKey $($R3)
  963.             CloseRegKey $($R4)
  964.             CloseRegKey $($R5)
  965.             goto fatalregistry
  966.         endif
  967.         Set SoftProductKey    = $($R1)
  968.         Set SoftNetRuleKey    = $($R2)
  969.         CloseRegKey $($R3)
  970.         CloseRegKey $($R4)
  971.         CloseRegKey $($R5)
  972.         set NewValueList = +
  973.             {{Infname ,$(NoTitle),$(!REG_VT_SZ),$(ProductInfName)},+
  974.              {ServiceName,$(NoTitle),$(!REG_VT_SZ),+
  975.               $(Product$(ThisOption)Name)},+
  976.              {SoftwareType,$(NoTitle),$(!REG_VT_SZ),+
  977.           $(Product$(ThisOption)Type)},+
  978.              {Title,$(NoTitle),$(!REG_VT_SZ),$(Product$(ThisOption)Title)},+
  979.              {Description,$(NoTitle),$(!REG_VT_SZ),+
  980.               $(Product$(ThisOption)Description)},+
  981.              {PathName,$(NoTitle),$(!REG_VT_SZ),+
  982.               $(Product$(ThisOption)ImagePath)},+
  983.              {MajorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMajorVersion)},+
  984.              {MinorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMinorVersion)},+
  985.              {BindControl,$(NoTitle),$(!REG_VT_DWORD),$(HideBindings)},+
  986.              {InstallDate,$(NoTitle),$(!REG_VT_DWORD),*($(Now),1)},+
  987.              {Hidden,$(NoTitle),$(!REG_VT_DWORD),$(HideComponent)}}
  988.         Shell  $(UtilityInf), AddValueList, $(SoftProductKey), $(NewValueList)
  989.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  990.             Debug-Output "AddValueList bombed out"
  991.             goto ShellCodeError
  992.         endif
  993.         set RegistryErrorIndex = $($R0)
  994.         CloseRegKey $(SoftProductKey)
  995.         Ifstr(i) $(RegistryErrorIndex) != "NO_ERROR"
  996.             EndWait
  997.             CloseRegKey $(SoftNetRuleKey)
  998.             goto fatalregistry
  999.         endif
  1000.         set NewValueList = +
  1001.         {{class, $(NoTitle), $(!REG_VT_MULTI_SZ), $(NetRule$(ThisOption)Class)},+
  1002.              {type,$(NoTitle),$(!REG_VT_SZ),$(NetRule$(ThisOption)Type)},+
  1003.              {use,$(NoTitle),$(!REG_VT_SZ),$(NetRule$(ThisOption)Use)}, +
  1004.              {bindform,$(NoTitle),$(!REG_VT_SZ),+
  1005.               $(NetRule$(ThisOption)BindForm)}, +
  1006.              {bindable,$(NoTitle),$(!REG_VT_MULTI_SZ),+
  1007.               $(NetRule$(ThisOption)Bindable)}, +
  1008.              {InfOption,$(NoTitle),$(!REG_VT_SZ),$(ThisOption)}, +
  1009.              {Infname ,$(NoTitle),$(!REG_VT_SZ),$(ProductInfName)}}
  1010.         Shell  $(UtilityInf), AddValueList, $(SoftNetRuleKey), $(NewValueList)
  1011.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1012.             Debug-Output "AddValueList bombed out"
  1013.             goto ShellCodeError
  1014.         endif
  1015.         set RegistryErrorIndex = $($R0)
  1016.         CloseRegKey $(SoftNetRuleKey)
  1017.         Ifstr(i) $(RegistryErrorIndex) != "NO_ERROR"
  1018.             EndWait
  1019.             goto fatalregistry
  1020.         endif
  1021.         Shell $(UtilityInf), AddHardwareComponent, +
  1022.               $(Product$(ThisOption)Name),$(ProductInfName),+
  1023.               $(Product$(ThisOption)KeyName)
  1024.         ifint $($R4) != -1
  1025.             Set NETCARD_LIST = >($(NETCARD_LIST), +
  1026.                                  {$(Product$(ThisOption)Name),+
  1027.                                  $(NetworkCardKeyName)"\"$($R4)})
  1028.         endif
  1029.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1030.            Debug-Output "Cannot add hardware component"
  1031.            goto ShellCodeError
  1032.         endif
  1033.         set RegistryErrorIndex = $($R0)
  1034.         Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
  1035.             EndWait
  1036.             Debug-Output "Registry error: add hardware component"
  1037.             CloseRegKey $($R1)
  1038.             CloseRegKey $($R2)
  1039.             CloseRegKey $($R3)
  1040.             goto fatalregistry
  1041.         endif
  1042.         set KeyNetcard    = $($R1)
  1043.         set KeyParameters = $($R3)
  1044.         set KeyAdapterRules = $($R2)
  1045.         set AdapterNumber = $($R4)
  1046.         set NewValueList = +
  1047.             {{Manufacturer,$(NoTitle),$(!REG_VT_SZ),$(Manufacturer)},+
  1048.              {Title,$(NoTitle),$(!REG_VT_SZ),+
  1049.               "["$($R4)"] "$(Product$(ThisOption)Title)},+
  1050.              {Description,$(NoTitle),$(!REG_VT_SZ),+
  1051.               $(Product$(ThisOption)Description)},+
  1052.              {ProductName,$(NoTitle),$(!REG_VT_SZ),+
  1053.               $(Product$(ThisOption)Name)},+
  1054.              {ServiceName,$(NoTitle),$(!REG_VT_SZ),$($R5)},+
  1055.              {InstallDate,$(NoTitle),$(!REG_VT_DWORD),*($(Now),1)},+
  1056.              {Hidden,$(NoTitle),$(!REG_VT_DWORD),$(HideComponent)}}
  1057.         Shell  $(UtilityInf), AddValueList, $(KeyNetcard), $(NewValueList)
  1058.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1059.             Debug-Output "ShellCode error"
  1060.             goto ShellCodeError
  1061.         endif
  1062.         CloseRegKey $(KeyNetcard)
  1063.         set TempProdName = """"$(Product$(ThisOption)Name)$(AdapterNumber)""""
  1064.         set TempBindForm = $(TempProdName)$(NetRuleHardware$(ThisOption)BindForm)
  1065.         set NewValueList = +
  1066.             {{type,$(NoTitle),$(!REG_VT_SZ),+
  1067.               $(NetRuleHardware$(ThisOption)Type)},+
  1068.              {bindform,$(NoTitle),$(!REG_VT_SZ),$(TempBindForm)}, +
  1069.              {class,$(NoTitle),$(!REG_VT_MULTI_SZ),+
  1070.               $(NetRuleHardware$(ThisOption)Class)}, +
  1071.          {InfOption,$(NoTitle),$(!REG_VT_SZ),$(ThisOption)}, +
  1072.              {Infname ,$(NoTitle),$(!REG_VT_SZ),$(ProductInfName)}}
  1073.         Shell  $(UtilityInf), AddValueList, $(KeyAdapterRules), $(NewValueList)
  1074.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1075.             Debug-Output "ShellCode error."
  1076.             goto ShellCodeError
  1077.         endif
  1078.         set RegistryErrorIndex = $($R0)
  1079.         Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
  1080.             EndWait
  1081.             Debug-Output "Resgitry error: add value list."
  1082.             CloseRegKey $(KeyParameters)
  1083.             CloseRegKey $(KeyAdapterRules)
  1084.             goto fatalregistry
  1085.         endif
  1086.         CloseRegKey $(KeyAdapterRules)
  1087.         CloseRegKey $(KeyParameters)
  1088.     endif 
  1089.     goto WriteParameters
  1090. WriteParameters = +
  1091.     ifstr(i) $(DoAdminOnly) == TRUE
  1092.         goto WriteParametersOver
  1093.     endif
  1094.     StartWait
  1095.     read-syms StatusUpdatingRegistry$(!STF_LANGUAGE)
  1096.     shell $(subroutninf) PushBillBoard NETSTATUSDLG $(WritingRasParams)
  1097.     Debug-Output "Writing Registry Parameters."
  1098.     ifstr(i) $(DoServer) != TRUE
  1099.         goto WriteRasMan
  1100.     endif
  1101.     set RasStartValue = 3
  1102.     ifstr(i) $(!STF_PRODUCT) == "LANMANNT"
  1103.         ifint $(NewNumDialin) != 0
  1104.             set RasStartValue = 2
  1105.         endif
  1106.     endif
  1107.     set KeySrv = $(KeyNull)
  1108.     OpenRegKey $(!REG_H_LOCAL) "" $(RasSvrKeyName) $(!MAXIMUM_ALLOWED) KeySvr
  1109.     ifstr $(KeySvr) == $(KeyNull)
  1110.         Debug-Output "OEMNSVRA.INF: could not open RemoteAccess key"
  1111.     else
  1112.         SetRegValue $(KeySvr) {Start,$(NoTitle),$(!REG_VT_DWORD),$(RasStartValue)}
  1113.         CloseRegKey $(KeySvr)
  1114.     endif
  1115.     OpenRegKey $(!REG_H_LOCAL) "" $(RasSvrParamKeyName) $(!MAXIMUM_ALLOWED) KeySrvParams
  1116.     ifstr $(KeySrvParams) == $(KeyNull)
  1117.        Debug-Output "OEMNSVRA.INF: could not open RasSvr Params key"
  1118.        set RegistryErrorIndex = UNABLE_OPEN_SERVICE_PARAMETERS
  1119.        goto fatalregistry
  1120.     endif
  1121.     set NewValueList = +
  1122.         {{NetBiosGatewayEnabled, $(NoTitle), $(!REG_VT_DWORD), $(NetBiosGtwyEnabled)}}
  1123.     Shell  $(UtilityInf), AddValueList, $(KeySrvParams), $(NewValueList)
  1124.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1125.          Debug-Output "AddValueList bombed out"
  1126.          goto ShellCodeError
  1127.     endif
  1128.     set RegistryErrorIndex = $($R0)
  1129.     Ifstr(i) $(RegistryErrorIndex) != "NO_ERROR"
  1130.         goto fatalregistry
  1131.     endif
  1132.     CloseRegKey $(KeySrvParams)
  1133. WriteRasMan = +
  1134.     OpenRegKey $(!REG_H_LOCAL) "" $(RasManLinkageKeyName) $(!MAXIMUM_ALLOWED) RasManLinkageKey
  1135.     ifstr $(RasManLinkageKey) == $(KeyNull)
  1136.         Debug-Output "OEMNSVRA.INF: could not open RasMan linkage key"
  1137.         set RegistryErrorIndex = UNABLE_ACCESS_CONFIGURE_SERVICE
  1138.         goto fatalregistry
  1139.     endif
  1140.     set RasManDependency = {}
  1141.     ifstr(i) $(fSerialInstalled) == TRUE
  1142.         set RasManDependency = {"AsyncMac", "RasHub"}
  1143.     else
  1144.         set RasManDependency = {"RasHub"}
  1145.     endif
  1146.     set NewValueList = +
  1147.         {{OtherDependencies, $(NoTitle), $(!REG_VT_MULTI_SZ),$(RasManDependency)}}
  1148.     Shell  $(UtilityInf), AddValueList, $(RasManLinkageKey), $(NewValueList)
  1149.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1150.         Debug-Output "Rasman:Linkage: AddValueList bombed out"
  1151.         goto ShellCodeError
  1152.     endif
  1153.     set RegistryErrorIndex = $($R0)
  1154.     CloseRegKey $(RasManLinkageKey)
  1155.     Ifstr(i) $(RegistryErrorIndex) != "NO_ERROR"
  1156.         Debug-Output "WriteRasMan: Registry Error "$(RegistryErrorIndex)
  1157.         goto fatalregistry
  1158.     endif
  1159.     OpenRegKey $(!REG_H_LOCAL) "" $(RasManParamKeyName) $(!MAXIMUM_ALLOWED) KeyRasManParams
  1160.     ifstr $(KeyRasManParams) == $(KeyNull)
  1161.        Debug-Output "OEMNSVRA.INF: could not open RasMan Params key"
  1162.        set RegistryErrorIndex = UNABLE_OPEN_SERVICE_PARAMETERS
  1163.        goto fatalregistry
  1164.     endif
  1165.     set RasMediaIsdnKey = $(KeyNull)
  1166.     OpenRegKey $(!REG_H_LOCAL) "" $(RasMediaIsdnKeyName) $(!MAXIMUM_ALLOWED) RasMediaIsdnKey
  1167.     ifstr $(RasMediaIsdnKey) != $(KeyNull)
  1168.        set IsdnMedia = {}
  1169.        set IsdnMediaDll = ""
  1170.        GetRegValue $(RasMediaIsdnKey), "MediaDll" IsdnMedia
  1171.        set IsdnMediaDll = *($(IsdnMedia), 4)
  1172.        CloseRegKey $(RasMediaIsdnKey)
  1173.     endif
  1174.     set MediaValue = {}
  1175.     ifstr(i) $(fSerialInstalled) == TRUE
  1176.         set MediaValue = {"rasser"}
  1177.     endif
  1178.     ifstr $(IsdnMediaDll) != ""
  1179.        set MediaValue = >($(MediaValue), $(IsdnMediaDll))
  1180.     endif
  1181.     Debug-Output "Adding Medias as "$(MediaValue)
  1182.     set NewValueList = {{Medias,$(NoTitle),$(!REG_VT_MULTI_SZ),$(MediaValue)}}
  1183.     Shell  $(UtilityInf), AddValueList, $(KeyRasManParams), $(NewValueList)
  1184.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1185.          Debug-Output "AddValueList bombed out"
  1186.          goto ShellCodeError
  1187.     endif
  1188.     set RegistryErrorIndex = $($R0)
  1189.     Ifstr(i) $(RegistryErrorIndex) != "NO_ERROR"
  1190.         goto fatalregistry
  1191.     endif
  1192.     CloseRegKey $(KeyRasManParams)
  1193. WriteRasHub = +
  1194.     OpenRegKey $(!REG_H_LOCAL) "" $(RasHubLinkageKeyName) $(!MAXIMUM_ALLOWED) RasHubLinkageKey
  1195.     ifstr $(RasHubLinkageKey) == $(KeyNull)
  1196.         Debug-Output "OEMNSVRA.INF: could not open RasHub linkage key"
  1197.         set RegistryErrorIndex = UNABLE_ACCESS_CONFIGURE_SERVICE
  1198.         goto fatalregistry
  1199.     endif
  1200.     set RasHubDependency = {""}
  1201.     ifstr(i) $(fSerialInstalled) == TRUE
  1202.         set RasHubDependency = {"AsyncMac"}
  1203.     endif
  1204.     set NewValueList = +
  1205.         {{OtherDependencies, $(NoTitle), $(!REG_VT_MULTI_SZ),$(RasHubDependency)}}
  1206.     Shell  $(UtilityInf), AddValueList, $(RasHubLinkageKey), $(NewValueList)
  1207.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1208.         Debug-Output "Rashub:Linkage: AddValueList bombed out"
  1209.         goto ShellCodeError
  1210.     endif
  1211.     set RegistryErrorIndex = $($R0)
  1212.     CloseRegKey $(RasHubLinkageKey)
  1213.     Ifstr(i) $(RegistryErrorIndex) != "NO_ERROR"
  1214.         Debug-Output "WriteRasMan: Registry Error "$(RegistryErrorIndex)
  1215.         goto fatalregistry
  1216.     endif
  1217.     set PrevNumPorts = 0
  1218.     set PrevNumDialin = 0
  1219.     set PrevNumDialout = 0
  1220.     OpenRegKey $(!REG_H_LOCAL) "" $(RasAsyMacParamKeyName) $(!MAXIMUM_ALLOWED) KeyMacParams
  1221.     ifstr $(KeyMacParams) == $(KeyNull)
  1222.        ifstr(i) $(!NTN_InstallMode) == configure
  1223.           Debug-Output "OEMNSVRA.INF: could not open AsyncMac Params key"
  1224.           set RegistryErrorIndex = UNABLE_OPEN_SERVICE_PARAMETERS
  1225.           goto fatalregistry
  1226.        endif
  1227.        goto WriteRasHub1
  1228.     endif
  1229.     GetRegValue $(KeyMacParams), "Ports" PortsInfo
  1230.     GetRegValue $(KeyMacParams), "Dialin" DialinInfo
  1231.     GetRegValue $(KeyMacParams), "Dialout" DialoutInfo
  1232.     set PrevNumPorts      = *($(PortsInfo), 4)
  1233.     set PrevNumDialin     = *($(DialinInfo), 4)
  1234.     set PrevNumDialout    = *($(DialoutInfo), 4)
  1235.     Debug-Output "Ports currently configured "$(PrevNumPorts)
  1236.     Debug-Output "Ports currently dialin "$(PrevNumDialin)
  1237.     Debug-Output "Ports currently dialout "$(PrevNumDialout)
  1238.     CloseRegKey $(KeyMacParams)
  1239. WriteRasHub1 =+
  1240.     set ThisOption = RASHUB
  1241.     set RasSpecificString = $(Product$(ThisOption)Name)
  1242.     ifint $(PrevNumDialin) == $(NewNumDialin)
  1243.         ifint $(PrevNumDialout) == $(NewNumDialout)
  1244.             set CommonStatus = STATUS_NO_EFFECT
  1245.             goto WriteRasAsyMac
  1246.         endif
  1247.     endif
  1248.     set NumAddDialin      = 0
  1249.     set NumAddDialout     = 0
  1250.     set NumRemoveDialin   = 0
  1251.     set NumRemoveDialout  = 0
  1252.     ifint $(PrevNumDialin) > $(NewNumDialin)
  1253.         set-sub NumRemoveDialin = $(PrevNumDialin), $(NewNumDialin)
  1254.     else
  1255.         set-sub NumAddDialin = $(NewNumDialin), $(PrevNumDialin)
  1256.     endif
  1257.     ifint $(PrevNumDialout) > $(NewNumDialout)
  1258.         set-sub NumRemoveDialout = $(PrevNumDialout), $(NewNumDialout)
  1259.     else
  1260.         set-sub NumAddDialout = $(NewNumDialout), $(PrevNumDialout)
  1261.     endif
  1262.     set-add NumAddTotal = $(NumAddDialin), $(NumAddDialout)
  1263.     set-add NumRemoveTotal = $(NumRemoveDialin), $(NumRemoveDialout)
  1264. AddRasHubNetCard = +
  1265.      Debug-Output "Adding RasHub netcard NumAddDialin = "$(NumAddDialin)
  1266.      Debug-Output "Adding RasHub netcard NumAddDialout = "$(NumAddDialout)
  1267.      IfInt $(NumAddTotal) == 0
  1268.          goto RemoveRasHubNetCard
  1269.      else
  1270.          set-sub NumAddTotal = $(NumAddTotal),1
  1271.          Debug-Output "In the Add if loop. NumAddTotal = "$(NumAddTotal)
  1272.          Shell $(UtilityInf), AddHardwareComponent, +
  1273.                $(Product$(ThisOption)Name),$(ProductInfName),+
  1274.                $(Product$(ThisOption)KeyName)
  1275.          ifint $($R4) != -1
  1276.              Set NETCARD_LIST = >($(NETCARD_LIST), +
  1277.                                   {$(Product$(ThisOption)Name),+
  1278.                                   $(NetworkCardKeyName)"\"$($R4)})
  1279.           endif
  1280.           ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1281.          Debug-Output "Cannot add hardware component"
  1282.              goto ShellCodeError
  1283.           endif
  1284.           set RegistryErrorIndex = $($R0)
  1285.           Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
  1286.               EndWait
  1287.               Debug-Output "Registry error: add hardware component"
  1288.               CloseRegKey $($R1)
  1289.               CloseRegKey $($R2)
  1290.               CloseRegKey $($R3)
  1291.               goto fatalregistry
  1292.           endif
  1293.         set KeyNetcard    = $($R1)
  1294.         set KeyParameters = $($R3)
  1295.         set KeyAdapterRules = $($R2)
  1296.         set AdapterNumber = $($R4)
  1297.         set NewValueList = +
  1298.             {{Manufacturer,$(NoTitle),$(!REG_VT_SZ),$(Manufacturer)},+
  1299.              {Title,$(NoTitle),$(!REG_VT_SZ),+
  1300.               "["$($R4)"] "$(Product$(ThisOption)Title)},+
  1301.              {Description,$(NoTitle),$(!REG_VT_SZ),+
  1302.               $(Product$(ThisOption)Description)},+
  1303.              {ServiceName,$(NoTitle),$(!REG_VT_SZ),$($R5)},+
  1304.              {InstallDate,$(NoTitle),$(!REG_VT_DWORD),*($(Now),1)},+
  1305.              {Hidden,$(NoTitle),$(!REG_VT_DWORD),$(HideComponent)}}
  1306.         ifint $(NumAddDialin) > 0
  1307.             set NewValueList = >($(NewValueList), +
  1308.                                  {ProductName,$(NoTitle),$(!REG_VT_SZ),+
  1309.                                   $(Product$(ThisOption)DIALINName)})
  1310.         else 
  1311.             set NewValueList = >($(NewValueList), +
  1312.                                  {ProductName,$(NoTitle),$(!REG_VT_SZ),+
  1313.                                   $(Product$(ThisOption)DIALOUTName)})
  1314.         endif
  1315.         Shell  $(UtilityInf), AddValueList, $(KeyNetcard), $(NewValueList)
  1316.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1317.             Debug-Output "ShellCode error"
  1318.             goto ShellCodeError
  1319.         endif
  1320.         CloseRegKey $(KeyNetcard)
  1321.         set TempProdName = """"$(Product$(ThisOption)Name)$(AdapterNumber)""""
  1322.         set TempBindForm = $(TempProdName)$(NetRuleHardware$(ThisOption)BindForm)
  1323.         ifint $(NumAddDialin) > 0
  1324.            set NewValueList = +
  1325.                {{type,$(NoTitle),$(!REG_VT_SZ),+
  1326.                  $(NetRuleHardwareDIALINType)},+
  1327.                 {bindform,$(NoTitle),$(!REG_VT_SZ),$(TempBindForm)},+
  1328.                 {class,$(NoTitle),$(!REG_VT_MULTI_SZ),+
  1329.                  $(NetRuleHardwareDIALINClass)},+
  1330.                 {block,$(NoTitle),$(!REG_VT_MULTI_SZ),+
  1331.                  $(NetRuleHardwareDIALINBlock)},+
  1332.                 {InfOption,$(NoTitle),$(!REG_VT_SZ),$(ThisOption)},+
  1333.                 {Infname ,$(NoTitle),$(!REG_VT_SZ),$(ProductInfName)}}
  1334.         else
  1335.            set NewValueList = +
  1336.                {{type,$(NoTitle),$(!REG_VT_SZ),+
  1337.                  $(NetRuleHardwareDIALOUTType)},+
  1338.                 {bindform,$(NoTitle),$(!REG_VT_SZ),$(TempBindForm)},+
  1339.                 {class,$(NoTitle),$(!REG_VT_MULTI_SZ),+
  1340.                  $(NetRuleHardwareDIALOUTClass)},+
  1341.             {InfOption,$(NoTitle),$(!REG_VT_SZ),$(ThisOption)},+
  1342.                 {Infname ,$(NoTitle),$(!REG_VT_SZ),$(ProductInfName)}}
  1343.         endif
  1344.         Shell  $(UtilityInf), AddValueList, $(KeyAdapterRules), $(NewValueList)
  1345.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1346.             Debug-Output "ShellCode error."
  1347.             goto ShellCodeError
  1348.         endif
  1349.         set RegistryErrorIndex = $($R0)
  1350.         Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
  1351.             EndWait
  1352.             Debug-Output "Resgitry error: add value list."
  1353.             CloseRegKey $(KeyParameters)
  1354.             CloseRegKey $(KeyAdapterRules)
  1355.             goto fatalregistry
  1356.         endif
  1357.         CloseRegKey $(KeyAdapterRules)
  1358.         Debug-Output "In the Add if loop. NumAddDialin = "$(NumAddDialin)
  1359.         Debug-Output "In the Add if loop. NumAddDialout = "$(NumAddDialout)
  1360.         Shell $(UtilityInf), GetBusTypeNum
  1361.         set BusTypeNum = $($R1)
  1362.         ifint $(NumAddDialin) > 0
  1363.             set-sub NumAddDialin = $(NumAddDialin),1
  1364.             set NewValueList = {{EnumExportPref, $(NoTitle), $(!REG_VT_DWORD), 0}, +
  1365.                                 {BusType, $(NoTitle), $(!REG_VT_DWORD), $(BusTypeNum)}}
  1366.         else
  1367.             set-sub NumAddDialout = $(NumAddDialout),1
  1368.             set NewValueList = {{EnumExportPref, $(NoTitle), $(!REG_VT_DWORD), 1}, +
  1369.                                 {BusType, $(NoTitle), $(!REG_VT_DWORD), $(BusTypeNum)}}
  1370.         endif
  1371.         Shell  $(UtilityInf), AddValueList, $(KeyParameters), $(NewValueList)
  1372.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1373.             Debug-Output "ShellCode error."
  1374.             goto ShellCodeError
  1375.         endif
  1376.         CloseRegKey $(KeyParameters)
  1377.         goto AddRasHubNetCard
  1378.      endif 
  1379. RemoveRasHubNetCard = +
  1380.      Ifint $(NumRemoveTotal) == 0
  1381.         goto WriteRasHubEnd
  1382.      endif
  1383.      Debug-Output "Removing RasHub netcard NumRemoveDialin = "$(NumRemoveDialin)
  1384.      Debug-Output "Removing RasHub netcard NumRemoveDialout = "$(NumRemoveDialout)
  1385.         OpenRegKey $(!REG_H_LOCAL) "" $(NetworkCardKeyName) $(!MAXIMUM_ALLOWED) KeyNetcards
  1386.         ifstr $(KeyNetcards) == $(KeyNull)
  1387.              Debug-Output "OEMNSVRA.INF: could not open Netcards key"
  1388.              set RegistryErrorIndex = UNABLE_OPEN_NETWORKCARD_SECTION
  1389.              goto fatalregistry
  1390.         endif
  1391.         EnumRegKey $(KeyNetcards) NetcardsList
  1392.         set RemoveDialinList  = {}
  1393.         set RemoveDialoutList = {}
  1394.         ForListDo $(NetcardsList)
  1395.            set KeyName = *($($),1)
  1396.            OpenRegKey $(KeyNetcards) "" $(KeyName) $(!MAXIMUM_ALLOWED) Card
  1397.            ifstr $(Card) == $(KeyNull)
  1398.                Debug-Output "OEMNSVRA.INF: could not open netcard key"
  1399.                set RegistryErrorIndex = UNABLE_OPEN_NETWORKCARD_SECTION
  1400.                goto fatalregistry
  1401.            endif
  1402.            GetRegValue $(Card), "ProductName" ProductNameInfo
  1403.            set CardProductName = *($(ProductNameInfo), 4)
  1404.            ifstr(i) $(CardProductName) == $(ProductRASHUBDIALINName)
  1405.               set RemoveDialinList = >($(RemoveDialinList), +
  1406.                                       {$(ProductRASHUBName),+
  1407.                                        $(NetworkCardKeyName)"\"$(KeyName)})
  1408.            else-ifstr(i) $(CardProductName) == $(ProductRASHUBDIALOUTName)
  1409.               set RemoveDialoutList = >($(RemoveDialoutList), +
  1410.                                        {$(ProductRASHUBName),+
  1411.                                         $(NetworkCardKeyName)"\"$(KeyName)})
  1412.            endif
  1413.            CloseRegKey $(Card)
  1414.         EndForListDo
  1415.         CloseRegKey $(KeyNetcards)
  1416.         ForListDo  $(RemoveDialinList)
  1417.             ifint $(NumRemoveDialin) == 0
  1418.                 goto RemoveDialout
  1419.             endif
  1420.             set-sub NumRemoveDialin = $(NumRemoveDialin), 1
  1421.             debug-output "Removing hardware component: "$($)
  1422.             Shell $(UtilityInf), RemoveHardwareComponent, $(Manufacturer),+
  1423.                   *($($),1), *($($),2)
  1424.         EndForListDo
  1425. RemoveDialout = +
  1426.         ForListDo  $(RemoveDialoutList)
  1427.             ifint $(NumRemoveDialout) == 0
  1428.                 goto WriteRasHubEnd
  1429.             endif
  1430.             set-sub NumRemoveDialout = $(NumRemoveDialout), 1
  1431.             debug-output "Removing hardware component: "$($)
  1432.             Shell $(UtilityInf), RemoveHardwareComponent, $(Manufacturer),+
  1433.                   *($($),1), *($($),2)
  1434.         EndForListDo
  1435. WriteRasHubEnd = +
  1436.     OpenRegKey $(!REG_H_LOCAL) "" $(RasHubParamKeyName) $(!MAXIMUM_ALLOWED) KeyHubParams
  1437.     ifstr $(KeyHubParams) == $(KeyNull)
  1438.        Debug-Output "OEMNSVRA.INF: could not open RasHub Params key"
  1439.        set RegistryErrorIndex = UNABLE_OPEN_SERVICE_PARAMETERS
  1440.        goto fatalregistry
  1441.     endif
  1442.     set NewValueList = +
  1443.         {{EndPoints, $(NoTitle), $(!REG_VT_MULTI_SZ), $(NewNumPortsList)}}
  1444.     Shell  $(UtilityInf), AddValueList, $(KeyHubParams), $(NewValueList)
  1445.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1446.          Debug-Output "AddValueList bombed out"
  1447.          goto ShellCodeError
  1448.     endif
  1449.     set RegistryErrorIndex = $($R0)
  1450.     CloseRegKey $(KeyHubParams)
  1451.     Ifstr(i) $(RegistryErrorIndex) != "NO_ERROR"
  1452.         goto fatalregistry
  1453.     endif
  1454. WriteRasAsyMac = +
  1455.     ifstr(i) $(fSerialInstalled) == TRUE
  1456.         set AsyStartValue = 3
  1457.     else
  1458.         set AsyStartValue = 4
  1459.     endif
  1460.     OpenRegKey $(!REG_H_LOCAL) "" $(RasAsyMacKeyName) $(!MAXIMUM_ALLOWED) KeyMac
  1461.     ifstr $(KeyMac) == $(KeyNull)
  1462.         Debug-Output "OEMNSVRA.INF: could not open AsyncMac key"
  1463.     else
  1464.         SetRegValue $(KeyMac) {Start,$(NoTitle),$(!REG_VT_DWORD),$(AsyStartValue)}
  1465.         CloseRegKey $(KeyMac)
  1466.     endif
  1467.     ifint $(PrevNumDialin) == $(NewNumDialin)
  1468.         ifint $(PrevNumDialout) == $(NewNumDialout)
  1469.             EndWait
  1470.             shell $(subroutninf) PopBillBoard
  1471.             goto WriteParametersOver
  1472.         endif
  1473.     endif
  1474.     OpenRegKey $(!REG_H_LOCAL) "" $(RasAsyMacParamKeyName) $(!MAXIMUM_ALLOWED) KeyMacParams
  1475.     ifstr $(KeyMacParams) == $(KeyNull)
  1476.        Debug-Output "OEMNSVRA.INF: could not open AsyncMac Params key"
  1477.        set RegistryErrorIndex = UNABLE_OPEN_SERVICE_PARAMETERS
  1478.        goto fatalregistry
  1479.     endif
  1480.     set NewValueList = +
  1481.         {{Ports, $(NoTitle), $(!REG_VT_DWORD), $(NewNumPorts)},+
  1482.          {Dialin, $(NoTitle), $(!REG_VT_DWORD), $(NewNumDialin)},+
  1483.          {Dialout, $(NoTitle), $(!REG_VT_DWORD), $(NewNumDialout)}}
  1484.     Shell  $(UtilityInf), AddValueList, $(KeyMacParams), $(NewValueList)
  1485.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1486.          Debug-Output "AddValueList bombed out"
  1487.          goto ShellCodeError
  1488.     endif
  1489.     set RegistryErrorIndex = $($R0)
  1490.     CloseRegKey $(KeyMacParams)
  1491.     Ifstr(i) $(RegistryErrorIndex) != "NO_ERROR"
  1492.         goto fatalregistry
  1493.     endif
  1494.     OpenRegKey $(!REG_H_LOCAL) "" $(NetworkCardKeyName) $(!MAXIMUM_ALLOWED) KeyNetcards
  1495.     ifstr $(KeyNetcards) == $(KeyNull)
  1496.          Debug-Output "OEMNSVRA.INF: could not open Netcards key"
  1497.          set RegistryErrorIndex = UNABLE_OPEN_NETWORKCARD_SECTION
  1498.          goto fatalregistry
  1499.     endif
  1500.     EnumRegKey $(KeyNetcards) NetcardsList
  1501.     ForListDo $(NetcardsList)
  1502.        set KeyName = *($($),1)
  1503.        OpenRegKey $(KeyNetcards) "" $(KeyName) $(!MAXIMUM_ALLOWED) Card
  1504.        ifstr $(Card) == $(KeyNull)
  1505.           Debug-Output "OEMNSVRA.INF: could not open netcard key"
  1506.           set RegistryErrorIndex = UNABLE_OPEN_NETWORKCARD_SECTION
  1507.           goto fatalregistry
  1508.        endif
  1509.        GetRegValue $(Card), "ProductName" ProductNameInfo
  1510.        set CardProductName = *($(ProductNameInfo), 4)
  1511.        ifstr(i) $(CardProductName) == $(ProductRASASYMACName)
  1512.            goto RasMacCardFound
  1513.        endif
  1514.        CloseRegKey $(Card)
  1515.     EndForListDo
  1516.     CloseRegKey $(KeyNetcards)
  1517. RasMacCardFound = +
  1518.     Debug-Output "Shelling to find AsyncMac Service."
  1519.     Shell $(UtilityInf) FindService, $(Card)
  1520.     CloseRegKey $(Card)
  1521.     ifint $($ShellCode)  != $(!SHELL_CODE_OK)
  1522.         Debug-Output "OEMNSVRA.INF: shell Findservice failed"
  1523.         goto ShellCodeError
  1524.     endif
  1525.     ifstr(i) $($R0) != NO_ERROR
  1526.         Debug-Output "OEMNSVRA.INF: findservice failed."
  1527.         goto fatalregistry
  1528.     endif
  1529.     set KeyParameters = $($R2)
  1530.     CloseRegKey $($R1)
  1531.     Shell $(UtilityInf), GetBusTypeNum
  1532.     set BusTypeNum = $($R1)
  1533.     set NewValueList = +
  1534.         {{Ports, $(NoTitle), $(!REG_VT_DWORD), $(NewNumPorts)}, +
  1535.          {BusType, $(NoTitle), $(!REG_VT_DWORD), $(BusTypeNum)}}
  1536.     Shell  $(UtilityInf), AddValueList, $(KeyParameters), $(NewValueList)
  1537.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1538.          Debug-Output "AddValueList bombed out"
  1539.          goto ShellCodeError
  1540.     endif
  1541.     set RegistryErrorIndex = $($R0)
  1542.     CloseRegKey $(KeyParameters)
  1543.     Ifstr(i) $(RegistryErrorIndex) != "NO_ERROR"
  1544.         goto fatalregistry
  1545.     endif
  1546.     EndWait
  1547.     Ifstr(i) $(!NTN_InstallPhase) != primary
  1548.         shell $(subroutninf) PopBillBoard
  1549.     Endif
  1550. WriteParametersOver = +
  1551.     goto successful
  1552. RemoveRas = +
  1553.     StartWait
  1554.     set REMOVE_SOFTWARE = {}
  1555.     shell "" QueryComponentsInstalled
  1556.     Ifstr(i) $($R0) == STATUS_SUCCESSFUL
  1557.         Set InstalledComps = $($R1)
  1558.         Set InstalledFlags = $($R2)
  1559.         Set DoServer      = *($(InstalledFlags),1)
  1560.         Set DoClient      = *($(InstalledFlags),2)
  1561.         Set DoAdmin       = *($(InstalledFlags),3)
  1562.         Set DoServerOnly  = *($(InstalledFlags),4)
  1563.         Set DoClientOnly  = *($(InstalledFlags),5)
  1564.         Set DoAdminOnly   = *($(InstalledFlags),6)
  1565.     Endif
  1566.     Debug-Output "Installed List is "$(InstalledComps)
  1567.     Debug-Output "Installed Flags is "$(InstalledFlags)
  1568.     ifstr(i) $(DoAdminOnly) == TRUE
  1569.          set REMOVE_SOFTWARE = {$(ProductRASName)}
  1570.          goto RemoveSoftware
  1571.     endif
  1572.     set REMOVE_SOFTWARE = >($(REMOVE_SOFTWARE), $(ProductRASName))
  1573.     ifstr(i) $(DoServer) == TRUE
  1574.          set REMOVE_SOFTWARE = >($(REMOVE_SOFTWARE), $(ProductRASSVRName))
  1575.     endif
  1576.     set REMOVE_SOFTWARE = >($(REMOVE_SOFTWARE), $(ProductRASMANName))
  1577.     OpenRegKey $(!REG_H_LOCAL) "" $(NetworkCardKeyName) $(!MAXIMUM_ALLOWED) KeyNetcards
  1578.     ifstr $(KeyNetcards) == $(KeyNull)
  1579.          Debug-Output "OEMNSVRA.INF: could not open Netcards key"
  1580.          set RegistryErrorIndex = UNABLE_OPEN_NETWORKCARD_SECTION
  1581.          goto fatalregistry
  1582.     endif
  1583.     EnumRegKey $(KeyNetcards) NetcardsList
  1584.     ForListDo $(NetcardsList)
  1585.        set KeyName = *($($),1)
  1586.        OpenRegKey $(KeyNetcards) "" $(KeyName) $(!MAXIMUM_ALLOWED) Card
  1587.        ifstr $(Card) == $(KeyNull)
  1588.            Debug-Output "OEMNSVRA.INF: could not open netcard key"
  1589.            set RegistryErrorIndex = UNABLE_OPEN_NETWORKCARD_SECTION
  1590.            goto fatalregistry
  1591.        endif
  1592.        GetRegValue $(Card), "ProductName" ProductNameInfo
  1593.        set CardProductName = *($(ProductNameInfo), 4)
  1594.        ifstr(i) $(CardProductName) == $(ProductRASHUBDIALINName)
  1595.           set NETCARD_LIST = >($(NETCARD_LIST), +
  1596.                                 {$(ProductRASHUBName),+
  1597.                                  $(NetworkCardKeyName)"\"$(KeyName)})
  1598.        else-ifstr(i) $(CardProductName) == $(ProductRASHUBDIALOUTName)
  1599.           set NETCARD_LIST = >($(NETCARD_LIST), +
  1600.                                 {$(ProductRASHUBName),+
  1601.                                  $(NetworkCardKeyName)"\"$(KeyName)})
  1602.        else-ifstr(i) $(CardProductName) == $(ProductRASASYMACName)
  1603.           set NETCARD_LIST = >($(NETCARD_LIST),+
  1604.                                 {$(ProductRASASYMACName),+
  1605.                                  $(NetworkCardKeyName)"\"$(KeyName)})
  1606.        endif
  1607.        CloseRegKey $(Card)
  1608.     EndForListDo
  1609.     CloseRegKey $(KeyNetcards)
  1610.     ForListDo  $(NETCARD_LIST)
  1611.         debug-output "Removing hardware component: "$($)
  1612.         Shell $(UtilityInf), RemoveHardwareComponent, $(Manufacturer),+
  1613.               *($($),1), *($($),2)
  1614.     EndForListDo
  1615. RemoveSoftware = +
  1616.     Debug-Output "Remove Software List "$(REMOVE_SOFTWARE)
  1617.     ForListDo  $(REMOVE_SOFTWARE)
  1618.         Debug-Output "Removing software component: "$($)
  1619.         ifstr(i) $($) == RAS
  1620.              OpenRegKey $(!REG_H_LOCAL) "" $(ProductKeyBase) +
  1621.                         $(!MAXIMUM_ALLOWED) ProductKey
  1622.              Ifstr $(ProductKey) == $(KeyNull)
  1623.                 Debug-Output "OEMNSVRA.INF: could not open Software product key"
  1624.                 set RegistryErrorIndex = UNABLE_ACCESS_CONFIGURE_SERVICE
  1625.                 goto fatalregistry
  1626.              endif
  1627.              DeleteRegTree $(ProductKey) $(Product$($)Name)
  1628.              CloseRegKey $(ProductKey)
  1629.         else
  1630.             Shell $(UtilityInf), RemoveSoftwareComponent, $(Manufacturer), $($)
  1631.         endif
  1632.     EndForListDo
  1633.     Ifstr(i) $(!STF_IDW) != TRUE
  1634.         Install RemoveRasFiles
  1635.     endif
  1636.     ifstr(i) $(DoServerOnly) == FALSE
  1637.            Install RemoveRasGroup
  1638.     endif
  1639. RemoveRasOver = +
  1640.     EndWait
  1641.     goto $(to)
  1642. BindingsRas = +
  1643.     Debug-Output "Review bindings is being called!!!."
  1644.     shell "" QueryComponentsInstalled
  1645.     Ifstr(i) $($R0) == STATUS_SUCCESSFUL
  1646.         Set InstalledComps = $($R1)
  1647.         Set InstalledFlags = $($R2)
  1648.         Set DoServer      = *($(InstalledFlags),1)
  1649.         Set DoClient      = *($(InstalledFlags),2)
  1650.         Set DoAdmin       = *($(InstalledFlags),3)
  1651.         Set DoServerOnly  = *($(InstalledFlags),4)
  1652.         Set DoClientOnly  = *($(InstalledFlags),5)
  1653.         Set DoAdminOnly   = *($(InstalledFlags),6)
  1654.     Endif
  1655.     Debug-Output "Installed List is "$(InstalledComps)
  1656.     Debug-Output "Installed Flags is "$(InstalledFlags)
  1657.     set AsyStartValue = 4
  1658.     OpenRegKey $(!REG_H_LOCAL) "" $(RasAsyMacKeyName) $(!MAXIMUM_ALLOWED) KeyMac
  1659.     ifstr $(KeyMac) == $(KeyNull)
  1660.         Debug-Output "OEMNSVRA.INF: could not open AsyncMac key"
  1661.     else
  1662.         GetRegValue $(KeyMac), "Start" AsyStartInfo
  1663.         set AsyStartValue = *($(AsyStartInfo), 4)
  1664.         Debug-Output "OEMNSVRA.INF: AsyncMac start value "$(AsyStartValue) 
  1665.         CloseRegKey $(KeyMac)
  1666.     endif
  1667.     set RasHubParam = {}
  1668.     set RasHubEndPointsLst = {}
  1669.     ifint $(AsyStartValue) == 3
  1670.         set RasMacLinkageKey = $(KeyNull)
  1671.         OpenRegKey $(!REG_H_LOCAL) "" $(RasMacLinkageKeyName) $(!MAXIMUM_ALLOWED) RasMacLinkageKey
  1672.         ifstr $(RasMacLinkageKey) == $(KeyNull)
  1673.             Debug-Output "OEMNSVRA.INF: could not open AsyncMac linkage key"
  1674.             set RegistryErrorIndex = UNABLE_ACCESS_CONFIGURE_SERVICE
  1675.             goto fatalregistry
  1676.         endif
  1677.         GetRegValue $(RasMacLinkageKey), "Bind" BindInfo
  1678.         set RasHubParam = *($(BindInfo), 4)
  1679.         CloseRegKey $(RasMacLinkageKey)
  1680.         set RasHubParamKey = $(KeyNull)
  1681.         OpenRegKey $(!REG_H_LOCAL) "" $(RasHubParamKeyName) $(!MAXIMUM_ALLOWED) RasHubParamKey
  1682.         ifstr $(RasHubParamKey) == $(KeyNull)
  1683.             Debug-Output "OEMNSVRA.INF: could not open RasHubParamKey"
  1684.         else
  1685.             GetRegValue $(RasHubParamKey), "EndPoints" EndPointsInfo
  1686.             set EndPointsLst = *($(EndPointsInfo), 4)
  1687.             set RasHubEndPointsLst = >($(RasHubEndPointsLst),*($(EndPointsLst), 1))
  1688.             CloseRegKey $(RasHubParamKey)
  1689.         endif
  1690.     endif
  1691.     set RasMediaIsdnKey = $(KeyNull)
  1692.     OpenRegKey $(!REG_H_LOCAL) "" $(RasMediaIsdnKeyName) $(!MAXIMUM_ALLOWED) RasMediaIsdnKey
  1693.     ifstr $(RasMediaIsdnKey) != $(KeyNull)
  1694.        set IsdnDriver = {}
  1695.        GetRegValue $(RasMediaIsdnKey), "Driver" IsdnDriver
  1696.        Split-String *($(IsdnDriver), 4) "." IsdnDriverName
  1697.        set IsdnDriverPartial = *($(IsdnDriverName),1)
  1698.        ifstr $(IsdnDriverPartial) != ""
  1699.           set IsdnMacLinkageKeyName = $(!NTN_ServiceBase)"\"$(IsdnDriverPartial)"\Linkage"
  1700.           Debug-Output "Isdn linkage key name "$(IsdnMacLinkageKeyName)
  1701.           set IsdnMacLinkageKey = $(KeyNull)
  1702.           OpenRegKey $(!REG_H_LOCAL) "" $(IsdnMacLinkageKeyName) $(!MAXIMUM_ALLOWED) IsdnMacLinkageKey
  1703.           ifstr $(IsdnMacLinkageKey) == $(KeyNull)
  1704.               Debug-Output "OEMNSVRA.INF: could not open Isdn linkage key"
  1705.           else
  1706.               GetRegValue $(IsdnMacLinkageKey), "Bind" BindInfo
  1707.               set BindInfoLst = {}
  1708.               set BindInfoLst = *($(BindInfo),4)
  1709.               forlistdo $(BindInfoLst)
  1710.                  set RasHubParam = >($(RasHubParam), $($))
  1711.                  set RasHubEndPointsLst = >($(RasHubEndPointsLst), "1")
  1712.               endforlistdo
  1713.               CloseRegKey $(IsdnMacLinkageKey)
  1714.           endif
  1715.        endif
  1716.        CloseRegKey $(RasMediaIsdnKey)
  1717.     else
  1718.         Debug-Output "OEMNSVRA.INF: could not open Media/Isdn key"
  1719.     endif
  1720.     OpenRegKey $(!REG_H_LOCAL) "" $(RasHubParamKeyName) $(!MAXIMUM_ALLOWED) RasHubParamKey
  1721.     ifstr $(RasHubParamKey) == $(KeyNull)
  1722.         Debug-Output "OEMNSVRA.INF: could not open RasHubParamKey"
  1723.         set RegistryErrorIndex = UNABLE_ACCESS_CONFIGURE_SERVICE
  1724.         goto fatalregistry
  1725.     endif
  1726.     Debug-Output "Setting RasHub param Bind to "$(RasHubParam)
  1727.     set NewValueList = {{Bind, $(NoTitle), $(!REG_VT_MULTI_SZ), $(RasHubParam)}}
  1728.     Shell $(UtilityInf), AddValueList, $(RasHubParamKey), $(NewValueList)
  1729.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1730.         CloseRegKey $(RasHubParamKey)
  1731.         goto ShellCodeError
  1732.     endif
  1733.     Debug-Output "Setting RasHub param EndPoints to "$(RasHubEndPointsLst)
  1734.     set NewValueList = {{EndPoints, $(NoTitle), $(!REG_VT_MULTI_SZ), $(RasHubEndPointsLst)}}
  1735.     Shell $(UtilityInf), AddValueList, $(RasHubParamKey), $(NewValueList)
  1736.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1737.         CloseRegKey $(RasHubParamKey)
  1738.         goto ShellCodeError
  1739.     endif
  1740.     CloseRegKey $(RasHubParamKey)
  1741.     LoadLibrary "x" $(!STF_CWDDIR)rascfg.dll PORTSDLGHANDLE
  1742.     LibraryProcedure Result, $(PORTSDLGHANDLE), InitRasmanSecurityDescriptor
  1743.     Debug-Output "Result of setting Rasman security descriptor "$(Result)
  1744.     LibraryProcedure Result, $(PORTSDLGHANDLE), InitRemoteSecurityDescriptor
  1745.     Debug-Output "Result of setting Remote security descriptor "$(Result)
  1746.     Debug-Output "Review bindings done."
  1747.     goto end
  1748. UpgradeRas = +
  1749.     ifstr(i) $(ProductKeyName) == $(!NTN_RegBase)
  1750.         OpenRegKey $(!REG_H_LOCAL) "" $(ProductKeyName) $(!MAXIMUM_ALLOWED) KeyProduct
  1751.         Ifstr $(KeyProduct) != $(KeyNull)
  1752.             GetRegValue $(KeyProduct),"MajorVersion", VersionInfo
  1753.             set Version = *($(VersionInfo), 4)
  1754.             Shell $(UtilityInf), GetInfFileNameFromRegistry, $(KeyProduct)
  1755.             ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1756.                 Debug-Output "ShellCode error"
  1757.                 goto ShellCodeError
  1758.             endif
  1759.             set !UG_Filename = $($R0)
  1760.             ifstr(i) $(!UG_Filename) != ""
  1761.                 Debug-Output "File Name is "$(!UG_Filename)
  1762.                 shell "" QueryComponentsInstalled
  1763.                 Ifstr(i) $($R0) == STATUS_SUCCESSFUL
  1764.                     Set InstalledComps = $($R1)
  1765.                     Set InstalledFlags = $($R2)
  1766.                     Set DoServer      = *($(InstalledFlags),1)
  1767.                     Set DoClient      = *($(InstalledFlags),2)
  1768.                     Set DoAdmin       = *($(InstalledFlags),3)
  1769.                     Set DoServerOnly  = *($(InstalledFlags),4)
  1770.                     Set DoClientOnly  = *($(InstalledFlags),5)
  1771.                     Set DoAdminOnly   = *($(InstalledFlags),6)
  1772.                 Endif
  1773.                 Debug-Output "Installed List is "$(InstalledComps)
  1774.                 Debug-Output "Installed Flags is "$(InstalledFlags)
  1775.                 Set ServerInstalled = $(DoServer)
  1776.                 Set ClientInstalled = $(DoClient)
  1777.                 Set AdminInstalled  = $(DoAdmin)
  1778.                 Install InstallUpdate
  1779.                 ifstr(i) $(STF_INSTALL_OUTCOME) != STF_SUCCESS
  1780.                     goto filecopycancel
  1781.                 endif
  1782.                 Install InstallResources
  1783.                 ifstr(i) $(STF_INSTALL_OUTCOME) != STF_SUCCESS
  1784.                     goto filecopycancel
  1785.                 endif
  1786.                 Install InstallRasFiles
  1787.                 ifstr(i) $(STF_INSTALL_OUTCOME) != STF_SUCCESS
  1788.                     goto filecopycancel
  1789.                 endif
  1790.             endif
  1791.             SetRegValue $(KeyProduct) {MajorVersion,$(NoTitle),$(!REG_VT_SZ),$(ProductMajorVersion)}
  1792.             SetRegValue $(KeyProduct) {MinorVersion,$(NoTitle),$(!REG_VT_SZ),$(ProductMinorVersion)}
  1793.             CloseRegKey $(KeyProduct)
  1794.         else
  1795.             Set RegistryErrorIndex = $($R0)
  1796.             goto fatalregistry
  1797.         endif
  1798.     endif
  1799.     goto end
  1800. successful = +
  1801.     Ifstr(i) $(!NTN_InstallMode) == "install"
  1802.        Debug-Output "OEMNSVRA.INF: Creating Ras Group and Icons"
  1803.        ifstr(i) $(DoServerOnly) == FALSE
  1804.            install CreateRasGroup
  1805.        endif
  1806.     EndIf
  1807.     Ifstr(i) $(!NTN_InstallPhase) == primary
  1808.         goto installstep1
  1809.     else-ifstr(i) $(!NTN_InstallMode) == configure
  1810.         goto installstep1
  1811.     endif
  1812.     read-syms SuccessfulInstall$(!STF_LANGUAGE)
  1813.     set DlgText = $(Success)
  1814.     ifstr(i) $(DoAdmin) == TRUE
  1815.       ifstr(i) $(DoServer) == TRUE
  1816.         set DlgText = $(DlgText)$(LF)$(LF)$(AdminMsg)
  1817.         read-syms RasInstallOverDlg$(!STF_LANGUAGE)
  1818.         ui start "RasInstallOver" $(RASDLGHANDLE)
  1819.       else
  1820.         read-syms RasInstallOverDlg2$(!STF_LANGUAGE)
  1821.         ui start "RasInstallOver" $(RASDLGHANDLE)
  1822.       endif
  1823.     else
  1824.         read-syms RasInstallOverDlg2$(!STF_LANGUAGE)
  1825.         ui start "RasInstallOver" $(RASDLGHANDLE)
  1826.     endif
  1827.     ui pop 1
  1828. installstep1 = +
  1829.     goto end
  1830. warning = +
  1831.     Shell $(subroutninf) SetupMessage, $(!STF_LANGUAGE), "WARNING", $(Error)
  1832.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1833.     goto ShellCodeError
  1834.     endif
  1835.     ifstr(i) $($R1) == "OK"
  1836.        goto $(to)
  1837.     else-ifstr(i) $($R1) == "CANCEL"
  1838.        goto $(from)
  1839.     else
  1840.        Debug-Msg "Error Error Bad DLGEVENT"
  1841.        goto "end"
  1842.     endif
  1843. nonfatal = +
  1844.     Shell $(subroutninf) SetupMessage, $(!STF_LANGUAGE), "NONFATAL", $(Error)
  1845.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1846.     goto ShellCodeError
  1847.     endif
  1848.     ifstr(i) $($R1) == "OK"
  1849.         goto $(from)
  1850.     else
  1851.         goto "end"
  1852.     endif
  1853. fatalregistry = +
  1854.     Shell $(UtilityInf) RegistryErrorString $(RegistryErrorIndex)
  1855.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1856.        Debug-Output "fatalregistry: shell to find RegistryErrorString failed."
  1857.        goto ShellCodeError
  1858.     endif
  1859.     set Error = $($R0)" - service "$(RasSpecificString)"."
  1860.     read-syms AbortMessage$(!STF_LANGUAGE)
  1861.     set Error = $(Error)$(!LF)$(!LF)$(AbortText)
  1862.     goto fatal
  1863. fatal =    +
  1864.     Shell $(subroutninf) SetupMessage, $(!STF_LANGUAGE), "FATAL", $(Error)
  1865.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1866.         Debug-Output "fatal: shell to SetupMessage failed."
  1867.     goto ShellCodeError
  1868.     endif
  1869.     goto setfailed
  1870. ShellCodeError = +
  1871.     read-syms ShellCodeErrorMsg$(!STF_LANGUAGE)
  1872.     ui start "Error Message"
  1873.     goto setfailed
  1874. setfailed = +
  1875.     set CommonStatus = STATUS_FAILED
  1876.     ifstr(i) $(fRemoveRas) == TRUE
  1877.         set fRemoveRas = FALSE
  1878.         set from = setfailed
  1879.         set to   = end
  1880.         goto RemoveRas
  1881.     endif
  1882.     goto end
  1883. filecopycancel =+
  1884.     set CommonStatus = STATUS_NO_EFFECT
  1885.     ifstr(i) $(fRemoveRas) == TRUE
  1886.         set fRemoveRas = FALSE
  1887.         set from = setfailed
  1888.         set to   = end
  1889.         goto RemoveRas
  1890.     endif
  1891. end = +
  1892.     ifstr(i) $(RASDLGHANDLE) != $(HandleNull)
  1893.         Debug-Output "Unloading RASRES.DLL"
  1894.         FreeLibrary $(RASDLGHANDLE)
  1895.     endif
  1896.     ifstr(i) $(PORTSDLGHANDLE) != $(HandleNull)
  1897.         Debug-Output "Unloading RASCFG.DLL"
  1898.         FreeLibrary $(PORTSDLGHANDLE)
  1899.     endif
  1900.     Debug-Output "ending at last!!"
  1901.     goto term
  1902. term = +
  1903.     Debug-Output "OEMNSVRA.INF:term: CommonStatus "$(CommonStatus)
  1904.     Return $(CommonStatus)
  1905. [InstallResources]
  1906.     set STF_VITAL = ""
  1907.     Debug-Output  "In Copying Files"
  1908.     CreateDir $(RasDir)
  1909.     AddSectionFilesToCopyList Files-Resource $(SourceDir) $(!STF_WINDOWSSYSPATH)
  1910.     AddSectionFilesToCopyList Files-Ras-Inf $(SourceDir) $(ProductPath)
  1911.     set !STF_NCPA_FLUSH_COPYLIST = TRUE
  1912.     ifstr(i) $(DoCopy) == "YES"
  1913.        CopyFilesInCopyList
  1914.     endif
  1915.     Debug-Output  "Done Copying Files"
  1916.     exit
  1917. [RemoveResources]
  1918.     Debug-Output "In removing infs and dll"
  1919.     set RemoveList = {}
  1920.     set RenameList = {}
  1921.     set RemoveList = >($(RemoveList), #(Files-RemoveList, MODEMINF, 1))
  1922.     set RemoveList = >($(RemoveList), #(Files-RemoveList, PADINF, 1))
  1923.     set RemoveList = >($(RemoveList), #(Files-RemoveList, SWITCHINF, 1))
  1924.     set RemoveList = >($(RemoveList), #(Files-RemoveList, RASSETUPHLP, 1))
  1925.     set RenameList = >($(RenameList), #(Files-RemoveList, RASRESDLL, 1))
  1926.     set RenameList = >($(RenameList), #(Files-RemoveList, RASCFGDLL, 1))
  1927.     set RenameList = >($(RenameList), #(Files-RemoveList, RASFIL32DLL, 1))
  1928.     ForListDo $(RemoveList)
  1929.         Debug-Output "Removing "$($)
  1930.         LibraryProcedure Status , $(!LIBHANDLE), DelFile $($)
  1931.         Debug-Output "Status is "$(Status)
  1932.     EndForListDo
  1933.     ForListDo $(RenameList)
  1934.         Split-String $($) "\" FilePath
  1935.         QueryListSize PathLen $(FilePath)
  1936.         Split-String *($(FilePath),$(PathLen)) "." FullFileName
  1937.         Set FileName = *($(FullFileName),1)
  1938.         Debug-Output "FileName is "$(FileName)
  1939.         LibraryProcedure STATUS, $(!LIBHANDLE),CheckFileExistance $(!STF_WINDOWSSYSPATH)"\"$(FileName)".old"
  1940.         Debug-Output "CheckFile Status = "$(STATUS)
  1941.         ifstr(i) $(STATUS) == YES
  1942.             LibraryProcedure STATUS, $(!LIBHANDLE), DelFile $(!STF_WINDOWSSYSPATH)"\"$(FileName)".old"
  1943.             Debug-Output "Delfile Status = "$(STATUS)
  1944.         endif
  1945.         Debug-Output "Renaming from "$($)
  1946.         Debug-Output "Renaming to "$(!STF_WINDOWSSYSPATH)"\"$(FileName)".old"
  1947.         LibraryProcedure Status1 , $(!LIBHANDLE), RenFile $($), $(!STF_WINDOWSSYSPATH)"\"$(FileName)".old"
  1948.         Debug-Output "Status is "$(Status1)
  1949.         AddFileToDeleteList $(!STF_WINDOWSSYSPATH)"\"$(FileName)".old"
  1950.     EndForListDo
  1951.     exit
  1952. [InstallRasFiles]
  1953.     set STF_VITAL = ""
  1954.     Debug-Output  "In InstallRasFiles Copying Files"
  1955.     Debug-Output  "ServerInstalled "$(ServerInstalled)
  1956.     Debug-Output  "ClientInstalled "$(ClientInstalled)
  1957.     ifstr(i) $(DoAdmin) == TRUE
  1958.         AddSectionFilesToCopyList Files-Ras-Admin $(SourceDir) +
  1959.                   $(!STF_WINDOWSSYSPATH)
  1960.         ifstr(i) $(DoAdminOnly) == TRUE
  1961.             goto InstallRasFiles1
  1962.         endif
  1963.     endif
  1964.     ifstr(i) $(DoClient) == TRUE
  1965.         AddSectionFilesToCopyList Files-Ras-Client $(SourceDir) +
  1966.                  $(!STF_WINDOWSSYSPATH)
  1967.     endif
  1968.     ifstr(i) $(DoServer) == TRUE
  1969.         AddSectionFilesToCopyList Files-Ras-Server $(SourceDir) +
  1970.                  $(!STF_WINDOWSSYSPATH)
  1971.     endif
  1972.     ifstr(i) $(ServerInstalled) == FALSE
  1973.         ifstr(i) $(ClientInstalled) == FALSE
  1974.             AddSectionFilesToCopyList Files-Ras-Common $(SourceDir) +
  1975.                          $(!STF_WINDOWSSYSPATH)
  1976.             AddSectionFilesToCopyList Files-Ras-Drivers $(SourceDir) +
  1977.                          $(!STF_WINDOWSSYSPATH)\drivers
  1978.         endif
  1979.     endif
  1980. InstallRasFiles1 = +
  1981.     set !STF_NCPA_FLUSH_COPYLIST = TRUE
  1982.     ifstr(i) $(DoCopy) == "YES"
  1983.        CopyFilesInCopyList
  1984.     endif
  1985.     Debug-Output  "Done Copying Files"
  1986.     exit
  1987. [RemoveRasFiles]
  1988.     set RemoveList = {}
  1989.     set RenameList = {}
  1990.     set fCommonRemoved = FALSE
  1991.     ifstr(i) $(DoServer) == TRUE
  1992.        set fCommonRemoved = TRUE
  1993.        set RemoveList = >($(RemoveList), #(Files-RemoveList, RASGTWYDLL, 1))
  1994.        set RemoveList = >($(RemoveList), #(Files-RemoveList, RASSRVEXE, 1))
  1995.        set RemoveList = >($(RemoveList), #(Files-RemoveList, RASSAUTHDLL, 1))
  1996.        set RemoveList = >($(RemoveList), #(Files-RemoveList, RASADMINDLL, 1))
  1997.        set RemoveList = >($(RemoveList), #(Files-RemoveList, RASMANDLL, 1))
  1998.        set RemoveList = >($(RemoveList), #(Files-RemoveList, RASMANEXE, 1))
  1999.        set RemoveList = >($(RemoveList), #(Files-RemoveList, RASMSGDLL, 1))
  2000.        set RemoveList = >($(RemoveList), #(Files-RemoveList, RASMXSDLL, 1))
  2001.        set RemoveList = >($(RemoveList), #(Files-RemoveList, RASSERDLL, 1))
  2002.        set RenameList = >($(RenameList), #(Files-RemoveList, ASYNCMACSYS, 1))
  2003.        set RenameList = >($(RenameList), #(Files-RemoveList, RASHUBSYS, 1))
  2004.     endif
  2005.     ifstr(i) $(DoClient) == TRUE
  2006.        set RemoveList = >($(RemoveList), #(Files-RemoveList, RASDIALEXE, 1))
  2007.        set RemoveList = >($(RemoveList), #(Files-RemoveList, RASPHONEHLP, 1))
  2008.        set RemoveList = >($(RemoveList), #(Files-RemoveList, RASCAUTHDLL, 1))
  2009.        set RemoveList = >($(RemoveList), #(Files-RemoveList, RASAPI32DLL, 1))
  2010.        ifstr(i) $(fCommonRemoved) == FALSE
  2011.            set RemoveList = >($(RemoveList), #(Files-RemoveList, RASMANDLL, 1))
  2012.            set RemoveList = >($(RemoveList), #(Files-RemoveList, RASMANEXE, 1))
  2013.            set RemoveList = >($(RemoveList), #(Files-RemoveList, RASMSGDLL, 1))
  2014.            set RemoveList = >($(RemoveList), #(Files-RemoveList, RASMXSDLL, 1))
  2015.            set RemoveList = >($(RemoveList), #(Files-RemoveList, RASSERDLL, 1))
  2016.            set RenameList = >($(RenameList), #(Files-RemoveList, ASYNCMACSYS, 1))
  2017.            set RenameList = >($(RenameList), #(Files-RemoveList, RASHUBSYS, 1))
  2018.        endif
  2019.     endif
  2020.     ifstr(i) $(DoAdmin) == TRUE
  2021.        set RemoveList = >($(RemoveList), #(Files-RemoveList, RASADMINHLP, 1))
  2022.        set RemoveList = >($(RemoveList), #(Files-RemoveList, RASGLOSSHLP, 1))
  2023.     endif
  2024.     ForListDo $(RemoveList)
  2025.         Debug-Output "Removing "$($)
  2026.         LibraryProcedure Status , $(!LIBHANDLE), DelFile $($)
  2027.         Debug-Output "Status is "$(Status)
  2028.     EndForListDo
  2029.     ForListDo $(RenameList)
  2030.         Split-String $($) "\" FilePath
  2031.         QueryListSize PathLen $(FilePath)
  2032.         Split-String *($(FilePath),$(PathLen)) "." FullFileName
  2033.         Set FileName = *($(FullFileName),1)
  2034.         Debug-Output "FileName is "$(FileName)
  2035.         LibraryProcedure STATUS, $(!LIBHANDLE),CheckFileExistance $(!STF_WINDOWSSYSPATH)"\DRIVERS\"$(FileName)".old"
  2036.         Debug-Output "CheckFile Status = "$(STATUS)
  2037.         ifstr(i) $(STATUS) == YES
  2038.             LibraryProcedure STATUS, $(!LIBHANDLE), DelFile $(!STF_WINDOWSSYSPATH)"\DRIVERS\"$(FileName)".old"
  2039.             Debug-Output "Delfile Status = "$(STATUS)
  2040.         endif
  2041.         Debug-Output "Renaming from "$($)
  2042.         Debug-Output "Renaming to "$(!STF_WINDOWSSYSPATH)"\DRIVERS\"$(FileName)".old"
  2043.         LibraryProcedure Status1 , $(!LIBHANDLE), RenFile $($), $(!STF_WINDOWSSYSPATH)"\DRIVERS\"$(FileName)".old"
  2044.         Debug-Output "Status is "$(Status1)
  2045.         AddFileToDeleteList $(!STF_WINDOWSSYSPATH)"\DRIVERS\"$(FileName)".old"
  2046.     EndForListDo
  2047.     exit
  2048. [InstallUpdate]
  2049.     set STF_VITAL = ""
  2050.     set STF_OVERWRITE   = "VERIFYSOURCEOLDER"
  2051.     Debug-Output  "In InstallUpdate "
  2052.     AddSectionFilesToCopyList Files-Inf $(SourceDir) $(!STF_WINDOWSSYSPATH)
  2053.     set !STF_NCPA_FLUSH_COPYLIST = TRUE
  2054.     ifstr(i) $(DoCopy) == "YES"
  2055.        CopyFilesInCopyList
  2056.     endif
  2057.     exit
  2058. [CreateRasGroup]
  2059.     CreateCommonProgManGroup $(RasGroup) ""
  2060.     ShowCommonProgManGroup $(RasGroup), 1
  2061.     ifstr(i) $(DoClient) == TRUE
  2062.         CreateCommonProgManItem $(RasGroup), $(RasPhone) +
  2063.                     $(!STF_WINDOWSSYSPATH)"\rasphone.exe" ""  0
  2064.         CreateCommonProgManItem $(RasGroup), $(RasMon) +
  2065.                     $(!STF_WINDOWSSYSPATH)"\rasmon.exe" ""  0
  2066.     endif
  2067.     ifstr(i) $(DoAdmin) == TRUE
  2068.         CreateCommonProgManItem $(RasGroup), $(RasAdmin) +
  2069.                     $(!STF_WINDOWSSYSPATH)"\rasadmin.exe" ""  0
  2070.     endif
  2071.     ifstr(i) $(ServerInstalled) == FALSE
  2072.        ifstr(i) $(ClientInstalled) == FALSE
  2073.           ifstr(i) $(AdminInstalled) == FALSE
  2074.               CreateCommonProgManItem $(RasGroup), $(ReadMe) +
  2075.                     $(!STF_WINDOWSSYSPATH)"\NOTEPAD.EXE "+
  2076.                     $(!STF_WINDOWSSYSPATH)"\RAS\RASREAD.TXT" +
  2077.                     "PROGMAN.EXE"  29
  2078.           endif
  2079.        endif
  2080.     endif
  2081.     ShowCommonProgManGroup $(RasGroup), 6
  2082.     exit
  2083. [RemoveRasGroup]
  2084.     Debug-Output "Removing icons from "$(RasGroup)
  2085.     CreateCommonProgManGroup $(RasGroup) ""
  2086.     RemoveCommonProgManGroup $(RasGroup)
  2087.     exit
  2088. [QueryComponentsInstalled]
  2089.     Set Status            =    STATUS_FAILED
  2090.     Set ValueName         =    ""
  2091.     Set InstalledList     =    {}
  2092.     Set InstalledFlags    =    {}
  2093.     Set TmpList           =    {}
  2094.     Set KeyNull           =    ""
  2095.     Set NumberOfComps     =    0
  2096.     Set RasKeyName        =    $($0)
  2097.     Debug-Output "QueryComponentsInstalled: "$(RasKeyName)
  2098.     OpenRegKey $(!REG_H_LOCAL) "" $(RasKeyName) $(!MAXIMUM_ALLOWED) KeyProduct
  2099.     Ifstr(i) $(KeyProduct) != $(KeyNull)
  2100.         GetRegValue    $(KeyProduct) "RasComponents" TmpList
  2101.         Debug-Output "QueryComponentsInstalled: "$(TmpList)
  2102.         ForListDo *($(TmpList),4)
  2103.             set InstalledList = >($(InstalledList), $($))
  2104.         EndForListDo
  2105.         CloseRegKey $(KeyProduct)
  2106.         Ifcontains(i) "Server" in $(InstalledList)
  2107.             Set InstalledFlags = >($(InstalledFlags), TRUE)
  2108.         else
  2109.             Set InstalledFlags = >($(InstalledFlags), FALSE)
  2110.         endif
  2111.         Ifcontains(i) "Client" in $(InstalledList)
  2112.             Set InstalledFlags = >($(InstalledFlags), TRUE)
  2113.         else
  2114.             Set InstalledFlags = >($(InstalledFlags), FALSE)
  2115.         endif
  2116.         Ifcontains(i) "Admin" in $(InstalledList)
  2117.             Set InstalledFlags = >($(InstalledFlags), TRUE)
  2118.         else
  2119.             Set InstalledFlags = >($(InstalledFlags), FALSE)
  2120.         endif
  2121.         QueryListSize NumberOfComps $(InstalledList)
  2122.         ifint $(NumberOfComps) == 1
  2123.             Ifcontains(i) "Server" in $(InstalledList)
  2124.                 Set InstalledFlags = >($(InstalledFlags), TRUE)
  2125.             else
  2126.                 Set InstalledFlags = >($(InstalledFlags), FALSE)
  2127.             endif
  2128.             Ifcontains(i) "Client" in $(InstalledList)
  2129.                 Set InstalledFlags = >($(InstalledFlags), TRUE)
  2130.             else
  2131.                 Set InstalledFlags = >($(InstalledFlags), FALSE)
  2132.             endif
  2133.             Ifcontains(i) "Admin" in $(InstalledList)
  2134.                 Set InstalledFlags = >($(InstalledFlags), TRUE)
  2135.             else
  2136.                 Set InstalledFlags = >($(InstalledFlags), FALSE)
  2137.             endif
  2138.         else
  2139.             Set InstalledFlags = >($(InstalledFlags), FALSE)
  2140.             Set InstalledFlags = >($(InstalledFlags), FALSE)
  2141.             Set InstalledFlags = >($(InstalledFlags), FALSE)
  2142.         endif
  2143.         Set Status = STATUS_SUCCESSFUL
  2144.     Else
  2145.        Set Status = STATUS_NOT_FOUND
  2146.     EndIf
  2147.     Debug-Output "QueryComponentsInstalled: "$(InstalledList)
  2148.     Return $(Status) $(InstalledList) $(InstalledFlags)
  2149. [UpdateComponentsInstalled]
  2150.     Set Status          =    STATUS_FAILED
  2151.     Set InstalledList   =    $($0)
  2152.     Set RasKeyName      =    $($1)
  2153.     Set KeyNull        =    ""
  2154.     Debug-Output "UpdateComponentsInstalled: "$(RasKeyName)
  2155.     OpenRegKey $(!REG_H_LOCAL) "" $(RasKeyName) $(!MAXIMUM_ALLOWED) KeyProduct
  2156.     Ifstr(i) $(KeyProduct) != $(KeyNull)
  2157.         SetRegValue $(KeyProduct) {RasComponents,$(NoTitle),$(!REG_VT_MULTI_SZ),$(InstalledList)}
  2158.         CloseRegKey $(KeyProduct)
  2159.         Set Status = STATUS_SUCCESSFUL
  2160.     else
  2161.         Set Status = STATUS_FAILED
  2162.     endif
  2163.     return $(Status)
  2164. [IsNetcardInstalled]
  2165.     Set Status                = STATUS_FAILED
  2166.     Set fNetcardInstalled     = FALSE
  2167.     Set KeyNull               = ""
  2168.     set NetworkCardKeyName    = $($0)
  2169.     set PORTSDLGHANDLE        = $($1)
  2170.     set ProductRASHUBDIALINName  = "RasHubDialin"
  2171.     set ProductRASHUBDIALOUTName = "RasHubDialout"
  2172.     set ProductRASASYMACName     = "AsyncMac"
  2173.     set NetworkCardKey = $(KeyNull)
  2174.     OpenRegKey $(!REG_H_LOCAL) "" $(NetworkCardKeyName) $(!MAXIMUM_ALLOWED) NetworkCardKey
  2175.     Ifstr(i) $(NetworkCardKey) != $(KeyNull)
  2176.         set NetcardsList = {}
  2177.         EnumRegKey $(NetworkCardKey) NetcardsList
  2178.         Ifint $(RegLastError) != $(!REG_ERROR_SUCCESS)
  2179.            Debug-Output "IsNetcardInstalled: EnumRegKey failed."
  2180.            goto IsNetcardInstalledEnd
  2181.         endif
  2182.         ForListDo $(NetcardsList)
  2183.            set KeyName = *($($),1)
  2184.            set Card = $(KeyNull)
  2185.            OpenRegKey $(NetworkCardKey) "" $(KeyName) $(!MAXIMUM_ALLOWED) Card
  2186.            ifstr $(Card) == $(KeyNull)
  2187.                Debug-Output "IsNetcardInstalled: could not open netcard key "$(KeyName)
  2188.            else
  2189.                GetRegValue $(Card), "ProductName" ProductNameInfo
  2190.                Ifint $(RegLastError) != $(!REG_ERROR_SUCCESS)
  2191.                   Debug-Output "IsNetcardInstalled: ProductName not found."
  2192.                else
  2193.                   set CardProductName = *($(ProductNameInfo), 4)
  2194.                   Debug-Output "IsNetcardInstalled: ProductName. "$(CardProductName)
  2195.                   ifstr(i) $(CardProductName) != $(ProductRASHUBDIALINName) 
  2196.                     ifstr(i) $(CardProductName) != $(ProductRASHUBDIALOUTName)
  2197.                       ifstr(i) $(CardProductName) != $(ProductRASASYMACName)
  2198.                         Debug-Output "found installed netcard"
  2199.                         set fNetcardInstalled = TRUE
  2200.                         set Status = STATUS_SUCCESSFUL
  2201.                         CloseRegKey $(Card)
  2202.                         goto IsNetcardInstalledEnd
  2203.                       endif
  2204.                     endif
  2205.                   endif
  2206.                endif
  2207.                CloseRegKey $(Card)
  2208.            endif
  2209.         EndForListDo
  2210.     else
  2211.         Debug-Output "IsNetcardInstalled: failed to open "$(NetworkCardKeyName)
  2212.     endif
  2213. IsNetcardInstalledEnd =+
  2214.     ifstr(i) $(NetworkCardKey) != $(KeyNull)
  2215.         CloseRegKey $(NetworkCardKey)
  2216.     endif
  2217.     Return $(Status) $(fNetcardInstalled)
  2218. [IsNetworkConfigured]
  2219.     set NbfKeyName     = $(!NTN_ServiceBase)"\Nbf"
  2220.     set NetbiosKeyName = $(!NTN_ServiceBase)"\Netbios"
  2221.     set WkstaKeyName   = $(!NTN_ServiceBase)"\LanmanWorkstation"
  2222.     Set KeyNull        =    ""
  2223.     Set status = STATUS_FAILED
  2224.     Set NbfConfigured     = FALSE
  2225.     Set NetbiosConfigured = FALSE
  2226.     Set WkstaConfigured   = FALSE
  2227.     Debug-Output "IsNetworkConfigured NbfKeyName "$(NbfKeyName)
  2228.     set KeyProduct = $(KeyNull)
  2229.     OpenRegKey $(!REG_H_LOCAL) "" $(NbfKeyName) $(!MAXIMUM_ALLOWED) KeyProduct
  2230.     Ifstr(i) $(KeyProduct) != $(KeyNull)
  2231.         CloseRegKey $(KeyProduct)
  2232.         set NbfConfigured = TRUE
  2233.     endif
  2234.     Debug-Output "IsNetworkConfigured NetbiosKeyName "$(NetbiosKeyName)
  2235.     set KeyProduct = $(KeyNull)
  2236.     OpenRegKey $(!REG_H_LOCAL) "" $(NetbiosKeyName) $(!MAXIMUM_ALLOWED) KeyProduct
  2237.     Ifstr(i) $(KeyProduct) != $(KeyNull)
  2238.         CloseRegKey $(KeyProduct)
  2239.         set NetbiosConfigured = TRUE
  2240.     endif
  2241.     Debug-Output "IsNetworkConfigured WkstaKeyName "$(WkstaKeyName)
  2242.     set KeyProduct = $(KeyNull)
  2243.     OpenRegKey $(!REG_H_LOCAL) "" $(WkstaKeyName) $(!MAXIMUM_ALLOWED) KeyProduct
  2244.     Ifstr(i) $(KeyProduct) != $(KeyNull)
  2245.         CloseRegKey $(KeyProduct)
  2246.         set WkstaConfigured = TRUE
  2247.     endif
  2248.     Debug-Output "IsNetworkConfigured ServerKeyName "$(ServerKeyName)
  2249.     set KeyProduct = $(KeyNull)
  2250.     set status = STATUS_SUCCESSFUL
  2251.     Debug-Output "IsNetworkConfigured exit"
  2252.     Return $(status) $(NbfConfigured) $(NetbiosConfigured) $(WkstaConfigured)
  2253. [QueryUserQuit]
  2254.     set Status     = STATUS_FAILED
  2255.     set UserAction = CANCEL
  2256.     set STF_MB_TEXT  = "The changes will not be saved. "+
  2257.                        "Are you sure you want to exit Setup."
  2258.     read-syms ExitWarningDlg$(!STF_LANGUAGE)
  2259.     ui start "ExitWarning"
  2260.     ifstr(i) $(DLGEVENT) == "YES"
  2261.         set Status     = STATUS_SUCCESSFUL
  2262.         set UserAction = "OK"
  2263.     else-ifstr(i) $(DLGEVENT) == "NO"
  2264.         set Status     = STATUS_SUCCESSFUL
  2265.         set UserAction = "CANCEL"
  2266.     else
  2267.     endif
  2268. fin_QueryUserQuit = +
  2269.     Return $(Status) $(UserAction)
  2270. [QueryRasUpgrade]
  2271.     set Status     = STATUS_FAILED
  2272.     set UserAction = CANCEL
  2273.     read-syms RasUpgrade$(!STF_LANGUAGE)
  2274.     set Text = $($0)$(Ver)$($1)$(Text1)$(Ver)$($2)$(Text2)$(Text3)
  2275.     set STF_MB_TEXT  = $(Text)
  2276.     read-syms ExitWarningDlg$(!STF_LANGUAGE)
  2277.     ui start "RasUpgrade"
  2278.     ifstr(i) $(DLGEVENT) == "YES"
  2279.         set Status     = STATUS_SUCCESSFUL
  2280.         set UserAction = "OK"
  2281.     else-ifstr(i) $(DLGEVENT) == "NO"
  2282.         set Status     = STATUS_SUCCESSFUL
  2283.         set UserAction = "CANCEL"
  2284.     else
  2285.     endif
  2286. fin_QueryRasUpgrade = +
  2287.     Return $(Status) $(UserAction)
  2288. [Files-RemoveList]
  2289. RASADMINDLL    = $(!STF_WINDOWSSYSPATH)\RASADMIN.DLL
  2290. RASGTWYDLL     = $(!STF_WINDOWSSYSPATH)\RASGTWY.DLL
  2291. RASSRVEXE      = $(!STF_WINDOWSSYSPATH)\RASSRV.EXE
  2292. RASSAUTHDLL    = $(!STF_WINDOWSSYSPATH)\RASSAUTH.DLL
  2293. RASDIALEXE     = $(!STF_WINDOWSSYSPATH)\RASDIAL.EXE
  2294. RASPHONEHLP    = $(!STF_WINDOWSSYSPATH)\RASPHONE.HLP
  2295. RASGLOSSHLP    = $(!STF_WINDOWSSYSPATH)\RASGLOSS.HLP
  2296. RASAPI32DLL    = $(!STF_WINDOWSSYSPATH)\RASAPI32.DLL
  2297. RASCAUTHDLL    = $(!STF_WINDOWSSYSPATH)\RASCAUTH.DLL
  2298. RASADMINHLP    = $(!STF_WINDOWSSYSPATH)\RASADMIN.HLP
  2299. RASMANDLL      = $(!STF_WINDOWSSYSPATH)\RASMAN.DLL
  2300. RASMANEXE      = $(!STF_WINDOWSSYSPATH)\RASMAN.EXE
  2301. RASMSGDLL      = $(!STF_WINDOWSSYSPATH)\RASMSG.DLL
  2302. RASMXSDLL      = $(!STF_WINDOWSSYSPATH)\RASMXS.DLL
  2303. RASSERDLL      = $(!STF_WINDOWSSYSPATH)\RASSER.DLL
  2304. ASYNCMACSYS    = $(!STF_WINDOWSSYSPATH)\DRIVERS\ASYNCMAC.SYS
  2305. RASHUBSYS      = $(!STF_WINDOWSSYSPATH)\DRIVERS\RASHUB.SYS
  2306. [Files-Inf]
  2307. 2, oemsetup.inf, SIZE=1000, RENAME=$(!UG_Filename)
  2308. [Source Media Descriptions]
  2309.     1    = "Windows NT Advanced Server Setup Disk #1"   , TAGFILE = disk1
  2310.     2    = "Windows NT Advanced Server Setup Disk #2"   , TAGFILE = disk2
  2311.     3    = "Windows NT Advanced Server Setup Disk #3"   , TAGFILE = disk3
  2312.     4    = "Windows NT Advanced Server Setup Disk #4"   , TAGFILE = disk4
  2313.     5    = "Windows NT Advanced Server Setup Disk #5"   , TAGFILE = disk5
  2314.     6    = "Windows NT Advanced Server Setup Disk #6"   , TAGFILE = disk6
  2315.     7    = "Windows NT Advanced Server Setup Disk #7"   , TAGFILE = disk7
  2316.     8    = "Windows NT Advanced Server Setup Disk #8"   , TAGFILE = disk8
  2317.     9    = "Windows NT Advanced Server Setup Disk #9"   , TAGFILE = disk9
  2318.     10    = "Windows NT Advanced Server Setup Disk #10"  , TAGFILE = disk10
  2319.     11    = "Windows NT Advanced Server Setup Disk #11"  , TAGFILE = disk11
  2320.     12    = "Windows NT Advanced Server Setup Disk #12"  , TAGFILE = disk12
  2321.     13    = "Windows NT Advanced Server Setup Disk #13"  , TAGFILE = disk13
  2322.     14    = "Windows NT Advanced Server Setup Disk #14"  , TAGFILE = disk14
  2323.     15    = "Windows NT Advanced Server Setup Disk #15"  , TAGFILE = disk15
  2324.     16    = "Windows NT Advanced Server Setup Disk #16"  , TAGFILE = disk16
  2325.     17    = "Windows NT Advanced Server Setup Disk #17"  , TAGFILE = disk17
  2326.     18    = "Windows NT Advanced Server Setup Disk #18"  , TAGFILE = disk18
  2327.     19    = "Windows NT Advanced Server Setup Disk #19"  , TAGFILE = disk19
  2328.     20    = "Windows NT Advanced Server Setup Disk #20"  , TAGFILE = disk20
  2329.     21    = "Windows NT Advanced Server Setup Disk #21"  , TAGFILE = disk21
  2330.     22    = "Windows NT Advanced Server Setup Disk #22"  , TAGFILE = disk22
  2331.     23    = "Windows NT Advanced Server Setup Disk #23"  , TAGFILE = disk23
  2332.     24    = "Windows NT Advanced Server Setup Disk #24"  , TAGFILE = disk24
  2333.     25    = "Windows NT Advanced Server Setup Disk #25"  , TAGFILE = disk25
  2334.     26    = "Windows NT Advanced Server Setup Disk #26"  , TAGFILE = disk26
  2335.     27    = "Windows NT Advanced Server Setup Disk #27"  , TAGFILE = disk27
  2336.     28    = "Windows NT Advanced Server Setup Disk #28"  , TAGFILE = disk28
  2337.     29    = "Windows NT Advanced Server Setup Disk #29"  , TAGFILE = disk29
  2338. [ProductType]
  2339. STF_PRODUCT  = LanmanNT
  2340. STF_PLATFORM = I386
  2341. [Files-Ras-Admin]
  2342. 3,RASADMIN.EXE , SIZE=273408 , NODELETESOURCE
  2343. 10,RASADMIN.HLP , SIZE=132096
  2344. [Files-Ras-Client]
  2345. 10,RASAPI32.DLL , SIZE=49664
  2346. 10,RASCAUTH.DLL , SIZE=30208
  2347. 5,RASPHONE.EXE , SIZE=204800 , NODELETESOURCE
  2348. 10,RASDIAL.EXE , SIZE=18432
  2349. 7,RASMON.EXE , SIZE=61440
  2350. 10,RASGLOSS.HLP , SIZE=27648
  2351. 10,RASPHONE.HLP , SIZE=191488
  2352. [Files-Ras-Common]
  2353. 10,RASMAN.DLL , SIZE=43008
  2354. 10,RASMSG.DLL , SIZE=16384
  2355. 10,RASMXS.DLL , SIZE=36864
  2356. 10,RASSER.DLL , SIZE=23552
  2357. 10,RASMAN.EXE , SIZE=15360
  2358. [Files-Ras-Drivers]
  2359. 10,ASYNCMAC.SYS , SIZE=53248
  2360. 10,RASHUB.SYS , SIZE=38912
  2361. [Files-Ras-Inf]
  2362. 7,MODEM.INF , SIZE=80896 , NODELETESOURCE
  2363. 9,PAD.INF , SIZE=6144 , NODELETESOURCE
  2364. 5,SWITCH.INF , SIZE=512 , NODELETESOURCE
  2365. 8,RASREAD.TXT , SIZE=12288 , NODELETESOURCE
  2366. [Files-Ras-Server]
  2367. 10,RASADMIN.DLL , SIZE=22016
  2368. 10,RASGTWY.DLL , SIZE=53248
  2369. 10,RASSAUTH.DLL , SIZE=56832
  2370. 10,RASSRV.EXE , SIZE=35328
  2371. [Files-Resource]
  2372. 7,RASCFG.DLL , SIZE=81920 , NODELETESOURCE
  2373. 8,RASFIL32.DLL , SIZE=15872 , NODELETESOURCE
  2374. 9,RASRES.DLL , SIZE=11264 , NODELETESOURCE
  2375. 8,RASSETUP.HLP , SIZE=16384 , NODELETESOURCE
  2376. [LanguagesSupported]
  2377.     ENG
  2378. [OptionsTextENG]
  2379.     RAS = "Remote Access Service"
  2380. [FileConstantsENG]
  2381.     RasGroup    = "Remote Access Service"
  2382.     RasPhone    = "Remote Access"
  2383.     RasMon      = "Remote Access Monitor"
  2384.     RasAdmin    = "Remote Access Admin"
  2385.     ReadMe      = "Read Me"
  2386.     ProCaption   = "Remote Access Service Setup"
  2387.     ProCancel    = "Cance&l"
  2388.     ProCancelMsg = "Remote Access Service is not correctly installed. "+
  2389.                    "Are you sure you want to cancel copying files?"
  2390.     ProCancelCap = "Remote Access Service Setup Message"
  2391.     ProText1     = "Copying:"
  2392.     ProText2     = "To:"
  2393.     Error        = "Unable to determine proper source disk location; copy cannot be performed."
  2394.     FunctionTitle   ="Remote Access Setup"
  2395.     ProductRASDescription       = "Remote Access Service"
  2396.     ProductRASSVRDescription    = "Windows NT RAS NetBios Gateway"
  2397.     ProductRASMANDescription    = "Windows NT RAS API Layer"
  2398.     ProductRASHUBDescription    = "Windows NT RAS Hub"
  2399.     ProductRASASYMACDescription = "Windows NT RAS AsyMac Adapter Driver"
  2400.     ProductRASTitle             = "Remote Access Service"
  2401.     ProductRASDisplayName       = "Remote Access Service"
  2402.     ProductRASSVRTitle          = "Remote Access Server Service"
  2403.     ProductRASSVRDisplayName    = "Remote Access Server"
  2404.     ProductRASMANTitle          = "Remote Access Service"
  2405.     ProductRASMANDisplayName    = "Remote Access Connection Manager"
  2406.     ProductRASHUBTitle          = "Remote Access Hub"
  2407.     ProductRASHUBDisplayName    = "Remote Access Hub"
  2408.     ProductRASASYMACTitle       = "Remote Access Mac"
  2409.     ProductRASASYMACDisplayName = "Remote Access Mac"
  2410. [DialogConstantsENG]
  2411.     Help        = "&Help"
  2412.     Exit        = "E&xit"
  2413.     OK          = "OK"
  2414.     HelpContext = ""
  2415.     Continue    = "C&ontinue"
  2416.     Cancel      = "C&ancel"
  2417. [ExitWarningDlgENG]
  2418.     DlgType      = "MessageBox"
  2419.     STF_MB_TITLE = "Remote Access Service Setup"
  2420.     STF_MB_TYPE  = 3
  2421.     STF_MB_ICON  = 5
  2422.     STF_MB_DEF   = 2
  2423. [SetupAbortDlgENG]
  2424.     DlgType     = "Info"
  2425.     DlgTemplate = "RESTART"
  2426.     Caption     = "Remote Access Service Setup"
  2427.     DlgText     = "Setup for Remote Access Service failed."$(LF)$(LF)+
  2428.                   "Please choose Exit to exit back to the Windows NT System."
  2429.     Windows     = "E&xit to &Windows NT"
  2430. [RasInstallOverDlgENG]
  2431.     DlgType      = "Info"
  2432.     DlgTemplate  = "RASINSTALLED_1"
  2433.     Caption      = "Remote Access Service Setup"
  2434.     Help         = "&Help"
  2435.     Exit         = "OK"
  2436.     HelpContext  = #( HelpContextIDs, HC_INSTALLOVER1, 1 )
  2437. [RasInstallOverDlg2ENG]
  2438.     DlgType      = "Info"
  2439.     DlgTemplate  = "RASINSTALLED_2"
  2440.     Caption      = "Remote Access Service Setup"
  2441.     Help         = "&Help"
  2442.     Exit         = "OK"
  2443.     HelpContext  = #( HelpContextIDs, HC_INSTALLOVER2, 1 )
  2444. [AbortMessageENG]
  2445.   AbortText  =  "Aborting Remote Access Setup. Please restart the system "+
  2446.                 "to fix the problem."
  2447. [ShellCodeErrorMsgENG]
  2448.     DlgType      = "MessageBox"
  2449.     STF_MB_TITLE = "Error: "$(FunctionTitle)
  2450.     STF_MB_TEXT  = "An error occured running the shell command. Please "+
  2451.                    "restart the system to fix the problem."
  2452.     STF_MB_TYPE  = 1
  2453.     STF_MB_ICON  = 3
  2454.     STF_MB_DEF   = 1
  2455. [SuccessfulInstallENG]
  2456.   Success  = "Remote Access Service has been installed successfully."
  2457.   AdminMsg = "Please use the Remote Access Admin program to assign Remote "+
  2458.              "Access permissions to users. "+
  2459.              "Start Remote Access Admin from the Program Manager by "+
  2460.              "double-clicking the Remote Access Admin icon in the "+
  2461.              "Remote Access Service program group."
  2462. [MsgDlgENG]
  2463.     DlgType      = "MessageBox"
  2464.     STF_MB_TYPE  = 1
  2465.     STF_MB_ICON  = 2
  2466.     STF_MB_DEF   = 2
  2467. [StatusUpdatingRegistryENG]
  2468.     CreatingRas        = "Please wait while Remote Access is installed..."
  2469.     WritingRasParams   = "Writing Remote Access parameters..."
  2470.     RemovingRas        = "Removing Remote Access Service..."
  2471.     RemovingResources  = "Removing Remote Access resource files..."
  2472. [StatusDeterminingConfigENG]
  2473.     ReadingConfig      = "Determining current configuration ..."
  2474. [StatusCopyingResENG]
  2475.     Status = "Copying DLLs and INF files to disk ..."
  2476. [NonFatalError1ENG]
  2477.     NonFatal  = "Setup cannot function properly without a user name."
  2478. [FatalErrorMemENG]
  2479.     Fatal  = "Not enough memory is available. RAS requires atleast 2 Meg."
  2480. [NoConfigAdminENG]
  2481.     NoConfigAdmin = "The only component installed currently is RasAdmin which "+
  2482.                     "cannot be configured."
  2483. [VerExistsENG]
  2484.     Ver   = " ver "
  2485.     Text1 = " already exists on the system. Please use"+
  2486.             " [Update] option from the Network Control Panel"+
  2487.             " aplet to Update RAS."
  2488. [NetworkConfigErrorENG]
  2489.     Text1 = "Setup encountered an error while determining the "+
  2490.             "network configuration.  Please make sure that "+
  2491.             "the network is properly configured before attempting "+
  2492.             "to install Remote Access Service."
  2493.     Text2 = "The NT network software must be installed before "+
  2494.             "installing Remote Access."$(!LF)$(!LF)+
  2495.             "To install the NT network software:"$(!LF)$(!LF)+
  2496.             "1. Exit to Control Panel and restart the 'Network' control "+
  2497.             "panel applet."$(!LF)+
  2498.             "2. Answer 'Yes' at the 'install network' prompt."$(!LF)+
  2499.             "3. If no network card is installed, choose <None> from "+
  2500.             "the network card list."
  2501. [RasUpgradeENG]
  2502.     Ver = " ver "
  2503.     Text1 = " exists on the system. Are you sure you want to upgrade to"
  2504.     Text2 = "?. "
  2505.     Text3 = "Selecting YES will result in the new version replacing the old."
  2506.  
  2507.  
  2508.  
  2509.