home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1996 February / VPR9602A.ISO / i386 / oemnxptc.in_ / oemnxptc.inf
INI File  |  1995-10-25  |  76KB  |  1,596 lines
  1. [Identification]
  2.     OptionType = NetTransport
  3. [Options]
  4.     TC
  5. [FileConstants]
  6. Manufacturer    = "Microsoft"
  7. ProductMajorVersion     = "3"
  8. ProductMinorVersion     = "51"
  9. ProductVersion  = $(ProductMajorVersion)"."$(ProductMinorVersion)
  10. NetBTEventDLL   = "%SystemRoot%\System32\netevent.dll"
  11. NetEventDLL     = "%SystemRoot%\System32\netevent.dll"
  12. IoLogMsgDLL     = "%SystemRoot%\System32\IoLogMsg.dll"
  13. Sockmaxlength           = 16
  14. Sockminlength           = 16
  15. ProductDHCPName          = "DHCP"
  16. ProductDHCPImagePath     = "%SystemRoot%\System32\services.exe"
  17. ProductDHCPSvcType       = "autoserviceshare"
  18. ProductNETBTName          = "NetBT"
  19. ProductNETBTImagePath     = "%SystemRoot%\System32\drivers\netbt.sys"
  20. ProductNETBTSvcType       = "kernel"
  21. NetRuleNETBTType          = "netbt netBiosTransport netbtTransport"
  22. NetRuleNETBTClass         = {"netbtTransport netBiosTransport"}
  23. NetRuleNETBTUse           = $(SoftwareType)" yes yes"
  24. NetRuleNETBTBindForm      = """NetBT"" yes yes simple"
  25. ProductLMHOSTSName      = "LmHosts"
  26. ProductLMHOSTSImagePath  = "%SystemRoot%\System32\services.exe"
  27. ProductTCName      = "Tcpip"
  28. ProviderName       = $(ProductTCName)
  29. ProductProviderImagePath = "%SystemRoot%\System32\wsock32.dll"
  30. ProductTCImagePath  = "\SystemRoot\System32\drivers\tcpip.sys"
  31. ProductTCWshDllPath  = "%SystemRoot%\System32\wshtcpip.dll"
  32. ProductTCSvcType     = "kernel"
  33. NetRuleTCType        = "tcpip tcpipTransport"
  34. NetRuleTCUse         = $(SoftwareType)" yes yes"
  35. NetRuleTCBindForm    = """Tcpip"" yes yes container"
  36. NetRuleTCBindable    = {"tcpipService tcpipTransport non exclusive 100","tcpipTransport ndisDriver non non 100"}
  37. NetRuleTCClass       = {"tcpipTransport basic","tcpipService basic yes"}
  38. ProductKeyName  = $(!NTN_SoftwareBase)"\"$(Manufacturer)"\"$(Product$(Option)Name)"\CurrentVersion"
  39. OldProductKeyName  = $(!NTN_ServiceBase)"\Tcpip\Parameters"
  40. LinkageKeyName  = $(!NTN_ServiceBase)"\Tcpip\Linkage"
  41. ParametersKeyName  = $(!NTN_ServiceBase)"\Tcpip\Parameters"
  42. ServiceTCKeyName = $(!NTN_ServiceBase)"\Tcpip"
  43. ServiceKeyName  = $(!NTN_ServiceBase)
  44. NetBTLinkageKeyName  = $(!NTN_ServiceBase)"\NetBT\Linkage"
  45. AdaptersKeyName  = $(!NTN_ServiceBase)"\NetBT\Adapters"
  46. PerformanceName  = $(!NTN_ServiceBase)"\NetBT\Performance"
  47. NetBTParamKeyName  = $(!NTN_ServiceBase)"\NetBT\Parameters"
  48. DosDevices      = "SYSTEM\CurrentControlSet\Control\Session Manager\DOS Devices"
  49. [GeneralConstants]
  50. UtilityInf       = "UTILITY.INF"
  51. subroutineinf    = "SUBROUTN.INF"
  52. IPINFOINF        = "ipinfo.inf"
  53. SoftwareType     = "transport"
  54. Exit_Code        = 0
  55. BillboardVisible = 0
  56. from      = ""
  57. to        = ""
  58. ExitCodeOk     = 0
  59. ExitCodeCancel = 1
  60. ExitCodeFatal  = 2
  61. KeyNull         = ""
  62. MAXIMUM_ALLOWED   = 33554432
  63. SERVICE_NO_CHANGE = 4294967295
  64. RegistryErrorIndex = NO_ERROR
  65. KeyProduct      = ""
  66. KeyParameters   = ""
  67. TRUE            = 1
  68. FALSE           = 0
  69. NoTitle         = 0
  70. ExitState   = "Active"
  71. OldVersionExisted = $(FALSE)
  72. DriverPath      = $(!STF_NTPATH)\drivers
  73. [date]
  74.     Now = {} ? $(!LIBHANDLE) GetSystemDate
  75. [Identify]
  76.     read-syms Identification
  77.     set Status     = STATUS_SUCCESSFUL
  78.     set Identifier = $(OptionType)
  79.     set Media      = #("Source Media Descriptions", 1, 1)
  80.     Return $(Status) $(Identifier) $(Media)
  81. [ReturnOptions]
  82.     set Status        = STATUS_FAILED
  83.     set OptionList     = {}
  84.     set OptionTextList = {}
  85.     set LanguageList = ^(LanguagesSupported, 1)
  86.     Ifcontains(i) $($0) in $(LanguageList)
  87.         goto returnoptions
  88.     else
  89.         set Status = STATUS_NOLANGUAGE
  90.         goto finish_ReturnOptions
  91.     endif
  92. returnoptions = +
  93.     set OptionList     = ^(Options, 1)
  94.     set OptionTextList = ^(OptionsText$($0), 1)
  95.     set Status         = STATUS_SUCCESSFUL
  96. finish_ReturnOptions = +
  97.     Return $(Status) $(OptionList) $(OptionTextList)
  98. [InstallOption]
  99.     set Option   = $($1)
  100.     set SrcDir   = $($2)
  101.     set AddCopy  = $($3)
  102.     set DoCopy   = $($4)
  103.     set DoConfig = $($5)
  104.     set InstallFromRas = $($6)
  105.     set EnableDHCPFlag = $($7)
  106.     set InstallList = $($8)
  107.     ifstr(i) $(!STF_GUI_UNATTENDED) == YES
  108.         set EnableDHCPFlag = 1
  109.     endif
  110.     ifstr(i) $(EnableDHCPFlag) == ""
  111.         set EnableDHCPFlag = 0
  112.     endif
  113.     ifstr(i) $(InstallList) == ""
  114.         set InstallList = {"1","1","0","0","0","0","0","0"}
  115.     endif
  116.     set LanguageList = ^(LanguagesSupported, 1)
  117.     Ifcontains(i) $($0) NOT-IN $(LanguageList)
  118.         Return STATUS_NOLANGUAGE
  119.     endif
  120.     Debug-Output "OEMNXPTC.INF: STF_CWDIR is: "$(!STF_CWDIR)
  121.     Debug-Output "OEMNXPTC.INF: STF_LANGUAGE is: "$(!STF_LANGUAGE)
  122.     set-subst LF = "\n"
  123.     read-syms GeneralConstants
  124.     read-syms FileConstants
  125.     read-syms DialogConstants$(!STF_LANGUAGE)
  126.     LoadLibrary "x" $(!STF_CWDDIR)\tcpcfg.dll !TCPCFG_HANDLE
  127.     ifstr(i) $(!NTN_Origination) == "NCPA"
  128.         set Continue = $(OK)
  129.     endif
  130.     read-syms FileConstants$(!STF_LANGUAGE)
  131.     detect date
  132.     set-title  $(FunctionTitle)
  133.     set to   = Begin
  134.     set from = Begin
  135.     set CommonStatus = STATUS_SUCCESSFUL
  136.     EndWait
  137. Begin = +
  138.     Ifstr(i) $(!NTN_InstallMode) == deinstall
  139.         set StartLabel = removeadapter
  140.         set OEM_ABANDON_OPTIONS = {+
  141.             $(ProductDHCPName),+
  142.             $(ProductLMHOSTSName)}
  143.         set OEM_ABANDON_SOFTWARE = {+
  144.             $(ProductTCName),+
  145.             $(ProductNETBTName)}
  146.     else-Ifstr(i) $(!NTN_InstallMode) == Update
  147.         set StartLabel = UpgradeSoftware
  148.     else-Ifstr(i) $(!NTN_InstallMode) == configure
  149.         set IPAddressList  = {}
  150.         set SubnetMaskList = {}
  151.         set StartLabel = configureadapter
  152.     else-Ifstr(i) $(!NTN_InstallMode) == bind
  153.         set StartLabel = bindingadapter
  154.     else
  155.         set StartLabel = installadapter
  156.         set OEM_ABANDON_SOFTWARE = {}
  157.         set OEM_ABANDON_OPTIONS = {}
  158.     endif
  159.     set from = $(fatal)
  160.     set to = $(fatal)
  161.     goto $(StartLabel)
  162. installadapter = +
  163.     Shell "" GetFilesSize
  164.     set SizeList = $($R0)
  165.     ifstr(i) $(!STF_PRODUCT) == "WINNT"
  166.         set OptionFileList = { "oemnsvcu.inf", "oemnxpsn.inf", "oemnsvtp.inf", "oemnsvft.inf", "oemnsvsp.inf"}
  167.         set TcpOptionList  = { "TCPIPCU", "SNMP", "TCPPRINT", "FTPD", "STCPIP"}
  168.         set ProductType = 1 
  169.     else
  170.         set OptionFileList = { "oemnsvcu.inf", "oemnxpsn.inf", "oemnsvtp.inf", "oemnsvft.inf", "oemnsvsp.inf", "oemnsvdh.inf", "oemnsvwi.inf"}
  171.         set TcpOptionList  = { "TCPIPCU", "SNMP", "TCPPRINT", "FTPD", "STCPIP","DHCP", "WINS"}
  172.         set ProductType = 0 
  173.     endif
  174.     ForListDo $(OptionFileList)
  175.         Shell $($) GetFilesSize
  176.         ifstr(i) $($R0) == ""
  177.             set Size = "0"
  178.         else
  179.             set Size = $($R0)
  180.         endif
  181.         set SizeList = $(SizeList)"@"$(Size)
  182.     EndForListDo
  183.     set ErrorCode = "0"
  184.     set fCancel = 1
  185.     set AllInstalledFlag = "0"
  186.     Ifstr(i) $(!STF_INSTALL_MODE) == EXPRESS
  187.     else-Ifstr(i) $(!STF_GUI_UNATTENDED) == YES
  188.     else
  189.         LibraryProcedure ResultList $(!TCPCFG_HANDLE), TcpipOptionDialog $(!STF_HWND),+
  190.                   $(ProductType), $(SizeList), 255, 3
  191.         set ErrorCode = *($(ResultList),1)
  192.         set fCancel = *($(ResultList),2)
  193.         set AllInstalledFlag = *($(ResultList),3)
  194.         set EnableDHCPFlag = *($(ResultList),4)
  195.         set InstallList = *($(ResultList),5)
  196.     endif
  197.     ifstr(i) $(ErrorCode) != "0"
  198.         goto ShellCodeError
  199.     endif
  200.     ifint $(fCancel) == 0
  201.         set CommonStatus = STATUS_USERCANCEL
  202.         goto end
  203.     endif
  204.     ifstr(i) $(AllInstalledFlag) == "1"
  205.         Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), "NONFATAL", $(NoNewComponents)
  206.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  207.             goto ShellCodeError
  208.         endif
  209.         goto end
  210.     EndIf
  211.     Ifcontains(i) "1" in $(InstallList)
  212.         ifstr(i) $(!NTN_InstallMode) == "install"
  213.             Ifstr(i) $(DoCopy) == "YES"
  214.                Shell $(UtilityInf), DoAskSource, $(!STF_CWDDIR), $(SrcDir) YES
  215.                Ifint $($ShellCode) != $(!SHELL_CODE_OK)
  216.                    Goto ShellCodeError
  217.                Else-Ifstr(i) $($R0) == STATUS_FAILED
  218.                    Shell $(UtilityInf) RegistryErrorString "ASK_SOURCE_FAIL"
  219.                    ifint $($ShellCode) != $(!SHELL_CODE_OK)
  220.                        goto ShellCodeError
  221.                    endif
  222.                    set Error = $($R0)
  223.                    Goto fatal
  224.                Else-Ifstr(i) $($R0) == STATUS_USERCANCEL
  225.                    Goto successful
  226.                Endif
  227.                Set SrcDir = $($R1)
  228.             Endif
  229.         EndIf
  230.     Endif
  231.     ifint *($(InstallList),1) != 1
  232.         goto InstallOtherComponent
  233.     endif
  234.     ifstr(i) $(!NTN_InstallMode) == "install"
  235.         Debug-Output "OEMNXPTC.INF: installadapter: installing [Install-Option]"
  236.         install "Install-Option"
  237.         ifstr(i) $(STF_INSTALL_OUTCOME) != STF_SUCCESS
  238.            Shell $(UtilityInf) RegistryErrorString "UNABLE_COPY_FILE"
  239.            ifint $($ShellCode) != $(!SHELL_CODE_OK)
  240.                goto ShellCodeError
  241.            endif
  242.            set Error = $($R0)
  243.            goto fatal
  244.         endif
  245.     endif
  246.     set OEM_ABANDON_ON  = TRUE
  247.     read-syms Billboard1$(!STF_LANGUAGE)
  248.     Shell "subroutn.inf" PushBillboard NETSTATUSDLG $(Status)
  249.     Set BillboardVisible = 1
  250.     set DoTC        = FALSE
  251.     Set DoLMHOSTS   = FALSE
  252.     Set DoNbt       = FALSE
  253.     Set DoAFD       = FALSE
  254.     Set DoDHCP      = FALSE
  255.     Ifstr(i) $(Option) == TC
  256.         set DoTC       = TRUE
  257.         Set DoLMHOSTS  = TRUE
  258.         Set DoNbt      = TRUE
  259.         Set DoAFD      = TRUE
  260.         Set DoDHCP      = TRUE
  261.     Else
  262.         Debug-Output "OEMNXPTC.INF: Unrecognized option"
  263.     Endif
  264.     StartWait
  265.     Ifstr(i) $(DoLMHOSTS) == TRUE
  266.         Debug-Output "OEMNXPTC.INF: Install LmHosts registry"
  267.         Set OEM_ABANDON_OPTIONS = >($(OEM_ABANDON_OPTIONS), $(ProductLMHOSTSName))
  268.         Shell $(UtilityInf), CreateService, $(ProductLMHOSTSName), +
  269.             $(ProductLMHOSTSDisplayName), $(ProductLMHOSTSImagePath), +
  270.             "autoserviceshare", "", {"+NetworkProvider"}, "LocalSystem",+
  271.             $(NetEventDLL)
  272.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  273.             Debug-Output "OEMNXPTC.INF: ShellCode error"
  274.             goto ShellCodeError
  275.         endif
  276.         set RegistryErrorIndex = $($R0)
  277.         CloseRegKey $($R1)
  278.         CloseRegKey $($R2)
  279.         CloseRegKey $($R3)
  280.         Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
  281.             EndWait
  282.             Debug-Output "OEMNXPTC.INF: Registry error: add software components"
  283.             goto fatalregistry
  284.         endif
  285.     endif
  286.     ifstr(i) $(DoDHCP) == TRUE
  287.         Set ThisOption = DHCP
  288.         Set OEM_ABANDON_OPTIONS = >($(OEM_ABANDON_OPTIONS), $(Product$(ThisOption)Name))
  289.         Debug-Output "OEMNXPTC.INF: installing DHCP..."
  290.         ifint $(EnableDHCPFlag) == 0
  291.             set ProductDHCPSvcType = serviceshare
  292.         endif
  293.         Shell $(UtilityInf), CreateService, $(Product$(ThisOption)Name),+
  294.             $(Product$(ThisOption)DisplayName),+
  295.             $(Product$(ThisOption)ImagePath),+
  296.             $(Product$(ThisOption)SvcType), "TDI", {"Tcpip","Afd","NetBT"}, "",+
  297.             "%SystemRoot%\System32\dhcpcsvc.dll", 7, "", "", "",+
  298.             "%SystemRoot%\System32\kernel32.dll"
  299.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  300.             Debug-Output "OEMNXPTC.INF: ShellCode error"
  301.             goto ShellCodeError
  302.         endif
  303.         set RegistryErrorIndex = $($R0)
  304.         Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
  305.             EndWait
  306.             Debug-Output "OEMNXPTC.INF: Registry error: Create Service components"
  307.             CloseRegKey $($R1)
  308.             CloseRegKey $($R2)
  309.             CloseRegKey $($R3)
  310.             goto fatalregistry
  311.         endif
  312.         CloseRegKey $($R1)
  313.         Set DhcpParameterKey = $($R2)
  314.         CloseRegKey $($R3)
  315.         CreateRegKey $(DhcpParameterKey) {"Options",$(NoTitle),GenericClass} "" $(MAXIMUM_ALLOWED) "" KeyOptions
  316.         CreateRegKey $(KeyOptions) {"1",$(NoTitle),GenericClass} "" $(MAXIMUM_ALLOWED) "" Key1
  317.         Shell $(UtilityInf) AddValueList, $(Key1),+
  318.             {{"RegLocation", $(NoTitle), $(!REG_VT_SZ), "System\CurrentControlSet\Services\?\Parameters\Tcpip\DhcpSubnetMaskOpt"},+
  319.             {"KeyType", $(NoTitle), $(!REG_VT_DWORD), $(!REG_VT_MULTI_SZ)}}
  320.         CloseRegKey $(Key1)
  321.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  322.             Debug-Output "OEMNXPTC.INF: ShellCode error"
  323.             goto ShellCodeError
  324.         endif
  325.         CreateRegKey $(KeyOptions) {"3",$(NoTitle),GenericClass} "" $(MAXIMUM_ALLOWED) "" Key3
  326.         Shell $(UtilityInf) AddValueList, $(Key3),+
  327.             {{"RegLocation", $(NoTitle), $(!REG_VT_SZ), "System\CurrentControlSet\Services\?\Parameters\Tcpip\DhcpDefaultGateway"},+
  328.             {"KeyType", $(NoTitle), $(!REG_VT_DWORD), $(!REG_VT_MULTI_SZ)}}
  329.         CloseRegKey $(Key3)
  330.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  331.             Debug-Output "OEMNXPTC.INF: ShellCode error"
  332.             goto ShellCodeError
  333.         endif
  334.         CreateRegKey $(KeyOptions) {"6",$(NoTitle),GenericClass} "" $(MAXIMUM_ALLOWED) "" Key6
  335.         Shell $(UtilityInf) AddValueList, $(Key6),+
  336.             {{"RegLocation", $(NoTitle), $(!REG_VT_SZ), "System\CurrentControlSet\Services\Tcpip\Parameters\DhcpNameServer"},+
  337.             {"KeyType", $(NoTitle), $(!REG_VT_DWORD), $(!REG_VT_SZ)}}
  338.         CloseRegKey $(Key6)
  339.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  340.             Debug-Output "OEMNXPTC.INF: ShellCode error"
  341.             goto ShellCodeError
  342.         endif
  343.         CreateRegKey $(KeyOptions) {"15",$(NoTitle),GenericClass} "" $(MAXIMUM_ALLOWED) "" Key15
  344.         Shell $(UtilityInf) AddValueList, $(Key15),+
  345.             {{"RegLocation", $(NoTitle), $(!REG_VT_SZ), "System\CurrentControlSet\Services\Tcpip\Parameters\DhcpDomain"},+
  346.             {"KeyType", $(NoTitle), $(!REG_VT_DWORD), $(!REG_VT_SZ)}}
  347.         CloseRegKey $(Key15)
  348.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  349.             Debug-Output "OEMNXPTC.INF: ShellCode error"
  350.             goto ShellCodeError
  351.         endif
  352.         CreateRegKey $(KeyOptions) {"44",$(NoTitle),GenericClass} "" $(MAXIMUM_ALLOWED) "" Key44
  353.         Shell $(UtilityInf) AddValueList, $(Key44),+
  354.             {{"RegLocation", $(NoTitle), $(!REG_VT_SZ), "System\CurrentControlSet\Services\NetBT\Adapters\?\DhcpNameServer"},+
  355.             {"KeyType", $(NoTitle), $(!REG_VT_DWORD), $(!REG_VT_SZ)}}
  356.         CloseRegKey $(Key44)
  357.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  358.             Debug-Output "OEMNXPTC.INF: ShellCode error"
  359.             goto ShellCodeError
  360.         endif
  361.         CreateRegKey $(KeyOptions) {"46",$(NoTitle),GenericClass} "" $(MAXIMUM_ALLOWED) "" Key46
  362.         Shell $(UtilityInf) AddValueList, $(Key46),+
  363.             {{"RegLocation", $(NoTitle), $(!REG_VT_SZ), "System\CurrentControlSet\Services\NetBT\Parameters\DhcpNodeType"},+
  364.             {"KeyType", $(NoTitle), $(!REG_VT_DWORD), $(!REG_VT_DWORD)}}
  365.         CloseRegKey $(Key46)
  366.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  367.             Debug-Output "OEMNXPTC.INF: ShellCode error"
  368.             goto ShellCodeError
  369.         endif
  370.         CreateRegKey $(KeyOptions) {"47",$(NoTitle),GenericClass} "" $(MAXIMUM_ALLOWED) "" Key47
  371.         Shell $(UtilityInf) AddValueList, $(Key47),+
  372.             {{"RegLocation", $(NoTitle), $(!REG_VT_SZ), "System\CurrentControlSet\Services\NetBT\Parameters\DhcpScopeID"},+
  373.             {"KeyType", $(NoTitle), $(!REG_VT_DWORD), $(!REG_VT_SZ)}}
  374.         CloseRegKey $(Key47)
  375.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  376.             Debug-Output "OEMNXPTC.INF: ShellCode error"
  377.             goto ShellCodeError
  378.         endif
  379.         set RegistryErrorIndex = $($R0)
  380.         CloseRegKey $(KeyOptions)
  381.         CloseRegKey $(DhcpParameterKey)
  382.         Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
  383.             EndWait
  384.             Debug-Output "OEMNXPTC.INF: Registry error: add value list."
  385.             goto fatalregistry
  386.         endif
  387.     endif
  388.     ifstr(i) $(DoTC) == TRUE
  389.         set ThisOption = "TC"
  390.         Set OEM_ABANDON_OPTIONS = >($(OEM_ABANDON_OPTIONS), $(ProductTCName))
  391.         Shell $(UtilityInf), AddSoftwareComponent, $(Manufacturer),+
  392.             $(Product$(ThisOption)Name),+
  393.             $(Product$(ThisOption)Name),+
  394.             $(Product$(ThisOption)DisplayName), $(STF_CONTEXTINFNAME),+
  395.             $(Product$(ThisOption)ImagePath),+
  396.             $(Product$(ThisOption)SvcType),+
  397.             "", {}, "", $(NetEventDLL)
  398.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  399.             Debug-Output "OEMNXPTC.INF: ShellCode error, add software component"
  400.             goto ShellCodeError
  401.         endif
  402.         set RegistryErrorIndex = $($R0)
  403.         Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
  404.             EndWait
  405.             Debug-Output "OEMNXPTC.INF: Registry error: add software components"
  406.             CloseRegKey $($R1)
  407.             CloseRegKey $($R2)
  408.             CloseRegKey $($R3)
  409.             CloseRegKey $($R4)
  410.             CloseRegKey $($R5)
  411.             goto fatalregistry
  412.         endif
  413.         Set TcpVersKeyHandle  = $($R1)
  414.         Set TcpRulesKeyHandle = $($R2)
  415.         Set TcpSvcKeyHandle   = $($R3)
  416.         Set TcpParmKeyHandle  = $($R4)
  417.         Set TcpLinkageHandle  = $($R5)
  418.         set NewValueList = {{SoftwareType,$(NoTitle),$(!REG_VT_SZ),$(SoftwareType)},+
  419.                            {MajorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMajorVersion)},+
  420.                            {MinorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMinorVersion)},+
  421.                            {Title,$(NoTitle),$(!REG_VT_SZ),$(Product$(ThisOption)Title)},+
  422.                            {Description,$(NoTitle),$(!REG_VT_SZ),$(Product$(ThisOption)Description)},+
  423.                            {ServiceName,$(NoTitle),$(!REG_VT_SZ),$(Product$(ThisOption)Name)},+
  424.                            {Review,$(NoTitle),$(!REG_VT_DWORD),1},+
  425.                            {InstallDate,$(NoTitle),$(!REG_VT_DWORD),*($(Now),1)}}
  426.         Shell  $(UtilityInf), AddValueList, $(TcpVersKeyHandle), $(NewValueList)
  427.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  428.             Debug-Output "OEMNXPTC.INF: ShellCode error, add value list"
  429.             goto ShellCodeError
  430.         endif
  431.         set RegistryErrorIndex = $($R0)
  432.         Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
  433.             EndWait
  434.             Debug-Output "OEMNXPTC.INF: Registry error: add value list."
  435.             CloseRegKey $(TcpVersKeyHandle)
  436.             CloseRegKey $(TcpRulesKeyHandle)
  437.             CloseRegKey $(TcpSvcKeyHandle)
  438.             CloseRegKey $(TcpParmKeyHandle)
  439.             CloseRegkey $(TcpLinkageHandle)
  440.             goto fatalregistry
  441.         Endif
  442.         CreateRegKey $(TcpParmKeyHandle) {"PersistentRoutes",$(NoTitle),GenericClass} "" +
  443.                 $(MAXIMUM_ALLOWED) "" KeyPersistentRoutes
  444.         CloseRegKey $(KeyPersistentRoutes)
  445.         CreateRegKey $(TcpSvcKeyHandle) {"Performance",$(NoTitle),GenericClass} "" +
  446.                 $(MAXIMUM_ALLOWED) "" KeyPerformance
  447.         set NewValueList = {{Library,$(NoTitle),$(!REG_VT_SZ),"Perfctrs.dll"},+
  448.                            {Open,$(NoTitle),$(!REG_VT_SZ),"OpenTcpIpPerformanceData"},+
  449.                            {Collect,$(NoTitle),$(!REG_VT_SZ),"CollectTcpIpPerformanceData"},+
  450.                            {Close,$(NoTitle),$(!REG_VT_SZ),"CloseTcpIpPerformanceData"}}
  451.         Shell  $(UtilityInf), AddValueList, $(KeyPerformance), $(NewValueList)
  452.         set RegistryErrorIndex = $($R0)
  453.         CloseRegKey $(KeyPerformance)
  454.         Ifstr $(RegistryErrorIndex) != NO_ERROR
  455.             EndWait
  456.             Debug-Output "OEMNXPTC.INF: Registry error: add performance info."
  457.             CloseRegKey $(TcpVersKeyHandle)
  458.             CloseRegKey $(TcpRulesKeyHandle)
  459.             CloseRegKey $(TcpSvcKeyHandle)
  460.             CloseRegKey $(TcpParmKeyHandle)
  461.             CloseRegkey $(TcpLinkageHandle)
  462.             goto fatalregistry
  463.         Endif
  464.         CreateRegKey $(TcpSvcKeyHandle) {"ServiceProvider",$(NoTitle),GenericClass} "" +
  465.                 $(MAXIMUM_ALLOWED) "" KeyNetworkProvider
  466.         set NewValueList = {{Class,$(NoTitle),$(!REG_VT_DWORD),8},+
  467.                            {DnsPriority,$(NoTitle),$(!REG_VT_DWORD),2000},+
  468.                            {HostsPriority,$(NoTitle),$(!REG_VT_DWORD),500},+
  469.                            {LocalPriority,$(NoTitle),$(!REG_VT_DWORD),499},+
  470.                            {ProviderPath,$(NoTitle),$(!REG_VT_EXPAND_SZ),$(ProductProviderImagePath)},+
  471.                            {NetbtPriority,$(NoTitle),$(!REG_VT_DWORD),2001}}
  472.         Shell  $(UtilityInf), AddValueList, $(KeyNetworkProvider), $(NewValueList)
  473.         set RegistryErrorIndex = $($R0)
  474.         CloseRegKey $(KeyNetworkProvider)
  475.         Ifstr $(RegistryErrorIndex) != NO_ERROR
  476.             EndWait
  477.             Debug-Output "OEMNXPTC.INF: Registry error: add performance info."
  478.             CloseRegKey $(TcpVersKeyHandle)
  479.             CloseRegKey $(TcpRulesKeyHandle)
  480.             CloseRegKey $(TcpSvcKeyHandle)
  481.             CloseRegKey $(TcpParmKeyHandle)
  482.             CloseRegkey $(TcpLinkageHandle)
  483.             goto fatalregistry
  484.         Endif
  485.         set NewValueList = {{type,$(NoTitle),$(!REG_VT_SZ),$(NetRule$(ThisOption)Type)},+
  486.                             {use,$(NoTitle),$(!REG_VT_SZ),$(NetRule$(ThisOption)Use)},+
  487.                             {bindform,$(NoTitle),$(!REG_VT_SZ),$(NetRule$(ThisOption)BindForm)},+
  488.                             {bindable,$(NoTitle),$(!REG_VT_MULTI_SZ),$(NetRule$(ThisOption)Bindable)},+
  489.                             {class,$(NoTitle),$(!REG_VT_MULTI_SZ),$(NetRule$(ThisOption)Class)},+
  490.                             {InfOption,$(NoTitle),$(!REG_VT_SZ),$(ThisOption)}}
  491.         Shell  $(UtilityInf), AddValueList, $(TcpRulesKeyHandle), $(NewValueList)
  492.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  493.             Debug-Output "OEMNXPTC.INF: ShellCode error."
  494.             goto ShellCodeError
  495.         endif
  496.         set RegistryErrorIndex = $($R0)
  497.         CloseRegKey $(TcpVersKeyHandle)
  498.         CloseRegKey $(TcpRulesKeyHandle)
  499.         LibraryProcedure ResultHostname $(!TCPCFG_HANDLE), ConvertHostname $(!STF_COMPUTERNAME)
  500.         set NewValueList = {{EnableDHCP,$(NoTitle),$(!REG_VT_DWORD),$(EnableDHCPFlag)},+
  501.                             {DataBasePath,$(NoTitle),$(!REG_VT_EXPAND_SZ),"%SystemRoot%\System32\drivers\etc"},+
  502.                             {Domain,$(NoTitle),$(!REG_VT_SZ),""},+
  503.                             {Hostname,$(NoTitle),$(!REG_VT_SZ),$(ResultHostname)},+
  504.                             {NameServer,$(NoTitle),$(!REG_VT_SZ),""},+
  505.                             {ForwardBroadcasts,$(NoTitle),$(!REG_VT_DWORD),0},+
  506.                             {IPEnableRouter,$(NoTitle),$(!REG_VT_DWORD),0},+
  507.                             {SearchList,$(NoTitle),$(!REG_VT_SZ),""}}
  508.         Shell  $(UtilityInf), AddValueList, $(TcpParmKeyHandle), $(NewValueList)
  509.         CloseRegKey $(TcpParmKeyHandle)
  510.         Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
  511.             CloseRegKey $(TcpLinkageHandle)
  512.             CloseRegKey $(TcpSvcKeyHandle)
  513.             EndWait
  514.             Debug-Output "OEMNXPTC.INF: Registry error: add value list."
  515.             goto fatalregistry
  516.         endif
  517.         Shell $(UtilityInf) AddRpcProtocol "ncacn_ip_tcp" "rpcltc3.dll" "rpclts3.dll"
  518.         Ifint $($ShellCode) != $(!SHELL_CODE_OK)
  519.             Debug-Output "OEMNXPTC.INF: ShellCode error adding RPC procotol"
  520.             goto ShellCodeError
  521.         Endif
  522.         Set RegistryErrorIndex = $($R0)
  523.         Ifstr(i) $(RegistryErrorIndex) != "NO_ERROR"
  524.             Debug-Output "OEMNXPTC.INF: ERROR adding RPC protocol data"
  525.             EndWait
  526.             goto fatalregistry
  527.         Endif
  528.         Shell $(UtilityInf) AddRpcProtocol "ncadg_ip_udp" "rpcdgc3.dll" "rpcdgs3.dll"
  529.         Ifint $($ShellCode) != $(!SHELL_CODE_OK)
  530.             Debug-Output "OEMNXPTC.INF: ShellCode error adding RPC procotol"
  531.             goto ShellCodeError
  532.         Endif
  533.         Set RegistryErrorIndex = $($R0)
  534.         Ifstr(i) $(RegistryErrorIndex) != "NO_ERROR"
  535.             Debug-Output "OEMNXPTC.INF: ERROR adding RPC protocol data"
  536.             EndWait
  537.             goto fatalregistry
  538.         Endif
  539.         Shell $(UtilityInf) AddMixRpcProtocol "Netbios" "tcpip" "ncacn_nb_tcp" "rpcltc5.dll" "rpclts5.dll"
  540.         Ifint $($ShellCode) != $(!SHELL_CODE_OK)
  541.             Debug-Output "OEMNXPTC.INF: ShellCode error adding RPC procotol (2)"
  542.             goto ShellCodeError
  543.         endif
  544.         Set RegistryErrorIndex = $($R0)
  545.         Ifstr(i) $(RegistryErrorIndex) != "NO_ERROR"
  546.             Debug-Output "OEMNXPTC.INF: ERROR adding RPC protocol data (2)"
  547.             EndWait
  548.             goto fatalregistry
  549.         Endif
  550.         Shell $(UtilityInf), AddWinsockInfo, +
  551.              $(Product$(ThisOption)Name), +
  552.              $(Product$(ThisOption)WshDllPath), +
  553.              $(Sockmaxlength),$(Sockminlength)
  554.         set RegistryErrorIndex = $($R0)
  555.         Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
  556.             Debug-Output "OEMNXPTC.INF: Registry error: Add Winsock Info."
  557.         Endif
  558.     endif
  559.     Ifstr(i) $(DoNbt) == TRUE
  560.         Set ThisOption = NETBT
  561.         Set OEM_ABANDON_SOFTWARE = >($(OEM_ABANDON_SOFTWARE), $(Product$(ThisOption)Name))
  562.         Debug-Output "OEMNXPTC.INF: installing NETBT..."
  563.         Shell $(UtilityInf), AddSoftwareComponent, $(Manufacturer),+
  564.             $(Product$(ThisOption)Name),+
  565.             $(Product$(ThisOption)Name),+
  566.             $(Product$(ThisOption)DisplayName), $(STF_CONTEXTINFNAME),+
  567.             $(Product$(ThisOption)ImagePath), $(Product$(ThisOption)SvcType), "TDI", {}, "", $(NetBTEventDLL)
  568.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  569.             Debug-Output "OEMNXPTC.INF: ShellCode error"
  570.             goto ShellCodeError
  571.         endif
  572.         set RegistryErrorIndex = $($R0)
  573.         Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
  574.             EndWait
  575.             Debug-Output "OEMNXPTC.INF: Registry error: add software components"
  576.             CloseRegKey $($R1)
  577.             CloseRegKey $($R2)
  578.             CloseRegKey $($R3)
  579.             CloseRegKey $($R4)
  580.             CloseRegKey $($R5)
  581.             goto fatalregistry
  582.         endif
  583.         Set NBTProductKey       = $($R1)
  584.         Set NBTNetRuleKey       = $($R2)
  585.         Set NBTServiceKey       = $($R3)
  586.         Set NBTParameterKey     = $($R4)
  587.         Set NBTLinkageKey       = $($R5)
  588.         set NewValueList = {{SoftwareType,$(NoTitle),$(!REG_VT_SZ),$(SoftwareType)},+
  589.                            {MajorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMajorVersion)},+
  590.                            {MinorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMinorVersion)},+
  591.                            {Hidden,0,$(!REG_VT_DWORD),1},+
  592.                            {Title,$(NoTitle),$(!REG_VT_SZ),$(Product$(ThisOption)Title)},+
  593.                            {Description,$(NoTitle),$(!REG_VT_SZ),$(Product$(ThisOption)Description)},+
  594.                            {ServiceName,$(NoTitle),$(!REG_VT_SZ),$(Product$(ThisOption)Name)},+
  595.                            {InstallDate,$(NoTitle),$(!REG_VT_DWORD),*($(Now),1)}}
  596.         Shell  $(UtilityInf), AddValueList, $(NBTProductKey), $(NewValueList)
  597.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  598.             Debug-Output "OEMNXPTC.INF: ShellCode error."
  599.             goto ShellCodeError
  600.         endif
  601.         set RegistryErrorIndex = $($R0)
  602.         Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
  603.             EndWait
  604.             Debug-Output "OEMNXPTC.INF: Registry error: add value list."
  605.             CloseRegKey $(NBTProductKey)
  606.             CloseRegKey $(NBTNetRuleKey)
  607.             CloseRegKey $(NBTServiceKey)
  608.             CloseRegKey $(NBTParameterKey)
  609.             CloseRegKey $(NBTLinkageKey)
  610.             goto fatalregistry
  611.         endif
  612.         set NewValueList = {{OtherDependencies,$(NoTitle),$(!REG_VT_MULTI_SZ),{"Tcpip"}}}
  613.         Shell  $(UtilityInf), AddValueList, $(NBTLinkageKey), $(NewValueList)
  614.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  615.             Debug-Output "OEMNXPTC.INF: ShellCode error."
  616.             goto ShellCodeError
  617.         endif
  618.         set RegistryErrorIndex = $($R0)
  619.         Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
  620.             EndWait
  621.             Debug-Output "OEMNXPTC.INF: Registry error: add value list."
  622.             CloseRegKey $(NBTProductKey)
  623.             CloseRegKey $(NBTNetRuleKey)
  624.             CloseRegKey $(NBTServiceKey)
  625.             CloseRegKey $(NBTParameterKey)
  626.             CloseRegKey $(NBTLinkageKey)
  627.             goto fatalregistry
  628.         endif
  629.         set NewValueList = {{type,$(NoTitle),$(!REG_VT_SZ),$(NetRule$(ThisOption)Type)},+
  630.                             {use,$(NoTitle),$(!REG_VT_SZ),$(NetRule$(ThisOption)Use)},+
  631.                             {bindform,$(NoTitle),$(!REG_VT_SZ),$(NetRule$(ThisOption)BindForm)},+
  632.                             {class,$(NoTitle),$(!REG_VT_MULTI_SZ),$(NetRule$(ThisOption)Class)},+
  633.                             {InfOption,$(NoTitle),$(!REG_VT_SZ),$(ThisOption)}}
  634.         Shell  $(UtilityInf), AddValueList, $(NBTNetRuleKey), $(NewValueList)
  635.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  636.             Debug-Output "OEMNXPTC.INF: ShellCode error."
  637.             goto ShellCodeError
  638.         endif
  639.         set RegistryErrorIndex = $($R0)
  640.         Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
  641.             EndWait
  642.             Debug-Output "OEMNXPTC.INF: Registry error: add value list."
  643.             CloseRegKey $(NBTProductKey)
  644.             CloseRegKey $(NBTNetRuleKey)
  645.             CloseRegKey $(NBTServiceKey)
  646.             CloseRegKey $(NBTParameterKey)
  647.             CloseRegKey $(NBTLinkageKey)
  648.             goto fatalregistry
  649.         endif
  650.         Set NewValueList = {{NbProvider,$(NoTitle),$(!REG_VT_SZ),"_tcp"},+
  651.                 {NameServerPort,$(NoTitle),$(!REG_VT_DWORD),137},+
  652.                 {EnableLMHOSTS,$(NoTitle),$(!REG_VT_DWORD),1},+
  653.                 {EnableProxy,$(NoTitle),$(!REG_VT_DWORD),0},+
  654.                 {EnableDNS,$(NoTitle),$(!REG_VT_DWORD),0},+
  655.                 {CacheTimeout,$(NoTitle),$(!REG_VT_DWORD),600000},+
  656.                 {BcastNameQueryCount,$(NoTitle),$(!REG_VT_DWORD),3},+
  657.                 {BcastQueryTimeout,$(NoTitle),$(!REG_VT_DWORD),750},+
  658.                 {NameSrvQueryCount,$(NoTitle),$(!REG_VT_DWORD),3},+
  659.                 {NameSrvQueryTimeout,$(NoTitle),$(!REG_VT_DWORD),1500},+
  660.                 {Size/Small/Medium/Large,$(NoTitle),$(!REG_VT_DWORD),1},+
  661.                 {SessionKeepAlive,$(NoTitle),$(!REG_VT_DWORD),3600000},+
  662.                 {ScopeID,$(NoTitle),$(!REG_VT_SZ),""},+
  663.                 {TransportBindName,$(NoTitle),$(!REG_VT_SZ),"\Device\"},+
  664.                 }
  665.         Shell  $(UtilityInf), AddValueList, $(NBTParameterKey), $(NewValueList)
  666.         Ifint $($ShellCode) != $(!SHELL_CODE_OK)
  667.             Debug-Output "OEMNXPTC.INF: ShellCode error."
  668.             goto ShellCodeError
  669.         Endif
  670.         set RegistryErrorIndex = $($R0)
  671.         Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
  672.             EndWait
  673.             Debug-Output "OEMNXPTC.INF: Registry error: add value list."
  674.             CloseRegKey $(NBTProductKey)
  675.             CloseRegKey $(NBTNetRuleKey)
  676.             CloseRegKey $(NBTServiceKey)
  677.             CloseRegKey $(NBTParameterKey)
  678.             CloseRegKey $(NBTLinkageKey)
  679.             goto fatalregistry
  680.         endif
  681.         CreateRegKey $(NBTServiceKey) {"Adapters",$(NoTitle),GenericClass} "" $(MAXIMUM_ALLOWED) "" AdaptersKey
  682.         CloseRegKey $(AdaptersKey)
  683.         CreateRegKey $(NBTServiceKey) {"Performance",$(NoTitle),GenericClass} "" $(MAXIMUM_ALLOWED) "" PerformanceKey
  684.         Ifstr $(PerformanceKey) != $(KeyNull)
  685.             Set NewValueList = {+
  686.                 {Library,$(NoTitle),$(!REG_VT_SZ),"Perfctrs.dll"},+
  687.                 {Open,$(NoTitle),$(!REG_VT_SZ),"OpenNbtPerformanceData"},+
  688.                 {Collect,$(NoTitle),$(!REG_VT_SZ),"CollectNbtPerformanceData"},+
  689.                 {Close,$(NoTitle),$(!REG_VT_SZ),"CloseNbtPerformanceData"},+
  690.                 }
  691.             Shell  $(UtilityInf), AddValueList, $(PerformanceKey), $(NewValueList)
  692.             Ifint $($ShellCode) != $(!SHELL_CODE_OK)
  693.                 Debug-Output "OEMNXPTC.INF: ShellCode error."
  694.                 goto ShellCodeError
  695.             Endif
  696.             CloseRegKey $(PerformanceKey)
  697.         endif
  698.         set RegistryErrorIndex = $($R0)
  699.         CloseRegKey $(NBTProductKey)
  700.         CloseRegKey $(NBTNetRuleKey)
  701.         CloseRegKey $(NBTServiceKey)
  702.         CloseRegKey $(NBTParameterKey)
  703.         CloseRegKey $(NBTLinkageKey)
  704.         Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
  705.             EndWait
  706.             Debug-Output "OEMNXPTC.INF: Registry error: add value list."
  707.             goto fatalregistry
  708.         endif
  709.     Endif
  710.     Ifstr(i) $(DoAFD) == TRUE
  711.         Shell $(UtilityInf) AddAFD
  712.         OpenRegKey $(!REG_H_LOCAL) "" $(!NTN_ServiceBase)"\Afd" $(MAXIMUM_ALLOWED) AfdKey
  713.         ifstr(i) $(AfdKey) != ""
  714.             GetRegValue $(AfdKey) "DependOnGroup" GroupList
  715.             debug-output "DependOnGroup:"$(GroupList)
  716.             set GroupValues = *($(GroupList),4)
  717.             debug-output "DependOnGroup:"$(GroupValues)
  718.             set NewGroupValues = {}
  719.             ForListDo $(GroupValues)
  720.                 ifstr(i) $($) != "TDI"
  721.                     ifstr(i) $(NewGroupValues) == {}
  722.                         Set NewGroupValues = {$($)}
  723.                     else
  724.                         Set NewGroupValues = >($(NewGroupValues), $($))
  725.                     endif
  726.                 endif
  727.             EndForListDo
  728.             SetRegValue $(AfdKey) {"DependOnGroup",$(NoTitle),$(!REG_VT_MULTI_SZ),$(NewGroupValues)}
  729.             CloseRegKey $(AfdKey)
  730.         endif
  731.     Endif
  732.     Shell $(UtilityInf), AddServiceProvider, $(ProviderName), +
  733.         $(ProductProviderImagePath), $(ProviderDisplayName), 8
  734.     set RegistryErrorIndex = $($R0)
  735.     Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
  736.         EndWait
  737.         Debug-Output "OEMNXPTC.INF: Registry error: add software components"
  738.         goto fatalregistry
  739.     endif
  740.     ifstr(i) $(!STF_GUI_UNATTENDED) != YES
  741.         ifstr(i) $(InstallFromRas) != "YES"
  742.             OpenRegKey $(!REG_H_LOCAL) "" $(!NTN_ServiceBase)"\RASMan" $(MAXIMUM_ALLOWED) RASKey
  743.             ifstr(i) $(RASKey) != ""
  744.                 Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), "WARNING", $(RASRebindError)
  745.                 ifint $($ShellCode) != $(!SHELL_CODE_OK)
  746.                     goto ShellCodeError
  747.                 endif
  748.                 CloseRegKey $(RASKey)
  749.                 ifstr(i) $($R1) == "OK"
  750.                     set SaveNTN_InstallMode = $(!NTN_InstallMode)
  751.                     set !NTN_InstallMode = configure
  752.                     Shell "oemnsvra.inf" InstallOption $(!STF_LANGUAGE) "RAS" $(SrcDir) $(AddCopy) $(DoCopy) $(DoConfig) 
  753.                     set !NTN_InstallMode = $(SaveNTN_InstallMode)
  754.                 endif
  755.             endif
  756.         endif
  757.     endif
  758.     Ifint $(BillboardVisible) != 0
  759.         Shell "subroutn.inf" PopBillboard
  760.         Set BillboardVisible = 0
  761.     Endif
  762.     EndWait
  763. InstallOtherComponent = +
  764.     set Pos = 0
  765.     ForListDo $(InstallList)
  766.         ifstr(i) $($) == "1"
  767.             ifint $(Pos) != 0
  768.                 set CurrentFilename = *($(OptionFileList),$(Pos))
  769.                 set CurrentInstallOption = *($(TcpOptionList),$(Pos))
  770.                 debug-output $(CurrentFilename)"..."$(CurrentInstallOption)
  771.                 Shell $(CurrentFilename) "InstallOption" +
  772.                     $(!STF_LANGUAGE) $(CurrentInstallOption) +
  773.                     $(SrcDir) $(AddCopy) $(DoCopy) $(DoConfig)
  774.             endif
  775.         endif
  776.         set-add Pos = $(Pos) 1
  777.     EndForListDo
  778.     goto successful
  779. configureadapter = +
  780.     ifstr(i) $(Option) == "TC"
  781.         OpenRegKey $(!REG_H_LOCAL) "" $(ParametersKeyName) $(MAXIMUM_ALLOWED) ParametersKey
  782.         GetRegValue $(ParametersKey) "EnableDHCP" EnableDHCPInfo
  783.         Set FirstTimeBinding = 0
  784.         set EnableDHCPFlag = 0
  785.         ifint $(RegLastError) == $(!REG_ERROR_SUCCESS)
  786.             Set FirstTimeBinding = 1
  787.             set EnableDHCPFlag = *($(EnableDHCPInfo),4)
  788.             DeleteRegValue $(ParametersKey) "EnableDHCP"
  789.             ifint $(FirstTimeBinding) == 1
  790.                 ifint $(EnableDHCPFlag) == 0
  791.                     Shell $(IPINFOINF), GetIPInfo
  792.                     Ifint $($ShellCode) != $(!SHELL_CODE_OK)
  793.                     Else
  794.                         set DefaultGateway = $($R0)
  795.                         set IPAddressList  = $($R1)
  796.                         set SubnetMaskList = $($R2)
  797.                     Endif
  798.                 endif
  799.             endif
  800.         EndIf
  801.         CloseRegKey $(ParametersKey)
  802.         OpenRegKey $(!REG_H_LOCAL) "" $(LinkageKeyName) $(MAXIMUM_ALLOWED) LinkageKey
  803.         GetRegValue $(LinkageKey) "Bind" BindList
  804.         ifstr(i) $(BindList) == {}
  805.            Set BindList = ""
  806.         endif
  807.         ifstr(i) $(BindList) == ""
  808.             LibraryProcedure Result, $(!LIBHANDLE), SetupChangeServiceStart "DHCP", 4
  809.             debug-output "OEMNXPTC.INF: no binding info; warning user"
  810.             read-syms InfoDlgCantConfigure
  811.             goto infomsg
  812.         endif
  813.         set OldVersionExisted = $(TRUE )
  814.         set CardList = ""
  815.         set CardCount = 0
  816.         ForListDo *($(BindList),4)
  817.             Split-String $($), "\", BindInfo
  818.             QueryListSize BindListSize $(BindInfo)
  819.             set CardName = *($(BindInfo),$(BindListSize))
  820.             OpenRegKey $(!REG_H_LOCAL) "" $(!NTN_ServiceBase)"\"*($(BindInfo),$(BindListSize)) $(MAXIMUM_ALLOWED) CardServiceKey
  821.             ifstr(i) $(CardServiceKey) != ""
  822.                 CloseRegKey $(CardServiceKey)
  823.                 set-add CardCount = $(CardCount),1
  824.                 ifstr $(CardList) == ""
  825.                     set CardList = {$(CardName)}
  826.                 else
  827.                     set CardList = >($(CardList),$(CardName))
  828.                 endif
  829.             endif
  830.         EndForListDo
  831.         debug-output $(CardList)
  832.         set OldCardList = $(CardList)
  833.         set CardList = ""
  834.         set CardServiceKey = ""
  835.         set CardCount = 1
  836.         ForListDo $(OldCardList)
  837.             ifstr(i) $(CardServiceKey) == ""
  838.                 ifstr $(CardList) == ""
  839.                     set CardList = $($)
  840.                 else
  841.                     set CardList = $(CardList)"@"$($)
  842.                 endif
  843.                 debug-output "Doing:"$($)
  844.                 debug-output $(CardList)
  845.                 set DefaultIPAddress = *($(IPAddressList),$(CardCount))
  846.                 set DefaultSubnetMask = *($(SubnetMaskList),$(CardCount))
  847.                 OpenRegKey $(!REG_H_LOCAL) "" "System\CurrentControlSet\Services\"$($)"\Parameters" $(MAXIMUM_ALLOWED) ServiceParamKey
  848.                 ifstr(i) $(ServiceParamKey) != ""
  849.                     OpenRegKey $(ServiceParamKey) "" "Tcpip" $(MAXIMUM_ALLOWED) TCPIPKey
  850.                     GetRegValue $(ParametersKey) "AutoIPAddress" AutoIPInfo
  851.                     set AutoIPFlag = *($(AutoIPInfo),4)
  852.                     set EnableDHCPForThisAdapter = $(EnableDHCPFlag)
  853.                     ifint $(AutoIPFlag) == 1
  854.                         set EnableDHCPForThisAdapter = 0
  855.                     endif
  856.                     ifstr(i) $(TCPIPKey) == ""
  857.                         CreateRegKey $(ServiceParamKey) {"Tcpip",$(NoTitle),GenericClass} "" +
  858.                         $(MAXIMUM_ALLOWED) "" TCPIPKey
  859.                         debug-output "set Parameters"
  860.                         debug-output "EnableDHCPFlag:"$(EnableDHCPForThisAdapter)
  861.                         set NewValueList = {{EnableDHCP,$(NoTitle),$(!REG_VT_DWORD),$(EnableDHCPForThisAdapter)},+
  862.                                         {UseZeroBroadcast,$(NoTitle),$(!REG_VT_DWORD),0},+
  863.                                         {LLInterface,$(NoTitle),$(!REG_VT_SZ),""}}
  864.                         Shell  $(UtilityInf), AddValueList, $(TCPIPKey), $(NewValueList)
  865.                         ifstr(i) $(TCPIPKey) != ""
  866.                             debug-output $(RegistryErrorIndex)
  867.                             ifint $(EnableDHCPForThisAdapter) == 1
  868.                                 set NewValueList = {{IPAddress,$(NoTitle),$(!REG_VT_MULTI_SZ),{"0.0.0.0"}},+
  869.                                                     {DefaultGateway,$(NoTitle),$(!REG_VT_MULTI_SZ),{}},+
  870.                                                     {SubnetMask,$(NoTitle),$(!REG_VT_MULTI_SZ),{"0.0.0.0"}}}
  871.                                 Shell  $(UtilityInf), AddValueList, $(TCPIPKey), $(NewValueList)
  872.                                 ifint $($ShellCode) != $(!SHELL_CODE_OK)
  873.                                     Debug-Output "OEMNXPTC.INF: ShellCode error: cannot write default subnet mask error."
  874.                                     goto ShellCodeError
  875.                                 endif
  876.                             else
  877.                                 ifstr(i) $(DefaultIPAddress) != ""
  878.                                     set IPAddressInfo = {}
  879.                                     GetRegValue $(TCPIPKey) "IPAddress" IPAddressInfo
  880.                                     set IPAddress = *($(IPAddressInfo), 4)
  881.                                     ifstr(i) $(IPAddress) == ""
  882.                                         set NewValueList = {{IPAddress,$(NoTitle),$(!REG_VT_MULTI_SZ),{$(DefaultIPAddress)}}}
  883.                                         Shell  $(UtilityInf), AddValueList, $(TCPIPKey), $(NewValueList)
  884.                                         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  885.                                             Debug-Output "OEMNXPTC.INF: ShellCode error: cannot write default subnet mask error."
  886.                                             goto ShellCodeError
  887.                                         endif
  888.                                     endif
  889.                                 endif
  890.                                 ifstr(i) $(DefaultSubnetMask) != ""
  891.                                     set SubnetMasInfo = {}
  892.                                     GetRegValue $(TCPIPKey) "SubnetMask" SubnetMaskInfo
  893.                                     set SubnetMask = *($(SubnetMaskInfo), 4)
  894.                                     ifstr(i) $(SubnetMask) == ""
  895.                                         set NewValueList = {{SubnetMask,$(NoTitle),$(!REG_VT_MULTI_SZ),{$(DefaultSubnetMask)}}}
  896.                                         Shell  $(UtilityInf), AddValueList, $(TCPIPKey), $(NewValueList)
  897.                                         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  898.                                             Debug-Output "OEMNXPTC.INF: ShellCode error: cannot write default subnet mask error."
  899.                                             goto ShellCodeError
  900.                                         endif
  901.                                     endif
  902.                                 endif
  903.                                 ifstr(i) $(DefaultGateway) != ""
  904.                                     GetRegValue $(TCPIPKey) "DefaultGateway" GatewayInfo
  905.                                     set Gateway = *($(GatewayInfo), 4)
  906.                                     ifstr(i) $(Gateway) == ""
  907.                                         set NewValueList = {{DefaultGateway,$(NoTitle),$(!REG_VT_MULTI_SZ),{$(DefaultGateway)}}}
  908.                                         Shell  $(UtilityInf), AddValueList, $(TCPIPKey), $(NewValueList)
  909.                                         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  910.                                             Debug-Output "OEMNXPTC.INF: ShellCode error: cannot write default subnet mask error."
  911.                                             goto ShellCodeError
  912.                                         endif
  913.                                     endif
  914.                                 endif
  915.                             endif
  916.                         endif
  917.                     endif
  918.                     CloseRegKey $(TCPIPKey)
  919.                 endif
  920.                 CloseRegKey $(ServiceParamKey)
  921.                 set-add CardCount = $(CardCount),1
  922.             Endif
  923.         EndForListDo
  924.         ifstr(i) $(CardList) != ""
  925.             Ifstr(i) $(!NTN_InstallMode) == bind
  926.                 set FLibraryErrCtl = 1
  927.                 LibraryProcedure ResultList, $(!TCPCFG_HANDLE), TcpCfgCheck
  928.                 set FLibraryErrCtl = 0
  929.                 Set Result = *($(ResultList),1)
  930.                 ifint $(Result) == 0
  931.                     Debug-Output "OEMNXPTC.INF:  reconfiguration not required"
  932.                     set CommonStatus = STATUS_USERCANCEL
  933.                     goto end
  934.                 endif
  935.             endif
  936.             set FLibraryErrCtl = 1
  937.             LibraryProcedure ResultList, $(!TCPCFG_HANDLE), CPlTcpip, $(!STF_HWND), $(CardList), $(!STF_COMPUTERNAME), ""
  938.             set FLibraryErrCtl = 0
  939.             Set Result = *($(ResultList),1)
  940.             ifint $(Result) == 2
  941.                 set CommonStatus = STATUS_REBOOT
  942.             else
  943.                 set CommonStatus = STATUS_USERCANCEL
  944.             endif
  945.         else
  946.             set CommonStatus = STATUS_USERCANCEL
  947.         endif
  948.     else
  949.         Shell $(UtilityInf),RegistryErrorString,CANNOT_CONFIGURE_SOFTWARE
  950.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  951.             Debug-Output "OEMNXPTC.INF: ShellCode error: cannot get an error string."
  952.             goto ShellCodeError
  953.         endif
  954.         set Error = $($R0)
  955.         set from = end
  956.         set to = end
  957.         goto nonfatalinfo
  958.     endif
  959.     goto end
  960. bindingadapter =+
  961.     ifstr(i) $(Option) == "TC"
  962.         ForListDo {"Browser","NetLogon"}
  963.             OpenRegKey $(!REG_H_LOCAL) "" "System\CurrentControlSet\Services\"$($) $(MAXIMUM_ALLOWED) ServicesKey
  964.             ifstr(i) $(ServicesKey) != ""
  965.                 GetRegValue $(ServicesKey) "DependOnService" ServicesList
  966.                 debug-output "DependOnService:"$(ServicesList)
  967.                 set ServiceValues = *($(ServicesList),4)
  968.                 debug-output "DependOnService:"$(ServiceValues)
  969.                 ifstr(i) $(ServiceValues) == {}
  970.                     Set ServiceValues = {"LmHosts"}
  971.                     LibraryProcedure Result, $(!LIBHANDLE), SetupChangeServiceConfig, $($), $(SERVICE_NO_CHANGE), $(SERVICE_NO_CHANGE), $(SERVICE_NO_CHANGE), "", "", $(ServiceValues), "", "", ""
  972.                 else-ifstr(i) $(ServiceValues) == ""
  973.                     Set ServiceValues = {"LmHosts"}
  974.                     LibraryProcedure Result, $(!LIBHANDLE), SetupChangeServiceConfig, $($), $(SERVICE_NO_CHANGE), $(SERVICE_NO_CHANGE), $(SERVICE_NO_CHANGE), "", "", $(ServiceValues), "", "", ""
  975.                 else-ifcontains(i) "LMHOSTS" in $(ServiceValues)
  976.                 else
  977.                     Set ServiceValues = >($(ServiceValues), "LmHosts")
  978.                     LibraryProcedure Result, $(!LIBHANDLE), SetupChangeServiceConfig, $($), $(SERVICE_NO_CHANGE), $(SERVICE_NO_CHANGE), $(SERVICE_NO_CHANGE), "", "", $(ServiceValues), "", "", ""
  979.                 endif
  980.                 CloseRegKey $(ServicesKey)
  981.             endif
  982.         EndForListDo
  983.         debug-output "binding for NetBT"
  984.         OpenRegKey $(!REG_H_LOCAL) "" $(NetBTLinkageKeyName) $(MAXIMUM_ALLOWED) LinkageKey
  985.         GetRegValue $(LinkageKey) "Bind" BindList
  986.         set CombineBindInfo = *($(BindList),4)
  987.         CloseRegKey $(LinkageKey)
  988.         Shell "nbinfo.inf" CheckMixRpcProtocol "NetBT" 5 "tcpip" "ncacn_nb_tcp" "rpcltc5.dll" "rpclts5.dll"
  989.         OpenRegKey $(!REG_H_LOCAL) "" $(NetBTLinkageKeyName)"\Disabled" $(MAXIMUM_ALLOWED) LinkageKey
  990.         GetRegValue $(LinkageKey) "Bind" BindList
  991.         ForListDo *($(BindList),4)
  992.             set CombineBindInfo = >($(CombineBindInfo), $($))
  993.         EndForListDo
  994.         CloseRegKey $(LinkageKey)
  995.         OpenRegKey $(!REG_H_LOCAL) "" $(AdaptersKeyName) $(MAXIMUM_ALLOWED) AdaptersKey
  996.         EnumRegKey $(AdaptersKey) AdaptersListInfo
  997.         set AdaptersList = {}
  998.         ForListDo $(AdaptersListInfo)
  999.             ifstr(i) $(AdaptersList) == {}
  1000.                 set AdaptersList = {*($($),1)}
  1001.             else
  1002.                 set AdaptersList = >($(AdaptersList),*($($),1))
  1003.             endif
  1004.         EndForListDo
  1005.         set CardList = {}
  1006.         set CreateCardList = {}
  1007.         ForListDo $(CombineBindInfo)
  1008.             Split-String $($), "\", BindInfo
  1009.             QueryListSize BindListSize $(BindInfo)
  1010.             set CardName = *($(BindInfo),$(BindListSize))
  1011.             ifstr(i) $(CardList) == {}
  1012.                 set CardList = {$(CardName)}
  1013.             else
  1014.                 set CardList = >($(CardList),$(CardName))
  1015.             endif
  1016.             ifContains(i) $(CardName) not-in $(AdaptersList)
  1017.                 ifstr(i) $(CreateCardList) == {}
  1018.                     set CreateCardList = {$(CardName)}
  1019.                 else
  1020.                     set CreateCardList = >($(CreateCardList),$(CardName))
  1021.                 endif
  1022.             endif
  1023.         EndForListDo
  1024.         set DeleteCardList = {}
  1025.         ForListDo $(AdaptersList)
  1026.             ifcontains(i) $($) not-in $(CardList)
  1027.                 ifstr(i) $(DeleteCardList) == {}
  1028.                     set DeleteCardList = {$($)}
  1029.                 else
  1030.                     set DeleteCardList = >($(DeleteCardList),$($))
  1031.                 endif
  1032.             endif
  1033.         EndForListDo
  1034.         ForListDo $(CreateCardList)
  1035.             CreateRegKey $(AdaptersKey) {$($),$(NoTitle),GenericClass} "" $(MAXIMUM_ALLOWED) "" CardKey
  1036.             CloseRegKey $(CardKey)
  1037.         EndForListDo
  1038.         ForListDo $(DeleteCardList)
  1039.             DeleteRegKey $(AdaptersKey) $($)
  1040.         EndForListDo
  1041.         CloseRegKey $(AdaptersKey)
  1042.         debug-output "binding for TC"
  1043.         goto configureadapter
  1044.     endif
  1045.     goto successful
  1046. removeadapter = +
  1047.     Shell $(UtilityInf) RemoveDependentComponents Microsoft TCPIP
  1048.     Shell $(UtilityInf) RemoveRpcProtocol "ncadg_ip_udp"
  1049.     Shell $(UtilityInf) RemoveRpcProtocol "ncacn_ip_tcp"
  1050.     Shell $(UtilityInf) RemoveRpcProtocol "ncacn_nb_tcp"
  1051.     Shell $(UtilityInf) RemoveServiceProvider $(ProviderName)
  1052.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1053.         Debug-Output "OEMNXPTC.INF: ShellCode error"
  1054.         goto ShellCodeError
  1055.     endif
  1056.     set RegistryErrorIndex = $($R0)
  1057.     Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
  1058.         goto fatalregistry
  1059.     endif
  1060.     ForListDo  $(OEM_ABANDON_SOFTWARE)
  1061.         ifstr(i) $($) == "Tcpip"
  1062.             OpenRegKey $(!REG_H_LOCAL) "" $(LinkageKeyName) $(MAXIMUM_ALLOWED) LinkageKey
  1063.             GetRegValue $(LinkageKey) "Bind" BindList
  1064.             ForListDo *($(BindList),4)
  1065.                 Split-String $($), "\", BindInfo
  1066.                 QueryListSize BindListSize $(BindInfo)
  1067.                 set CardName = *($(BindInfo),$(BindListSize))
  1068.                 OpenRegKey $(!REG_H_LOCAL) "" $(!NTN_ServiceBase)"\"*($(BindInfo),$(BindListSize))"\Parameters" $(MAXIMUM_ALLOWED) CardParamKey
  1069.                 ifstr(i) $(CardParamKey) != ""
  1070.                     DeleteRegTree $(CardParamKey) "Tcpip"
  1071.                     CloseRegKey $(CardParamKey)
  1072.                 endif
  1073.             EndForListDo
  1074.             Shell $(UtilityInf), RemoveWinsockInfo, $(ProductTCName)
  1075.             set RegistryErrorIndex = $($R0)
  1076.             Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
  1077.                 Debug-Output "OEMNXPTC.INF: Registry error: remove Winsock Info."
  1078.             Endif
  1079.         endif
  1080.         debug-output "Remove component: "$($)
  1081.         ifstr(i) $($) == "Streams"
  1082.             Shell $(UtilityInf), RemoveStreams
  1083.         else
  1084.             Shell $(UtilityInf), RemoveSoftwareComponent, $(Manufacturer), $($)
  1085.         endif
  1086.     EndForListDo
  1087.     ForListDo  $(OEM_ABANDON_OPTIONS)
  1088.         debug-output "Remove component: "$($)
  1089.         Ifstr(i) $($) == $(ProductLOOPName)
  1090.             Set UseSvcctrl = "NO"
  1091.         Else
  1092.             Set UseSvcctrl = "YES"
  1093.         Endif
  1094.         ifstr(i) $($) == $(ProductLMHOSTSName)
  1095.             debug-output "Remove "$($)"'s LMHOSTS dependency"
  1096.             ForListDo {"Browser","NetLogon"}
  1097.                 OpenRegKey $(!REG_H_LOCAL) "" "System\CurrentControlSet\Services\"$($) $(MAXIMUM_ALLOWED) ServicesKey
  1098.                 ifstr(i) $(ServicesKey) != ""
  1099.                     GetRegValue $(ServicesKey) "DependOnService" ServicesList
  1100.                     debug-output "DependOnService List:"$(ServicesList)
  1101.                     set ServiceValues = *($(ServicesList),4)
  1102.                     debug-output "ServiceValues: "$(ServiceValues)
  1103.                     ifcontains(i) "LMHOSTS" in $(ServiceValues)
  1104.                         set NewServiceValues = {}
  1105.                         ForListDo $(ServiceValues)
  1106.                             ifstr(i) $($) != "LmHosts"
  1107.                                 set NewServiceValues = >($(NewServiceValues), $($))
  1108.                             endif
  1109.                         EndForListDo
  1110.                         debug-output "Final dependency list for "$($)": "$(NewServiceValues)
  1111.                         LibraryProcedure Result, $(!LIBHANDLE), SetupChangeServiceConfig, $($), $(SERVICE_NO_CHANGE), $(SERVICE_NO_CHANGE), $(SERVICE_NO_CHANGE), "", "", $(NewServiceValues), "", "", ""
  1112.                     else
  1113.                     endif
  1114.                     CloseRegKey $(ServicesKey)
  1115.                 endif
  1116.             EndForListDo
  1117.         endif
  1118.         Shell $(UtilityInf), RemoveService, $($), $(UseSvcctrl)
  1119.     EndForListDo
  1120.     goto end
  1121. UpgradeSoftware = +
  1122.     OpenRegKey $(!REG_H_LOCAL) "" $(OldProductKeyName) $(MAXIMUM_ALLOWED) KeyProduct
  1123.     Ifstr(i) $(KeyProduct) == $(KeyNull)
  1124.         goto end
  1125.     endif
  1126.     GetRegValue $(KeyProduct) "DefaultGateway" DefaultGatewayList
  1127.     set DefaultGatewayValue = *($(DefaultGatewayList),4)
  1128.     Ifstr(i) $(DefaultGatewayValue) != $(KeyNull)
  1129.         install "Install-Update"
  1130.         ifstr(i) $(STF_INSTALL_OUTCOME) != STF_SUCCESS
  1131.             goto fatal
  1132.         endif
  1133.         CloseRegKey $(KeyProduct)
  1134.         set FLibraryErrCtl = 1
  1135.         ifstr(i) $(!UpgradeEnableDhcp) == ""
  1136.             LibraryProcedure ResultList $(!TCPCFG_HANDLE), UpgradeTcpip, $(!STF_HWND) "NO" "YES" 
  1137.         else
  1138.             LibraryProcedure ResultList $(!TCPCFG_HANDLE), UpgradeTcpip, $(!STF_HWND) "YES" $(!UpgradeEnableDhcp) 
  1139.         endif
  1140.         set FLibraryErrCtl = 0
  1141.         set UserWantsDHCP = *($(ResultList),2)
  1142.         OpenRegKey $(!REG_H_LOCAL) "" "System\CurrentControlSet\Services\Tcpip\Parameters" $(MAXIMUM_ALLOWED) TcpipParamKey
  1143.         ifstr(i) $(TcpipParamKey) != ""
  1144.             GetRegValue $(TcpipParamKey) "DNSLookupOrder" LookupInfo
  1145.             debug-output "LookupOrder:"$(LookupInfo)
  1146.             GetRegValue $(TcpipParamKey) "Domain" DomainInfo
  1147.             debug-output "Domain:"$(DomainInfo)
  1148.             GetRegValue $(TcpipParamKey) "Hostname" HostnameInfo
  1149.             debug-output "Hostname:"$(HostnameInfo)
  1150.             GetRegValue $(TcpipParamKey) "NameServer" NameServerInfo
  1151.             debug-output "NameServer:"$(NameServerInfo)
  1152.             GetRegValue $(TcpipParamKey) "SearchList" SearchListInfo
  1153.             debug-output "SearchListInfo:"$(SearchListInfo)
  1154.             CloseRegKey $(TcpipParamKey)
  1155.         endif
  1156.         OpenRegKey $(!REG_H_LOCAL) "" "System\CurrentControlSet\Services\Nbt\Parameters" $(MAXIMUM_ALLOWED) NbtParamKey
  1157.         ifstr(i) $(NbtParamKey) != ""
  1158.             GetRegValue $(NbtParamKey) "ScopeID" ScopeIDInfo
  1159.             debug-output "ScopeID:"$(ScopeID)
  1160.             CloseRegKey $(NbtParamKey)
  1161.         endif
  1162.         set OEM_ABANDON_OPTIONS = {+
  1163.             "TcpipSys",+
  1164.             "NbtSys",+
  1165.             "Telnet",+
  1166.             "LMHOSTS",+
  1167.             "Telnetsys",+
  1168.             "Loop"}
  1169.         set OEM_ABANDON_SOFTWARE = {+
  1170.             "Tcpip",+
  1171.             "Nbt",+
  1172.             "Streams"}
  1173.         Shell $(UtilityInf) RemoveRpcProtocol "ncacn_ip_tcp"
  1174.         Ifstr(i) $($0) != NO_ERROR
  1175.             Debug-Output "OEMNXPTC.INF: ERROR deleting RPC protocol data"
  1176.         Endif
  1177.         Shell $(UtilityInf) RemoveRpcProtocol "ncacn_nb_tcp"
  1178.         Ifstr(i) $($0) != NO_ERROR
  1179.             Debug-Output "OEMNXPTC.INF: ERROR deleting RPC protocol data (2)"
  1180.         Endif
  1181.         ForListDo  $(OEM_ABANDON_SOFTWARE)
  1182.             debug-output "Remove component: "$($)
  1183.             ifstr(i) $($) == "Streams"
  1184.                 Shell $(UtilityInf), RemoveStreams
  1185.             else
  1186.                 Shell $(UtilityInf), RemoveSoftwareComponent, $(Manufacturer), $($)
  1187.             endif
  1188.             ifstr(i) $($) == "Tcpip"
  1189.                 Shell $(UtilityInf), RemoveWinsockInfo, $($)
  1190.                 set RegistryErrorIndex = $($R0)
  1191.                 Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
  1192.                     Debug-Output "OEMNXPTC.INF: Registry error: remove Winsock Info."
  1193.                 Endif
  1194.             endif
  1195.         EndForListDo
  1196.         ForListDo  $(OEM_ABANDON_OPTIONS)
  1197.             debug-output "Remove component: "$($)
  1198.             Ifstr(i) $($) == "loop"
  1199.                 Set UseSvcctrl = "NO"
  1200.             Else
  1201.                 Set UseSvcctrl = "YES"
  1202.             Endif
  1203.             ifstr(i) $($) == "lmhosts"
  1204.                 debug-output "Remove "$($)"'s LMHOSTS dependency"
  1205.                 ForListDo {"Browser","NetLogon"}
  1206.                     OpenRegKey $(!REG_H_LOCAL) "" "System\CurrentControlSet\Services\"$($) $(MAXIMUM_ALLOWED) ServicesKey
  1207.                     ifstr(i) $(ServicesKey) != ""
  1208.                         GetRegValue $(ServicesKey) "DependOnService" ServicesList
  1209.                         debug-output "DependOnService List:"$(ServicesList)
  1210.                         set ServiceValues = *($(ServicesList),4)
  1211.                         debug-output "ServiceValues: "$(ServiceValues)
  1212.                         ifcontains(i) "LMHOSTS" in $(ServiceValues)
  1213.                             set NewServiceValues = {}
  1214.                             ForListDo $(ServiceValues)
  1215.                                 ifstr(i) $($) != "LmHosts"
  1216.                                     set NewServiceValues = >($(NewServiceValues), $($))
  1217.                                 endif
  1218.                             EndForListDo
  1219.                             debug-output "Final dependency list for "$($)": "$(NewServiceValues)
  1220.                             LibraryProcedure Result, $(!LIBHANDLE), SetupChangeServiceConfig, $($), $(SERVICE_NO_CHANGE), $(SERVICE_NO_CHANGE), $(SERVICE_NO_CHANGE), "", "", $(NewServiceValues), "", "", ""
  1221.                         else
  1222.                         endif
  1223.                         CloseRegKey $(ServicesKey)
  1224.                     endif
  1225.                 EndForListDo
  1226.             endif
  1227.             Shell $(UtilityInf), RemoveService, $($), $(UseSvcctrl)
  1228.         EndForListDo
  1229.         set OldSTFInstallMode = $(!STF_INSTALL_MODE)
  1230.         set !STF_INSTALL_MODE = EXPRESS
  1231.         set OldInstallMode = $(!NTN_InstallMode)
  1232.         set !NTN_InstallMode = install
  1233.         Shell "" "InstallOption" $(!STF_LANGUAGE) "TC" $(!STF_SRCDIR) "NO" "NO" "NO"
  1234.         set !STF_INSTALL_MODE = $(OldSTFInstallMode)
  1235.         set !NTN_InstallMode = $(OldInstallMode)
  1236.         OpenRegKey $(!REG_H_LOCAL) "" $(ParametersKeyName) $(MAXIMUM_ALLOWED) TcpipParamKey
  1237.         ifstr(i) $(TcpipParamKey) != ""
  1238.             set NewValueList = {$(LookupInfo),$(DomainInfo),$(HostnameInfo),$(NameServerInfo),$(SearchListInfo)}
  1239.             Shell  $(UtilityInf), AddValueList, $(TcpipParamKey), $(NewValueList)
  1240.             SetRegValue $(TcpipParamKey) {"EnableDHCP",$(NoTitle),$(!REG_VT_DWORD),$(UserWantsDHCP)}
  1241.             CloseRegKey $(TcpipParamKey)
  1242.         endif
  1243.         OpenRegKey $(!REG_H_LOCAL) "" $(NetBTParamKeyName) $(MAXIMUM_ALLOWED) NetbtParamKey
  1244.         ifstr(i) $(NetbtParamKey) != ""
  1245.             Shell  $(UtilityInf), AddValueList, $(NetbtParamKey), {$(ScopeIDInfo)}
  1246.             CloseRegKey $(NetbtParamKey)
  1247.         endif
  1248.     else
  1249.         install "Install-Update"
  1250.         ifstr(i) $(STF_INSTALL_OUTCOME) != STF_SUCCESS
  1251.             goto fatal
  1252.         endif
  1253.         CloseRegKey $(KeyProduct)
  1254.         OpenRegKey $(!REG_H_LOCAL) "" "Software\Microsoft\NetBT\CurrentControlSet\NetRules" $(MAXIMUM_ALLOWED) NetRulesKey
  1255.         ifstr(i) $(NetRulesKey) != ""
  1256.             SetRegValue $(NetRulesKey) {"use",$(NoTitle),$(!REG_VT_SZ),"transport yes yes"}
  1257.             CloseRegKey $(NetRulesKey)
  1258.         endif
  1259.     Shell $(UtilityInf) RemoveNetworkProvider $(ProviderName)
  1260.         OpenRegKey $(!REG_H_LOCAL) "" "System\CurrentControlSet\Services\DHCP\Parameters\Options" $(MAXIMUM_ALLOWED) KeyOptions
  1261.         ifstr(i) $(KeyOptions) != ""
  1262.             OpenRegKey $(KeyOptions) "" "1" $(MAXIMUM_ALLOWED) Key1
  1263.             ifstr(i) $(Key1) == ""
  1264.                 CreateRegKey $(KeyOptions) {"1",$(NoTitle),GenericClass} "" $(MAXIMUM_ALLOWED) "" Key1
  1265.                 Shell $(UtilityInf) AddValueList, $(Key1),+
  1266.                     {{"RegLocation", $(NoTitle), $(!REG_VT_SZ), "System\CurrentControlSet\Services\?\Parameters\Tcpip\DhcpSubnetMaskOpt"},+
  1267.                     {"KeyType", $(NoTitle), $(!REG_VT_DWORD), $(!REG_VT_MULTI_SZ)}}
  1268.             endif
  1269.             CloseRegKey $(Key1)
  1270.             OpenRegKey $(KeyOptions) "" "15" $(MAXIMUM_ALLOWED) Key15
  1271.             ifstr(i) $(Key15) == ""
  1272.                 CreateRegKey $(KeyOptions) {"15",$(NoTitle),GenericClass} "" $(MAXIMUM_ALLOWED) "" Key15
  1273.                 Shell $(UtilityInf) AddValueList, $(Key15),+
  1274.                     {{"RegLocation", $(NoTitle), $(!REG_VT_SZ), "System\CurrentControlSet\Services\Tcpip\Parameters\DhcpDomain"},+
  1275.                     {"KeyType", $(NoTitle), $(!REG_VT_DWORD), $(!REG_VT_SZ)}}
  1276.             endif
  1277.             CloseRegKey $(Key15)
  1278.         endif
  1279.         OpenRegKey $(!REG_H_LOCAL) "" "System\CurrentControlSet\Services\Tcpip\ServiceProvider" $(MAXIMUM_ALLOWED) ProviderKey
  1280.         ifstr(i) $(ProviderKey) == ""
  1281.             Shell $(UtilityInf), AddServiceProvider, $(ProviderName), +
  1282.                 $(ProductProviderImagePath), 8
  1283.             set RegistryErrorIndex = $($R0)
  1284.             Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
  1285.                 EndWait
  1286.                 Debug-Output "OEMNXPTC.INF: Registry error: add software components"
  1287.                 goto fatalregistry
  1288.             endif
  1289.             OpenRegKey $(!REG_H_LOCAL) "" "System\CurrentControlSet\Services\Tcpip" $(MAXIMUM_ALLOWED) TcpSvcKeyHandle
  1290.             ifstr(i) $(TcpSvcKeyHandle) != ""
  1291.                 OpenRegKey $(!REG_H_LOCAL) "" "System\CurrentControlSet\Services\Tcpip\ServiceProvider" $(MAXIMUM_ALLOWED) KeyNetworkProvider
  1292.                 ifstr(i) $(KeyNetworkProvider) == ""
  1293.                    CreateRegKey $(TcpSvcKeyHandle) {"ServiceProvider",$(NoTitle),GenericClass} "" +
  1294.                         $(MAXIMUM_ALLOWED) "" KeyNetworkProvider
  1295.                 endif
  1296.                 set NewValueList = {{DnsPriority,$(NoTitle),$(!REG_VT_DWORD),2000},+
  1297.                            {Name,$(NoTitle),$(!REG_SZ),$(ProviderDisplayName)},+
  1298.                            {HostsPriority,$(NoTitle),$(!REG_VT_DWORD),500},+
  1299.                            {LocalPriority,$(NoTitle),$(!REG_VT_DWORD),499},+
  1300.                            {ProviderPath,$(NoTitle),$(!REG_VT_EXPAND_SZ),$(ProductProviderImagePath)},+
  1301.                            {NetbtPriority,$(NoTitle),$(!REG_VT_DWORD),2001}}
  1302.                 Shell  $(UtilityInf), AddValueList, $(KeyNetworkProvider), $(NewValueList)
  1303.                 CloseRegKey $(KeyNetworkProvider)
  1304.                 CloseRegKey $(TcpSvcKeyHandle)
  1305.             endif
  1306.         else
  1307.             CloseRegKey $(ProviderKey)
  1308.         endif
  1309.         OpenRegKey $(!REG_H_LOCAL) "" "System\CurrentControlSet\Services\Tcpip\Parameters" $(MAXIMUM_ALLOWED) TcpParmKeyHandle
  1310.         ifstr(i) $(TcpParmKeyHandle) != ""
  1311.             CreateRegKey $(TcpParmKeyHandle) {"PersistentRoutes",$(NoTitle),GenericClass} "" +
  1312.                     $(MAXIMUM_ALLOWED) "" KeyPersistentRoutes
  1313.             CloseRegKey $(KeyPersistentRoutes)
  1314.             CloseRegKey $(TcpParmKeyHandle)
  1315.         endif
  1316.     endif
  1317.     goto end
  1318. successful = +
  1319.     goto end
  1320. infomsg =+
  1321.    read-syms InfoDlg
  1322.    ui start "Warning"
  1323.    set CommonStatus = STATUS_USERCANCEL
  1324.    goto end
  1325. warning = +
  1326.     Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), "WARNING", $(Error)
  1327.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1328.         goto ShellCodeError
  1329.     endif
  1330.     ifstr(i) $($R1) == "OK"
  1331.         goto $(to)
  1332.     else-ifstr(i) $($R1) == "CANCEL"
  1333.         goto $(from)
  1334.     else
  1335.         goto "end"
  1336.     endif
  1337. nonfatalinfo = +
  1338.     Set CommonStatus = STATUS_USERCANCEL
  1339.     Set Severity = STATUS
  1340.     goto nonfatalmsg
  1341. nonfatal = +
  1342.     Set Severity = NONFATAL
  1343.     goto nonfatalmsg
  1344. nonfatalmsg = +
  1345.     ifstr(i) $(Error) == ""
  1346.         Set Severity = NONFATAL
  1347.         Shell $(UtilityInf) RegistryErrorString "SETUP_FAIL"
  1348.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1349.             goto ShellCodeError
  1350.         endif
  1351.         set Error = $($R0)
  1352.     endif
  1353.     Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), $(Severity), $(Error)
  1354.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1355.         goto ShellCodeError
  1356.     endif
  1357.     ifstr(i) $($R1) == "OK"
  1358.         goto $(from)
  1359.     else
  1360.         goto "end"
  1361.     endif
  1362. fatalregistry = +
  1363.     Shell $(UtilityInf) RegistryErrorString $(RegistryErrorIndex)
  1364.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1365.         goto ShellCodeError
  1366.     endif
  1367.     set Error = $($R0)
  1368.     goto fatal
  1369. fatal = +
  1370.     ifstr(i) $(Error) == ""
  1371.         Shell $(UtilityInf) RegistryErrorString "SETUP_FAIL"
  1372.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1373.             goto ShellCodeError
  1374.         endif
  1375.         set Error = $($R0)
  1376.     endif
  1377.     Ifint $(BillboardVisible) != 0
  1378.         Shell "subroutn.inf" PopBillboard
  1379.         Set BillboardVisible = 0
  1380.     Endif
  1381.     Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), "FATAL", $(Error)
  1382.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1383.         goto ShellCodeError
  1384.     endif
  1385.    goto setfailed
  1386. ShellCodeError = +
  1387.     set DlgType      = "MessageBox"
  1388.     set STF_MB_TITLE = $(ShellCodeErrorTitle)
  1389.     set STF_MB_TEXT  = $(ShellCodeErrorText)
  1390.     set STF_MB_TYPE  = 1
  1391.     set STF_MB_ICON  = 3
  1392.     set STF_MB_DEF   = 1
  1393.     ui start "Error Message"
  1394.     goto setfailed
  1395. setfailed = +
  1396.     set CommonStatus = STATUS_FAILED
  1397.     ifstr(i) $(OEM_ABANDON_ON) == TRUE
  1398.         set OEM_ABANDON_ON = FALSE
  1399.         goto removeadapter
  1400.     endif
  1401.     goto end
  1402. end = +
  1403.     freeLibrary $(!TCPCFG_HANDLE)
  1404.     goto term
  1405. term = +
  1406.     Return $(CommonStatus)
  1407. [CreateEventLog]
  1408.     read-syms GeneralConstants
  1409.     set NameOfService = $($0)
  1410.     set EventFile     = $($1)
  1411.     set TypeSupported = $($2)
  1412.     OpenRegKey $(!REG_H_LOCAL) "" "SYSTEM\CurrentControlSet\Services\EventLog\System" $(MAXIMUM_ALLOWED) KeyEventLog
  1413.     Ifstr $(KeyEventLog) != ""
  1414.         OpenRegKey $(KeyEventLog) "" $(NameOfService) $(MAXIMUM_ALLOWED) KeyService
  1415.            ifstr(i) $(KeyService) == ""
  1416.                CreateRegKey $(KeyEventLog) {$(NameOfService),$(NoTitle),GenericClass} "" $(MAXIMUM_ALLOWED) "" KeyService
  1417.            endif
  1418.            Ifstr $(KeyService) != ""
  1419.                SetRegValue $(KeyService) {EventMessageFile,$(NoTitle),$(!REG_VT_EXPAND_SZ),$(EventFile)}
  1420.                SetRegValue $(KeyService) {TypesSupported,$(NoTitle),$(!REG_VT_DWORD),$(TypeSupported)}
  1421.            endif
  1422.         Endif
  1423.     endif
  1424. CreateEventLogEnd = +
  1425.     return NO_ERROR
  1426. [GetFilesSize]
  1427.     set FileSizeList = >(>(>(^(Files-TC,3),^(Files-TCPIPEXE,3)),^(Files-ETC,3)),^(Files-LMHOST,3))
  1428.     set TotalSize = 0
  1429.     ForListDo $(FileSizeList)
  1430.         ForListDo $($)
  1431.             Split-String $($) "=" SplitString
  1432.             set Size = *($(SplitString),3)
  1433.             set-add TotalSize = $(TotalSize) $(Size)
  1434.         EndForListDo
  1435.     EndForListDo
  1436.     set-div SizeInK = $(TotalSize) 1024
  1437.     return $(SizeInK)
  1438. [Install-Option]
  1439.     set STF_VITAL = ""
  1440.     ifstr(i) $(AddCopy) == "YES"
  1441.         AddSectionFilesToCopyList Files-TC $(SrcDir) $(!STF_WINDOWSSYSPATH)\drivers
  1442.         AddSectionFilesToCopyList Files-TCPIPEXE $(SrcDir) $(!STF_WINDOWSSYSPATH)
  1443.         AddSectionFilesToCopyList Files-ETC $(SrcDir) $(!STF_WINDOWSSYSPATH)\drivers\etc
  1444.         AddSectionFilesToCopyList Files-LMHOST $(SrcDir) $(!STF_WINDOWSSYSPATH)\drivers\etc
  1445.     endif
  1446.     ifstr(i) $(DoCopy) == "YES"
  1447.        set !STF_NCPA_FLUSH_COPYLIST = TRUE
  1448.        Debug-Output "OEMNXPTC.INF: *** CopyFilesInCopyList [2]"
  1449.        CopyFilesInCopyList
  1450.     endif
  1451.     ifstr(i) $(DoConfig) == "YES"
  1452.     endif
  1453.     Exit
  1454. [Install-Update]
  1455.    set STF_VITAL        = ""
  1456.    set STF_OVERWRITE    = "VERIFYSOURCEOLDER"
  1457.    AddSectionFilesToCopyList Files-TC $(SrcDir) $(!STF_WINDOWSSYSPATH)\drivers
  1458.    AddSectionFilesToCopyList Files-TCPIPEXE $(SrcDir) $(!STF_WINDOWSSYSPATH)
  1459.    AddSectionFilesToCopyList Files-LMHOST $(SrcDir) $(!STF_WINDOWSSYSPATH)\drivers\etc
  1460.    AddSectionFilesToCopyList Files-ETC-Upgrade $(SrcDir) $(!STF_WINDOWSSYSPATH)\drivers\etc
  1461.    Exit
  1462. [Source Media Descriptions]
  1463.      1 = "Windows NT Server CD-ROM または セットアップ ディスク #5" , TAGFILE = disk1.s
  1464.      2 = "Windows NT Server CD-ROM または セットアップ ディスク #6" , TAGFILE = disk2.s
  1465.      3 = "Windows NT Server CD-ROM または セットアップ ディスク #7" , TAGFILE = disk3.s
  1466.      4 = "Windows NT Server CD-ROM または セットアップ ディスク #8" , TAGFILE = disk4.s
  1467.      5 = "Windows NT Server CD-ROM または セットアップ ディスク #9" , TAGFILE = disk5.s
  1468.      6 = "Windows NT Server CD-ROM または セットアップ ディスク #10" , TAGFILE = disk6.s
  1469.      7 = "Windows NT Server CD-ROM または セットアップ ディスク #11", TAGFILE = disk7.s
  1470.      8 = "Windows NT Server CD-ROM または セットアップ ディスク #12", TAGFILE = disk8.s
  1471.      9 = "Windows NT Server CD-ROM または セットアップ ディスク #13", TAGFILE = disk9.s
  1472.     10 = "Windows NT Server CD-ROM または セットアップ ディスク #14", TAGFILE = disk10.s
  1473.     11 = "Windows NT Server CD-ROM または セットアップ ディスク #15", TAGFILE = disk11.s
  1474.     12 = "Windows NT Server CD-ROM または セットアップ ディスク #16", TAGFILE = disk12.s
  1475.     13 = "Windows NT Server CD-ROM または セットアップ ディスク #17", TAGFILE = disk13.s
  1476.     14 = "Windows NT Server CD-ROM または セットアップ ディスク #18", TAGFILE = disk14.s
  1477.     15 = "Windows NT Server CD-ROM または セットアップ ディスク #19", TAGFILE = disk15.s
  1478.     16 = "Windows NT Server CD-ROM または セットアップ ディスク #20", TAGFILE = disk16.s
  1479.     17 = "Windows NT Server CD-ROM または セットアップ ディスク #21", TAGFILE = disk17.s
  1480.     18 = "Windows NT Server CD-ROM または セットアップ ディスク #22", TAGFILE = disk18.s
  1481.     19 = "Windows NT Server CD-ROM または セットアップ ディスク #23", TAGFILE = disk19.s
  1482.     20 = "Windows NT Server CD-ROM または セットアップ ディスク #24", TAGFILE = disk20.s
  1483.     21 = "Windows NT Server CD-ROM または セットアップ ディスク #25", TAGFILE = disk21.s
  1484.     22 = "Windows NT Server CD-ROM または セットアップ ディスク #26", TAGFILE = disk22.s
  1485.     23 = "Windows NT Server CD-ROM または セットアップ ディスク #27", TAGFILE = disk23.s
  1486.     24 = "Windows NT Server CD-ROM または セットアップ ディスク #28", TAGFILE = disk24.s
  1487.     25 = "Windows NT Server CD-ROM または セットアップ ディスク #29", TAGFILE = disk25.s
  1488.     26 = "Windows NT Server CD-ROM または セットアップ ディスク #30", TAGFILE = disk26.s
  1489.     27 = "Windows NT Server CD-ROM または セットアップ ディスク #31", TAGFILE = disk27.s
  1490.     28 = "Windows NT Server CD-ROM または セットアップ ディスク #32", TAGFILE = disk28.s
  1491.     29 = "Windows NT Server CD-ROM または セットアップ ディスク #33", TAGFILE = disk29.s
  1492.     30 = "Windows NT Server CD-ROM または セットアップ ディスク #34", TAGFILE = disk30.s
  1493.     50 = "Windows NT Server CD-ROM または リモートブート ディスク #1", TAGFILE = disk50.s
  1494.     51 = "Windows NT Server CD-ROM または リモートブート ディスク #2", TAGFILE = disk51.s
  1495. [Signature]
  1496.     FileType = MICROSOFT_FILE
  1497. [GetSignature]
  1498.     read-syms Signature
  1499.     return $(FileType)
  1500. [ProductType]
  1501. STF_PRODUCT  = LanmanNT
  1502. STF_PLATFORM = I386
  1503. [Files-Inf]
  1504. 2,    oemsetup.inf,     SIZE=1000,    RENAME=$(!UG_Filename)
  1505. [Files-ETC-Upgrade]
  1506. 17,HOSTS , SIZE=1024, RENAME=HOSTS.SAM
  1507. 17,SERVICES , SIZE=6144, RENAME=SERVICES.SAM
  1508. [Files-ETC]
  1509. 17,HOSTS , SIZE=1024
  1510. 17,NETWORKS , SIZE=1024
  1511. 17,PROTOCOL , SIZE=1024
  1512. 17,SERVICES , SIZE=6144
  1513. [Files-LMHOST]
  1514. 17,LMHOSTS.SAM , SIZE=4096
  1515. [Files-LMHOSTOTHER]
  1516. 99,LMHOSTS.SAM , SIZE=4096
  1517. [Files-TC]
  1518. 17,NETBT.SYS , SIZE=107520
  1519. 17,TCPIP.SYS , SIZE=122880
  1520. [Files-TCPIPEXE]
  1521. 27, DHCPCSVC.DLL, SIZE=33792
  1522. 27, DHCPSAPI.DLL, SIZE=14336
  1523. 28, ICMP.DLL, SIZE=7168
  1524. 27, IPCONFIG.EXE, SIZE=22528
  1525. 27, NBTSTAT.EXE, SIZE=20480
  1526. 28, TCPSVCS.EXE, SIZE=10240
  1527. 28, TRACERT.EXE, SIZE=12288
  1528. 27,ARP.EXE , SIZE=23552
  1529. 15,HOSTNAME.EXE , SIZE=10240
  1530. 26,INETMIB1.DLL , SIZE=51200
  1531. 17,IPINFO.INF , SIZE=4096
  1532. 17,LMHSVC.DLL , SIZE=7168
  1533. 27,NETSTAT.EXE , SIZE=30720
  1534. 16,PING.EXE , SIZE=16384
  1535. 16,ROUTE.EXE , SIZE=29696
  1536. [LanguagesSupported]
  1537.     ENG
  1538. [OptionsTextENG]
  1539.     TC     = "TCP/IP ﾌﾟﾛﾄｺﾙおよび関連ｺﾝﾎﾟｰﾈﾝﾄ"
  1540. [FileConstantsENG]
  1541. ProCaption   = "Windows NT セットアップ"
  1542. ProCancel    = "ｷｬﾝｾﾙ"
  1543. ProCancelMsg = "Windows NT ネットワークは正しく組み込まれていません。"+
  1544.                "ファイルのコピーを中止しますか?"
  1545. ProCancelCap = "ネットワーク セットアップ メッセージ"
  1546. ProText1     = "コピー元:"
  1547. ProText2     = "コピー先:"
  1548. NoNewComponents = "組み込む新しいコンポーネントがありません。" 
  1549. FunctionTitle   = "TCP/IP ｾｯﾄｱｯﾌﾟ"
  1550. ProductNETBTDescription           = "NetBT System ﾄﾞﾗｲﾊﾞ"
  1551. ProductNETBTDisplayName   = "WINS Client(TCP/IP)"
  1552. ProductNETBTTitle         = "WINS ｸﾗｲｱﾝﾄ(TCP/IP)"
  1553. ProductTELNETDisplayName = "Telnet"
  1554. ProductTELNETTitle      = "Telnet ﾈｯﾄﾜｰｸ ｻﾎﾟｰﾄ環境"
  1555. ProductTELNETSYSDisplayName = "Telnetsys"
  1556. ProductTELNETSYSTitle     = "Telnet ﾄﾞﾗｲﾊﾞ"
  1557. ProductLMHOSTSDisplayName = "TCP/IP NetBIOS Helper"
  1558. ProductLMHOSTSTitle     = "TCP/IP NetBIOS ﾍﾙﾊﾟｰ"
  1559. ProductDHCPDisplayName = "DHCP Client"
  1560. ProductDHCPTitle     = "DHCP ｸﾗｲｱﾝﾄ"
  1561. ProductTCDisplayName = "TCP/IP Service"
  1562. ProductTCTitle     = "TCP/IP ﾌﾟﾛﾄｺﾙ"
  1563. ProductTCDescription         = "TCP/IP ﾌﾟﾛﾄｺﾙ ﾄﾞﾗｲﾊﾞ"
  1564. ProviderDisplayName     = "TCP/IP"
  1565. ShellCodeErrorTitle     = "エラー: "$(FunctionTitle)
  1566. ShellCodeErrorText      = "シェル コード エラーです。"
  1567. RASRebindError = "セットアップはリモート アクセス サービスが組み込まれているのを検出しました。TCP/IP プロトコルをサポートするように RAS を構成しますか?"
  1568. [DialogConstantsENG]
  1569. Help        = "ﾍﾙﾌﾟ(&H)"
  1570. Exit        = "ｷｬﾝｾﾙ"
  1571. OK          = "OK"
  1572. HelpContext = ""
  1573. Continue    = "続行"
  1574. Cancel      = "ｷｬﾝｾﾙ"
  1575. [FileDependentDlgENG]
  1576. [InfoDlg]
  1577. STF_MB_TITLE = "情報メッセージ"
  1578. DlgType = "MessageBox"
  1579. STF_MB_TEXT  = $(InfoMsgText)
  1580. STF_MB_TYPE  = 1
  1581. STF_MB_ICON  = 5
  1582. STF_MB_DEF   = 1
  1583. [InfoDlgCantConfigure]
  1584. InfoMsgText = "現在 TCP/IP サービスは、アダプタを使用するように構成されていません。"+
  1585.     "組み込みの直後であれば、[ネットワーク]ダイアログ ボックスに戻って[OK]ボタンを"+
  1586.     "クリックしてください。このアダプタを構成することができます。"
  1587. [WarningDlgENG]
  1588. STF_MB_TITLE = "TCP/IP ｾｯﾄｱｯﾌﾟの警告"
  1589. DlgType = "MessageBox"
  1590. STF_MB_TEXT  = $(Error)
  1591. STF_MB_TYPE  = 1
  1592. STF_MB_ICON  = 5
  1593. STF_MB_DEF   = 1
  1594. [Billboard1ENG]
  1595. Status = "TCP/IP および関連するサービスを組み込んでいます..."
  1596.