home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 2000 March / VPR0003B.ISO / nec98 / oemnxppp.srv < prev    next >
INI File  |  1999-10-14  |  72KB  |  1,559 lines
  1. [Identification]
  2.     OptionType = NetTransport
  3. [PlatformsSupported]
  4.     ISA
  5.     EISA
  6.     "Jazz-Internal Bus"
  7. [Options]
  8.     RASPPTP
  9. [FileConstants]
  10.     InfName                 = "OEMNXPPP.INF"
  11.     UtilityInf              = "UTILITY.INF"
  12.     ParamInf                = "NCPARAM.INF"
  13.     subroutineinf           = "SUBROUTN.INF"
  14.     SoftwareType            = "driver"
  15.     Exit_Code               = 0
  16.     NetEventDLL             = "%SystemRoot%\System32\netevent.dll"
  17.     IoLogMsgDLL             = "%SystemRoot%\System32\IoLogMsg.dll"
  18.     RASPPTPMsgDLL           = "%SystemRoot%\System32\raspptpl.dll;%SystemRoot%\System32\netevent.dll"
  19.     Manufacturer            = "Microsoft"
  20.     ProductMajorVersion     = "4"
  21.     ProductMinorVersion     = "0"
  22.     ProductVersion          = $(ProductMajorVersion)"."$(ProductMinorVersion)
  23.     ProductSoftwareName     = "RASPPTPM"
  24.     ProductSoftwareImagePath = "\SystemRoot\System32\drivers\RASPPTPM.sys"
  25.     NetworkCardKeyName      = $(!NTN_SoftwareBase)"\Microsoft\Windows NT\CurrentVersion\NetworkCards"
  26.     ProductKeyBase          = $(!NTN_SoftwareBase)"\"$(Manufacturer)
  27.     NetRuleSoftwareType     = "RASPPTPSys RASPPTPDriver"
  28.     NetRuleSoftwareUse      = $(SoftwareType)
  29.     NetRuleSoftwareBindForm = """RASPPTPSys"" yes no container"
  30.     NetRuleSoftwareClass    = {"RASPPTPDriver basic"}
  31.     NetRuleSoftwareBindable = {"RASPPTPDriver RASPPTPAdapter non exclusive 100"}
  32.     ProductHardwareName     = "RASPPTPM"
  33.     NetRuleHardwareBindForm = " yes yes container"
  34.     NetRuleHardwareRASPPTPType = "RASPPTP RASPPTPAdapter"
  35.     NetRuleHardwareRASPPTPClass = {"RASPPTPAdapter basic"}
  36.     BindableRASPPTPTxt      = {"RASPPTPDriver RASPPTPAdapter non exclusive 100"}
  37.     ProductOpSupport     = 134 
  38.     ProductRASPPTPName      = "RASPPTP"
  39.     ProductRASPPTPSvcType   = "transport"
  40.     NetRuleRASPPTPClass     = "classRaspptpTransport ""basic"""
  41.     NetRuleRASPPTPType      = "RaspptpTransport classRaspptpTransport"
  42.     NetRuleRASPPTPUse       = "system"
  43.     TapiDevices             = "TAPI DEVICES"
  44.     TapiDeviceKey           = $(ProductHardwareName)
  45.     TapiMediaType           = "VPN"
  46.     ProductKeyName          = $(!NTN_SoftwareBase)"\"$(Manufacturer)"\"+
  47.                               $(ProductSoftwareName)"\CurrentVersion"
  48.     ParamKeyName            = $(!NTN_ServiceBase)"\"$(ProductHardwareName)+
  49.                               "\Parameters"
  50.     ProductRASPPTPKeyName  = $(!NTN_SoftwareBase)"\"$(Manufacturer)"\"+
  51.                               "RASPPTP\CurrentVersion"
  52.     LineType                = 1
  53.     DebugFlags              = 0
  54. [SMANFileConstants]
  55.     PPTPProductMajorVersion         = "4"
  56.     PPTPProductMinorVersion         = "0"
  57.     PPTPProductVersion              = $(PPTPProductMajorVersion)"."$(PPTPProductMinorVersion)
  58.     PPTPProductSoftwareName         = "RASPPTPE"
  59.     PPTPProductSoftwareImagePath    = "\SystemRoot\System32\drivers\RASPPTPE.sys"
  60.     PPTPNetRuleSoftwareType         = "RASPPTPSys RASPPTPDriver"
  61.     PPTPNetRuleSoftwareBindForm     = """RASPPTPSys"" yes no container"
  62.     PPTPNetRuleSoftwareClass        = {"RASPPTPDriver basic"}
  63.     PPTPNetRuleSoftwareBindable     = {"RASPPTPDriver RASPPTPAdapter non exclusive 100"}
  64.     PPTPProductHardwareName         = "RASPPTPE"
  65.     PPTPNetRuleHardwareRASPPTPType  = "RASPPTP RASPPTPAdapter"
  66.     PPTPNetRuleHardwareRASPPTPClass = {"RASPPTPAdapter basic"}
  67.     PPTPBindableRASPPTPTxt          = {"RASPPTPDriver RASPPTPAdapter non exclusive 100"}
  68.     PPTPProductKeyName              = $(!NTN_SoftwareBase)"\"$(Manufacturer)"\"+
  69.                                       $(PPTPProductSoftwareName)"\CurrentVersion"
  70.     PPTPParamKeyName                = $(!NTN_ServiceBase)"\"$(PPTPProductHardwareName)+
  71.                                       "\Parameters"
  72.     !PPTPFProductName               = "RASPPTPF"
  73.     !PPTPFProductImagePath          = "\SystemRoot\system32\drivers\raspptpf.sys"
  74.     !RaspptpfKeyName                = $(!NTN_ServiceBase)"\"$(!PPTPFProductName)
  75. [GeneralConstants]
  76.     from                    = ""
  77.     to                      = ""
  78.     ExitCodeOk              = 0
  79.     ExitCodeCancel          = 1
  80.     ExitCodeFatal           = 2
  81.     KeyNull                 = ""
  82.     MAXIMUM_ALLOWED         = 33554432
  83.     SERVICE_NO_CHANGE       = 4294967295
  84.     RegistryErrorIndex      = NO_ERROR
  85.     KeyProduct              = ""
  86.     KeyParameters           = ""
  87.     TRUE                    = 1
  88.     FALSE                   = 0
  89.     NoTitle                 = 0
  90.     ExitState               = "Active"
  91.     OldVersionExisted       = $(FALSE)
  92.     DriverPath              = $(!STF_NTPATH)\drivers
  93. [Date]
  94.     Now                     = {} ? $(!LIBHANDLE) GetSystemDate
  95. [Identify]
  96.     Read-Syms Identification
  97.     Set Status      = STATUS_SUCCESSFUL
  98.     Set Identifier  = $(OptionType)
  99.     Set Media       = #("Source Media Descriptions", 1, 1)
  100.     Return $(Status) $(Identifier) $(Media)
  101. [ReturnOptions]
  102.     Set Status          = STATUS_FAILED
  103.     Set OptionList      = {}
  104.     Set OptionTextList  = {}
  105.     Set LanguageList    = ^(LanguagesSupported, 1)
  106.     IfContains(i) $($0) in $(LanguageList)
  107.         IfStr(i) $($1) == ""
  108.             GoTo SetOptions
  109.         EndIf
  110.         Set PlatformList = ^(PlatformsSupported, 1)
  111.         IfContains(i) $($1) in $(PlatformList)
  112.             GoTo SetOptions
  113.         Else
  114.             Set Status = STATUS_NOTSUPPORTED
  115.             GoTo ExitReturnOptions
  116.         EndIf
  117.     Else
  118.         Set Status = STATUS_NOLANGUAGE
  119.         GoTo ExitReturnOptions
  120.     EndIf
  121. SetOptions = +
  122.     Set OptionList     = ^(Options, 1)
  123.     Set OptionTextList = ^(OptionsText$($0), 1)
  124.     Set Status         = STATUS_SUCCESSFUL
  125. ExitReturnOptions = +
  126.     Return $(Status) $(OptionList) $(OptionTextList)
  127. [InstallOption]
  128.     Set Status   = STATUS_FAILED
  129.     Set Option   = $($1)
  130.     Set SrcDir   = $($2)
  131.     Set RasDir   = $($2)
  132.     Set AddCopy  = $($3)
  133.     Set DoCopy   = $($4)
  134.     Set DoConfig = $($5)
  135.     Set LanguageList = ^(LanguagesSupported, 1)
  136.     IfContains(i) $($0) NOT-IN $(LanguageList)
  137.         Return STATUS_NOLANGUAGE
  138.     EndIf
  139.     Set-Subst LF = "\n"
  140.     Read-Syms GeneralConstants
  141.     Read-Syms FileConstants
  142.     Read-Syms DialogConstants$(!STF_LANGUAGE)
  143.     Read-Syms SMANFileConstants
  144.     IfStr(i) $(!NTN_Origination) == "NCPA"
  145.         Set Continue = $(OK)
  146.     EndIf
  147.     Read-Syms FileConstants$(!STF_LANGUAGE)
  148.     Detect Date
  149.     Set-Title  $(FunctionTitle)$(Option)
  150.     Read-Syms SMANFileConstants$(!STF_LANGUAGE)
  151.     Set to   = Begin
  152.     Set from = Begin
  153.     Set CommonStatus = STATUS_SUCCESSFUL
  154.     EndWait
  155. Begin = +
  156.     Set ActivateDetection = FALSE
  157.     IfStr(i) $(!NTN_InstallMode) == deinstall
  158.         Set StartLabel = RemoveAdapter
  159.     Else-IfStr(i) $(!NTN_InstallMode) == Update
  160.         Set StartLabel = UpgradeSoftware
  161.     Else-IfStr(i) $(!NTN_InstallMode) == bind
  162.         Set StartLabel = BindingAdapter
  163.     Else-IfStr(i) $(!NTN_InstallMode) == configure
  164.         Set StartLabel = ConfigureAdapter
  165.         Set ActivateDetection = TRUE
  166.         Set CommonStatus = STATUS_REBOOT
  167.         IfStr(i) $(ProductKeyName) == $(!NTN_RegBase)
  168.             Debug-Output $(InfName)": Cannot configure the EtherWORKS 3 driver software."
  169.             Shell $(UtilityInf),RegistryErrorString,CANNOT_CONFIGURE_SOFTWARE
  170.             IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  171.                 Debug-Output $(InfName)": ShellCode error: cannot get an error string."
  172.                 GoTo ShellCodeError
  173.             EndIf
  174.             Set Error = $($R0)
  175.             Set from = end
  176.             Set to = end
  177.             GoTo NonFatalInfo
  178.         EndIf
  179.     Else
  180.         Set StartLabel = InstallAdapter
  181.         Set ActivateDetection = TRUE
  182.         Set OEM_ABANDON_OPTIONS = {}
  183.         Set OEM_ABANDON_SOFTWARE = FALSE
  184.         Set OEM_ABANDON_ON = TRUE
  185.         Set OEM_ABANDON_PPTP_SOTWARE = FALSE
  186.     EndIf
  187.     Debug-Output $(InfName)": =================================================="
  188.     Debug-Output $(InfName)": STF_CWDIR is: "$(!STF_CWDIR)
  189.     Debug-Output $(InfName)": STF_LANGUAGE is: "$(!STF_LANGUAGE)
  190.     Debug-Output $(InfName)": Option is: "$(Option)
  191.     Debug-Output $(InfName)": !STF_NCDETECT  is: "$(!STF_NCDETECT)
  192.     Debug-Output $(InfName)": !STF_NCOPTION  is: "$(!STF_NCOPTION)
  193.     Debug-Output $(InfName)": !STF_NCDETCARD is: "$(!STF_NCDETCARD)
  194.     Debug-Output $(InfName)": !STF_NCDETINFO is: "$(!STF_NCDETINFO)
  195.     Debug-Output $(InfName)": =================================================="
  196.     Set DetectedCard = FALSE
  197.     IfStr(i) $(ActivateDetection) != TRUE
  198.         GoTo $(StartLabel)
  199.     EndIf
  200.     Debug-Output $(InfName)": Calling Param_SetDefaults"
  201.     Shell $(ParamInf) Param_SetDefaults {}
  202.     IfStr(i) $(!STF_NCDETECT) == YES
  203.         IfStr(i) $(!STF_NCOPTION) == $(Option)
  204.            Set DetectedCard = TRUE
  205.            Debug-Output $(InfName)": Setting DetectedCard to TRUE"
  206.         EndIf
  207.     EndIf
  208.     Shell "" DebugConfiguration "After parameter querying"
  209.     Set from = FatalError
  210.     Set to = FatalError
  211.     GoTo $(StartLabel)
  212. InstallAdapter = +
  213.     OpenRegKey $(!REG_H_LOCAL) "" $(ProductKeyName) $(MAXIMUM_ALLOWED) KeyProduct
  214.     IfStr $(KeyProduct) != $(KeyNull)
  215.         CloseRegKey $(KeyProduct)
  216.         IfStr(i) !(NTN_RegBase) == $(ProductKeyName)
  217.            Shell $(UtilityInf), VerExistedDlg, $(ProductSoftwareTitle),+
  218.                $(ProductVersion)
  219.            IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  220.                Debug-Output $(InfName)": ShellCode error: cannot get an error string."
  221.                GoTo ShellCodeError
  222.            EndIf
  223.            GoTo end
  224.         Else
  225.            Shell $(UtilityInf), CardExistedDlg
  226.            IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  227.                Debug-Output $(InfName)": ShellCode error: cannot get an error string."
  228.                GoTo ShellCodeError
  229.            EndIf
  230.            IfStr(i) $($R1) != "OK"
  231.                Set CommonStatus = STATUS_USERCANCEL
  232.                GoTo end
  233.            EndIf
  234.            Set OldVersionExisted = $(TRUE)
  235.         EndIf
  236.     EndIf
  237.     Set CurrParamSettings = {}
  238.     IfStr(i) $(DetectedCard) != TRUE
  239.         GoTo AdapterSetup
  240.     EndIf
  241.     StartWait
  242.         Shell $(ParamInf) Param_QueryCard $(!STF_NCDETCARD)
  243.     EndWait
  244.     IfStr(i) $($R0) != STATUS_SUCCESSFUL
  245.         GoTo AdapterSetup
  246.     EndIf
  247.     Set DetectedParams = $($R1)
  248.     Debug-Output $(InfName)": Calling Param_SetDefaults to merge detected params"
  249.     Shell $(ParamInf) Param_SetDefaults $(DetectedParams)
  250.     GoTo AdapterSetup
  251. ConfigureAdapter = +
  252.     Read-Syms InvokeConfigureDlg$(!STF_LANGUAGE)
  253.     LoadLibrary "x" $(!STF_CWDDIR)raspptpc.dll RASPPTPDLGHANDLE
  254.     Debug-Output $(InfName)": Getting info from GetChassisConfiguration"
  255.     Debug-Output $(InfName)": NTN_InstallMode is "$(!NTN_InstallMode)
  256.     LibraryProcedure Result, $(RASPPTPDLGHANDLE), GetChassisConfiguration $(!NTN_InstallMode)
  257.     Set NumberOfLineDevices = *($(Result), 1)
  258.     Set AdapterNum = *($(Result), 2)
  259.     FreeLibrary $(RASPPTPDLGHANDLE)
  260.     ifstr(i) $(NumberOfLineDevices) != "EXITSETUP"
  261.     ifstr(i) $(NumberOfLineDevices) != "RASNOCHANGE"
  262.         Shell "" UpdateAddressList $(NumberOfLineDevices) $(AdapterNum) $(ProductSoftwareName) +
  263.                                        $(TapiMediaType)
  264.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  265.         Debug-Output "Cannot update address list for RAS"
  266.             goto ShellCodeError
  267.         endif
  268.     endif
  269.         Set CommonStatus = STATUS_SUCCESSFUL
  270.     Else
  271.         Set CommonStatus = STATUS_USERCANCEL
  272.     EndIf
  273.     goto end
  274. AdapterSetup = +
  275.     Shell "" DebugConfiguration "before Param_ParameterConfidence"
  276.     Shell $(ParamInf) Param_ParameterConfidence
  277.     IfStr(i) $($R0) != STATUS_SUCCESSFUL
  278.         Debug-Output $(InfName)": parameter confidence too low to bypass configuration"
  279.         Shell "" DebugConfiguration "before AdapterOptions"
  280.         GoTo AdapterOptions
  281.     EndIf
  282.     IfStr(i) $(DetectedCard) == TRUE
  283.         IfStr(i) $(!STF_INSTALL_MODE) != CUSTOM
  284.             Shell "" DebugConfiguration "before AdapterVerify"
  285.             GoTo AdapterVerify
  286.         EndIf
  287.     EndIf
  288. AdapterOptions = +
  289.     Shell "" DebugConfiguration "inside AdapterOptions"
  290.     Read-Syms FileDependentDlg$(!STF_LANGUAGE)
  291. AdapterVerify = +
  292.     Shell "" DebugConfiguration "inside AdapterVerify"
  293.     Shell "" DebugConfiguration "after running dialog"
  294.     IfStr(i) $(DetectedCard) != TRUE
  295.         Shell $(ParamInf) Param_SaveValues
  296.         Set NewParamSettings = $($R0)
  297.         IfStr(i) $(CurrParamSettings) == {}
  298.             Set DiffParamSettings = $(NewParamSettings)
  299.         Else
  300.             Shell $(ParamInf) Param_DiffValues $(CurrParamSettings)
  301.             Set DiffParamSettings = $($R0)
  302.         EndIf
  303.         Debug-Output $(InfName)": Calling Param_VerifyResources"
  304.         Shell $(ParamInf) Param_VerifyResources $(DiffParamSettings)
  305.         IfStr(i) $($R0) == STATUS_SUCCESSFUL
  306.             Debug-Output $(InfName)": Param_VerifyResources succeeded"
  307.             GoTo SkipOptions
  308.         EndIf
  309.     Else
  310.         Set CardVerifyIndex = $(!STF_NCDETCARD)
  311.         Debug-Output $(InfName)": Calling Param_VerifyCard"
  312.         Shell $(ParamInf) Param_VerifyCard $(!STF_NCDETCARD)
  313.         IfStr(i) $($R0) == STATUS_SUCCESSFUL
  314.             Debug-Output $(InfName)": Param_VerifyCard succeeded"
  315.             GoTo SkipOptions
  316.         EndIf
  317.     EndIf
  318.     Set from = AdapterOptions
  319.     Set to = SkipOptions
  320.     Shell $(UtilityInf),RegistryErrorString,VERIFY_WARNING
  321.     IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  322.         Debug-Output $(InfName)": ShellCode error: cannot get an error string."
  323.         GoTo ShellCodeError
  324.     EndIf
  325.     Set Error = $($R0)
  326.     GoTo WarningMsg
  327. SkipOptions =+
  328.     IfInt $(OldVersionExisted) == $(TRUE)
  329.         IfStr(i) $(!NTN_InstallMode) == configure
  330.             GoTo WriteParameters
  331.         EndIf
  332.     EndIf
  333.     StartWait
  334.     IfInt $(OldVersionExisted) == $(FALSE)
  335.         IfStr(i) $(!NTN_InstallMode) == "install"
  336.            IfStr(i) $(DoCopy) == "YES"
  337.               Shell $(UtilityInf), DoAskSource, $(!STF_CWDDIR), $(SrcDir) YES
  338.               IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  339.                   GoTo ShellCodeError
  340.               Else-IfStr(i) $($R0) == STATUS_FAILED
  341.                   Shell $(UtilityInf) RegistryErrorString "ASK_SOURCE_FAIL"
  342.                   IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  343.                       GoTo ShellCodeError
  344.                   EndIf
  345.                   Set Error = $($R0)
  346.                   GoTo FatalError
  347.               Else-IfStr(i) $($R0) == STATUS_USERCANCEL
  348.                   GoTo SuccessfulOption
  349.               EndIf
  350.               Set SrcDir = $($R1)
  351.            EndIf
  352.            Install "Install-Option"
  353.            IfStr(i) $(STF_INSTALL_OUTCOME) != STF_SUCCESS
  354.               Shell $(UtilityInf) RegistryErrorString "UNABLE_COPY_FILE"
  355.               IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  356.                   GoTo ShellCodeError
  357.               EndIf
  358.               Set Error = $($R0)
  359.               GoTo FatalError
  360.            EndIf
  361.         EndIf
  362.         Shell $(UtilityInf), InstallSoftwareProduct, $(Manufacturer),+
  363.               $(ProductRASPPTPName), $(InfName)
  364.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  365.               Debug-Output "InstallSoftware bombed out."
  366.               goto ShellCodeError
  367.         endif
  368.         set RegistryErrorIndex = $($R0)
  369.         Ifstr(i) $(RegistryErrorIndex) != "NO_ERROR"
  370.             Debug-Output "REGISTRY PROBLEM"
  371.             CloseRegKey $($R1)
  372.             CloseRegKey $($R2)
  373.             goto FatalRegistry
  374.         endif
  375.         Set SoftProductKey    = $($R1)
  376.         Set SoftNetRuleKey    = $($R2)
  377.         set NewValueList = +
  378.             {{Infname ,$(NoTitle),$(!REG_VT_SZ),$(InfName)},+
  379.              {SoftwareType,$(NoTitle),$(!REG_VT_SZ),$(ProductRASPPTPSvcType)},+
  380.              {Title,$(NoTitle),$(!REG_VT_SZ), $(ProductRASPPTPTitle)},+
  381.              {Description,$(NoTitle),$(!REG_VT_SZ),$(ProductRASPPTPDescription)},+
  382.              {OperationsSupport,$(NoTitle),$(!REG_VT_DWORD),$(ProductOpSupport)},+
  383.              {MajorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMajorVersion)},+
  384.              {MinorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMinorVersion)},+
  385.              {InstallDate,$(NoTitle),$(!REG_VT_DWORD),*($(Now),1)}}
  386.         Shell $(UtilityInf), AddValueList, $(SoftProductKey), $(NewValueList)
  387.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  388.             CloseRegKey $(SoftProductKey)
  389.             CloseRegKey $(SoftNetRuleKey)
  390.             goto ShellCodeError
  391.         endif
  392.         set RegistryErrorIndex = $($R0)
  393.         CloseRegKey $(SoftProductKey)
  394.         Ifstr(i) $(RegistryErrorIndex) != "NO_ERROR"
  395.            CloseRegKey $(SoftNetRuleKey)
  396.            goto FatalRegistry
  397.         endif
  398.         set NewValueList = +
  399.             {{class, $(NoTitle), $(!REG_VT_SZ), $(NetRuleRASPPTPClass)},+
  400.              {type,$(NoTitle),$(!REG_VT_SZ),$(NetRuleRASPPTPType)},+
  401.              {use,$(NoTitle),$(!REG_VT_SZ),$(NetRuleRASPPTPUse)}, +
  402.              {InfOption,$(NoTitle),$(!REG_VT_SZ),$(Option)}, +
  403.              {Infname ,$(NoTitle),$(!REG_VT_SZ),$(InfName)}}
  404.         Shell  $(UtilityInf), AddValueList, $(SoftNetRuleKey), $(NewValueList)
  405.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  406.             goto ShellCodeError
  407.         endif
  408.         set RegistryErrorIndex = $($R0)
  409.         CloseRegKey $(SoftNetRuleKey)
  410.         Ifstr(i) $(RegistryErrorIndex) != "NO_ERROR"
  411.             goto FatalRegistry
  412.         endif
  413.         Shell $(UtilityInf), AddSoftwareComponent, $(Manufacturer), +
  414.             $(ProductSoftwareName), +
  415.             $(ProductSoftwareName), +
  416.             $(ProductSoftwareTitle), $(STF_CONTEXTINFNAME), +
  417.             $(ProductSoftwareImagePath), "kernelautostart", "NDIS", {}, "",+
  418.             $(RASPPTPMsgDLL)
  419.         Set OEM_ABANDON_SOFTWARE = TRUE
  420.         IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  421.             Debug-Output $(InfName)": ShellCode error"
  422.             GoTo ShellCodeError
  423.         EndIf
  424.         Set RegistryErrorIndex = $($R0)
  425.         Set KeyProduct      = $($R1)
  426.         Set SoftNetRulesKey = $($R2)
  427.         CloseRegKey $($R3)
  428.         CloseRegKey $($R4)
  429.         CloseRegKey $($R5)
  430.         IfStr(i) $(RegistryErrorIndex) != NO_ERROR
  431.             EndWait
  432.             Debug-Output $(InfName)": Registry error: add software components"
  433.             CloseRegKey $(KeyProduct)
  434.             CloseRegKey $(SoftNetRulesKey)
  435.             GoTo FatalRegistry
  436.         EndIf
  437.         Set NewValueList = {{SoftwareType,$(NoTitle),$(!REG_VT_SZ),$(SoftwareType)},+
  438.                            {MajorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMajorVersion)},+
  439.                            {MinorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMinorVersion)},+
  440.                            {Title,$(NoTitle),$(!REG_VT_SZ),$(ProductSoftwareTitle)},+
  441.                            {Description,$(NoTitle),$(!REG_VT_SZ),$(ProductSoftwareDescription)},+
  442.                            {ServiceName,$(NoTitle),$(!REG_VT_SZ),$(ProductSoftwareName)},+
  443.                            {InstallDate,$(NoTitle),$(!REG_VT_DWORD),*($(Now),1)}}
  444.         Shell  $(UtilityInf), AddValueList, $(KeyProduct), $(NewValueList)
  445.         IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  446.             Debug-Output $(InfName)": ShellCode error."
  447.             GoTo ShellCodeError
  448.         EndIf
  449.         Set RegistryErrorIndex = $($R0)
  450.         IfStr(i) $(RegistryErrorIndex) != NO_ERROR
  451.             EndWait
  452.             Debug-Output $(InfName)": Registry error: add value list."
  453.             CloseRegKey $(KeyProduct)
  454.             CloseRegKey $(SoftNetRulesKey)
  455.             GoTo FatalRegistry
  456.         EndIf
  457.         Set NewValueList = {{type,$(NoTitle),$(!REG_VT_SZ),$(NetRuleSoftwareType)},+
  458.                             {use,$(NoTitle),$(!REG_VT_SZ),$(NetRuleSoftwareUse)}, +
  459.                             {bindform,$(NoTitle),$(!REG_VT_SZ),$(NetRuleSoftwareBindForm)}, +
  460.                             {class,$(NoTitle),$(!REG_VT_MULTI_SZ),$(NetRuleSoftwareClass)}, +
  461.                             {bindable,$(NoTitle),$(!REG_VT_MULTI_SZ),$(Bindable$(Option)Txt)}, +
  462.                             {InfOption,$(NoTitle),$(!REG_VT_SZ),$(Option)}}
  463.         Shell  $(UtilityInf), AddValueList, $(SoftNetRulesKey), $(NewValueList)
  464.         IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  465.             Debug-Output $(InfName)": ShellCode error."
  466.             GoTo ShellCodeError
  467.         EndIf
  468.         Set RegistryErrorIndex = $($R0)
  469.         CloseRegKey $(KeyProduct)
  470.         CloseRegKey $(SoftNetRulesKey)
  471.         IfStr(i) $(RegistryErrorIndex) != NO_ERROR
  472.             EndWait
  473.             Debug-Output $(InfName)": Resgitry error: add value list."
  474.             GoTo FatalRegistry
  475.         EndIf
  476.         Shell "" AddServiceDependency $(ProductSoftwareName) $(PPTPProductSoftwareName)
  477.         Shell $(UtilityInf), AddSoftwareComponent, $(Manufacturer), +
  478.             $(PPTPProductSoftwareName), +
  479.             $(PPTPProductSoftwareName), +
  480.             $(PPTPProductSoftwareTitle), $(STF_CONTEXTINFNAME), +
  481.             $(PPTPProductSoftwareImagePath), "kernelauto", "NDIS", {}, "",+
  482.             $(RASPPTPMsgDLL)
  483.         Set OEM_ABANDON_PPTP_SOFTWARE = TRUE
  484.         IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  485.             Debug-Output $(InfName)": ShellCode error"
  486.             GoTo ShellCodeError
  487.         EndIf
  488.         Set RegistryErrorIndex = $($R0)
  489.         Set PPTPKeyProduct      = $($R1)
  490.         Set PPTPSoftNetRulesKey = $($R2)
  491.         CloseRegKey $($R3)
  492.         CloseRegKey $($R4)
  493.         CloseRegKey $($R5)
  494.         IfStr(i) $(RegistryErrorIndex) != NO_ERROR
  495.             EndWait
  496.             Debug-Output $(InfName)": Registry error: add sman software components"
  497.             CloseRegKey $(PPTPKeyProduct)
  498.             CloseRegKey $(PPTPSoftNetRulesKey)
  499.             GoTo FatalRegistry
  500.         EndIf
  501.         Set NewValueList = {{SoftwareType,$(NoTitle),$(!REG_VT_SZ),$(SoftwareType)},+
  502.                            {MajorVersion,$(NoTitle),$(!REG_VT_DWORD),$(PPTPProductMajorVersion)},+
  503.                            {MinorVersion,$(NoTitle),$(!REG_VT_DWORD),$(PPTPProductMinorVersion)},+
  504.                            {Title,$(NoTitle),$(!REG_VT_SZ),$(PPTPProductSoftwareTitle)},+
  505.                            {Description,$(NoTitle),$(!REG_VT_SZ),$(PPTPProductSoftwareDescription)},+
  506.                            {ServiceName,$(NoTitle),$(!REG_VT_SZ),$(PPTPProductSoftwareName)},+
  507.                            {InstallDate,$(NoTitle),$(!REG_VT_DWORD),*($(Now),1)}}
  508.         Shell  $(UtilityInf), AddValueList, $(PPTPKeyProduct), $(NewValueList)
  509.         IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  510.             Debug-Output $(InfName)": ShellCode error."
  511.             GoTo ShellCodeError
  512.         EndIf
  513.         Set RegistryErrorIndex = $($R0)
  514.         IfStr(i) $(RegistryErrorIndex) != NO_ERROR
  515.             EndWait
  516.             Debug-Output $(InfName)": Registry error: add value list."
  517.             CloseRegKey $(PPTPKeyProduct)
  518.             CloseRegKey $(PPTPSoftNetRulesKey)
  519.             GoTo FatalRegistry
  520.         EndIf
  521.         Shell "" InstallRASPPTPFDriver
  522.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  523.              Debug-Output "Error shelling InstallRASPPTPFDriver"
  524.              goto ShellCodeError
  525.         endif
  526.         ifstr(i) $($R0) != STATUS_SUCCESSFUL
  527.              Debug-Output "Error from InstallRASPPTPFDriver"
  528.              goto end
  529.         endif
  530.     EndIf
  531.     Shell $(UtilityInf), AddHardwareComponent, $(ProductHardwareName),$(STF_CONTEXTINFNAME),$(ProductKeyName)
  532.     IfInt $($R4) != -1
  533.         Set OEM_ABANDON_OPTIONS = >($(OEM_ABANDON_OPTIONS), $(!NTN_SoftwareBase)"\Microsoft\Windows NT\CurrentVersion\NetworkCards\"$($R4))
  534.     EndIf
  535.     IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  536.         Debug-Output $(InfName)": Cannot add hardware component"
  537.         GoTo ShellCodeError
  538.     EndIf
  539.     Set RegistryErrorIndex = $($R0)
  540.     IfStr(i) $(RegistryErrorIndex) != NO_ERROR
  541.         EndWait
  542.         Debug-Output $(InfName)": Registry error: add hardware component"
  543.         CloseRegKey $($R1)
  544.         CloseRegKey $($R2)
  545.         CloseRegKey $($R3)
  546.         GoTo FatalRegistry
  547.     EndIf
  548.     Set KeyParameters = $($R3)
  549.     Set KeyAdapterRules = $($R2)
  550.     Set AdapterNumber = $($R4)
  551.     Set NewValueList = {{Manufacturer,$(NoTitle),$(!REG_VT_SZ),$(Manufacturer)},+
  552.                        {Title,$(NoTitle),$(!REG_VT_SZ),"["$($R4)"] "$(ProductHardware$(Option)Title)},+
  553.                        {Description,$(NoTitle),$(!REG_VT_SZ),$(ProductHardware$(Option)Description)},+
  554.                        {ProductName,$(NoTitle),$(!REG_VT_SZ),$(ProductHardwareName)},+
  555.                        {ServiceName,$(NoTitle),$(!REG_VT_SZ),$($R5)},+
  556.                        {InstallDate,$(NoTitle),$(!REG_VT_DWORD),*($(Now),1)},+
  557.                        {Hidden,$(NoTitle),$(!REG_VT_DWORD),1}}
  558.     Shell  $(UtilityInf), AddValueList, $($R1), $(NewValueList)
  559.     IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  560.         Debug-Output $(InfName)": ShellCode error"
  561.         GoTo ShellCodeError
  562.     EndIf
  563.     CloseRegKey $($R1)
  564.     Set TempProdName = """"$(ProductHardwareName)$(AdapterNumber)""""
  565.     Set TempBindForm = $(TempProdName)$(NetRuleHardwareBindForm)
  566.     Set NewValueList = {{type,$(NoTitle),$(!REG_VT_SZ),$(NetRuleHardware$(Option)Type)},+
  567.                         {bindform,$(NoTitle),$(!REG_VT_SZ),$(TempBindForm)}, +
  568.                         {class,$(NoTitle),$(!REG_VT_MULTI_SZ),$(NetRuleHardware$(Option)Class)}, +
  569.                         {InfOption,$(NoTitle),$(!REG_VT_SZ),$(Option)}}
  570.     Shell  $(UtilityInf), AddValueList, $(KeyAdapterRules), $(NewValueList)
  571.     IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  572.         Debug-Output $(InfName)": ShellCode error."
  573.         GoTo ShellCodeError
  574.     EndIf
  575.     Set RegistryErrorIndex = $($R0)
  576.     IfStr(i) $(RegistryErrorIndex) != NO_ERROR
  577.         EndWait
  578.         Debug-Output $(InfName)": Registry error: add value list."
  579.         CloseRegKey $(KeyParameters)
  580.         CloseRegKey $(KeyAdapterRules)
  581.         GoTo FatalRegistry
  582.     EndIf
  583.     CloseRegKey $(KeyAdapterRules)
  584.     OpenRegKey $(!REG_H_LOCAL) "" $(ProductKeyName) $(MAXIMUM_ALLOWED) KeyProduct
  585.     IfStr $(KeyProduct) != $(KeyNull)
  586.         SetRegValue $(KeyProduct) {NetCard,$(NoTitle),$(!REG_VT_DWORD),$(AdapterNumber)}
  587.         CloseRegKey $(KeyProduct)
  588.     EndIf
  589.     GoTo WriteParameters
  590. WriteParameters = +
  591.     LoadLibrary "x" $(!STF_CWDDIR)raspptpc.dll RASPPTPDLGHANDLE
  592.     Debug-Output $(InfName)": Getting info from GetChassisConfiguration"
  593.     Debug-Output "!STF_UNATTENDED is "$(!STF_UNATTENDED)
  594.     Debug-Output "!STF_GUI_UNATTENDED is "$(!STF_GUI_UNATTENDED)
  595.     Debug-Output "!STF_UNATTENDED_SECTION is "$(!STF_UNATTENDED_SECTION)
  596.     LibraryProcedure Result, $(RASPPTPDLGHANDLE), GetChassisConfiguration $(!NTN_InstallMode) +
  597.                              $(!STF_GUI_UNATTENDED) $(!STF_UNATTENDED) $(!STF_UNATTENDED_SECTION)
  598.     Debug-Output $(InfName)": Result value is :"$(Result)
  599.     Set NumberOfLineDevices = *($(Result), 1)
  600.     FreeLibrary $(RASPPTPDLGHANDLE)
  601.     ifstr(i) $(NumberOfLineDevices) == "EXITSETUP"
  602.         Read-Syms InvokeCancelDlg$(!STF_LANGUAGE)
  603.         Debug-Output $(InfName)": GetChassisConfiguration User selected ExitSetup"
  604.         Shell "subroutn.inf" SetupMessage, $(!STF_LANGUAGE), "STATUS", $(InvokeCancelMsg)
  605.         GoTo SetFailed
  606.     endif
  607.     Debug-Output $(InfName)": Number Of Line Devices are :"$(NumberOfLineDevices)
  608.     Shell "" CreateFullTapiAddrList $(AdapterNumber)
  609.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  610.         Debug-Output "Cannot create the TAPI address list"
  611.         goto ShellCodeError
  612.     endif
  613.     Set FullTapiAddrList = $($R0)
  614.     Set TapiAddressList = {}
  615.     ForListDo $(FullTapiAddrList)
  616.         Set CurListItem = $(AdapterNumber)"-"$($)"-0"
  617.         Set CurListNumber = $(#)
  618.         IfInt $(CurListNumber) <= $(NumberOfLineDevices)
  619.             Set TapiAddressList = >($(TapiAddressList), $(CurListItem))
  620.         Endif
  621.     EndForListDo
  622.     Debug-Output $(InfName)": Modified Tapi Address List is :"$(TapiAddressList)
  623.     Set NewValueList = {+
  624.                        {AddressList,$(NoTitle),$(!REG_VT_MULTI_SZ),$(TapiAddressList)},+
  625.                        {DeviceName,$(NoTitle),$(!REG_VT_SZ),$(ProductHardwareName)},+
  626.                        {LineType,$(NoTitle),$(!REG_VT_DWORD),$(LineType)},+
  627.                        {MediaType,$(NoTitle),$(!REG_VT_SZ),$(TapiMediaType)},+
  628.                        }
  629.     Shell  $(UtilityInf), AddValueList, $(KeyParameters), $(NewValueList)
  630.     CloseRegKey $(KeyParameters)
  631.     IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  632.         Debug-Output $(InfName)": ShellCode error."
  633.         GoTo ShellCodeError
  634.     EndIf
  635.     Set RegistryErrorIndex = $($R0)
  636.     IfStr(i) $(RegistryErrorIndex) != NO_ERROR
  637.         Debug-Output $(InfName)": Registry error: Add value list"
  638.         GoTo FatalRegistry
  639.     EndIf
  640.     IfStr(i) $(!NTN_InstallMode) == configure
  641.         GoTo SuccessfulOption
  642.     EndIf
  643.     OpenRegKey $(!REG_H_LOCAL) "" "SYSTEM\CurrentControlSet\Services\TcpIp\Parameters" $(MAXIMUM_ALLOWED) TcpKey
  644.     IfStr(i) $(TcpKey) != ""
  645.         Debug-Output $(InfName)": setting tcpip\parameters\PPTPTcpMaxDataRetransmissions to 9"
  646.         SetRegValue $(TcpKey) {PPTPTcpMaxDataRetransmissions,$(NoTitle),$(!REG_VT_DWORD), 9}
  647.         CloseRegKey $(TcpKey)
  648.     Else
  649.         Debug-Output $(InfName)": Registry error: can't open services\tcpip key"
  650.     EndIf
  651.     OpenRegKey $(!REG_H_LOCAL) "" "SOFTWARE\Microsoft" $(MAXIMUM_ALLOWED) BaseKey
  652.     shell "" HtCreateRegKey $(BaseKey) "TAPI DEVICES\RASPPTPM"
  653.     IfStr(i) $($R0) != NO_ERROR
  654.         Debug-Output $(InfName)": Error creating registry key!"
  655.         GoTo FatalRegistry
  656.     EndIf
  657.     Set TapiDeviceKey = $($R1)
  658.     Set NewValueList = {+
  659.                        {Address,$(NoTitle),$(!REG_VT_MULTI_SZ),$(TapiAddressList)},+
  660.                        {"Media Type",$(NoTitle),$(!REG_VT_SZ),$(TapiMediaType)}}
  661.     Shell  $(UtilityInf), AddValueList, $(TapiDeviceKey), $(NewValueList)
  662.     IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  663.         Debug-Output $(InfName)": ShellCode error."
  664.         GoTo ShellCodeError
  665.     EndIf
  666.     Set RegistryErrorIndex = $($R0)
  667.     IfStr(i) $(RegistryErrorIndex) != NO_ERROR
  668.         Debug-Output $(InfName)": Registry error: Add value list"
  669.         GoTo FatalRegistry
  670.     EndIf
  671.     CloseRegKey $(TapiDeviceKey)
  672.     CloseRegKey $(BaseKey)
  673.     ifstr(i) $(!STF_INSTALL_MODE) == EXPRESS
  674.          GoTo InstallRas
  675.     Else
  676.          Shell "" InstallTCPIPIfNotInstalled $(SrcDir) $(AddCopy) $(DoCopy) $(DoConfig)
  677.          ifint $($ShellCode) != $(!SHELL_CODE_OK)
  678.                  Debug-Output "Cannot install TCP/IP if not already installed"
  679.              goto ShellCodeError
  680.          endif
  681.          ifstr(i) $($R0) != STATUS_SUCCESSFUL
  682.              Debug-Output "Error installing TCP/IP"
  683.              set Error = "Error installing TCP/IP"
  684.              goto FatalError
  685.          endif
  686.          Shell "" DebugGlobalFlags "After TCP/IP"
  687.     EndIf
  688. InstallRas = +
  689.     ifstr(i) $(!STF_INSTALL_MODE) == EXPRESS
  690.          GoTo SuccessfulOption
  691.     Else
  692.          Read-Syms InvokeRasDlg$(!STF_LANGUAGE)
  693.          Shell "oemnsvra.inf" CheckRasInstalled
  694.          IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  695.              Debug-Output $(InfName)": Error Shelling the RAS INF file oemnsvra.inf"
  696.              Shell "subroutn.inf" SetupMessage, $(!STF_LANGUAGE),  +
  697.                      "STATUS", $(InvokeRasError)
  698.              IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  699.                  GoTo ShellCodeError
  700.              EndIf
  701.              GoTo RASSetup
  702.          EndIf
  703.          Set RasInstalled = $($R0)
  704.          Debug-Output $(InfName)": Is RAS Installed? "$(RasInstalled)
  705.          IfStr(i) $(RasInstalled) == FALSE
  706.              Shell "subroutn.inf" SetupMessage, $(!STF_LANGUAGE), "STATUS", +
  707.                      $(InvokeRasSetupMsg)
  708.              IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  709.                  GoTo RASSetup
  710.              EndIf
  711.          Else
  712.              Shell "subroutn.inf" SetupMessage, $(!STF_LANGUAGE), "STATUS", +
  713.                      $(InvokeRasConfigMsg)
  714.              IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  715.                  GoTo RASSetup
  716.              EndIf
  717.          EndIf
  718.          EndWait
  719.          GoTo RASSetup
  720.     Endif
  721. RASSetup =+
  722.     Set AddCopy  = YES
  723.     Set DoCopy   = YES
  724.     Set DoConfig = YES
  725.     IfStr(i) $(RasInstalled) == TRUE
  726.        Set SaveNTN_InstallMode = $(!NTN_InstallMode)
  727.        Set !NTN_InstallMode = configure
  728.     EndIf
  729.     Set PREV_SRCDIR = $(!STF_SRCDIR_OVERRIDE)
  730.     Set !STF_SRCDIR_OVERRIDE = $(SrcDir)
  731.     Shell "oemnsvra.inf" InstallOption $(!STF_LANGUAGE) "RAS" $(SrcDir) $(AddCopy) $(DoCopy) $(DoConfig)
  732.     set !STF_SRCDIR_OVERRIDE = $(PREV_SRCDIR)
  733.     IfStr(i) $(RasInstalled) == TRUE
  734.             Set !NTN_InstallMode = $(SaveNTN_InstallMode)
  735.     EndIf
  736.     IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  737.         Debug-Output $(InfName)": Error Shelling the RAS INF file oemnsvra.inf"
  738.         Shell "subroutn.inf" SetupMessage, $(!STF_LANGUAGE), "STATUS",  +
  739.                 $(InvokeRasError)
  740.         IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  741.             GoTo ShellCodeError
  742.         EndIf
  743.         GoTo SuccessfulOption
  744.     EndIf
  745.     EndWait
  746.     GoTo SuccessfulOption
  747. BindingAdapter =+
  748.     Set Error = "Binding: Sorry, not yet implemented."
  749.     GoTo FatalError
  750. RemoveAdapter = +
  751.     OpenRegKey $(!REG_H_LOCAL) "" $(ProductKeyName) $(MAXIMUM_ALLOWED) KeyProduct
  752.     IfStr $(KeyProduct) != $(KeyNull)
  753.         GetRegValue $(KeyProduct),"NetCard", NetCardInfo
  754.         Set NetCard = *($(NetCardInfo), 4)
  755.         Shell $(UtilityInf), RemoveHardwareComponent, $(Manufacturer), +
  756.             $(ProductSoftwareName), $(NetworkCardKeyName)"\"$(NetCard)
  757.         IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  758.             Debug-Output $(InfName)": ShellCode error"
  759.             GoTo ShellCodeError
  760.         EndIf
  761.         Set RegistryErrorIndex = $($R0)
  762.         IfStr(i) $(RegistryErrorIndex) != NO_ERROR
  763.             GoTo FatalRegistry
  764.         EndIf
  765.     EndIf
  766.     Shell $(UtilityInf), RemoveSoftwareComponent, $(Manufacturer), +
  767.         $(PPTPProductSoftwareName)
  768.     IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  769.         Debug-Output $(InfName)": ShellCode error"
  770.         GoTo ShellCodeError
  771.     EndIf
  772.     Set RegistryErrorIndex = $($R0)
  773.     IfStr(i) $(RegistryErrorIndex) != NO_ERROR
  774.         GoTo FatalRegistry
  775.     EndIf
  776.     OpenRegKey $(!REG_H_LOCAL) "" $(ProductKeyBase) +
  777.                $(MAXIMUM_ALLOWED) ProductKey
  778.     Ifstr $(ProductKey) == $(KeyNull)
  779.        Debug-Output "OEMNXPPP.INF: could not open Software product key"
  780.     else
  781.        DeleteRegTree $(ProductKey) $(ProductRASPPTPName)
  782.        CloseRegKey $(ProductKey)
  783.     endif
  784.     Shell "" RemoveRASPPTPFDriver
  785.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  786.          Debug-Output "Error shelling RemoveRASPPTPFDriver"
  787.          goto ShellCodeError
  788.     endif
  789.     ifstr(i) $($R0) != STATUS_SUCCESSFUL
  790.          Debug-Output "Error from RemoveRASPPTPFDriver"
  791.          goto end
  792.     endif
  793.     OpenRegKey $(!REG_H_LOCAL) "" "SOFTWARE\Microsoft\TAPI DEVICES" $(MAXIMUM_ALLOWED) BaseKey
  794.     IfStr $(BaseKey) != $(KeyNull)
  795.         DeleteRegTree $(BaseKey) $(ProductSoftwareName)
  796.     EndIf
  797.     OpenRegKey $(!REG_H_LOCAL) "" "SYSTEM\CurrentControlSet\Services\TcpIp\Parameters" $(MAXIMUM_ALLOWED) TcpKey
  798.     IfStr(i) $(TcpKey) != ""
  799.         Debug-Output $(InfName)": removing tcpip\parameters\PPTPTcpMaxDataRetransmissions value"
  800.     DeleteRegValue $(TcpKey) "PPTPTcpMaxDataRetransmissions"
  801.         CloseRegKey $(TcpKey)
  802.     Else
  803.         Debug-Output $(InfName)": Registry error: can't open services\tcpip key"
  804.     EndIf
  805.     Read-Syms InvokeRasDlg$(!STF_LANGUAGE)
  806.     Shell "oemnsvra.inf" CheckRasInstalled
  807.     IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  808.         Debug-Output $(InfName)": Error Shelling the RAS INF file oemnsvra.inf"
  809.         Shell "subroutn.inf" SetupMessage, $(!STF_LANGUAGE),  +
  810.                 "STATUS", $(InvokeRasError)
  811.         IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  812.             GoTo ShellCodeError
  813.         EndIf
  814.         GoTo RASSetup2
  815.     EndIf
  816.     Set RasInstalled = $($R0)
  817.     Debug-Output $(InfName)": Is RAS Installed? "$(RasInstalled)
  818.     IfStr(i) $(RasInstalled) == FALSE
  819.         goto end
  820.     Else
  821.         Shell "subroutn.inf" SetupMessage, $(!STF_LANGUAGE), "STATUS", +
  822.                 $(InvokeRasConfigMsg2)
  823.         IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  824.             GoTo RASSetup2
  825.         EndIf
  826.     EndIf
  827.     EndWait
  828.     GoTo RASSetup2
  829. RASSetup2 =+
  830.     Set AddCopy  = NO
  831.     Set DoCopy   = NO
  832.     Set DoConfig = NO
  833.     Set SaveNTN_InstallMode = $(!NTN_InstallMode)
  834.     Set !NTN_InstallMode = configure
  835.     Shell "oemnsvra.inf" InstallOption $(!STF_LANGUAGE) "RAS" $(SrcDir) $(AddCopy) $(DoCopy) $(DoConfig)
  836.     Set !NTN_InstallMode = $(SaveNTN_InstallMode)
  837.     IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  838.         Debug-Output $(InfName)": Error Shelling the RAS INF file oemnsvra.inf"
  839.         Shell "subroutn.inf" SetupMessage, $(!STF_LANGUAGE), "STATUS",  +
  840.                 $(InvokeRasError)
  841.         IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  842.             GoTo ShellCodeError
  843.         EndIf
  844.         GoTo end
  845.     EndIf
  846.     GoTo end
  847. UpgradeSoftware = +
  848.         Debug-Output $(InfName)": comes into 1st part of upgrade"
  849.         OpenRegKey $(!REG_H_LOCAL) "" $(ProductKeyName) $(MAXIMUM_ALLOWED) KeyProduct
  850.         IfStr $(KeyProduct) != $(KeyNull)
  851.             GetRegValue $(KeyProduct),"MajorVersion", VersionInfo
  852.             Set Version = *($(VersionInfo), 4)
  853.             Shell $(UtilityInf), GetInfFileNameFromRegistry, $(KeyProduct)
  854.             IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  855.                 Debug-Output $(InfName)": ShellCode error"
  856.                 GoTo ShellCodeError
  857.             EndIf
  858.             Set !UG_Filename = $($R0)
  859.             IfStr(i) $(!UG_Filename) != ""
  860.                 Debug-Output $(InfName)": starts to install"
  861.                 install "Install-Update"
  862.                 IfStr(i) $(STF_INSTALL_OUTCOME) != STF_SUCCESS
  863.                     GoTo FatalError
  864.                 EndIf
  865.                 LibraryProcedure Result, $(!LIBHANDLE), SetupChangeServiceConfig, $(!PPTPFProductName) +
  866.                                          $(SERVICE_NO_CHANGE), $(SERVICE_NO_CHANGE), $(SERVICE_NO_CHANGE), +
  867.                                          "", "TDI", "", "", "", ""
  868.             EndIf
  869.             SetRegValue $(KeyProduct) {MajorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMajorVersion)}
  870.             SetRegValue $(KeyProduct) {MinorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMinorVersion)}
  871.             IfInt $(Version) != $(ProductVersion)
  872.             EndIf
  873.             CloseRegKey $(KeyProduct)
  874.         Else
  875.             GoTo FatalRegistry
  876.         EndIf
  877.         Debug-Output $(InfName)": comes into PPTPE part of upgrade"
  878.         OpenRegKey $(!REG_H_LOCAL) "" $(PPTPProductKeyName) $(MAXIMUM_ALLOWED) PPTPKeyProduct
  879.         IfStr $(PPTPKeyProduct) != $(KeyNull)
  880.             SetRegValue $(PPTPKeyProduct) {MajorVersion,$(NoTitle),$(!REG_VT_DWORD),$(PPTPProductMajorVersion)}
  881.             SetRegValue $(PPTPKeyProduct) {MinorVersion,$(NoTitle),$(!REG_VT_DWORD),$(PPTPProductMinorVersion)}
  882.             CloseRegKey $(PPTPKeyProduct)
  883.         Else
  884.             GoTo FatalRegistry
  885.         EndIf
  886.         Debug-Output $(InfName)": comes into PPTP part of upgrade"
  887.         OpenRegKey $(!REG_H_LOCAL) "" $(ProductRASPPTPKeyName) $(MAXIMUM_ALLOWED) PPTPKeyProduct
  888.         IfStr $(PPTPKeyProduct) != $(KeyNull)
  889.             SetRegValue $(PPTPKeyProduct) {MajorVersion,$(NoTitle),$(!REG_VT_DWORD),$(PPTPProductMajorVersion)}
  890.             SetRegValue $(PPTPKeyProduct) {MinorVersion,$(NoTitle),$(!REG_VT_DWORD),$(PPTPProductMinorVersion)}
  891.             SetRegValue $(PPTPKeyProduct) {Description,$(NoTitle),$(!REG_VT_SZ),$(ProductRASPPTPDescription)}
  892.             SetRegValue $(PPTPKeyProduct) {OperationsSupport,$(NoTitle),$(!REG_VT_DWORD),$(ProductOpSupport)}
  893.             CloseRegKey $(PPTPKeyProduct)
  894.         Else
  895.             GoTo FatalRegistry
  896.         EndIf
  897.     GoTo end
  898. SuccessfulOption = +
  899.     GoTo end
  900. Abandon = +
  901.     ForListDo $(OEM_ABANDON_OPTIONS)
  902.         Shell $(UtilityInf), RemoveHardwareComponent, $(Manufacturer), +
  903.             $(ProductSoftwareName), $($)
  904.         IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  905.             Debug-Output $(InfName)": ShellCode error"
  906.             GoTo ShellCodeError
  907.         EndIf
  908.         Set RegistryErrorIndex = $($R0)
  909.         IfStr(i) $(RegistryErrorIndex) != NO_ERROR
  910.             GoTo FatalRegistry
  911.         EndIf
  912.     EndForListDo
  913.     IfStr(i) $(OEM_ABANDON_SOFTWARE) == TRUE
  914.         Shell $(UtilityInf), RemoveSoftwareComponent, $(Manufacturer), +
  915.             $(ProductSoftwareName), FALSE
  916.         IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  917.             Debug-Output $(InfName)": ShellCode error"
  918.             GoTo ShellCodeError
  919.         EndIf
  920.         Set RegistryErrorIndex = $($R0)
  921.         IfStr(i) $(RegistryErrorIndex) != NO_ERROR
  922.             GoTo FatalRegistry
  923.         EndIf
  924.     EndIf
  925.     IfStr(i) $(OEM_ABANDON_PPTP_SOFTWARE) == TRUE
  926.         Shell $(UtilityInf), RemoveSoftwareComponent, $(Manufacturer), +
  927.             $(PPTPProductSoftwareName), FALSE
  928.         IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  929.             Debug-Output $(InfName)": ShellCode error"
  930.             GoTo ShellCodeError
  931.         EndIf
  932.         Set RegistryErrorIndex = $($R0)
  933.         IfStr(i) $(RegistryErrorIndex) != NO_ERROR
  934.             GoTo FatalRegistry
  935.         EndIf
  936.     EndIf
  937.     GoTo end
  938. WarningMsg = +
  939.     Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), "WARNING", $(Error)
  940.     IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  941.         GoTo ShellCodeError
  942.     EndIf
  943.     IfStr(i) $($R1) == "OK"
  944.         GoTo $(to)
  945.     Else-IfStr(i) $($R1) == "CANCEL"
  946.         GoTo $(from)
  947.     EndIf
  948.     GoTo end
  949. NonFatalInfo = +
  950.     Set Severity = STATUS
  951.     Set CommonStatus = STATUS_USERCANCEL
  952.     IfStr(i) $(Error) == ""
  953.         Set Severity = NONFATAL
  954.         Shell $(UtilityInf) RegistryErrorString "SETUP_FAIL"
  955.         IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  956.             GoTo ShellCodeError
  957.         EndIf
  958.         Set Error = $($R0)
  959.     EndIf
  960.     Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), $(Severity), $(Error)
  961.     IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  962.         GoTo ShellCodeError
  963.     EndIf
  964.     IfStr(i) $($R1) == "OK"
  965.         GoTo $(from)
  966.     EndIf
  967.     GoTo end
  968. FatalRegistry = +
  969.     Shell $(UtilityInf) RegistryErrorString $(RegistryErrorIndex)
  970.     IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  971.         GoTo ShellCodeError
  972.     EndIf
  973.     Set Error = $($R0)
  974.     GoTo FatalError
  975. FatalDetect = +
  976.     Shell $(UtilityInf),RegistryErrorString,CANNOT_DETECT
  977.     IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  978.         Debug-Output $(InfName)": ShellCode error: cannot get an error string."
  979.         GoTo ShellCodeError
  980.     EndIf
  981.     Set Error = $($R0)
  982.     GoTo FatalError
  983. FatalError = +
  984.     IfStr(i) $(Error) == ""
  985.         Shell $(UtilityInf) RegistryErrorString "SETUP_FAIL"
  986.         IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  987.             GoTo ShellCodeError
  988.         EndIf
  989.         Set Error = $($R0)
  990.     EndIf
  991.     Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), "FATAL", $(Error)
  992.     IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  993.         GoTo ShellCodeError
  994.     EndIf
  995.     GoTo SetFailed
  996. ShellCodeError = +
  997.     Set DlgType      = "MessageBox"
  998.     Set STF_MB_TITLE = $(ShellCodeErrorTitle)
  999.     Set STF_MB_TEXT  = $(ShellCodeErrorText)
  1000.     Set STF_MB_TYPE  = 1
  1001.     Set STF_MB_ICON  = 3
  1002.     Set STF_MB_DEF   = 1
  1003.     UI Start "Error Message"
  1004.     GoTo SetFailed
  1005. SetFailed = +
  1006.     Set CommonStatus = STATUS_FAILED
  1007.     IfStr(i) $(OEM_ABANDON_ON) == TRUE
  1008.         Set OEM_ABANDON_ON = FALSE
  1009.         GoTo Abandon
  1010.     EndIf
  1011.     GoTo end
  1012. end = +
  1013.     Return $(CommonStatus)
  1014. [HtCreateRegKey]
  1015.     Debug-Output $(InfName)": Entering [HtCreateRegKey]"
  1016.     Set ECR_Result          = NO_ERROR
  1017.     Set ECR_BaseKeyHandle   = $($0)
  1018.     Set ECR_NewPath         = $($1)
  1019.     Set KeyNull             = ""
  1020.     Set MAXIMUM_ALLOWED     = 33554432
  1021.     Debug-Output $(InfName)": HtCreateRegKey - ECR_BaseKeyHandle = "$(ECR_BaseKeyHandle)
  1022.     Debug-Output $(InfName)":                  ECR_NewPath       = "$(ECR_NewPath)
  1023.     Debug-Output $(InfName)":                  MAXIMUM_ALLOWED   = "$(MAXIMUM_ALLOWED)
  1024.     Debug-Output $(InfName)":                  KeyNull           = "$(KeyNull)
  1025.     OpenRegKey $(ECR_BaseKeyHandle) "" $(ECR_NewPath) $(MAXIMUM_ALLOWED) +
  1026.                ECR_BaseKey
  1027.     Debug-Output $(InfName)": ECR_BaseKey = "$(ECR_BaseKey)
  1028.     Debug-Output $(InfName)":     OpenRegKey returned "$($R0)
  1029.     IfStr $(ECR_BaseKey) == $(KeyNull)
  1030.         Debug-Output $(InfName)": ECR_BaseKey == KeyNull"
  1031.     Else
  1032.         Debug-Output $(InfName)": ECR_BaseKey != KeyNull"
  1033.         Set ECR_KeyHandle = $(ECR_BaseKey)
  1034.         GoTo  ECR_Return
  1035.     EndIf
  1036.     Set ECR_TmpPath = ""
  1037.     Split-String $(ECR_NewPath) "\" ECR_PList
  1038.     Debug-Output $(InfName)": ECR_PList = "$(ECR_PList)
  1039.     ForListDo $(ECR_PList)
  1040.         IfStr(i) $($) != "\"
  1041.             IfInt $(#) == 1
  1042.                 Set ECR_TmpPath = $($)
  1043.             Else
  1044.                 Set ECR_TmpPath = $(ECR_TmpPath)"\"$($)
  1045.             EndIf
  1046.             Debug-Output $(InfName)": Determining if "$(ECR_TmpPath)" exists"
  1047.             OpenRegKey $(ECR_BaseKeyHandle) "" $(ECR_TmpPath) $(MAXIMUM_ALLOWED) ECR_BaseKey
  1048.             IfStr $(ECR_BaseKey) == $(KeyNull)
  1049.                 Debug-Output $(InfName)": Creating "$(ECR_TmpPath)
  1050.                 CreateRegKey $(ECR_BaseKeyHandle)  {$(ECR_TmpPath),0,GenericClass} "" $(MAXIMUM_ALLOWED) "" ECR_KeyHandle
  1051.                 IfStr(i) $(ECR_KeyHandle) == $(KeyNull)
  1052.                     Set ECR_Result = $($R0)
  1053.                     GoTo ECR_Return
  1054.                 EndIf
  1055.             EndIf
  1056.         EndIf
  1057.     EndForListDo
  1058. ECR_Return = +
  1059.     Return $(ECR_Result) $(ECR_KeyHandle)
  1060. [InstallTCPIPIfNotInstalled]
  1061.     Debug-Output $(InfName)"InstallTCPIPIfNotInstalled entry "
  1062.     Debug-Output $(InfName)"!NTN_ServiceBase is "$(!NTN_ServiceBase)
  1063.     set SrcDir   = $($0)
  1064.     set AddCopy  = $($1)
  1065.     set DoCopy   = $($2)
  1066.     set DoConfig = $($3)
  1067.     Read-Syms InvokeTCPIPDlg$(!STF_LANGUAGE)
  1068.     set TcpIpKeyName      = $(!NTN_ServiceBase)"\TcpIp"
  1069.     Set KeyNull        =    ""
  1070.     Set status = STATUS_FAILED
  1071.     Set TcpIpInstalled   = FALSE
  1072.     Set MAXIMUM_ALLOWED = 33554432
  1073.     set Protocol = "TCPIP"
  1074.     set KeyService = $(KeyNull)
  1075.     set DeleteFlag = 0
  1076.     set DeleteFlagInfo = {}
  1077.     OpenRegKey $(!REG_H_LOCAL) "" $(TcpIpKeyName) $(MAXIMUM_ALLOWED) KeyService
  1078.     Ifstr(i) $(KeyService) != $(KeyNull)
  1079.         GetRegValue $(KeyService),"DeleteFlag", DeleteFlagInfo
  1080.         set DeleteFlag = *($(DeleteFlagInfo), 4)
  1081.         ifint $(DeleteFlag) != 1
  1082.             set TcpIpInstalled = TRUE
  1083.         endif
  1084.         CloseRegKey $(KeyService)
  1085.     endif
  1086.     Debug-Output $(InfName)"TCP/IP Installed? "$(TcpIpInstalled)
  1087.     Ifstr(i) $(TcpIpInstalled) == "FALSE"
  1088.         Debug-Output $(InfName)"Installing TCP/IP"
  1089.         Shell "subroutn.inf" SetupMessage, $(!STF_LANGUAGE), "STATUS", +
  1090.             $(InvokeTCPSetupMsg)
  1091.         set InvokedByRas = FALSE
  1092.         Debug-Output $(InfName)": resetting stf_srcdir_override flag"
  1093.         Set PREV_SRCDIR = $(!STF_SRCDIR_OVERRIDE)
  1094.         Set !STF_SRCDIR_OVERRIDE = $(SrcDir)
  1095.         Shell "oemnxptc.inf" InstallOption $(!STF_LANGUAGE) "TC" $(SrcDir) $(AddCopy) $(DoCopy) $(DoConfig) $(InvokedByRas)
  1096.         set !STF_SRCDIR_OVERRIDE = $(PREV_SRCDIR)
  1097.         Ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1098.             Debug-Output $(InfName)"SHELL ERROR! during TCP/IP installation"
  1099.             Goto InstallTCPEscape
  1100.         Endif
  1101.         Set status = $($R0)
  1102.         Ifstr(i) $(status) != STATUS_SUCCESSFUL
  1103.             Ifstr(i) $(status) != STATUS_USERCANCEL
  1104.                 Debug-Output $(InfName)"oemnxptc.inf  returned "$(status)
  1105.                 Goto InstallTCPEscape
  1106.             Endif
  1107.         Endif
  1108.     Else
  1109.         set status = STATUS_SUCCESSFUL
  1110.     Endif
  1111. InstallTCPEscape = +
  1112.     set RetStatus = $(status)
  1113.     return $(RetStatus)
  1114. [AddUSRMediaGroupToServiceGroupOrder]
  1115.     Debug-Output $(InfName)": Entering [AddUSRMediaGroupToServiceGroupOrder]"
  1116.     Set MAXIMUM_ALLOWED     = 33554432
  1117.     Set KeyNull             = ""
  1118.     Read-Syms SMANFileConstants
  1119.     set GroupOrderName = "SYSTEM\CurrentControlSet\Control\ServiceGroupOrder"
  1120.     OpenRegKey $(!REG_H_LOCAL) "" $(GroupOrderName) $(MAXIMUM_ALLOWED) KeyGroup
  1121.     set OldList = {}
  1122.     Ifstr(i) $(KeyGroup) != $(KeyNull)
  1123.         GetRegValue  $(KeyGroup) "List" TmpList
  1124.         ifint $(RegLastError) == 0
  1125.             ForListDo *($(TmpList), 4)
  1126.                 set OldList = >($(OldList), $($))
  1127.             EndForListDo
  1128.         endif
  1129.         Debug-Output "AddUSRMediaGroupToServiceGroupOrder current list "$(OldList)
  1130.         Ifcontains(i) $(PPTPGroupName) not-in $(OldList)
  1131.             set NewGroupList = {}
  1132.             ForListDo $(OldList)
  1133.                 ifstr(i) $($) == "NDIS"
  1134.                     set NewGroupList = >($(NewGroupList), $(PPTPGroupName))
  1135.                 endif
  1136.                 set NewGroupList = >($(NewGroupList), $($))
  1137.              EndForListDo
  1138.             Debug-Output "AddUSRMediaGroupToServiceGroupOrder new list "$(NewGroupList)
  1139.             SetRegValue $(KeyGroup) {List, 0,$(!REG_VT_MULTI_SZ),$(NewGroupList)}
  1140.         endif
  1141.         CloseRegKey $(KeyGroup)
  1142.     else
  1143.         Debug-Output "AddUSRMediaGroupToServiceGroupOrder error opening ServiceGroupOrder key."
  1144.         Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), "NONFATAL", "ServiceGroupOrder Update Failed"
  1145.     endif
  1146.     return
  1147. [UpdateAddressList]
  1148.     Debug-Output $(InfName)": Entering [UpdateAddressList]"
  1149.     Set NumberLineDevices = $($0)
  1150.     Set AdapNum = $($1)
  1151.     Set DriverName = $($2)
  1152.     Set MediaType = $($3)
  1153.     Set MAXIMUM_ALLOWED     = 33554432
  1154.     Set KeyNull             = ""
  1155.     Debug-Output $(InfName)": number of line devices received value "$(NumberLineDevices)
  1156.     Debug-Output $(InfName)": adapter number received value "$(AdapNum)
  1157.     Debug-Output $(InfName)": driver name received value "$(DriverName)
  1158.     Shell "" CreateFullTapiAddrList $(AdapNum)
  1159.     ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1160.         Debug-Output "Cannot create the new TAPI address list"
  1161.         goto ShellCodeError
  1162.     endif
  1163.     Set NewTapiAddrList = $($R0)
  1164.     Set TapiAddressList = {}
  1165.     ForListDo $(NewTapiAddrList)
  1166.         Set CurListItem = $(AdapNum)"-"$($)"-0"
  1167.         Set CurListNumber = $(#)
  1168.         IfInt $(CurListNumber) <= $(NumberLineDevices)
  1169.             Set TapiAddressList = >($(TapiAddressList), $(CurListItem))
  1170.         Endif
  1171.     EndForListDo
  1172.     Debug-Output $(InfName)": Modified new Tapi Address List is :"$(TapiAddressList)
  1173.     set RASPPTPAddress = "SYSTEM\CurrentControlSet\Services\"$(DriverName)$(AdapNum)"\Parameters"
  1174.     Debug-Output $(InfName)": RASPPTPAddress is "$(RASPPTPAddress)
  1175.     OpenRegKey $(!REG_H_LOCAL) "" $(RASPPTPAddress) $(MAXIMUM_ALLOWED) KeyParam
  1176.     Debug-Output $(InfName)": keyparam value is "$(KeyParam)
  1177.     Ifstr(i) $(KeyParam) != $(KeyNull)
  1178.     Debug-Output $(InfName)": entering to set usrwan2 value"
  1179.     DeleteRegValue $(KeyParam) "AddressList"
  1180.         SetRegValue $(KeyParam) {AddressList, 0,$(!REG_VT_MULTI_SZ),$(TapiAddressList)}
  1181.     CloseRegKey $(KeyParam)
  1182.     EndIf
  1183.     OpenRegKey $(!REG_H_LOCAL) "" "SOFTWARE\Microsoft" $(MAXIMUM_ALLOWED) BaseKey
  1184.     Shell "" HtCreateRegKey $(BaseKey) "TAPI DEVICES\RASPPTPM"
  1185.     IfStr(i) $($R0) != NO_ERROR
  1186.         Debug-Output $(InfName)": Error creating registry key!"
  1187.         GoTo FatalRegistry
  1188.     EndIf
  1189.     Set TapiDeviceKey = $($R1)
  1190.     DeleteRegValue $(TapiDeviceKey) "Address"
  1191.     DeleteRegValue $(TapiDeviceKey) "Media Type"
  1192.     SetRegValue $(TapiDeviceKey) {Address, 0,$(!REG_VT_MULTI_SZ),$(TapiAddressList)}
  1193.     SetRegValue $(TapiDeviceKey) {"Media Type", 0,$(!REG_VT_SZ),$(MediaType)}
  1194.     CloseRegKey $(TapiDeviceKey)
  1195.     CloseRegKey $(BaseKey)
  1196.     Read-Syms InvokeRasDlg$(!STF_LANGUAGE)
  1197.     Shell "subroutn.inf" SetupMessage, $(!STF_LANGUAGE), "STATUS", +
  1198.         $(InvokeRasConfigMsg)
  1199.     Set AddCopy  = YES
  1200.     Set DoCopy   = YES
  1201.     Set DoConfig = YES
  1202.     Set SaveNTN_InstallMode = $(!NTN_InstallMode)
  1203.     Set !NTN_InstallMode = configure
  1204.     Shell "oemnsvra.inf" InstallOption $(!STF_LANGUAGE) "RAS" "" $(AddCopy) $(DoCopy) $(DoConfig)
  1205.     Set !NTN_InstallMode = $(SaveNTN_InstallMode)
  1206.     IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  1207.         Debug-Output $(InfName)": Error Shelling the RAS INF file oemnsvra.inf"
  1208.         Shell "subroutn.inf" SetupMessage, $(!STF_LANGUAGE), "STATUS",  +
  1209.                 $(InvokeRasError)
  1210.         IfInt $($ShellCode) != $(!SHELL_CODE_OK)
  1211.             GoTo ShellCodeError
  1212.         EndIf
  1213.     EndIf
  1214.     EndWait
  1215.     return
  1216. [CreateFullTapiAddrList]
  1217.     Debug-Output $(InfName)": Entering [TapiAddrList]"
  1218.     Set AdapterNum = $($0)
  1219.     Set FullTapiAddrList =    { "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", +
  1220.                 "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", +
  1221.                 "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", +
  1222.                 "31", "32", "33", "34", "35", "36", "37", "38", "39", "40", +
  1223.                 "41", "42", "43", "44", "45", "46", "47", "48", "49", "50", +
  1224.                 "51", "52", "53", "54", "55", "56", "57", "58", "59", "60", +
  1225.                 "61", "62", "63", "64", "65", "66", "67", "68", "69", "70", +
  1226.                 "71", "72", "73", "74", "75", "76", "77", "78", "79", "80", +
  1227.                 "81", "82", "83", "84", "85", "86", "87", "88", "89", "90", +
  1228.                 "91", "92", "93", "94", "95", "96", "97", "98", "99", "100", +
  1229.                 "101", "102", "103", "104", "105", "106", "107", "108", "109", "110", +
  1230.                 "111", "112", "113", "114", "115", "116", "117", "118", "119", "120", +
  1231.                 "121", "122", "123", "124", "125", "126", "127", "128", "129", "130", +
  1232.                 "131", "132", "133", "134", "135", "136", "137", "138", "139", "140", +
  1233.                 "141", "142", "143", "144", "145", "146", "147", "148", "149", "150", +
  1234.                 "151", "152", "153", "154", "155", "156", "157", "158", "159", "160", +
  1235.                 "161", "162", "163", "164", "165", "166", "167", "168", "169", "170", +
  1236.                 "171", "172", "173", "174", "175", "176", "177", "178", "179", "180", +
  1237.                 "181", "182", "183", "184", "185", "186", "187", "188", "189", "190", +
  1238.                 "191", "192", "193", "194", "195", "196", "197", "198", "199", "200", +
  1239.                 "201", "202", "203", "204", "205", "206", "207", "208", "209", "210", +
  1240.                 "211", "212", "213", "214", "215", "216", "217", "218", "219", "220", +
  1241.                 "221", "222", "223", "224", "225", "226", "227", "228", "229", "230", +
  1242.                 "231", "232", "233", "234", "235", "236", "237", "238", "239", "240", +
  1243.                 "241", "242", "243", "244", "245", "246", "247", "248", "249", "250", +
  1244.                 "251", "252", "253", "254", "255", "256", "257", "258", "259", "260", +
  1245.                 "261", "262", "263", "264", "265", "266", "267", "268", "269", "270", +
  1246.                 "271", "272", "273", "274", "275", "276", "277", "278", "279", "280", +
  1247.                 "281", "282", "283", "284", "285", "286", "287", "288", "289", "290", +
  1248.                 "291", "292", "293", "294", "295", "296", "297", "298", "299", "300", +
  1249.                 "301", "302", "303", "304", "305", "306", "307", "308", "309", "310", +
  1250.                 "311", "312", "313", "314", "315", "316", "317", "318", "319", "320", +
  1251.                 "321", "322", "323", "324", "325", "326", "327", "328", "329", "330", +
  1252.                 "331", "332", "333", "334", "335", "336", "337", "338", "339", "340", +
  1253.                 "341", "342", "343", "344", "345", "346", "347", "348", "349", "350", +
  1254.                 "351", "352", "353", "354", "355", "356", "357", "358", "359", "360", +
  1255.                 "361", "362", "363", "364", "365", "366", "367", "368", "369", "370", +
  1256.                 "371", "372", "373", "374", "375", "376", "377", "378", "379", "380", +
  1257.                 "381", "382", "383", "384", "385", "386", "387", "388", "389", "390", +
  1258.                 "391", "392", "393", "394", "395", "396", "397", "398", "399", "400", +
  1259.                 "401", "402", "403", "404", "405", "406", "407", "408", "409", "410", +
  1260.                 "411", "412", "413", "414", "415", "416", "417", "418", "419", "420", +
  1261.                 "421", "422", "423", "424", "425", "426", "427", "428", "429", "430", +
  1262.                 "431", "432", "433", "434", "435", "436", "437", "438", "439", "440", +
  1263.                 "441", "442", "443", "444", "445", "446", "447", "448", "449", "450", +
  1264.                 "451", "452", "453", "454", "455", "456", "457", "458", "459", "460", +
  1265.                 "461", "462", "463", "464", "465", "466", "467", "468", "469", "470", +
  1266.                 "471", "472", "473", "474", "475", "476", "477", "478", "479", "480", +
  1267.                 "481", "482", "483", "484", "485", "486", "487", "488", "489", "490", +
  1268.                 "491", "492", "493", "494", "495", "496", "497", "498", "499", "500", +
  1269.                             "501", "502", "503", "504", "505", "506", "507", "508", "509", "510", +
  1270.                 "511", "512", "513", "514", "515", "516", "517", "518", "519", "520", +
  1271.                 "521", "522", "523", "524", "525", "526", "527", "528", "529", "530", +
  1272.                 "531", "532", "533", "534", "535", "536", "537", "538", "539", "540", +
  1273.                 "541", "542", "543", "544", "545", "546", "547", "548", "549", "550", +
  1274.                 "551", "552", "553", "554", "555", "556", "557", "558", "559", "560", +
  1275.                 "561", "562", "563", "564", "565", "566", "567", "568", "569", "570", +
  1276.                 "571", "572", "573", "574", "575", "576", "577", "578", "579", "580", +
  1277.                 "581", "582", "583", "584", "585", "586", "587", "588", "589", "590", +
  1278.                 "591", "592", "593", "594", "595", "596", "597", "598", "599", "600", +
  1279.                 "601", "602", "603", "604", "605", "606", "607", "608", "609", "610", +
  1280.                 "611", "612", "613", "614", "615", "616", "617", "618", "619", "620", +
  1281.                 "621", "622", "623", "624", "625", "626", "627", "628", "629", "630", +
  1282.                 "631", "632", "633", "634", "635", "636", "637", "638", "639", "640", +
  1283.                 "641", "642", "643", "644", "645", "646", "647", "648", "649", "650", +
  1284.                 "651", "652", "653", "654", "655", "656", "657", "658", "659", "660", +
  1285.                 "661", "662", "663", "664", "665", "666", "667", "668", "669", "670", +
  1286.                 "671", "672", "673", "674", "675", "676", "677", "678", "679", "680", +
  1287.                 "681", "682", "683", "684", "685", "686", "687", "688", "689", "690", +
  1288.                 "691", "692", "693", "694", "695", "696", "697", "698", "699", "700", +
  1289.                 "701", "702", "703", "704", "705", "706", "707", "708", "709", "710", +
  1290.                 "711", "712", "713", "714", "715", "716", "717", "718", "719", "720", +
  1291.                 "721", "722", "723", "724", "725", "726", "727", "728", "729", "730", +
  1292.                 "731", "732", "733", "734", "735", "736", "737", "738", "739", "740", +
  1293.                 "741", "742", "743", "744", "745", "746", "747", "748", "749", "750", +
  1294.                 "751", "752", "753", "754", "755", "756", "757", "758", "759", "760", +
  1295.                 "761", "762", "763", "764", "765", "766", "767", "768", "769", "770", +
  1296.                 "771", "772", "773", "774", "775", "776", "777", "778", "779", "780", +
  1297.                 "781", "782", "783", "784", "785", "786", "787", "788", "789", "790", +
  1298.                 "791", "792", "793", "794", "795", "796", "797", "798", "799", "800", +
  1299.                 "801", "802", "803", "804", "805", "806", "807", "808", "809", "810", +
  1300.                 "811", "812", "813", "814", "815", "816", "817", "818", "819", "820", +
  1301.                 "821", "822", "823", "824", "825", "826", "827", "828", "829", "830", +
  1302.                 "831", "832", "833", "834", "835", "836", "837", "838", "839", "840", +
  1303.                 "841", "842", "843", "844", "845", "846", "847", "848", "849", "850", +
  1304.                 "851", "852", "853", "854", "855", "856", "857", "858", "859", "860", +
  1305.                 "861", "862", "863", "864", "865", "866", "867", "868", "869", "870", +
  1306.                 "871", "872", "873", "874", "875", "876", "877", "878", "879", "880", +
  1307.                 "881", "882", "883", "884", "885", "886", "887", "888", "889", "890", +
  1308.                 "891", "892", "893", "894", "895", "896", "897", "898", "899", "900", +
  1309.                 "901", "902", "903", "904", "905", "906", "907", "908", "909", "910", +
  1310.                 "911", "912", "913", "914", "915", "916", "917", "918", "919", "920", +
  1311.                 "921", "922", "923", "924", "925", "926", "927", "928", "929", "930", +
  1312.                 "931", "932", "933", "934", "935", "936", "937", "938", "939", "940", +
  1313.                 "941", "942", "943", "944", "945", "946", "947", "948", "949", "950", +
  1314.                 "951", "952", "953", "954", "955", "956", "957", "958", "959", "960", +
  1315.                 "961", "962", "963", "964", "965", "966", "967", "968", "969", "970", +
  1316.                 "971", "972", "973", "974", "975", "976", "977", "978", "979", "980", +
  1317.                 "981", "982", "983", "984", "985", "986", "987", "988", "989", "990", +
  1318.                 "991", "992", "993", "994", "995", "996", "997", "998", "999", "1000" }
  1319.     return $(FullTapiAddrList)
  1320. [InstallRASPPTPFDriver]
  1321.     Set MAXIMUM_ALLOWED = 33554432
  1322.     set Status = STATUS_SUCCESSFUL
  1323.     set KeyNull = ""
  1324.     Debug-Output "InstallRASPPTPFDriver entry"
  1325.     OpenRegKey $(!REG_H_LOCAL) "" $(!RaspptpfKeyName) $(MAXIMUM_ALLOWED) KeyService
  1326.     Ifstr(i) $(KeyService) == $(KeyNull)
  1327.         Shell "utility.inf", CreateService, $(!PPTPFProductName), +
  1328.             $(!PPTPFProductDisplayName), +
  1329.             $(!PPTPFProductImagePath), +
  1330.             "kernelautostart", "TDI", {"TCPIP"}, ""
  1331.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1332.             Debug-Output "OEMNXPPP.INF: InstallRASPPTPFDriver : ShellCode error"
  1333.             return STATUS_FAILED
  1334.         endif
  1335.         set RegistryErrorIndex = $($R0)
  1336.         CloseRegKey $($R1)
  1337.         CloseRegKey $($R2)
  1338.         CloseRegKey $($R3)
  1339.         Ifstr(i) $(RegistryErrorIndex) == SERVICE_ALREADY_EXISTS
  1340.            return $(Status)
  1341.         EndIf
  1342.         Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
  1343.             Debug-Output "OEMNXPPP.INF: InstallRASPPTPFDriver: Registry error create service"
  1344.             return STATUS_FAILED
  1345.         endif
  1346.     endif
  1347.     Ifstr(i) $(KeyService) != $(KeyNull)
  1348.         CloseRegKey $(KeyService)
  1349.     endif
  1350.     Debug-Output "InstallRASPPTPFDriver exit"
  1351.     return $(Status)
  1352. [RemoveRASPPTPFDriver]
  1353.     Set MAXIMUM_ALLOWED = 33554432
  1354.     set Status = STATUS_SUCCESSFUL
  1355.     set KeyNull = ""
  1356.     Debug-Output "RemoveRASPPTPFDriver entry"
  1357.     OpenRegKey $(!REG_H_LOCAL) "" $(!RaspptpfKeyName) $(MAXIMUM_ALLOWED) KeyService
  1358.     Ifstr(i) $(KeyService) != $(KeyNull)
  1359.         Shell "utility.inf", RemoveService $(!PPTPFProductName) "YES"
  1360.         ifint $($ShellCode) != $(!SHELL_CODE_OK)
  1361.             Debug-Output "OEMNXPPP.INF: RemoveRASPPTPFDriver : ShellCode error"
  1362.             return STATUS_FAILED
  1363.         endif
  1364.         set RegistryErrorIndex = $($R0)
  1365.         Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
  1366.             Debug-Output "OEMNXPPP.INF: RemoveRASPPTPFDriver: Registry error: "
  1367.             return STATUS_FAILED
  1368.         endif
  1369.         CloseRegKey $(KeyService)
  1370.     endif
  1371.     Debug-Output "RemoveRASPPTPFDriver exit"
  1372.     return $(Status)
  1373. [AddServiceDependency]
  1374.     Debug-Output "AddServiceDependency: entry"
  1375.     set MAXIMUM_ALLOWED = 33554432
  1376.     set SERVICE_NO_CHANGE = 4294967295
  1377.     set Status   = STATUS_FAILED
  1378.     Set KeyNull  = ""
  1379.     set DependentService = $(!NTN_ServiceBase)\$($0)
  1380.     set DependentName = $($0)
  1381.     set DependOn = $($1)
  1382.     set ServiceKey = $(KeyNull)
  1383.     OpenRegKey $(!REG_H_LOCAL) "" $(DependentService)"\Linkage" $(MAXIMUM_ALLOWED) ServiceKey
  1384.     ifstr(i) $(ServiceKey) != $(KeyNull)
  1385.         GetRegValue $(ServiceKey) "OtherDependencies" ServicesList
  1386.         ifint $(RegLastError) != 0
  1387.            set ServiceValues = {}
  1388.         else
  1389.            set ServiceValues = *($(ServicesList),4)
  1390.         endif
  1391.         debug-output "AddServiceDependency: Old OtherDependencies: "$(ServiceValues)
  1392.         ifstr(i) $(ServiceValues) == {}
  1393.             Set ServiceValues = {$(DependOn)}
  1394.         else-ifstr(i) $(ServiceValues) == ""
  1395.             Set ServiceValues = {$(DependOn)}
  1396.         else-ifcontains(i) $(DependOn) in $(ServiceValues)
  1397.             return STATUS_SUCCESSFUL
  1398.         else
  1399.             Set ServiceValues = >($(ServiceValues), $(DependOn))
  1400.         endif
  1401.         debug-output "AddServiceDependency: New OtherDependencies: "$(ServiceValues)
  1402.         SetRegValue $(ServiceKey) {OtherDependencies, 0,+
  1403.                                    $(!REG_VT_MULTI_SZ), $(ServiceValues)}
  1404.         CloseRegKey $(ServiceKey)
  1405.         set Status = STATUS_SUCCESSFUL
  1406.     else
  1407.         Debug-Output "AddServiceDependency: error opening service "$(DependentService)"\Linkage"
  1408.     endif
  1409.     set KeyService = $(KeyNull)
  1410.     OpenRegKey $(!REG_H_LOCAL) "" $(DependentService) $(MAXIMUM_ALLOWED) KeyService
  1411.     ifstr $(KeyService) != $(KeyNull)
  1412.         set newDependList = {$(DependOn)}
  1413.         GetRegValue    $(KeyService) "DependOnService" ServiceList
  1414.         ifint $(RegLastError) == 0
  1415.             Debug-Output "AddServiceDependency: old DependOnService List "*($(ServiceList), 4)
  1416.             ForListDo *($(ServiceList),4)
  1417.                 ifstr(i) $($) != $(DependOn)
  1418.                    set newDependList = >($(newDependList), $($))
  1419.                 endif
  1420.             EndForListDo
  1421.         endif
  1422.         GetRegValue    $(KeyService) "DependOnGroup" GrpList
  1423.         ifint $(RegLastError) == 0
  1424.             Debug-Output "AddServiceDependency: old DependOnGroup List "*($(GrpList), 4)
  1425.             ForListDo *($(GrpList),4)
  1426.                set grp = "+"$($)
  1427.                set newDependList = >($(newDependList), $(grp))
  1428.             EndForListDo
  1429.         endif
  1430.         Debug-Output "OEMNSVRA.INF: AddServiceDependency: new Dependency List "$(newDependList)
  1431.         LibraryProcedure Result, $(!LIBHANDLE), SetupChangeServiceConfig, $(DependentName) $(SERVICE_NO_CHANGE), $(SERVICE_NO_CHANGE), $(SERVICE_NO_CHANGE), "", "", $(newDependList), "", "", ""
  1432.         CloseRegKey $(KeyService)
  1433.     else
  1434.         Debug-Output "AddServiceDependency: failed to open service linkage key"$(DependentService)
  1435.     endif
  1436.     Debug-Output "AddServiceDependency: exit"
  1437.     return $(Status)
  1438. [DebugConfiguration]
  1439.     Debug-Output $(!p:InfName)": **CONFIGURATION STATE: "$($0)
  1440.     Debug-Output $(!p:InfName)": InterruptNumber is "$(!p:InterruptNumber)
  1441.     Debug-Output $(!p:InfName)": RamBaseAddress  is "$(!p:RamBaseAddress)
  1442.     Return
  1443. [DebugGlobalFlags]
  1444.     Debug-Output $(InfName)": **CONFIGURATION STATE: "$($0)
  1445.     Debug-Output $(InfName)": !STF_SRCDIR_USED value is "$(!STF_SRCDIR_USED)
  1446.     Debug-Output $(InfName)": !STF_SRCDIR_KEYED value is "$(!STF_SRCDIR_KEYED)
  1447.     Debug-Output $(InfName)": !STF_SRCDIR_OVERRIDE value is "$(!STF_SRCDIR_OVERRIDE)
  1448.     Return
  1449. [Install-Option]
  1450.     Set STF_VITAL = ""
  1451.     IfStr(i) $(AddCopy) == "YES"
  1452.         AddSectionFilesToCopyList Files-RASPPTPDLL $(SrcDir) $(!STF_WINDOWSSYSPATH)
  1453.         AddSectionFilesToCopyList Files-RASPPTPDRV $(SrcDir) $(!STF_WINDOWSSYSPATH)\drivers
  1454.     EndIf
  1455.     IfStr(i) $(DoCopy) == "YES"
  1456.        Set !STF_NCPA_FLUSH_COPYLIST = TRUE
  1457.        CopyFilesInCopyList
  1458.     Else
  1459.        LibraryProcedure STATUS, $(!NCPA_HANDLE), CopySingleFile $(!STF_HWND) $(SrcDir)\RASPPTPC.DLL $(!STF_WINDOWSSYSPATH)\RASPPTPC.DLL
  1460.     EndIf
  1461.     Exit
  1462. [Install-Update]
  1463.    Set STF_VITAL        = ""
  1464.    Set STF_OVERWRITE    = "VERIFYSOURCEOLDER"
  1465.    AddSectionFilesToCopyList Files-RASPPTPDLL $(SrcDir) $(!STF_WINDOWSSYSPATH)
  1466.    AddSectionFilesToCopyList Files-RASPPTPDRV $(SrcDir) $(!STF_WINDOWSSYSPATH)\drivers
  1467.    Set !STF_NCPA_FLUSH_COPYLIST = TRUE
  1468.    CopyFilesInCopyList
  1469.    Exit
  1470. [Source Media Descriptions]
  1471.     1 = "Windows NT Server CD-ROM", TAGFILE = cdrom_s.40
  1472. [Signature]
  1473.     FileType = MICROSOFT_FILE
  1474. [GetSignature]
  1475.     read-syms Signature
  1476.     return $(FileType)
  1477. [ProductType]
  1478. STF_PRODUCT  = LanmanNT
  1479. STF_PLATFORM = I386
  1480. [Files-Inf]
  1481. 2,    oemsetup.inf,     SIZE=1000,    RENAME=$(!UG_Filename)
  1482. [Files-RASPPTPDLL]
  1483. 1,RASPPTPC.DLL , SIZE=999
  1484. 1,RASPPTPL.DLL , SIZE=999
  1485. [Files-RASPPTPDRV]
  1486. 1,RASPPTPE.SYS , SIZE=999
  1487. 1,RASPPTPF.SYS , SIZE=999
  1488. 1,RASPPTPM.SYS , SIZE=999
  1489. 1,RASPPTPU.SYS , SIZE=999
  1490. [LanguagesSupported]
  1491.     ENG
  1492. [OptionsTextENG]
  1493.     RASPPTP             = "Point to Point Tunneling ﾌﾟﾛﾄｺﾙ"
  1494. [FileConstantsENG]
  1495.     ProCaption          = "Windows NT ｾｯﾄｱｯﾌﾟ"
  1496.     ProCancel           = "ｷｬﾝｾﾙ"
  1497.     ProCancelMsg        = "Windows NT ﾈｯﾄﾜｰｸは正しくｲﾝｽﾄｰﾙされていません。"+
  1498.                           "ﾌｧｲﾙのｺﾋﾟｰを中止しますか?"
  1499.     ProCancelCap        = "ﾈｯﾄﾜｰｸ ｾｯﾄｱｯﾌﾟ ﾒｯｾｰｼﾞ"
  1500.     ProText1            = "ｺﾋﾟｰ元:"
  1501.     ProText2            = "ｺﾋﾟｰ先:"
  1502.     FunctionTitleRASPPTP                = "PPTP ｶｰﾄﾞ ｾｯﾄｱｯﾌﾟ"
  1503.     ProductSoftwareDescription          = "PPTP ﾄﾞﾗｲﾊﾞ"
  1504.     ProductHardwareRASPPTPDescription   = "PPTP ｱﾀﾞﾌﾟﾀ"
  1505.     ProductSoftwareTitle                = "PPTP ﾐﾆﾎﾟｰﾄ ﾄﾞﾗｲﾊﾞ"
  1506.     ProductHardwareRASPPTPTitle         = "PPTP ｱﾀﾞﾌﾟﾀ"
  1507.     ProductRASPPTPDescription           = "ｲﾝﾀｰﾈｯﾄへのﾎﾟｲﾝﾄ ﾂｰ ﾎﾟｲﾝﾄ (PPP) 接続を通して、安全なﾘﾓｰﾄ ﾈｯﾄﾜｰｸ通信をﾄﾝﾈﾘﾝｸﾞするためのﾌﾟﾛﾄｺﾙです。"+
  1508.                                           "このﾌﾟﾛﾄｺﾙにより、ﾘﾓｰﾄ ﾕｰｻﾞｰやﾓｰﾋﾞﾙ ﾕｰｻﾞｰは、各所在地のｲﾝﾀｰﾈｯﾄ ｻｰﾋﾞｽ ﾌﾟﾛﾊﾞｲﾀﾞ (ISP) を使ってｲﾝﾀｰﾈｯﾄにﾀﾞｲﾔﾙｲﾝし、企業ﾈｯﾄﾜｰｸにｱｸｾｽできます。"
  1509.     ProductRASPPTPTitle                 = "Point To Point Tunneling ﾌﾟﾛﾄｺﾙ"
  1510.     ShellCodeErrorTitle                = "ｴﾗｰ: "$(FunctionTitle)$(Option))
  1511.     ShellCodeErrorText                 = "ｼｪﾙ ｺｰﾄﾞ ｴﾗｰです。"
  1512. [SMANFileConstantsENG]
  1513.     PPTPFunctionTitleRASPPTP                = "PPTP ｶｰﾄﾞ ｾｯﾄｱｯﾌﾟ"
  1514.     PPTPProductSoftwareDescription          = "PPTP ﾄﾞﾗｲﾊﾞ"
  1515.     PPTPProductHardwareRASPPTPDescription   = "PPTP ｱﾀﾞﾌﾟﾀ"
  1516.     PPTPProductSoftwareTitle                = "PPTP ﾌﾟﾛﾄｺﾙ ﾄﾞﾗｲﾊﾞ"
  1517.     PPTPProductHardwareRASPPTPTitle         = "PPTP ｱﾀﾞﾌﾟﾀ"
  1518.     !PPTPFProductDisplayName                = "PPTP Filter Driver"
  1519. [DialogConstantsENG]
  1520.     Help                = "ﾍﾙﾌﾟ(&H)"
  1521.     Exit                = "ｷｬﾝｾﾙ"
  1522.     OK                  = "OK"
  1523.     HelpContext         = ""
  1524.     Continue    = "続行"
  1525.     Cancel      = "ｷｬﾝｾﾙ"
  1526. [FileDependentDlgENG]
  1527.     DlgType             = "RadioCombination"
  1528.     DlgTemplate         = "NE2000"
  1529.     Caption             = $(FunctionTitle)$(Option)
  1530.     EditTextIn          = ""
  1531.     EditTextLim         = ""
  1532.     CBOptionsGreyed = {}
  1533.     NotifyFields        = {NO, NO}
  1534. [InvokeRasDlgENG]
  1535.     InvokeRasSetupMsg   = "ﾘﾓｰﾄ ｱｸｾｽ ｻｰﾋﾞｽ (RAS) をｲﾝｽﾄｰﾙします。"+
  1536.                           "PPTP で RAS を使用できるように "+
  1537.                           "RAS ｾｯﾄｱｯﾌﾟで PPTP ﾎﾟｰﾄを構成してください。"
  1538.     InvokeRasConfigMsg  = "ﾘﾓｰﾄ ｱｸｾｽ ｻｰﾋﾞｽ (RAS) ｾｯﾄｱｯﾌﾟを起動します。"+
  1539.                           "PPTP で RAS を使用できるように "+
  1540.                           "RAS ｾｯﾄｱｯﾌﾟで PPTP ﾎﾟｰﾄを構成してください。"
  1541.     InvokeRasConfigMsg2 = "ﾘﾓｰﾄ ｱｸｾｽ ｻｰﾋﾞｽ (RAS) ｾｯﾄｱｯﾌﾟを起動します。"+
  1542.                           "RAS 構成の PPTP ﾎﾟｰﾄを削除してください。"
  1543.     InvokeRasError      = "RAS ｾｯﾄｱｯﾌﾟ INF ﾌｧｲﾙ (OEMNSVRA.INF) の読み込みで、"+
  1544.                           "PPTP ｾｯﾄｱｯﾌﾟはｴﾗｰを検出しました。"+
  1545.                           "ﾌｧｲﾙが system32 ﾃﾞｨﾚｸﾄﾘに存在するか、"+
  1546.                           "また適切なﾌｧｲﾙであるかを確認してください。"
  1547. [InvokeTCPIPDlgENG]
  1548.     InvokeTCPSetupMsg   = "TCP/IP はｲﾝｽﾄｰﾙされていません。ｲﾝｽﾄｰﾙを開始します。"
  1549.     InvokeTCPError      = "TCP/IP ｾｯﾄｱｯﾌﾟ INF ﾌｧｲﾙ (OEMNXPTC.INF) の読み込みで、"+
  1550.                           "PPTP ｾｯﾄｱｯﾌﾟはｴﾗｰを検出しました。"+
  1551.                           "ﾌｧｲﾙが SYSTEM32 ﾃﾞｨﾚｸﾄﾘに存在するか、"+
  1552.                           "また適切なﾌｧｲﾙであるかを確認してください。"
  1553. [InvokeCancelDlgENG]
  1554.     InvokeCancelMsg = "PPTP ｾｯﾄｱｯﾌﾟは完了していません。"+
  1555.                        "PPTP ｱﾀﾞﾌﾟﾀをｲﾝｽﾄｰﾙする場合は、ｾｯﾄｱｯﾌﾟ ﾌﾟﾛｸﾞﾗﾑを"+
  1556.                        "再実行してください。"
  1557. [InvokeConfigureDlgENG]
  1558.     InvokeConfigureMsg = "変更を有効にするには、再起動してください。"
  1559.