home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / d / d423_liu / 8.ddi / OEMNADTM.IN_ / OEMNADTM.IN
Encoding:
INI File  |  1993-07-24  |  26.5 KB  |  670 lines
  1. [Identification]
  2.     OptionType = NetAdapter
  3. [PlatformsSupported]
  4.     MCA
  5. [Options]
  6.     IBMTOKMC
  7. [FileConstants]
  8. UtilityInf      = "UTILITY.INF"
  9. subroutineinf   = "SUBROUTN.INF"
  10. SoftwareType    = "driver"
  11. Exit_Code       = 0
  12. NetEventDLL     = "%SystemRoot%\System32\netevent.dll"
  13. IoLogMsgDLL     = "%SystemRoot%\System32\IoLogMsg.dll"
  14. IBMTOKMC_1BYTE  = 1
  15. IBMTOKMC_2BYTE  = 224
  16. NETCARD_ID      = 57345
  17. Manufacturer    = "Microsoft"
  18. ProductMajorVersion     = "3"
  19. ProductMinorVersion     = "1"
  20. ProductVersion  = $(ProductMajorVersion)"."$(ProductMinorVersion)
  21. ProductSoftwareName     = "IbmTok"
  22. ProductSoftwareImagePath = "\SystemRoot\system32\drivers\ibmtok.sys"
  23. NetRuleSoftwareType     = "ibmtokSys ndisDriver ibmtokDriver"
  24. NetRuleSoftwareUse      = $(SoftwareType)
  25. NetRuleSoftwareBindForm = """IBMTokSys"" yes no container"
  26. NetRuleSoftwareClass    = {"ibmtokriver basic"}
  27. NetRuleSoftwareBindable = {"ibmtokDriver ibmtokAdapter non exclusive 100",+
  28.                            "ibmtokDriver ibmtokmcAdapter non exclusive 100"}
  29. ProductHardwareName     = "IbmTokMC"
  30. NetRuleHardwareType     = "ibmtokmc ibmtokmcAdapter"
  31. NetRuleHardwareBindForm = " yes yes container"
  32. NetRuleHardwareClass    = {"ibmtokmcAdapter basic"}
  33. ProductKeyName  = $(!NTN_SoftwareBase)"\"$(Manufacturer)"\"$(ProductSoftwareName)"\CurrentVersion"
  34. ParamKeyName    = $(!NTN_ServiceBase)"\"$(ProductHardwareName)"\Parameters"
  35. [GeneralConstants]
  36. from      = ""
  37. to        = ""
  38. ExitCodeOk     = 0
  39. ExitCodeCancel = 1
  40. ExitCodeFatal  = 2
  41. KeyNull         = ""
  42. MAXIMUM_ALLOWED   = 33554432
  43. RegistryErrorIndex = NO_ERROR
  44. KeyProduct      = ""
  45. KeyParameters   = ""
  46. TRUE            = 1
  47. FALSE           = 0
  48. NoTitle            = 0
  49. ExitState   = "Active"
  50. OldVersionExisted = $(FALSE)
  51. DriverPath      = $(!STF_NTPATH)\drivers
  52. [date]
  53.     Now = {} ? $(!LIBHANDLE) GetSystemDate
  54. [Identify]
  55.     read-syms Identification
  56.     set Status     = STATUS_SUCCESSFUL
  57.     set Identifier = $(OptionType)
  58.     set Media      = #("Source Media Descriptions", 1, 1)
  59.     Return $(Status) $(Identifier) $(Media)
  60. [ReturnOptions]
  61.     set Status        = STATUS_FAILED
  62.     set OptionList     = {}
  63.     set OptionTextList = {}
  64.     set LanguageList = ^(LanguagesSupported, 1)
  65.     Ifcontains(i) $($0) in $(LanguageList)
  66.         ifstr(i) $($1) == ""
  67.            goto returnoptions
  68.         endif
  69.         set PlatformList = ^(PlatformsSupported, 1)
  70.         Ifcontains(i) $($1) in $(PlatformList)
  71.            goto returnoptions
  72.         else
  73.            set Status = STATUS_NOTSUPPORTED
  74.            goto finish_ReturnOptions
  75.         endif
  76.     else
  77.         set Status = STATUS_NOLANGUAGE
  78.         goto finish_ReturnOptions
  79.     endif
  80. returnoptions = +
  81.     set OptionList     = ^(Options, 1)
  82.     set OptionTextList = ^(OptionsText$($0), 1)
  83.     set Status         = STATUS_SUCCESSFUL
  84. finish_ReturnOptions = +
  85.     Return $(Status) $(OptionList) $(OptionTextList)
  86. [InstallOption]
  87.     set Option   = $($1)
  88.     set SrcDir   = $($2)
  89.     set AddCopy  = $($3)
  90.     set DoCopy   = $($4)
  91.     set DoConfig = $($5)
  92.     set LanguageList = ^(LanguagesSupported, 1)
  93.     Ifcontains(i) $($0) NOT-IN $(LanguageList)
  94.         Return STATUS_NOLANGUAGE
  95.     endif
  96.     Debug-Output "OEMNADTM.INF: STF_CWDIR is: "$(!STF_CWDIR)
  97.     Debug-Output "OEMNADTM.INF: STF_LANGUAGE is: "$(!STF_LANGUAGE)
  98.     set-subst LF = "\n"
  99.     read-syms GeneralConstants
  100.     read-syms FileConstants
  101.     read-syms DialogConstants$(!STF_LANGUAGE)
  102.     read-syms FileConstants$(!STF_LANGUAGE)
  103.     detect date
  104.     set-title  $(FunctionTitle)
  105.     set to   = Begin
  106.     set from = Begin
  107.     set CommonStatus = STATUS_SUCCESSFUL
  108.     EndWait
  109. Begin = +
  110.     Ifstr(i) $(!NTN_InstallMode) == deinstall
  111.         set StartLabel = removeadapter
  112.     else-Ifstr(i) $(!NTN_InstallMode) == Update
  113.         set StartLabel = UpgradeSoftware
  114.     else-Ifstr(i) $(!NTN_InstallMode) == bind
  115.         set StartLabel = bindingadapter
  116.     else-Ifstr(i) $(!NTN_InstallMode) == configure
  117.         set CommonStatus = STATUS_REBOOT
  118.         Ifstr(i) $(ProductKeyName) == $(!NTN_RegBase)
  119.             Debug-Output "Cannot configure the ibm token ring driver software."
  120.             Shell $(UtilityInf),RegistryErrorString,CANNOT_CONFIGURE_SOFTWARE
  121.             ifint $($ShellCode) != $(!SHELL_CODE_OK)
  122.                 Debug-Output "ShellCode error: cannot get an error string."
  123.                 goto ShellCodeError
  124.             endif
  125.             set Error = $($R0)
  126.             set from = end
  127.             set to = end
  128.             goto nonfatalinfo
  129.         endif
  130.         set StartLabel = configureadapter
  131.     else
  132.         set StartLabel = installadapter
  133.         set OEM_ABANDON_OPTIONS = {}
  134.         set OEM_ABANDON_SOFTWARE = FALSE
  135.         set OEM_ABANDON_ON = TRUE
  136.     endif
  137.     set from = $(fatal)
  138.     set to = $(fatal)
  139.     goto $(StartLabel)
  140. installadapter = +
  141.     OpenRegKey $(!REG_H_LOCAL) "" $(ProductKeyName) $(MAXIMUM_ALLOWED) KeyProduct
  142.     Ifstr $(KeyProduct) != $(KeyNull)
  143.         CloseRegKey $(KeyProduct)
  144.         ifstr(i) !(NTN_RegBase) == $(ProductKeyName)
  145.            Shell $(UtilityInf), VerExistedDlg, $(ProductSoftwareTitle),+
  146.                $(ProductVersion)
  147.            ifint $($ShellCode) != $(!SHELL_CODE_OK)
  148.                Debug-Output "ShellCode error: cannot get an error string."
  149.                goto ShellCodeError
  150.            endif
  151.            goto end
  152.         else
  153.            Shell $(UtilityInf), CardExistedDlg
  154.            ifint $($ShellCode) != $(!SHELL_CODE_OK)
  155.                Debug-Output "ShellCode error: cannot get an error string."
  156.                goto ShellCodeError
  157.            endif
  158.            ifstr(i) $($R1) != "OK"
  159.                Set CommonStatus = STATUS_USERCANCEL
  160.                goto end
  161.            endif
  162.            set OldVersionExisted = $(TRUE)
  163.         endif
  164.     endif
  165.     goto nextstep
  166. configureadapter = +
  167.     OpenRegKey $(!REG_H_LOCAL) "" $(!NTN_RegBase) $(MAXIMUM_ALLOWED) NetCardKey
  168.     ifstr(i) $(NetCardKey) == ""
  169.         set CommonStatus = STATUS_USERCANCEL
  170.         goto successful
  171.     endif
  172.     GetRegValue $(NetCardKey) "ServiceName" ServiceInfo
  173.     set ServiceName = *($(ServiceInfo),4)
  174.     CloseRegKey $(NetCardKey)
  175.     OpenRegKey $(!REG_H_LOCAL) "" $(!NTN_ServiceBase)"\"$(ServiceName)"\Parameters" $(MAXIMUM_ALLOWED) ParamKey
  176.     ifstr(i) $(ParamKey) != ""
  177.         GetRegValue $(ParamKey),"NetworkAddress", NetworkAddressInfo
  178.         set NetworkAddress = *($(NetworkAddressInfo), 4)
  179.         read-syms FileDependentDlg$(!STF_LANGUAGE)
  180.         ui start "NetworkAddress"
  181.         ifstr(i) $(DLGEVENT) == "CONTINUE"
  182.             set NetworkAddress = *($(EditTextOut),1)
  183.             SetRegValue $(ParamKey) {NetworkAddress,$(NoTitle),$(!REG_VT_SZ),$(NetworkAddress)}
  184.             ui pop 1
  185.         else
  186.             set CommonStatus = STATUS_USERCANCEL
  187.             ui pop 1
  188.         endif
  189.         CloseRegKey $(ParamKey)
  190.     endif
  191.     goto successful
  192. nextstep = +
  193.     StartWait
  194. installproduct = +
  195.     Shell $(UtilityInf), MCAFindBus, $(IBMTOKMC_1BYTE), $(IBMTOKMC_2BYTE)
  196.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  197.         goto ShellCodeError
  198.     endif
  199.     ifstr $($R0) != "NO_ERROR"
  200.         set Error = $($R0)
  201.         goto fatal
  202.     endif
  203.     ifstr(i) $($R1) == {}
  204.         set Error = $(CANNOT_FIND_ANY_CARD)
  205.         set CommonStatus = STATUS_USERCANCEL
  206.         set from = "end"
  207.         goto nonfatal
  208.     endif
  209.     set AdapterList = $($R1)
  210.     ifint $(OldVersionExisted) == $(FALSE)
  211.         ifstr(i) $(!NTN_InstallMode) == "install"
  212.            Ifstr(i) $(DoCopy) == "YES"
  213.               Shell $(UtilityInf), DoAskSource, $(!STF_CWDDIR), $(SrcDir) YES
  214.               Ifint $($ShellCode) != $(!SHELL_CODE_OK)
  215.                   Goto ShellCodeError
  216.               Else-Ifstr(i) $($R0) == STATUS_FAILED
  217.                   Shell $(UtilityInf) RegistryErrorString "ASK_SOURCE_FAIL"
  218.                   ifint $($ShellCode) != $(!SHELL_CODE_OK)
  219.                       goto ShellCodeError
  220.                   endif
  221.                   set Error = $($R0)
  222.                   Goto fatal
  223.               Else-Ifstr(i) $($R0) == STATUS_USERCANCEL
  224.                   Goto successful
  225.               Endif
  226.               Set SrcDir = $($R1)
  227.            Endif
  228.            install "Install-Option"
  229.            ifstr(i) $(STF_INSTALL_OUTCOME) != STF_SUCCESS
  230.               Shell $(UtilityInf) RegistryErrorString "UNABLE_COPY_FILE"
  231.               ifint $($ShellCode) != $(!SHELL_CODE_OK)
  232.                   goto ShellCodeError
  233.               endif
  234.               set Error = $($R0)
  235.               goto fatal
  236.            endif
  237.         endif
  238.         Shell $(UtilityInf), AddSoftwareComponent, $(Manufacturer), +
  239.             $(ProductSoftwareName), +
  240.             $(ProductSoftwareName), +
  241.             $(ProductSoftwareTitle), $(STF_CONTEXTINFNAME), +
  242.             $(ProductSoftwareImagePath), "kernel", "NDIS", {}, "",+
  243.             $(NetEventDLL)
  244.         Set OEM_ABANDON_SOFTWARE = TRUE
  245.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  246.             goto ShellCodeError
  247.         endif
  248.         set RegistryErrorIndex = $($R0)
  249.         Ifstr(i) $(RegistryErrorIndex) != "NO_ERROR"
  250.             EndWait
  251.             CloseRegKey $($R1)
  252.             CloseRegKey $($R2)
  253.             CloseRegKey $($R3)
  254.             CloseRegKey $($R4)
  255.             CloseRegKey $($R5)
  256.             goto fatalregistry
  257.         endif
  258.         Set SoftProductKey      = $($R1)
  259.         Set SoftNetRuleKey      = $($R2)
  260.         Set SoftServiceKey      = $($R3)
  261.         Set SoftParameterKey    = $($R4)
  262.         Set SoftLinkageKey      = $($R5)
  263.         set NewValueList = {{SoftwareType,$(NoTitle),$(!REG_VT_SZ),$(SoftwareType)},+
  264.                            {MajorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMajorVersion)},+
  265.                            {MinorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMinorVersion)},+
  266.                            {Title,$(NoTitle),$(!REG_VT_SZ),$(ProductSoftwareTitle)},+
  267.                            {Description,$(NoTitle),$(!REG_VT_SZ),$(ProductSoftwareDescription)},+
  268.                            {ServiceName,$(NoTitle),$(!REG_VT_SZ),$(ProductSoftwareName)},+
  269.                            {InstallDate,$(NoTitle),$(!REG_VT_DWORD),*($(Now),1)}}
  270.         Shell  $(UtilityInf), AddValueList, $(SoftProductKey), $(NewValueList)
  271.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  272.             goto ShellCodeError
  273.         endif
  274.         set RegistryErrorIndex = $($R0)
  275.         Ifstr(i) $(RegistryErrorIndex) != "NO_ERROR"
  276.             EndWait
  277.             CloseRegKey $(SoftProductKey)
  278.             CloseRegKey $(SoftNetRuleKey)
  279.             CloseRegKey $(SoftServiceKey)
  280.             CloseRegKey $(SoftParameterKey)
  281.             CloseRegKey $(SoftLinkageKey)
  282.             goto fatalregistry
  283.         endif
  284.         set NewValueList = {{type,$(NoTitle),$(!REG_VT_SZ),$(NetRuleSoftwareType)},+
  285.                             {use,$(NoTitle),$(!REG_VT_SZ),$(NetRuleSoftwareUse)}, +
  286.                             {bindform,$(NoTitle),$(!REG_VT_SZ),$(NetRuleSoftwareBindForm)}, +
  287.                             {class,$(NoTitle),$(!REG_VT_MULTI_SZ),$(NetRuleSoftwareClass)}, +
  288.                             {bindable,$(NoTitle),$(!REG_VT_MULTI_SZ),$(NetRuleSoftwareBindable)}, +
  289.                             {InfOption,$(NoTitle),$(!REG_VT_SZ),$(Option)}}
  290.         Shell  $(UtilityInf), AddValueList, $(SoftNetRuleKey), $(NewValueList)
  291.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  292.             goto ShellCodeError
  293.         endif
  294.         set RegistryErrorIndex = $($R0)
  295.         CloseRegKey $(SoftProductKey)
  296.         CloseRegKey $(SoftNetRuleKey)
  297.         CloseRegKey $(SoftServiceKey)
  298.         CloseRegKey $(SoftParameterKey)
  299.         CloseRegKey $(SoftLinkageKey)
  300.         Ifstr(i) $(RegistryErrorIndex) != "NO_ERROR"
  301.             EndWait
  302.             goto fatalregistry
  303.         endif
  304.     endif
  305.     ForListDo $(AdapterList)
  306.         set BusNum = *($($),1)
  307.         set SlotNum = *($($),2)
  308.         Debug-Output $(BusNum)
  309.         Debug-Output $(SlotNum)
  310.         Shell $(UtilityInf), IsNetCardAlreadyInstalled, $(BusNum), +
  311.             $(SlotNum), $(ProductHardwareDescription), $(ProductHardwareName)
  312.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  313.             goto ShellCodeError
  314.         endif
  315.         ifstr $($R0) != "NO_ERROR"
  316.             set Error = $($R0)
  317.             goto fatal
  318.         endif
  319.         ifstr(i) $($R1) != "YES"
  320.                 Shell $(UtilityInf), AddHardwareComponent, $(ProductHardwareName),$(STF_CONTEXTINFNAME),$(ProductKeyName)
  321.                 ifint $($R4) != -1
  322.                     Set OEM_ABANDON_OPTIONS = >($(OEM_ABANDON_OPTIONS), $(!NTN_SoftwareBase)"\Microsoft\Windows NT\CurrentVersion\NetworkCards\"$($R4))
  323.                 endif
  324.                 ifint $($ShellCode) != $(!SHELL_CODE_OK)
  325.                     goto ShellCodeError
  326.                 endif
  327.                 set RegistryErrorIndex = $($R0)
  328.                 Ifstr(i) $(RegistryErrorIndex) != "NO_ERROR"
  329.                     EndWait
  330.                     CloseRegKey $($R1)
  331.                     CloseRegKey $($R2)
  332.                     CloseRegKey $($R3)
  333.                     goto fatalregistry
  334.                 endif
  335.                 Set HardNetCardKey      = $($R1)
  336.                 Set HardNetRuleKey      = $($R2)
  337.                 Set HardParameterKey    = $($R3)
  338.                 set AdapterNumber       = $($R4)
  339.                 set NewValueList = {{Manufacturer,$(NoTitle),$(!REG_VT_SZ),$(Manufacturer)},+
  340.                                    {Title,$(NoTitle),$(!REG_VT_SZ),"["$($R4)"] "$(ProductHardwareTitle)},+
  341.                                    {Description,$(NoTitle),$(!REG_VT_SZ),$(ProductHardwareDescription)},+
  342.                                    {ProductName,$(NoTitle),$(!REG_VT_SZ),$(ProductHardwareName)},+
  343.                                    {ServiceName,$(NoTitle),$(!REG_VT_SZ),$($R5)},+
  344.                                    {InstallDate,$(NoTitle),$(!REG_VT_DWORD),*($(Now),1)}}
  345.                 Shell  $(UtilityInf), AddValueList, $(HardNetCardKey), $(NewValueList)
  346.                 ifint $($ShellCode) != $(!SHELL_CODE_OK)
  347.                     goto ShellCodeError
  348.                 endif
  349.                 read-syms FileDependentDlg$(!STF_LANGUAGE)
  350.                 ui start "NetworkAddress"
  351.                 set NetworkAddress = *($(EditTextOut),1)
  352.                 Shell $(UtilityInf), GetBusTypeNum
  353.                 set BusTypeNum = $($R1)
  354.                 ifint $($ShellCode) != $(!SHELL_CODE_OK)
  355.                     Debug-Output "ShellCode error."
  356.                     goto ShellCodeError
  357.                 endif
  358.                 set NewValueList = {{BusNumber,$(NoTitle),$(!REG_VT_DWORD),$(BusNum)},+
  359.                                 {MediaType,$(NoTitle),$(!REG_VT_DWORD),2},+
  360.                                 {NetworkAddress,$(NoTitle),$(!REG_VT_SZ),$(NetworkAddress)},+
  361.                                 {McaPosId,$(NoTitle),$(!REG_VT_DWORD),$(NETCARD_ID)},+
  362.                                 {BusType,$(NoTitle),$(!REG_VT_DWORD),$(BusTypeNum)},+
  363.                                 {SlotNumber,$(NoTitle),$(!REG_VT_DWORD),$(SlotNum)}}
  364.                 Shell  $(UtilityInf), AddValueList, $(HardParameterKey), $(NewValueList)
  365.                 ifint $($ShellCode) != $(!SHELL_CODE_OK)
  366.                     goto ShellCodeError
  367.                 endif
  368.                 set TempProdName = """"$(ProductHardwareName)$(AdapterNumber)""""
  369.                 set TempBindForm = $(TempProdName)$(NetRuleHardwareBindForm)
  370.                 set NewValueList = {{type,$(NoTitle),$(!REG_VT_SZ),$(NetRuleHardwareType)},+
  371.                                     {bindform,$(NoTitle),$(!REG_VT_SZ),$(TempBindForm)}, +
  372.                                     {class,$(NoTitle),$(!REG_VT_MULTI_SZ),$(NetRuleHardwareClass)}, +
  373.                                     {InfOption,$(NoTitle),$(!REG_VT_SZ),$(Option)}}
  374.                 Shell  $(UtilityInf), AddValueList, $(HardNetRuleKey), $(NewValueList)
  375.                 CloseRegKey $(HardNetCardKey)
  376.                 CloseRegKey $(HardNetRuleKey)
  377.                 CloseRegKey $(HardParameterKey)
  378.                 ifint $($ShellCode) != $(!SHELL_CODE_OK)
  379.                     goto ShellCodeError
  380.                 endif
  381.         endif
  382.     EndForListDo
  383.     goto writeparameters
  384. writeparameters = +
  385.     EndWait
  386.     goto successful
  387. bindingadapter =+
  388.     set Error = "Binding: Sorry, not yet implemented."
  389.     goto fatal
  390. removeadapter = +
  391.     Ifstr(i) $(ProductKeyName) == $(!NTN_RegBase)
  392.         Shell $(UtilityInf), RemoveSoftwareComponent, $(Manufacturer), +
  393.             $(ProductSoftwareName)
  394.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  395.             Debug-Output "ShellCode error"
  396.             goto ShellCodeError
  397.         endif
  398.         set RegistryErrorIndex = $($R0)
  399.         Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
  400.             goto fatalregistry
  401.         endif
  402.     else
  403.         Shell $(UtilityInf), RemoveHardwareComponent, $(Manufacturer), +
  404.             $(ProductSoftwareName), $(!NTN_RegBase)
  405.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  406.             Debug-Output "ShellCode error"
  407.             goto ShellCodeError
  408.         endif
  409.         set RegistryErrorIndex = $($R0)
  410.         Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
  411.             goto fatalregistry
  412.         endif
  413.     endif
  414.     goto end
  415. UpgradeSoftware = +
  416.     ifstr(i) $(ProductKeyName) == $(!NTN_RegBase)
  417.         OpenRegKey $(!REG_H_LOCAL) "" $(ProductKeyName) $(MAXIMUM_ALLOWED) KeyProduct
  418.         Ifstr $(KeyProduct) != $(KeyNull)
  419.             GetRegValue $(KeyProduct),"MajorVersion", VersionInfo
  420.             set Version = *($(VersionInfo), 4)
  421.             Shell $(UtilityInf), GetInfFileNameFromRegistry, $(KeyProduct)
  422.             ifint $($ShellCode) != $(!SHELL_CODE_OK)
  423.                 Debug-Output "ShellCode error"
  424.                 goto ShellCodeError
  425.             endif
  426.             set !UG_Filename = $($R0)
  427.             ifstr(i) $(!UG_Filename) != ""
  428.                 install "Install-Update"
  429.                 ifstr(i) $(STF_INSTALL_OUTCOME) != STF_SUCCESS
  430.                     goto fatal
  431.                 endif
  432.             endif
  433.             SetRegValue $(KeyProduct) {MajorVersion,$(NoTitle),$(!REG_VT_SZ),$(ProductMajorVersion)}
  434.             SetRegValue $(KeyProduct) {MinorVersion,$(NoTitle),$(!REG_VT_SZ),$(ProductMinorVersion)}
  435.             ifint $(Version) != $(ProductVersion)
  436.             endif
  437.             CloseRegKey $(KeyProduct)
  438.         else
  439.             goto fatalregistry
  440.         endif
  441.     else
  442.         OpenRegKey $(!REG_H_LOCAL) "" $(!NTN_RegBase) +
  443.               $(MAXIMUM_ALLOWED) NetworkCardKey
  444.         Ifstr(i) $(NetworkCardKey) != $(KeyNull)
  445.             GetRegValue $(NetworkCardKey),"ServiceName", ServiceNameInfo
  446.             set ServiceName = *($(ServiceNameInfo), 4)
  447.             OpenRegKey $(NetworkCardKey) "" "NetRules" +
  448.                 $(MAXIMUM_ALLOWED) NetRuleKey
  449.             Ifstr(i) $(NetRuleKey) != $(KeyNull)
  450.             else
  451.                 goto fatalregistry
  452.             endif
  453.             CloseRegKey $(NetRules)
  454.             CloseRegKey $(NetworkCardKey)
  455.         else
  456.             goto fatalregistry
  457.         endif
  458.         OpenRegKey $(!REG_H_LOCAL) "" +
  459.               $(!NTN_ServiceBase)"\"$(ServiceName) +
  460.               $(MAXIMUM_ALLOWED) ServiceKey
  461.         Ifstr(i) $(ServiceKey) != $(KeyNull)
  462.             CloseRegKey $(ServiceKey)
  463.         else
  464.             goto fatalregistry
  465.         endif
  466.     endif
  467.     goto end
  468. successful = +
  469.     goto end
  470. abandon = +
  471.     ForListDo $(OEM_ABANDON_OPTIONS)
  472.         Shell $(UtilityInf), RemoveHardwareComponent, $(Manufacturer), +
  473.             $(ProductSoftwareName), $($)
  474.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  475.             Debug-Output "ShellCode error"
  476.             goto ShellCodeError
  477.         endif
  478.         set RegistryErrorIndex = $($R0)
  479.         Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
  480.             goto fatalregistry
  481.         endif
  482.     EndForListDo
  483.     Ifstr(i) $(OEM_ABANDON_SOFTWARE) == TRUE
  484.         Shell $(UtilityInf), RemoveSoftwareComponent, $(Manufacturer), +
  485.             $(ProductSoftwareName), FALSE
  486.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  487.             Debug-Output "ShellCode error"
  488.             goto ShellCodeError
  489.         endif
  490.         set RegistryErrorIndex = $($R0)
  491.         Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
  492.             goto fatalregistry
  493.         endif
  494.     endif
  495.     goto end
  496. warning = +
  497.     Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), "WARNING", $(Error)
  498.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  499.         goto ShellCodeError
  500.     endif
  501.     ifstr(i) $($R1) == "OK"
  502.         goto $(to)
  503.     else-ifstr(i) $($R1) == "CANCEL"
  504.         goto $(from)
  505.     else
  506.         goto "end"
  507.     endif
  508. nonfatalinfo = +
  509.     Set CommonStatus = STATUS_USERCANCEL
  510.     Set Severity = STATUS
  511.     goto nonfatalmsg
  512. nonfatal = +
  513.     Set Severity = NONFATAL
  514.     goto nonfatalmsg
  515. nonfatalmsg = +
  516.     ifstr(i) $(Error) == ""
  517.         Set Severity = NONFATAL
  518.         Shell $(UtilityInf) RegistryErrorString "SETUP_FAIL"
  519.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  520.             goto ShellCodeError
  521.         endif
  522.         set Error = $($R0)
  523.     endif
  524.     Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), $(Severity), $(Error)
  525.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  526.         goto ShellCodeError
  527.     endif
  528.     ifstr(i) $($R1) == "OK"
  529.         goto $(from)
  530.     else
  531.         goto "end"
  532.     endif
  533. fatalregistry = +
  534.     Shell $(UtilityInf) RegistryErrorString $(RegistryErrorIndex)
  535.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  536.         goto ShellCodeError
  537.     endif
  538.     set Error = $($R0)
  539.     goto fatal
  540. fatal = +
  541.     ifstr(i) $(Error) == ""
  542.         Shell $(UtilityInf) RegistryErrorString "SETUP_FAIL"
  543.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  544.             goto ShellCodeError
  545.         endif
  546.         set Error = $($R0)
  547.     endif
  548.     Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), "FATAL", $(Error)
  549.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  550.         goto ShellCodeError
  551.     endif
  552.     goto setfailed
  553. ShellCodeError = +
  554.     set DlgType      = "MessageBox"
  555.     set STF_MB_TITLE = $(ShellCodeErrorTitle)
  556.     set STF_MB_TEXT  = $(ShellCodeErrorText)
  557.     set STF_MB_TYPE  = 1
  558.     set STF_MB_ICON  = 3
  559.     set STF_MB_DEF   = 1
  560.     ui start "Error Message"
  561.     goto setfailed
  562. setfailed = +
  563.     set CommonStatus = STATUS_FAILED
  564.     ifstr(i) $(OEM_ABANDON_ON) == TRUE
  565.         set OEM_ABANDON_ON = FALSE
  566.         goto abandon
  567.     endif
  568.     goto end
  569. end = +
  570.     goto term
  571. term = +
  572.     Return $(CommonStatus)
  573. [Install-Option]
  574.     set STF_VITAL = ""
  575.     ifstr(i) $(AddCopy) == "YES"
  576.         AddSectionFilesToCopyList Files-$(Option) $(SrcDir) $(!STF_WINDOWSSYSPATH)\drivers
  577.     endif
  578.     ifstr(i) $(DoCopy) == "YES"
  579.        set !STF_NCPA_FLUSH_COPYLIST = TRUE
  580.        CopyFilesInCopyList
  581.     endif
  582.     ifstr(i) $(DoConfig) == "YES"
  583.     endif
  584.     Exit
  585. [Install-Update]
  586.    set STF_VITAL        = ""
  587.    set STF_OVERWRITE    = "VERIFYSOURCEOLDER"
  588.    AddSectionFilesToCopyList Files-$(Option) $(SrcDir) $(!STF_WINDOWSSYSPATH)\drivers
  589.    AddSectionFilesToCopyList Files-Inf $(SrcDir) $(!STF_WINDOWSSYSPATH)
  590.    set !STF_NCPA_FLUSH_COPYLIST = TRUE
  591.    CopyFilesInCopyList
  592.    exit
  593. [Source Media Descriptions]
  594.     1    = "Windows NT Advanced Server Setup Disk #1"   , TAGFILE = disk1
  595.     2    = "Windows NT Advanced Server Setup Disk #2"   , TAGFILE = disk2
  596.     3    = "Windows NT Advanced Server Setup Disk #3"   , TAGFILE = disk3
  597.     4    = "Windows NT Advanced Server Setup Disk #4"   , TAGFILE = disk4
  598.     5    = "Windows NT Advanced Server Setup Disk #5"   , TAGFILE = disk5
  599.     6    = "Windows NT Advanced Server Setup Disk #6"   , TAGFILE = disk6
  600.     7    = "Windows NT Advanced Server Setup Disk #7"   , TAGFILE = disk7
  601.     8    = "Windows NT Advanced Server Setup Disk #8"   , TAGFILE = disk8
  602.     9    = "Windows NT Advanced Server Setup Disk #9"   , TAGFILE = disk9
  603.     10    = "Windows NT Advanced Server Setup Disk #10"  , TAGFILE = disk10
  604.     11    = "Windows NT Advanced Server Setup Disk #11"  , TAGFILE = disk11
  605.     12    = "Windows NT Advanced Server Setup Disk #12"  , TAGFILE = disk12
  606.     13    = "Windows NT Advanced Server Setup Disk #13"  , TAGFILE = disk13
  607.     14    = "Windows NT Advanced Server Setup Disk #14"  , TAGFILE = disk14
  608.     15    = "Windows NT Advanced Server Setup Disk #15"  , TAGFILE = disk15
  609.     16    = "Windows NT Advanced Server Setup Disk #16"  , TAGFILE = disk16
  610.     17    = "Windows NT Advanced Server Setup Disk #17"  , TAGFILE = disk17
  611.     18    = "Windows NT Advanced Server Setup Disk #18"  , TAGFILE = disk18
  612.     19    = "Windows NT Advanced Server Setup Disk #19"  , TAGFILE = disk19
  613.     20    = "Windows NT Advanced Server Setup Disk #20"  , TAGFILE = disk20
  614.     21    = "Windows NT Advanced Server Setup Disk #21"  , TAGFILE = disk21
  615.     22    = "Windows NT Advanced Server Setup Disk #22"  , TAGFILE = disk22
  616.     23    = "Windows NT Advanced Server Setup Disk #23"  , TAGFILE = disk23
  617.     24    = "Windows NT Advanced Server Setup Disk #24"  , TAGFILE = disk24
  618.     25    = "Windows NT Advanced Server Setup Disk #25"  , TAGFILE = disk25
  619.     26    = "Windows NT Advanced Server Setup Disk #26"  , TAGFILE = disk26
  620.     27    = "Windows NT Advanced Server Setup Disk #27"  , TAGFILE = disk27
  621.     28    = "Windows NT Advanced Server Setup Disk #28"  , TAGFILE = disk28
  622.     29    = "Windows NT Advanced Server Setup Disk #29"  , TAGFILE = disk29
  623. [ProductType]
  624. STF_PRODUCT  = LanmanNT
  625. STF_PLATFORM = I386
  626. [Files-Inf]
  627. 2,    oemsetup.inf,     SIZE=1000,    RENAME=$(!UG_Filename)
  628. [Files-IBMTOKMC]
  629. 21,IBMTOK.SYS , SIZE=45568
  630. [LanguagesSupported]
  631.     ENG
  632. [OptionsTextENG]
  633.     IBMTOKMC     = "IBM Token Ring Adapter /A"
  634. [FileConstantsENG]
  635. ProCaption   = "Windows NT Setup"
  636. ProCancel    = "Cancel"
  637. ProCancelMsg = "Windows NT Networking is not correctly installed.  "+
  638.                "Are you sure you want to cancel copying files?"
  639. ProCancelCap = "Network Setup Message"
  640. ProText1     = "Copying:"
  641. ProText2     = "To:"
  642. FunctionTitle   = "IBM Token Ring Adapter /A Card Setup"
  643. ProductSoftwareDescription      = "IBM Token Ring Adapter /A Driver"
  644. ProductHardwareDescription      = "IBM Token Ring Adapter /A"
  645. CANNOT_FIND_ANY_CARD            = "Network card is not present in the system"
  646. ProductSoftwareTitle    = "IBM Token Ring Adapter Driver"
  647. ProductHardwareTitle    = "IBM Token Ring Adapter /A"
  648. ShellCodeErrorTitle     = "Error: "$(FunctionTitle)
  649. ShellCodeErrorText      = "Shell Code Error."
  650. [DialogConstantsENG]
  651. Help        = "&Help"
  652. Exit        = "Cancel"
  653. OK          = "OK"
  654. HelpContext = ""
  655. Continue    = "C&ontinue"
  656. Cancel      = "C&ancel"
  657. [FileDependentDlgENG]
  658. Edit1Label = "&Network Address:"
  659. DlgType = "Edit"
  660. DlgTemplate = "NETWORK_NUMBER"
  661. Caption = $(FunctionTitle)
  662. HelpContext = $(!IDH_DB_OEMNADTM_INS)
  663. EditTextLim = 17
  664. EditTextIn  = $(NetworkAddress)
  665. EditFocus   = "ALL"
  666. RCCtlFocusOn = 403
  667.  
  668.  
  669.  
  670.