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