home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1996 February / VPR9602A.ISO / mpr / i386 / winnt / oemnsvir.inf next >
INI File  |  1995-10-27  |  23KB  |  590 lines
  1. [Identification]
  2.     OptionType = NetService
  3. [Options]
  4.     IPRIP
  5. [FileConstants]
  6. Manufacturer    = "Microsoft"
  7. ProductMajorVersion     = "3"
  8. ProductMinorVersion     = "51"
  9. SoftwareType = "service"
  10. ProductVersion  = $(ProductMajorVersion)"."$(ProductMinorVersion)
  11. ProductIPRIPName        = "IpRip"
  12. ProductIPRIPImagePath   = "%SystemRoot%\System32\router.exe"
  13. ProductIPRIPEventFile   = "%SystemRoot%\System32\iprip.dll"
  14. ProductSoftwareConfigDLL = tcpcfg.dll
  15. ProductKeyName  = $(!NTN_SoftwareBase)"\"$(Manufacturer)"\IpRip\CurrentVersion"
  16. [GeneralConstants]
  17. UtilityInf       = "UTILITY.INF"
  18. subroutineinf    = "SUBROUTN.INF"
  19. Exit_Code        = 0
  20. BillboardVisible = 0
  21. from      = ""
  22. to        = ""
  23. ExitCodeOk     = 0
  24. ExitCodeCancel = 1
  25. ExitCodeFatal  = 2
  26. KeyNull         = ""
  27. MAXIMUM_ALLOWED   = 33554432
  28. SERVICE_NO_CHANGE = 4294967295
  29. RegistryErrorIndex = NO_ERROR
  30. KeyProduct      = ""
  31. KeyParameters   = ""
  32. TRUE            = 1
  33. FALSE           = 0
  34. NoTitle         = 0
  35. ExitState   = "Active"
  36. OldVersionExisted = $(FALSE)
  37. [date]
  38.     Now = {} ? $(!LIBHANDLE) GetSystemDate
  39. [Identify]
  40.     read-syms Identification
  41.     set Status     = STATUS_SUCCESSFUL
  42.     set Identifier = $(OptionType)
  43.     set Media      = #("Source Media Descriptions", 1, 1)
  44.     Return $(Status) $(Identifier) $(Media)
  45. [ReturnOptions]
  46.     set Status        = STATUS_FAILED
  47.     set OptionList     = {}
  48.     set OptionTextList = {}
  49.     set LanguageList = ^(LanguagesSupported, 1)
  50.     Ifcontains(i) $($0) in $(LanguageList)
  51.         goto returnoptions
  52.     else
  53.         set Status = STATUS_NOLANGUAGE
  54.         goto finish_ReturnOptions
  55.     endif
  56. returnoptions = +
  57.     ifstr(i) $(!STF_PRODUCT) != "WINNT"
  58.         set OptionList     = ^(Options, 1)
  59.         set OptionTextList = ^(OptionsText$($0), 1)
  60.     endif
  61.     set Status         = STATUS_SUCCESSFUL
  62. finish_ReturnOptions = +
  63.     Return $(Status) $(OptionList) $(OptionTextList)
  64. [InstallOption]
  65.     set Option   = $($1)
  66.     set SrcDir   = $($2)
  67.     set AddCopy  = $($3)
  68.     set DoCopy   = $($4)
  69.     set DoConfig = $($5)
  70.     set InstallFrom = $($6)
  71.     ifstr(i) $(InstallFrom) == ""
  72.         set InstallFrom = "IPRIP"
  73.     endif
  74.     set LanguageList = ^(LanguagesSupported, 1)
  75.     Ifcontains(i) $($0) NOT-IN $(LanguageList)
  76.         Return STATUS_NOLANGUAGE
  77.     endif
  78.     Debug-Output "OEMNSVCU.INF: STF_CWDIR is: "$(!STF_CWDIR)
  79.     Debug-Output "OEMNSVCU.INF: STF_LANGUAGE is: "$(!STF_LANGUAGE)
  80.     set-subst LF = "\n"
  81.     read-syms GeneralConstants
  82.     read-syms FileConstants
  83.     read-syms DialogConstants$(!STF_LANGUAGE)
  84.     ifstr(i) $(!NTN_Origination) == "NCPA"
  85.         set Continue = $(OK)
  86.     endif
  87.     read-syms FileConstants$(!STF_LANGUAGE)
  88.     detect date
  89.     set-title  $(FunctionTitle)
  90.     set to   = Begin
  91.     set from = Begin
  92.     set CommonStatus = STATUS_SUCCESSFUL
  93.     EndWait
  94. Begin = +
  95.     Ifstr(i) $(!NTN_InstallMode) == deinstall
  96.         set StartLabel = removeadapter
  97.     else-Ifstr(i) $(!NTN_InstallMode) == Update
  98.         set StartLabel = UpgradeSoftware
  99.     else-Ifstr(i) $(!NTN_InstallMode) == configure
  100.         Debug-Output "Cannot configure the software."
  101.         Shell $(UtilityInf),RegistryErrorString,CANNOT_CONFIGURE_SOFTWARE
  102.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  103.             Debug-Output "ShellCode error: cannot get an error string."
  104.             goto ShellCodeError
  105.         endif
  106.         set Error = $($R0)
  107.         set from = end
  108.         set to = end
  109.         goto nonfatalinfo
  110.     else-Ifstr(i) $(!NTN_InstallMode) == bind
  111.         set StartLabel = bindingadapter
  112.     else
  113.         set StartLabel = installadapter
  114.         set OEM_ABANDON_SOFTWARE = {}
  115.         set OEM_ABANDON_OPTIONS = {}
  116.     endif
  117.     set from = $(fatal)
  118.     set to = $(fatal)
  119.     goto $(StartLabel)
  120. installadapter = +
  121.     set OEM_ABANDON_ON  = TRUE
  122.     StartWait
  123.     OpenRegKey $(!REG_H_LOCAL) "" $(ProductKeyName) $(MAXIMUM_ALLOWED) KeySoftware
  124.     Ifstr(i) $(KeySoftware) == $(KeyNull)
  125.         ifstr(i) $(!NTN_InstallMode) == "install"
  126.             Ifstr(i) $(DoCopy) == "YES"
  127.                 Shell $(UtilityInf), DoAskSource, $(!STF_CWDDIR), $(SrcDir) YES
  128.                 Ifint $($ShellCode) != $(!SHELL_CODE_OK)
  129.                    Goto ShellCodeError
  130.                 Else-Ifstr(i) $($R0) == STATUS_FAILED
  131.                    Shell $(UtilityInf) RegistryErrorString "ASK_SOURCE_FAIL"
  132.                    ifint $($ShellCode) != $(!SHELL_CODE_OK)
  133.                       goto ShellCodeError
  134.                    endif
  135.                    set Error = $($R0)
  136.                    Goto fatal
  137.                 Else-Ifstr(i) $($R0) == STATUS_USERCANCEL
  138.                    Goto successful
  139.                 Endif
  140.                 Set SrcDir = $($R1)
  141.             Endif
  142.             OpenRegKey $(!REG_H_LOCAL) "" $(!NTN_ServiceBase)"\TCPIP" $(MAXIMUM_ALLOWED) BS_KeyServices
  143.             Ifstr $(BS_KeyServices) == $(KeyNull)
  144.                     Shell "oemnxpip.inf" ReturnOptions $(!STF_LANGUAGE)
  145.                     ifstr(i) $($R0) == STATUS_SUCCESSFUL
  146.                         set OldStfSrcDir = $(!STF_SRCDIR_OVERRIDE)
  147.                         set !STF_SRCDIR_OVERRIDE = ""
  148.                         Shell "oemnxpip.inf" InstallOption $(!STF_LANGUAGE), *($($R1),1),+
  149.                             $(SrcDir), $(AddCopy), "NO", $(DoConfig)
  150.                         set !STF_SRCDIR_OVERRIDE = $(OldStfSrcDir)
  151.                     else
  152.                         Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), "NONFATAL", $(InstallNWLINKFirst)
  153.                         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  154.                             goto ShellCodeError
  155.                         endif
  156.                         goto end
  157.                     endif
  158.                 else
  159.                     CloseRegKey $(BS_KeyServices)
  160.                 endif
  161.             else
  162.                 CloseRegKey $(BS_KeyServices)
  163.             endif
  164.             Debug-Output "OEMNSVIR.INF: installadapter: installing [Install-Option]"
  165.             install "Install-Option"
  166.             ifstr(i) $(STF_INSTALL_OUTCOME) != STF_SUCCESS
  167.                Shell $(UtilityInf) RegistryErrorString "UNABLE_COPY_FILE"
  168.                ifint $($ShellCode) != $(!SHELL_CODE_OK)
  169.                    goto ShellCodeError
  170.                endif
  171.                set Error = $($R0)
  172.                goto fatal
  173.             endif
  174.         endif
  175.         OpenRegKey $(!REG_H_LOCAL) "" $(!NTN_ServiceBase)"\IPRIP" $(MAXIMUM_ALLOWED) KeyService
  176.         Ifstr(i) $(KeyService) == $(KeyNull)
  177.             Shell $(UtilityInf), AddSoftwareComponent, "Microsoft", +
  178.                 $(ProductIPRIPName), +
  179.                 $(ProductIPRIPName), +
  180.                 $(ProductIPRIPDisplayName), +
  181.                 $(STF_CONTEXTINFNAME),+
  182.                 $(ProductIPRIPImagePath), +
  183.                 "autoserviceshare" , "", {"TCPIP"}, "", $(ProductIPRIPEventFile)
  184.             ifint $($ShellCode) != $(!SHELL_CODE_OK)
  185.                 Debug-Output "OEMNSVIR.INF: ShellCode error"
  186.                 return STATUS_FAILED
  187.             endif
  188.             set RegistryErrorIndex = $($R0)
  189.             set ProductKey = $($R1)
  190.             set RuleKey = $($R2)
  191.             CloseRegKey $($R3)
  192.             set ParamKey = $($R4)
  193.             CloseRegKey $($R5)
  194.             Ifstr(i) $(RegistryErrorIndex) != "NO_ERROR"
  195.                 EndWait
  196.                 Debug-Output "OEMNSVIR.INF: Registry Error "$(RegistryErrorIndex)
  197.                 CloseRegKey $($R1)
  198.                 CloseRegKey $($R2)
  199.                 CloseRegKey $($R4)
  200.                 goto fatalregistry
  201.             endif
  202.             set NewValueList = {{SoftwareType,$(NoTitle),$(!REG_VT_SZ),$(SoftwareType)},+
  203.                                {MajorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMajorVersion)},+
  204.                                {Title,$(NoTitle),$(!REG_VT_SZ),$(ProductIPRIPTitle)},+
  205.                                {Description,$(NoTitle),$(!REG_VT_SZ),$(ProductIPRIPDescription)},+
  206.                                {MinorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMinorVersion)},+
  207.                                {InstallDate,$(NoTitle),$(!REG_VT_DWORD),*($(Now),1)} + 
  208.                                {Review,$(NoTitle),$(!REG_VT_DWORD),1)}}
  209.             Shell  $(UtilityInf), AddValueList, $(ProductKey), $(NewValueList)
  210.             CloseRegKey $(ProductKey)
  211.             ifint $($ShellCode) != $(!SHELL_CODE_OK)
  212.                 Debug-Output "utility.INF: ShellCode error. Cannot add IPRIP router service"
  213.                 goto ShellCodeError
  214.             endif
  215.             set RegistryErrorIndex = $($R0)
  216.             Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
  217.                 EndWait
  218.                 Debug-Output "OEMNSVIR.INF:  error: create service"
  219.                 set Status = STATUS_FAILED
  220.             endif
  221.         set NewValueList = +
  222.             {{class, $(NoTitle), $(!REG_VT_SZ), "ipripRouter basic"},+
  223.              {type,$(NoTitle),$(!REG_VT_SZ),"iprip ipripRouter"},+
  224.              {InfOption,$(NoTitle),$(!REG_VT_SZ),"IPRIP"}, +
  225.              {bindform,$(NoTitle),$(!REG_VT_SZ),"""iprip"" yes yes simple"}, +
  226.              {bindable,$(NoTitle),$(!REG_VT_MULTI_SZ),+
  227.               {"ipripRouter ndisDriver non non 100"}}}
  228.             Shell  $(UtilityInf), AddValueList, $(RuleKey), $(NewValueList)
  229.             CloseRegKey $(RuleKey)
  230.             ifint $($ShellCode) != $(!SHELL_CODE_OK)
  231.                 Debug-Output "utility.INF: ShellCode error. Cannot add IPRIP service"
  232.                 goto ShellCodeError
  233.             endif
  234.             set RegistryErrorIndex = $($R0)
  235.             Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
  236.                 EndWait
  237.                 Debug-Output "OEMNSVIR.INF: Registry error: create service"
  238.                 set Status = STATUS_FAILED
  239.             endif
  240.     set Result = 0
  241.         ifstr(i) $(!STF_GUI_UNATTENDED) != "YES"
  242.         LoadLibrary "x" $(!STF_CWDDIR)$(ProductSoftwareConfigDLL) !hDialogDLL
  243.         ifstr(i) $(!hDialogDLL) != NULL
  244.             set FLibraryErrCtl = 1
  245.             LibraryProcedure ResultList, $(!hDialogDLL), TcpEnableRipSilentMode
  246.             set FLibraryErrCtl = 0
  247.             set Result = *($(ResultList), 1)
  248.         endif
  249.     endif
  250.         SetRegValue $(ParamKey) {SilentRip, $(NoTitle), $(!REG_VT_DWORD), $(Result)}
  251.         CloseRegKey $(ParamKey)
  252.         endif
  253.     Else
  254.         GetRegValue $(KeySoftware) "MajorVersion" VersionInfo
  255.         set VersionMajor = *($(VersionInfo), 4)
  256.         GetRegValue $(KeySoftware) "MinorVersion" VersionInfo
  257.         set VersionMinor = *($(VersionInfo), 4)
  258.         set InstalledVersion = $(VersionMajor)"."$(VersionMinor)
  259.         ifstr(i) $(InstallFrom) == "IPRIP"
  260.             read-syms VerExists$(!STF_LANGUAGE)
  261.             set Text = $(Product$(Option)Description)$(Ver)$(ProductVersion)+
  262.                        $(Text1)
  263.             Shell $(subroutineinf), SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(Text)
  264.             Ifint $($ShellCode) != $(!SHELL_CODE_OK)
  265.                 Goto fatal
  266.             Else-Ifstr(i) $($R0) == STATUS_FAILED
  267.                 Goto fatal
  268.             Else-Ifstr(i) $($R0) == STATUS_USERCANCEL
  269.                 Goto end
  270.             Endif
  271.         else
  272.             Shell "" AddNWLNKRIPUsed $(InstallFrom)
  273.         endif
  274.         goto end
  275.     EndIf
  276.     Ifstr(i) $(KeySoftware) != $(KeyNull)
  277.         CloseRegKey $(KeySoftware)
  278.     endif
  279.     Shell "" AddIPRIPUsed $(InstallFrom)
  280.     OpenRegKey $(!REG_H_LOCAL) "" "System\CurrentControlSet\Services\Tcpip\Parameters" $(MAXIMUM_ALLOWED) KeyTcpParameter
  281.     ifstr(i) $(KeyTcpParameter) != ""
  282.         GetRegValue $(KeyTcpParameter) "IPEnableRouter" RouterInfo
  283.         ifint *($(RouterInfo),4) == 0
  284.             SetRegValue $(KeyTcpParameter) {"IPEnableRouter", $(NoTitle), $(!REG_VT_DWORD), 1}
  285.         endif
  286.     endif
  287.     ifstr(i) $(!STF_GUI_UNATTENDED) != "YES"
  288.         LoadLibrary "x" $(!STF_CWDDIR)$(ProductSoftwareConfigDLL) !hDialogDLL
  289.         ifstr(i) $(!hDialogDLL) != NULL
  290.             set FLibraryErrCtl = 1
  291.             LibraryProcedure ResultList, $(!hDialogDLL), TcpCheckAdaptersForDHCP
  292.             set FLibraryErrCtl = 0
  293.         endif
  294.     endif
  295.     goto successful
  296. configureadapter = +
  297.     goto end
  298. bindingadapter =+
  299.     OpenRegKey $(!REG_H_LOCAL) "" $(!NTN_SoftwareBase)"\Microsoft\Windows NT\CurrentVersion\NetworkCards" $(MAXIMUM_ALLOWED) IE_CardKey
  300.     EnumRegKey $(IE_CardKey) IE_ListOfCards
  301.     OpenRegKey $(!REG_H_LOCAL) "" "System\CurrentControlSet\Services\IpRip\Parameters" $(MAXIMUM_ALLOWED) SilentRipKey
  302.     ifstr(i) *($(IE_ListOfCards),2) == ""
  303.         SetRegValue $(SilentRipKey) {"SilentRip", $(NoTitle), $(!REG_VT_DWORD), 1}
  304.     else
  305.         SetRegValue $(SilentRipKey) {"SilentRip", $(NoTitle), $(!REG_VT_DWORD), 0}
  306.     endif
  307.     CloseRegKey $(IE_CardKey)
  308.     CloseRegKey $(SilentRipKey)
  309.     goto end     
  310. removeadapter = +
  311.     set IpRipKeyName = "System\CurrentControlSet\Services\IpRip"
  312.     set ProductIPRIPName  = "IpRip"
  313.     Shell "" RemoveIPRIPUsed $(InstallFrom)
  314.     OpenRegKey $(!REG_H_LOCAL) "" $(IpRipKeyName) $(MAXIMUM_ALLOWED) BS_KeyServices
  315.     Ifstr $(BS_KeyServices) != $(KeyNull)
  316.         CloseRegKey $(BS_KeyServices)
  317.         Shell "" NumOfUsed
  318.         set NumOfUsed = $($R0)
  319.         ifint $(NumOfUsed) == 1
  320.             Shell "" FindUsed "IPRIP"
  321.             ifstr(i) $($R0) == TRUE
  322.                 set NumOfUsed = 0
  323.             endif
  324.         endif
  325.         ifint $(NumOfUsed) == 0
  326.             Shell $(UtilityInf), RemoveSoftwareComponent, $(Manufacturer), $(ProductIPRIPName)
  327.         else
  328.             ifstr(i) $(InstallFrom) == "IPRIP"
  329.                 read-syms InUse$(!STF_LANGUAGE)
  330.                 set from = end
  331.                 set to = end
  332.                 goto warning
  333.             endif
  334.         endif
  335.     endif
  336.     goto end
  337. UpgradeSoftware = +
  338.     OpenRegKey $(!REG_H_LOCAL) "" $(ProductKeyName) $(MAXIMUM_ALLOWED) KeyProduct
  339.     Ifstr(i) $(KeyProduct) != $(KeyNull)
  340.         install "Install-Update"
  341.         ifstr(i) $(STF_INSTALL_OUTCOME) != STF_SUCCESS
  342.             goto fatal
  343.         endif
  344.         SetRegValue $(KeyProduct) {SoftwareType,$(NoTitle),$(!REG_VT_SZ),$(SoftwareType)}
  345.         SetRegValue $(KeyProduct) {MajorVersion,$(NoTitle),$(!REG_VT_SZ),$(ProductMajorVersion)}
  346.         SetRegValue $(KeyProduct) {MinorVersion,$(NoTitle),$(!REG_VT_SZ),$(ProductMinorVersion)}
  347.         LibraryProcedure Result, $(!LIBHANDLE), SetupChangeServiceConfig, "IpRip", $(SERVICE_NO_CHANGE), $(SERVICE_NO_CHANGE), $(SERVICE_NO_CHANGE), "%SystemRoot%\System32\router.exe", "", "", "", "", ""
  348.         CloseRegKey $(KeyProduct)
  349.     endif
  350.     goto end
  351. successful = +
  352.     goto end
  353. infomsg =+
  354.    read-syms InfoDlg
  355.    ui start "Warning"
  356.    set CommonStatus = STATUS_USERCANCEL
  357.    goto end
  358. warning = +
  359.     Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), "WARNING", $(Error)
  360.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  361.         goto ShellCodeError
  362.     endif
  363.     ifstr(i) $($R1) == "OK"
  364.         goto $(to)
  365.     else-ifstr(i) $($R1) == "CANCEL"
  366.         goto $(from)
  367.     else
  368.         goto "end"
  369.     endif
  370. nonfatalinfo = +
  371.     Set CommonStatus = STATUS_USERCANCEL
  372.     Set Severity = STATUS
  373.     goto nonfatalmsg
  374. nonfatal = +
  375.     Set Severity = NONFATAL
  376.     goto nonfatalmsg
  377. nonfatalmsg = +
  378.     ifstr(i) $(Error) == ""
  379.         Set Severity = NONFATAL
  380.         Shell $(UtilityInf) RegistryErrorString "SETUP_FAIL"
  381.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  382.             goto ShellCodeError
  383.         endif
  384.         set Error = $($R0)
  385.     endif
  386.     Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), $(Severity), $(Error)
  387.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  388.         goto ShellCodeError
  389.     endif
  390.     ifstr(i) $($R1) == "OK"
  391.         goto $(from)
  392.     else
  393.         goto "end"
  394.     endif
  395. fatalregistry = +
  396.     Shell $(UtilityInf) RegistryErrorString $(RegistryErrorIndex)
  397.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  398.         goto ShellCodeError
  399.     endif
  400.     set Error = $($R0)
  401.     goto fatal
  402. fatal = +
  403.     ifstr(i) $(Error) == ""
  404.         Shell $(UtilityInf) RegistryErrorString "SETUP_FAIL"
  405.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  406.             goto ShellCodeError
  407.         endif
  408.         set Error = $($R0)
  409.     endif
  410.     Ifint $(BillboardVisible) != 0
  411.         Shell "subroutn.inf" PopBillboard
  412.         Set BillboardVisible = 0
  413.     Endif
  414.     Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), "FATAL", $(Error)
  415.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  416.         goto ShellCodeError
  417.     endif
  418.    goto setfailed
  419. ShellCodeError = +
  420.     set DlgType      = "MessageBox"
  421.     set STF_MB_TITLE = $(ShellCodeErrorTitle)
  422.     set STF_MB_TEXT  = $(ShellCodeErrorText)
  423.     set STF_MB_TYPE  = 1
  424.     set STF_MB_ICON  = 3
  425.     set STF_MB_DEF   = 1
  426.     ui start "Error Message"
  427.     goto setfailed
  428. setfailed = +
  429.     set CommonStatus = STATUS_FAILED
  430.     ifstr(i) $(OEM_ABANDON_ON) == TRUE
  431.         set OEM_ABANDON_ON = FALSE
  432.         goto removeadapter
  433.     endif
  434.     goto end
  435. end = +
  436.     goto term
  437. term = +
  438.     Return $(CommonStatus)
  439. [GetFilesSize]
  440.     set FileSizeList = ^(Files-TCPPRINT,3)
  441.     set TotalSize = 0
  442.     ForListDo $(FileSizeList)
  443.         Split-String $($) "=" SplitString
  444.         set Size = *($(SplitString),3)
  445.         set-add TotalSize = $(TotalSize) $(Size)
  446.     EndForListDo
  447.     set-div SizeInK = $(TotalSize) 1024
  448.     return $(SizeInK)
  449. [Install-Option]
  450.     set STF_VITAL = NO
  451.     ifstr(i) $(AddCopy) == "YES"
  452.         AddSectionFilesToCopyList Files-IPRIP $(SrcDir) $(!STF_WINDOWSSYSPATH)
  453.     endif
  454.     ifstr(i) $(DoCopy) == "YES"
  455.        set !STF_NCPA_FLUSH_COPYLIST = TRUE
  456.        CopyFilesInCopyList
  457.     endif
  458.     ifstr(i) $(DoConfig) == "YES"
  459.     endif
  460.     Exit
  461. [Install-Update]
  462.    set STF_VITAL        = NO
  463.    set STF_OVERWRITE    = "VERIFYSOURCEOLDER"
  464.    AddSectionFilesToCopyList Files-IPRIP $(SrcDir) $(!STF_WINDOWSSYSPATH)
  465.    Exit
  466. [AddIPRIPUsed]
  467.     read-syms GeneralConstants
  468.     read-syms FileConstants
  469.     read-syms FileConstants$(!STF_LANGUAGE)
  470.     set KeyName = $($0)
  471.     OpenRegKey $(!REG_H_LOCAL) "" $(ProductKeyName) $(MAXIMUM_ALLOWED) KeyService
  472.     ifstr(i) $(KeyService) != ""
  473.         OpenRegKey $(!REG_H_LOCAL) "" $(ProductKeyName)"\UseRef" $(MAXIMUM_ALLOWED) KeyUseRef
  474.         ifstr(i) $(KeyUseRef) == ""
  475.             CreateRegKey $(KeyService) {"UseRef",$(NoTitle),GenericClass} "" $(MAXIMUM_ALLOWED) "" KeyUseRef
  476.         endif
  477.         ifstr(i) $(KeyUseRef) != ""
  478.             SetRegValue $(KeyUseRef) {$(KeyName),$(NoTitle),$(!REG_VT_SZ),"1"}
  479.             CloseRegKey $(KeyUseRef)
  480.         endif
  481.         CloseRegKey $(KeyService)
  482.     else
  483.     endif
  484.     return
  485. [RemoveIPRIPUsed]
  486.     read-syms GeneralConstants
  487.     read-syms FileConstants
  488.     read-syms FileConstants$(!STF_LANGUAGE)
  489.     set KeyName = $($0)
  490.     OpenRegKey $(!REG_H_LOCAL) "" $(ProductKeyName) $(MAXIMUM_ALLOWED) KeyService
  491.     ifstr(i) $(KeyService) != ""
  492.         OpenRegKey $(!REG_H_LOCAL) "" $(ProductKeyName)"\UseRef" $(MAXIMUM_ALLOWED) KeyUseRef
  493.         ifstr(i) $(KeyUseRef) == ""
  494.             CreateRegKey $(KeyService) {"UseRef",$(NoTitle),GenericClass} "" $(MAXIMUM_ALLOWED) "" KeyUseRef
  495.         endif
  496.         ifstr(i) $(KeyUseRef) != ""
  497.             DeleteRegValue $(KeyUseRef) $(KeyName)
  498.             CloseRegKey $(KeyUseRef)
  499.         endif
  500.         CloseRegKey $(KeyService)
  501.     else
  502.     endif
  503.     return
  504. [NumOfUsed]
  505.     read-syms GeneralConstants
  506.     read-syms FileConstants
  507.     read-syms FileConstants$(!STF_LANGUAGE)
  508.     OpenRegKey $(!REG_H_LOCAL) "" $(ProductKeyName) $(MAXIMUM_ALLOWED) KeyService
  509.     ifstr(i) $(KeyService) != ""
  510.         OpenRegKey $(!REG_H_LOCAL) "" $(ProductKeyName)"\UseRef" $(MAXIMUM_ALLOWED) KeyUseRef
  511.         ifstr(i) $(KeyUseRef) == ""
  512.             CreateRegKey $(KeyService) {"UseRef",$(NoTitle),GenericClass} "" $(MAXIMUM_ALLOWED) "" KeyUseRef
  513.         endif
  514.         ifstr(i) $(KeyUseRef) != ""
  515.             EnumRegValue $(KeyUseRef) UsageList
  516.             set Num = 0
  517.             ForListDo $(UsageList)
  518.                 set-add Num = $(Num), 1
  519.             EndForListDo
  520.             CloseRegKey $(KeyUseRef)
  521.         endif
  522.         CloseRegKey $(KeyService)
  523.     else
  524.     endif
  525.     return $(Num)
  526. [FindUsed]
  527.     read-syms GeneralConstants
  528.     read-syms FileConstants
  529.     read-syms FileConstants$(!STF_LANGUAGE)
  530.     set KeyName = $($0)
  531.     set Find = FALSE
  532.     OpenRegKey $(!REG_H_LOCAL) "" $(ProductKeyName) $(MAXIMUM_ALLOWED) KeyService
  533.     ifstr(i) $(KeyService) != ""
  534.         OpenRegKey $(!REG_H_LOCAL) "" $(ProductKeyName)"\UseRef" $(MAXIMUM_ALLOWED) KeyUseRef
  535.         ifstr(i) $(KeyUseRef) == ""
  536.             CreateRegKey $(KeyService) {"UseRef",$(NoTitle),GenericClass} "" $(MAXIMUM_ALLOWED) "" KeyUseRef
  537.         endif
  538.         ifstr(i) $(KeyUseRef) != ""
  539.             GetRegValue $(KeyUseRef),$(KeyName), KeyInfo
  540.             ifstr(i) $(RegLastError) == $(!REG_ERROR_SUCCESS)
  541.                 set Find = TRUE
  542.             endif
  543.             CloseRegKey $(KeyUseRef)
  544.         endif
  545.         CloseRegKey $(KeyService)
  546.     else
  547.     endif
  548.     return $(Find)
  549. [Source Media Descriptions]
  550.     1 = "Windows NT Workstation CD-ROM" , TAGFILE = cdrom.w
  551. [Signature]
  552.     FileType = MICROSOFT_FILE
  553. [GetSignature]
  554.     read-syms Signature
  555.     return $(FileType)
  556. [ProductType]
  557. STF_PRODUCT  = Winnt
  558. STF_PLATFORM = I386
  559. [Files-Inf]
  560. 2,    oemsetup.inf,     SIZE=1000,    RENAME=$(!UG_Filename)
  561. [LanguagesSupported]
  562.     ENG
  563. [OptionsTextENG]
  564.     IPRIP = "RIP for Internet Protocol"
  565. [FileConstantsENG]
  566. ProCaption   = "Windows NT Setup"
  567. ProCancel    = "Cancel"
  568. ProCancelMsg = "Windows NT Networking is not correctly installed.  "+
  569.                "Are you sure you want to cancel copying files?"
  570. ProCancelCap = "Network Setup Message"
  571. ProText1     = "Copying:"
  572. ProText2     = "To:"
  573. ProductIPRIPTitle       = "RIP for Internet Protocol"
  574. ProductIPRIPDescription = "RIP for Internet Protocol"
  575. ProductIPRIPDisplayName = "RIP for Internet Protocol"
  576. [VerExistsENG]
  577.     Ver   = " version "
  578.     Text1 = " is already installed. Please use"+
  579.             " [Update] option from the Network Control Panel"+
  580.             " aplet to Update RIP for Internet Protocol."
  581. [InUseENG]
  582. Error = "RIP for Internet Protocol is currently in use by other network protocols. Please remove all related services first."
  583. [DialogConstantsENG]
  584. Help        = "&Help"
  585. Exit        = "Cancel"
  586. OK          = "OK"
  587. HelpContext = ""
  588. Continue    = "Continue"
  589. Cancel      = "Cancel"
  590.