;
; Install INF für T-DSL Adapter (T-Online)
;
;
; Copyright (c) 2000 T-Online International AG
;
; Created by Engel Technologieberatung KG (www.engel-kg.com)
;
;***********************************************************************
; TDSLAdapter NDIS WAN/TAPI device installer script for Windows NT4.
;***********************************************************************
[Identification]
OptionType = NetAdapter
;***********************************************************************
;
;***********************************************************************
[PlatformsSupported]
ISA
EISA
"Jazz-Internal Bus"
;***********************************************************************
;
;***********************************************************************
[Options]
TDSLAdapter
;***********************************************************************
;
;***********************************************************************
;;tb
[LoggingChoicesTDSLAdapter]
Logging_0 = "Error Logging disabled !", 0
Logging_1 = "Error Logging enabled (Caution !!)", 1
Logging_2 = "Extended Error Logging enabled (Caution !!)", 2
;***********************************************************************
;
;***********************************************************************
[FileConstants]
InfName = "OEMTDSLAdapter.INF"
UtilityInf = "UTILITY.INF"
ParamInf = "NCPARAM.INF"
subroutineinf = "SUBROUTN.INF"
SoftwareType = "driver"
Exit_Code = 0
NetEventDLL = "%SystemRoot%\System32\netevent.dll;%SystemRoot%\System32\Drivers\TDSLAdap.sys"
IoLogMsgDLL = "%SystemRoot%\System32\IoLogMsg.dll"
Manufacturer = "T-Online"
ProductMajorVersion = "1"
ProductMinorVersion = "0"
ProductVersion = $(ProductMajorVersion)"."$(ProductMinorVersion)
ProductSoftwareName = "TDSLAdapter"
ProductSoftwareImagePath = "\SystemRoot\System32\drivers\TDSLAdap.sys"
NetRuleSoftwareType = "TDSLAdapterSys TDSLAdapterDriver "
NetRuleSoftwareUse = $(SoftwareType)
NetRuleSoftwareBindForm = """TDSLAdapterSys"" yes no container"
NetRuleSoftwareClass = {"TDSLAdapterDriver basic"}
NetRuleSoftwareBindable = {"TDSLAdapterDriver TDSLAdapterAdapter non exclusive 100"}
ProductHardwareName = "TDSLAdapter"
NetRuleHardwareBindForm = " yes yes container"
NetRuleHardwareTDSLAdapterType = "TDSLAdapter TDSLAdapterAdapter"
NetRuleHardwareTDSLAdapterClass = {"TDSLAdapterAdapter basic"}
BindableTDSLAdapterTxt = {"TDSLAdapterDriver TDSLAdapterAdapter non exclusive 100"}
DeviceMap = "HARDWARE\DEVICEMAP"
TapiDevices = "TAPI DEVICES"
TapiDeviceKey = $(ProductHardwareName)
TapiFriendlyName = "T-DSL Adapter"
TapiMediaType = "T-DSL"
ProductKeyName = $(!NTN_SoftwareBase)"\"$(Manufacturer)"\"+
$(ProductSoftwareName)"\CurrentVersion"
ParamKeyName = $(!NTN_ServiceBase)"\"$(ProductHardwareName)+
"\Parameters"
NdisWanParamKeyName = $(!NTN_ServiceBase)"\NdisWan\Parameters"
IPMTU = 1492
;;; v
ProductSwDescriptionXX = "TDSLAdapter Driver"
ProductSwImagePathXX = "\SystemRoot\System32\drivers\TDSLProt.sys"
ProductSwTitleXX = "TDSL Ethernet cardfinder Driver"
ProductSwNameXX = "TDSLProtocol"
NetRuleSwTypeXX = "TDSLProtocolFind TDSLDriver ndisTransport"
NetRuleSwUseXX = $(SoftwareType)
NetRuleSwBindFormXX = """TDSLProtocolFind"" yes no container"
NetRuleSwClassXX = {"TDSLDriver basic"}
NetruleSwBindableXX = {"TDSLAdapterDriver ndisTransport non exclusive 100"}
;;; ^
; FIXME - default to dialup line mode = 1 -- leased line = 0
; In dialup mode we need to write the parameters so RAS/TAPI will bind to us
; In leased mode we need to write the parameters so NDIS/WAN will bind to us
; Right now this file only supports dialup mode - leased line changes are needed
LineType = 0
; FIXME - Set to zero before release
; DebugFlags = 63
RAM_Addr_List = {851968, 917504, 913408, 847872}
IRQ_List = {15, 12, 11, 10, 4, 3}
KeepAliveList = {20, 40, 60, 80, 100, 120}
;***********************************************************************
;
;***********************************************************************
[GeneralConstants]
from = ""
to = ""
ExitCodeOk = 0
ExitCodeCancel = 1
ExitCodeFatal = 2
KeyNull = ""
MAXIMUM_ALLOWED = 33554432
; MAXIMUM_ALLOWED = 1
RegistryErrorIndex = NO_ERROR
KeyProduct = ""
KeyParameters = ""
TRUE = 1
FALSE = 0
NoTitle = 0
ExitState = "Active"
OldVersionExisted = $(FALSE)
DriverPath = $(!STF_NTPATH)\drivers
;***********************************************************************
;
;***********************************************************************
[Date]
Now = {} ? $(!LIBHANDLE) GetSystemDate
;***********************************************************************
;
;***********************************************************************
[Identify]
Read-Syms Identification
Set Status = STATUS_SUCCESSFUL
Set Identifier = $(OptionType)
Set Media = #("Source Media Descriptions", 1, 1)
Return $(Status) $(Identifier) $(Media)
;***********************************************************************
;
;***********************************************************************
[ReturnOptions]
Set Status = STATUS_FAILED
Set OptionList = {}
Set OptionTextList = {}
Set LanguageList = ^(LanguagesSupported, 1)
IfContains(i) $($0) in $(LanguageList)
IfStr(i) $($1) == ""
GoTo SetOptions
EndIf
Set PlatformList = ^(PlatformsSupported, 1)
IfContains(i) $($1) in $(PlatformList)
GoTo SetOptions
Else
Set Status = STATUS_NOTSUPPORTED
GoTo ExitReturnOptions
EndIf
Else
Set Status = STATUS_NOLANGUAGE
GoTo ExitReturnOptions
EndIf
SetOptions = +
Set OptionList = ^(Options, 1)
Set OptionTextList = ^(OptionsText$($0), 1)
Set Status = STATUS_SUCCESSFUL
ExitReturnOptions = +
Return $(Status) $(OptionList) $(OptionTextList)
;***********************************************************************
;
;***********************************************************************
[InstallOption]
Set Status = STATUS_FAILED
Set Option = $($1)
Set SrcDir = $($2)
Set RasDir = $($2)
Set AddCopy = $($3)
Set DoCopy = $($4)
Set DoConfig = $($5)
Set LanguageList = ^(LanguagesSupported, 1)
IfContains(i) $($0) NOT-IN $(LanguageList)
Return STATUS_NOLANGUAGE
EndIf
;
; FIXME - make sure this flag is disabled before shipping
;
Set OldDebugControl = $(!DebugOutputControl)
Set !DebugOutputControl = 1
Set-Subst LF = "\n"
Read-Syms GeneralConstants
Read-Syms FileConstants
Read-Syms DialogConstants$(!STF_LANGUAGE)
IfStr(i) $(!NTN_Origination) == "NCPA"
Set Continue = $(OK)
EndIf
Read-Syms FileConstants$(!STF_LANGUAGE)
Detect Date
Set-Title $(FunctionTitle)$(Option)
Set to = Begin
Set from = Begin
Set CommonStatus = STATUS_SUCCESSFUL
EndWait
;***********************************************************************
;
;***********************************************************************
Begin = +
Set ActivateDetection = FALSE
IfStr(i) $(!NTN_InstallMode) == deinstall
Set StartLabel = RemoveAdapter
Else-IfStr(i) $(!NTN_InstallMode) == Update
Set StartLabel = UpgradeSoftware
Else-IfStr(i) $(!NTN_InstallMode) == bind
Set StartLabel = BindingAdapter
Else-IfStr(i) $(!NTN_InstallMode) == configure
Set StartLabel = ConfigureAdapter
Set ActivateDetection = TRUE
Set CommonStatus = STATUS_REBOOT
IfStr(i) $(ProductKeyName) == $(!NTN_RegBase)
Debug-Output $(InfName)": Cannot configure the TDSLAdapter driver software."
Shell $(UtilityInf),RegistryErrorString,CANNOT_CONFIGURE_SOFTWARE
IfInt $($ShellCode) != $(!SHELL_CODE_OK)
Debug-Output $(InfName)": ShellCode error: cannot get an error string."
GoTo ShellCodeError
EndIf
Set Error = $($R0)
Set from = end
Set to = end
GoTo NonFatalInfo
EndIf
Else
Set StartLabel = InstallAdapter
Set ActivateDetection = TRUE
Set OEM_ABANDON_OPTIONS = {}
Set OEM_ABANDON_SOFTWARE = FALSE
Set OEM_ABANDON_ON = TRUE
EndIf
Debug-Output $(InfName)": =================================================="
Debug-Output $(InfName)": STF_CWDIR is: "$(!STF_CWDIR)
Debug-Output $(InfName)": STF_LANGUAGE is: "$(!STF_LANGUAGE)
Debug-Output $(InfName)": Option is: "$(Option)
Debug-Output $(InfName)": !STF_NCDETECT is: "$(!STF_NCDETECT)
Debug-Output $(InfName)": !STF_NCOPTION is: "$(!STF_NCOPTION)
Debug-Output $(InfName)": !STF_NCDETCARD is: "$(!STF_NCDETCARD)
Debug-Output $(InfName)": !STF_NCDETINFO is: "$(!STF_NCDETINFO)
Debug-Output $(InfName)": =================================================="
Set DetectedCard = FALSE
IfStr(i) $(ActivateDetection) != TRUE
GoTo $(StartLabel)
EndIf
Debug-Output $(InfName)": Calling Param_SetDefaults"
Shell $(ParamInf) Param_SetDefaults {}
Shell $(ParamInf) HexListFromDecList $(RAM_Addr_List)
Set RAM_Hex_List = $($R0)
IfStr(i) $(!STF_NCDETECT) == YES
IfStr(i) $(!STF_NCOPTION) == $(Option)
Set DetectedCard = TRUE
Debug-Output $(InfName)": Setting DetectedCard to TRUE"
EndIf
EndIf
Shell "" DebugConfiguration "After parameter querying"
Set from = FatalError
Set to = FatalError
GoTo $(StartLabel)
;***********************************************************************
;
;***********************************************************************
InstallAdapter = +
;; Defaults when first install
Set InterruptNumber = 15
Set RamBaseAddress = 851968
Set BusType = 1
Set BusNumber = 0
set ErrorLoggingValue = 0
Set ErrorLoggingIndex = 0
;; *($(ErrorLoggingList), ~($(ErrorLoggingValues),$(ErrorLoggingValue)))
Set DebugLevel = 0
Set DebugFlags = 63
Set KeepAlive = 120
Install_CheckRAS = +
;
; if RAS is not installed, then shell ras setup INF file to install RAS
; else invoke RAS to allow user to configure RAS for T-DSL.
;
Read-Syms InvokeRasDlg$(!STF_LANGUAGE)
Shell "oemnsvra.inf" CheckRasInstalled
IfInt $($ShellCode) != $(!SHELL_CODE_OK)
Debug-Output $(InfName)": Error Shelling the RAS INF file oemnsvra.inf"
Shell "subroutn.inf" SetupMessage, $(!STF_LANGUAGE), +
"STATUS", $(InvokeRasError)
IfInt $($ShellCode) != $(!SHELL_CODE_OK)
GoTo ShellCodeError
EndIf
GoTo ShellCodeError
EndIf
Set RasInstalled = $($R0)
Debug-Output $(InfName)": Is RAS Installed? "$(RasInstalled)
;
; display a message to the user that RAS has to be installed before T-DSL-Adapter
;
IfStr(i) $(RasInstalled) == FALSE
Shell "subroutn.inf" SetupMessage, $(!STF_LANGUAGE), "STATUS", +
$(RasNotInstalledError)
IfInt $($ShellCode) != $(!SHELL_CODE_OK)
GoTo ShellCodeError
EndIf
Debug-Output $(InfName)": RAS was not installed before, try again later"
Set CommonStatus = STATUS_USERCANCEL
GoTo end
EndIf
;
; FIXME - RAS INF will not locate the files if it is spawned here.
;
EndWait
GoTo InstallStep2
InstallStep2 = +
OpenRegKey $(!REG_H_LOCAL) "" $(ProductKeyName) $(MAXIMUM_ALLOWED) KeyProduct
IfStr $(KeyProduct) != $(KeyNull)
CloseRegKey $(KeyProduct)
IfStr(i) !(NTN_RegBase) == $(ProductKeyName)
Shell $(UtilityInf), VerExistedDlg, $(ProductSoftwareTitle),+
$(ProductVersion)
IfInt $($ShellCode) != $(!SHELL_CODE_OK)
Debug-Output $(InfName)": ShellCode error: cannot get an error string."
GoTo ShellCodeError
EndIf
GoTo end
Else
;; thobe: only one card allowed !!
Debug-Output $(InfName)": calling CardExistDlg "
Shell "" OneCardOnlyDlg
Debug-Output $(InfName)": CardExistDlg returned: "$($R1)
Set CommonStatus = STATUS_USERCANCEL
GoTo end
EndIf
EndIf
Shell "" DebugConfiguration "After OpenRegKey1"
Set CurrParamSettings = {}
IfStr(i) $(DetectedCard) != TRUE
GoTo AdapterSetup
EndIf
StartWait
Shell $(ParamInf) Param_QueryCard $(!STF_NCDETCARD)
EndWait
IfStr(i) $($R0) != STATUS_SUCCESSFUL
GoTo AdapterSetup
EndIf
Set DetectedParams = $($R1)
Debug-Output $(InfName)": Calling Param_SetDefaults to merge detected params"
Shell $(ParamInf) Param_SetDefaults $(DetectedParams)
GoTo AdapterSetup
;***********************************************************************
;
;***********************************************************************
ConfigureAdapter = +
IfStr $(KeyProduct) == $(KeyNull)
OpenRegKey $(!REG_H_LOCAL) "" $(!NTN_RegBase) $(MAXIMUM_ALLOWED) KeyProduct
IfStr $(KeyProduct) == $(KeyNull)
Set RegistryErrorIndex = CANNOT_FIND_COMPONENT_SERVICE
Debug-Output $(InfName)": Cannot find component product key"
GoTo FatalRegistry
EndIf
EndIf
Debug-Output $(InfName)": Shelling to FindService"
Shell $(UtilityInf) FindService, $(KeyProduct)
IfInt $($ShellCode) != $(!SHELL_CODE_OK)
Debug-Output $(InfName)": FindService shell failure"
GoTo ShellCodeError
EndIf
IfStr(i) $($R0) != NO_ERROR
Debug-Output $(InfName)": FindService Shell error: "$($R0)
GoTo FatalRegistry
EndIf
Set KeyParameters = $($R2)
CloseRegKey $($R1)
IfStr $(KeyParameters) == $(KeyNull)
Set RegistryErrorIndex = CANNOT_FIND_COMPONENT_SERVICE
Debug-Output $(InfName)": Cannot find component service"
GoTo FatalRegistry
EndIf
Set OldVersionExisted = $(TRUE)
Set ValueName = ""
Set ValueData = ""
Set ValueStr = ""
Set ValueList = {}
EnumRegValue $(KeyParameters) ValueList
ForListDo $(ValueList)
Set ValueItem = $($)
Set ValueName = *($(ValueItem),1)
Set ValueData = *($(ValueItem),4)
Debug-Output $(InfName)": "$(ValueName)"="$(ValueData)
IfStr(i) $(ValueName) == "ErrorLogging"
set ErrorLoggingValue = $(ValueData)
Else-IfStr(i) $(ValueName) == "ServiceName"
set ServiceName = $(ValueData)
Else-IfStr(i) $(ValueName) == "AddressList"
Set TapiAddressList = $(ValueData)
Else-IfStr(i) $(ValueName) == "RamBaseAddress"
Set RamBaseAddress = $(ValueData)
Else-IfStr(i) $(ValueName) == "InterruptNumber"
Set InterruptNumber = $(ValueData)
Else-IfStr(i) $(ValueName) == "LineType"
Set LineType = $(ValueData)
Else-IfStr(i) $(ValueName) == "BusNumber"
set BusNumber = $(ValueData)
Else-IfStr(i) $(ValueName) == "BusType"
set BusType = $(ValueData)
Else-IfStr(i) $(ValueName) == "DebugLevel"
set DebugLevel = $(ValueData)
Else-IfStr(i) $(ValueName) == "DebugFlags"
set DebugFlags = $(ValueData)
Else-IfStr(i) $(ValueName) == "KeepAlive"
set KeepAlive = $(ValueData)
EndIf
EndForListDo
Set ErrorLoggingIndex = *($(ErrorLoggingList), ~($(ErrorLoggingValues),$(ErrorLoggingValue)))
ifstr(i) $(ErrorLoggingIndex) == ""
set ErrorLoggingIndex = *($(ErrorLoggingList), 0)
endif
Shell $(ParamInf) Param_SaveValues
Set CurrParamSettings = $($R0)
;***********************************************************************
;
;***********************************************************************
AdapterSetup = +
Shell "" DebugConfiguration "before displaying dialog"
Set from = AdapterOptions
Shell $(ParamInf) Param_ParameterConfidence
IfStr(i) $($R0) != STATUS_SUCCESSFUL
Debug-Output $(InfName)": parameter confidence too low to bypass configuration"
GoTo AdapterOptions
EndIf
IfStr(i) $(DetectedCard) == TRUE
IfStr(i) $(!STF_INSTALL_MODE) != CUSTOM
GoTo AdapterVerify
EndIf
EndIf
;***********************************************************************
;
;***********************************************************************
AdapterOptions = +
IfStr(i) $(!NTN_InstallMode) != configure
GoTo AdapterVerify
EndIf
Read-Syms FileDependentDlg$(!STF_LANGUAGE)
UI Start "InputDlg"
IfStr(i) $(DLGEVENT) == "CONTINUE"
Set KeepAlive = $(Combo1Out)
ui pop 1
Else-IfStr(i) $(DLGEVENT) == "BACK"
Debug-Output $(InfName)": Action: cancel. ignoring."
ui pop 1
Else
Debug-Output $(InfName)": Action: unknown. Bye."
ui pop 1
GoTo end
EndIf
Read-Syms DebugDlg$(!STF_LANGUAGE)
UI Start "InputDlg"
IfStr(i) $(DLGEVENT) == "CONTINUE"
Set ErrorLoggingIndex = $(Combo1Out)
ui pop 1
Else-IfStr(i) $(DLGEVENT) == "BACK"
Debug-Output $(InfName)": Action: cancel. ignoring."
ui pop 1
Else
Debug-Output $(InfName)": Action: unknown. Bye."
ui pop 1
GoTo end
EndIf
set ErrorLoggingValue = *($(ErrorLoggingValues), ~($(ErrorLoggingList),$(ErrorLoggingIndex)))
Debug-Output $(InfName)": ErrorLoggingIndex after = "$(ErrorLoggingIndex)
Debug-Output $(InfName)": ErrorLoggingValue after = "$(ErrorLoggingValue)
;***********************************************************************
;
;***********************************************************************
AdapterVerify = +
Shell "" DebugConfiguration "after running dialog"
IfStr(i) $(DetectedCard) != TRUE
Shell $(ParamInf) Param_SaveValues
Set NewParamSettings = $($R0)
IfStr(i) $(CurrParamSettings) == {}
Set DiffParamSettings = $(NewParamSettings)
Else
Shell $(ParamInf) Param_DiffValues $(CurrParamSettings)
Set DiffParamSettings = $($R0)
EndIf
Debug-Output $(InfName)": Calling Param_VerifyResources"
Shell $(ParamInf) Param_VerifyResources $(DiffParamSettings)
IfStr(i) $($R0) == STATUS_SUCCESSFUL
Debug-Output $(InfName)": Param_VerifyResources succeeded"
GoTo SkipOptions
EndIf
Else
Set CardVerifyIndex = $(!STF_NCDETCARD)
Debug-Output $(InfName)": Calling Param_VerifyCard"
Shell $(ParamInf) Param_VerifyCard $(!STF_NCDETCARD)
IfStr(i) $($R0) == STATUS_SUCCESSFUL
Debug-Output $(InfName)": Param_VerifyCard succeeded"
GoTo SkipOptions
EndIf
EndIf
Set from = AdapterOptions
Set to = SkipOptions
Shell $(UtilityInf),RegistryErrorString,VERIFY_WARNING
IfInt $($ShellCode) != $(!SHELL_CODE_OK)
Debug-Output $(InfName)": ShellCode error: cannot get an error string."
GoTo ShellCodeError
EndIf
Set Error = $($R0)
GoTo WarningMsg
;***********************************************************************
;
;***********************************************************************
SkipOptions =+
IfInt $(OldVersionExisted) == $(TRUE)
IfStr(i) $(!NTN_InstallMode) == configure
GoTo WriteParameters
EndIf
EndIf
StartWait
IfInt $(OldVersionExisted) == $(FALSE)
IfStr(i) $(!NTN_InstallMode) == "install"
IfStr(i) $(DoCopy) == "YES"
Shell $(UtilityInf), DoAskSource, $(!STF_CWDDIR), $(SrcDir) YES
IfInt $($ShellCode) != $(!SHELL_CODE_OK)
GoTo ShellCodeError
Else-IfStr(i) $($R0) == STATUS_FAILED
Shell $(UtilityInf) RegistryErrorString "ASK_SOURCE_FAIL"
IfInt $($ShellCode) != $(!SHELL_CODE_OK)
GoTo ShellCodeError
EndIf
Set Error = $($R0)
GoTo FatalError
Else-IfStr(i) $($R0) == STATUS_USERCANCEL
GoTo SuccessfulOption
EndIf
Set SrcDir = $($R1)
EndIf
Install "Install-Option"
IfStr(i) $(STF_INSTALL_OUTCOME) != STF_SUCCESS
Shell $(UtilityInf) RegistryErrorString "UNABLE_COPY_FILE"
IfInt $($ShellCode) != $(!SHELL_CODE_OK)
GoTo ShellCodeError
EndIf
Set Error = $($R0)
GoTo FatalError
EndIf
EndIf
;;;; v
Shell $(UtilityInf), AddSoftwareComponent, $(Manufacturer), +
$(ProductSwNameXX), +
$(ProductSwNameXX), +
$(ProductSwTitleXX), $(STF_CONTEXTINFNAME), +
$(ProductSwImagePathXX), "kernel", "NDIS", {}, "",+
$(NetEventDLL)
Set OEM_ABANDON_SOFTWARE = TRUE
IfInt $($ShellCode) != $(!SHELL_CODE_OK)
Debug-Output $(InfName)": ShellCode error"
GoTo ShellCodeError
EndIf
Set RegistryErrorIndex = $($R0)
Set KeyProduct = $($R1)
Set SoftNetRulesKey = $($R2)
CloseRegKey $($R3)
CloseRegKey $($R4)
CloseRegKey $($R5)
IfStr(i) $(RegistryErrorIndex) != NO_ERROR
EndWait
Debug-Output $(InfName)": Registry ekg error: add software components"
CloseRegKey $(KeyProduct)
CloseRegKey $(SoftNetRulesKey)
GoTo FatalRegistry
EndIf
Set NewValueList = {{SoftwareType,$(NoTitle),$(!REG_VT_SZ),$(SoftwareType)},+
{MajorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMajorVersion)},+
{MinorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMinorVersion)},+
{Title,$(NoTitle),$(!REG_VT_SZ),$(ProductSwTitleXX)},+
{Description,$(NoTitle),$(!REG_VT_SZ),$(ProductSwDescriptionXX)},+
{ServiceName,$(NoTitle),$(!REG_VT_SZ),$(ProductSwNameXX)},+
{InstallDate,$(NoTitle),$(!REG_VT_DWORD),*($(Now),1)}}
Shell $(UtilityInf), AddValueList, $(KeyProduct), $(NewValueList)
IfInt $($ShellCode) != $(!SHELL_CODE_OK)
Debug-Output $(InfName)": ShellCode error."
GoTo ShellCodeError
EndIf
Set RegistryErrorIndex = $($R0)
IfStr(i) $(RegistryErrorIndex) != NO_ERROR
EndWait
Debug-Output $(InfName)": Registry error: add value list."
CloseRegKey $(KeyProduct)
CloseRegKey $(SoftNetRulesKey)
GoTo FatalRegistry
EndIf
Set NewValueList = {{type,$(NoTitle),$(!REG_VT_SZ),$(NetRuleSwTypeXX)},+
{use,$(NoTitle),$(!REG_VT_SZ),$(NetRuleSwUseXX)}, +
{bindform,$(NoTitle),$(!REG_VT_SZ),$(NetRuleSwBindFormXX)}, +
{class,$(NoTitle),$(!REG_VT_MULTI_SZ),$(NetRuleSwClassXX)}, +
{bindable,$(NoTitle),$(!REG_VT_MULTI_SZ),$(NetruleSwBindableXX)}, +
{InfOption,$(NoTitle),$(!REG_VT_SZ),$(Option)}}
Shell $(UtilityInf), AddValueList, $(SoftNetRulesKey), $(NewValueList)
IfInt $($ShellCode) != $(!SHELL_CODE_OK)
Debug-Output $(InfName)": ShellCode error."
GoTo ShellCodeError
EndIf
Set RegistryErrorIndex = $($R0)
CloseRegKey $(KeyProduct)
CloseRegKey $(SoftNetRulesKey)
IfStr(i) $(RegistryErrorIndex) != NO_ERROR
EndWait
Debug-Output $(InfName)": Registry ekg error: add value list."
GoTo FatalRegistry
EndIf
EndIf
;;;; ^
Shell $(UtilityInf), AddSoftwareComponent, $(Manufacturer), +
$(ProductSoftwareName), +
$(ProductSoftwareName), +
$(ProductSoftwareTitle), $(STF_CONTEXTINFNAME), +
$(ProductSoftwareImagePath), "kernelautostart", "NDIS", {}, "",+
$(NetEventDLL)
Set OEM_ABANDON_SOFTWARE = TRUE
IfInt $($ShellCode) != $(!SHELL_CODE_OK)
Debug-Output $(InfName)": ShellCode error"
GoTo ShellCodeError
EndIf
Set RegistryErrorIndex = $($R0)
Set KeyProduct = $($R1)
Set SoftNetRulesKey = $($R2)
CloseRegKey $($R3)
CloseRegKey $($R4)
CloseRegKey $($R5)
IfStr(i) $(RegistryErrorIndex) != NO_ERROR
EndWait
Debug-Output $(InfName)": Registry error: add software components"
CloseRegKey $(KeyProduct)
CloseRegKey $(SoftNetRulesKey)
GoTo FatalRegistry
EndIf
Set NewValueList = {{SoftwareType,$(NoTitle),$(!REG_VT_SZ),$(SoftwareType)},+
{MajorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMajorVersion)},+
{MinorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMinorVersion)},+
{Title,$(NoTitle),$(!REG_VT_SZ),$(ProductSoftwareTitle)},+
{Description,$(NoTitle),$(!REG_VT_SZ),$(ProductSoftwareDescription)},+
{ServiceName,$(NoTitle),$(!REG_VT_SZ),$(ProductSoftwareName)},+
{InstallDate,$(NoTitle),$(!REG_VT_DWORD),*($(Now),1)}}
Shell $(UtilityInf), AddValueList, $(KeyProduct), $(NewValueList)
IfInt $($ShellCode) != $(!SHELL_CODE_OK)
Debug-Output $(InfName)": ShellCode error."
GoTo ShellCodeError
EndIf
Set RegistryErrorIndex = $($R0)
IfStr(i) $(RegistryErrorIndex) != NO_ERROR
EndWait
Debug-Output $(InfName)": Registry error: add value list."
CloseRegKey $(KeyProduct)
CloseRegKey $(SoftNetRulesKey)
GoTo FatalRegistry
EndIf
Set NewValueList = {{type,$(NoTitle),$(!REG_VT_SZ),$(NetRuleSoftwareType)},+
{use,$(NoTitle),$(!REG_VT_SZ),$(NetRuleSoftwareUse)}, +
{bindform,$(NoTitle),$(!REG_VT_SZ),$(NetRuleSoftwareBindForm)}, +
{class,$(NoTitle),$(!REG_VT_MULTI_SZ),$(NetRuleSoftwareClass)}, +
{bindable,$(NoTitle),$(!REG_VT_MULTI_SZ),$(Bindable$(Option)Txt)}, +
{InfOption,$(NoTitle),$(!REG_VT_SZ),$(Option)}}
Shell $(UtilityInf), AddValueList, $(SoftNetRulesKey), $(NewValueList)
IfInt $($ShellCode) != $(!SHELL_CODE_OK)
Debug-Output $(InfName)": ShellCode error."
GoTo ShellCodeError
EndIf
Set RegistryErrorIndex = $($R0)
CloseRegKey $(KeyProduct)
CloseRegKey $(SoftNetRulesKey)
IfStr(i) $(RegistryErrorIndex) != NO_ERROR
EndWait
Debug-Output $(InfName)": Resgitry error: add value list."
GoTo FatalRegistry
EndIf
EndIf
Shell $(UtilityInf), AddHardwareComponent, $(ProductHardwareName),$(STF_CONTEXTINFNAME),$(ProductKeyName)
IfInt $($R4) != -1
Set OEM_ABANDON_OPTIONS = >($(OEM_ABANDON_OPTIONS), $(!NTN_SoftwareBase)"\Microsoft\Windows NT\CurrentVersion\NetworkCards\"$($R4))
EndIf
IfInt $($ShellCode) != $(!SHELL_CODE_OK)
Debug-Output $(InfName)": Cannot add hardware component"
GoTo ShellCodeError
EndIf
Set RegistryErrorIndex = $($R0)
IfStr(i) $(RegistryErrorIndex) != NO_ERROR
EndWait
Debug-Output $(InfName)": Registry error: add hardware component"
CloseRegKey $($R1)
CloseRegKey $($R2)
CloseRegKey $($R3)
GoTo FatalRegistry
EndIf
Set KeyParameters = $($R3)
Set KeyAdapterRules = $($R2)
Set AdapterNumber = $($R4)
Set NewValueList = {{Manufacturer,$(NoTitle),$(!REG_VT_SZ),$(Manufacturer)},+
{Title,$(NoTitle),$(!REG_VT_SZ),"["$($R4)"] "$(ProductHardware$(Option)Title)},+
{Description,$(NoTitle),$(!REG_VT_SZ),$(ProductHardware$(Option)Description)},+
{ProductName,$(NoTitle),$(!REG_VT_SZ),$(ProductHardwareName)},+
{ServiceName,$(NoTitle),$(!REG_VT_SZ),$($R5)},+
{InstallDate,$(NoTitle),$(!REG_VT_DWORD),*($(Now),1)}}
Shell $(UtilityInf), AddValueList, $($R1), $(NewValueList)
IfInt $($ShellCode) != $(!SHELL_CODE_OK)
Debug-Output $(InfName)": ShellCode error"
GoTo ShellCodeError
EndIf
CloseRegKey $($R1)
Set TempProdName = """"$(ProductHardwareName)$(AdapterNumber)""""
Set TempBindForm = $(TempProdName)$(NetRuleHardwareBindForm)
Set NewValueList = {{type,$(NoTitle),$(!REG_VT_SZ),$(NetRuleHardware$(Option)Type)},+
{bindform,$(NoTitle),$(!REG_VT_SZ),$(TempBindForm)}, +
{class,$(NoTitle),$(!REG_VT_MULTI_SZ),$(NetRuleHardware$(Option)Class)}, +
{InfOption,$(NoTitle),$(!REG_VT_SZ),$(Option)}}
Shell $(UtilityInf), AddValueList, $(KeyAdapterRules), $(NewValueList)
IfInt $($ShellCode) != $(!SHELL_CODE_OK)
Debug-Output $(InfName)": ShellCode error."
GoTo ShellCodeError
EndIf
Set RegistryErrorIndex = $($R0)
IfStr(i) $(RegistryErrorIndex) != NO_ERROR
EndWait
Debug-Output $(InfName)": Resgitry error: add value list."
CloseRegKey $(KeyParameters)
CloseRegKey $(KeyAdapterRules)
GoTo FatalRegistry
EndIf
CloseRegKey $(KeyAdapterRules)
Set TapiAddressList = {$(AdapterNumber)" 1 0"}
GoTo WriteParameters
;***********************************************************************
;
;***********************************************************************
WriteParameters = +
;;; You need one address entry in the list for each channel on your device.
;;; FIXME - at this point RAS requires there to be one logical line per address
;;; FIXME - so the address (channel) number is ignored and the line number is used
; Set TapiAddressList = {$(AdapterNumber)" 1 0"}
;; Set TapiAddressList = >($(TapiAddressList),$(AdapterNumber)" 2 0")
Set NewValueList = {+
{AddressList,$(NoTitle),$(!REG_VT_MULTI_SZ),$(TapiAddressList)},+
{BusNumber,$(NoTitle),$(!REG_VT_DWORD),$(BusNumber)},+
{BusType,$(NoTitle),$(!REG_VT_DWORD),$(BusType)},+
{DeviceName,$(NoTitle),$(!REG_VT_SZ),$(ProductHardwareName)},+
{InterruptNumber,$(NoTitle),$(!REG_VT_DWORD),$(InterruptNumber)},+
{LineType,$(NoTitle),$(!REG_VT_DWORD),$(LineType)},+
{MediaType,$(NoTitle),$(!REG_VT_SZ),$(TapiMediaType)},+
{RamBaseAddress,$(NoTitle),$(!REG_VT_DWORD),$(RamBaseAddress)},+
{ServiceName,$(NoTitle),$(!REG_VT_SZ),$(ServiceName)},+
{ErrorLogging,$(NoTitle),$(!REG_VT_DWORD),$(ErrorLoggingValue)},+
{KeepAlive,$(NoTitle),$(!REG_VT_DWORD),$(KeepAlive)},+
{DebugLevel,$(NoTitle),$(!REG_VT_DWORD),$(DebugLevel)},+
{DebugFlags,$(NoTitle),$(!REG_VT_DWORD),$(DebugFlags)}+
}
Shell $(UtilityInf), AddValueList, $(KeyParameters), $(NewValueList)
CloseRegKey $(KeyParameters)
IfInt $($ShellCode) != $(!SHELL_CODE_OK)
Debug-Output $(InfName)": ShellCode error."
GoTo ShellCodeError
EndIf
Set RegistryErrorIndex = $($R0)
IfStr(i) $(RegistryErrorIndex) != NO_ERROR
Debug-Output $(InfName)": Registry error: Add value list"
GoTo FatalRegistry
EndIf
;***********************************************************************
;
;***********************************************************************
ConfigureIPMTU = +
;
; auto adjust RASWAN IPMTU
OpenRegKey $(!REG_H_LOCAL) "" $(NdisWanParamKeyName) $(MAXIMUM_ALLOWED) NdisWanDeviceKey
; OpenRegKey $(!REG_H_LOCAL) "" $(NdisWanParamKeyName) $(!REG_KEY_SET_VALUE) NdisWanDeviceKey
ifstr $(NdisWanDeviceKey) != ""
GetRegValue $(NdisWanDeviceKey),"IPMTU", OldMTUinfo
set OldIPMTU = *($(OldMTUinfo), 4)
Debug-Output $(InfName)": old IPMTU: "$(OldIPMTU)
Debug-Output $(InfName)": new IPMTU: "$(IPMTU)
else
Debug-Output $(InfName)": Could not open RASWAN registry key"
endif
ifstr $(OldIPMTU) == ""
Debug-Output $(InfName)": creating NdisWan value IPMTU "$(IPMTU)
Set NewValueList = { {IPMTU,$(NoTitle),$(!REG_VT_DWORD),$(IPMTU)} }
Shell $(UtilityInf), AddValueList, $(NdisWanDeviceKey), $(NewValueList)
endif
ifint $(OldIPMTU) > $(IPMTU)
Debug-Output $(InfName)": reducing NdisWan value IPMTU: "$(IPMTU)
Set NewValueList = { {IPMTU,$(NoTitle),$(!REG_VT_DWORD),$(IPMTU)} }
Shell $(UtilityInf), AddValueList, $(NdisWanDeviceKey), $(NewValueList)
endif
CloseRegKey $(NdisWanDeviceKey)
IfInt $($ShellCode) != $(!SHELL_CODE_OK)
Debug-Output $(InfName)": ShellCode error."
GoTo ShellCodeError
; ignore this error
; GoTo FatalRegistry
EndIf
Set RegistryErrorIndex = $($R0)
IfStr(i) $(RegistryErrorIndex) != NO_ERROR
Debug-Output $(InfName)": Registry error: Add value list"
; ignore this error
; GoTo FatalRegistry
EndIf
; end of auto adjust RASWAN IPMTU
GoTo WriteTAPIParams
WriteTAPIParams = +
;
; Skip TAPI/RAS setup if already installed.
;
IfStr(i) $(!NTN_InstallMode) == configure
GoTo SuccessfulOption
EndIf
;
; Create the HARDWARE\DEVICEMAP\TAPI DEVICES\TDSLAdapter key
;
; OpenRegKey $(!REG_H_LOCAL) "" "HARDWARE\DEVICEMAP" $(MAXIMUM_ALLOWED) BaseKey
OpenRegKey $(!REG_H_LOCAL) "" $(DeviceMap) $(MAXIMUM_ALLOWED) BaseKey
shell "" HtCreateRegKey $(BaseKey) "TAPI DEVICES\TDSLAdapter"
IfStr(i) $($R0) != NO_ERROR
Debug-Output $(InfName)": Error creating registry key!"
GoTo FatalRegistry
EndIf
Set TapiDeviceKey = $($R1)
Set NewValueList = {+
{Address,$(NoTitle),$(!REG_VT_MULTI_SZ),$(TapiAddressList)},+
{"Friendly Name",$(NoTitle),$(!REG_VT_SZ),$(TapiFriendlyName)},+
{"Media Type",$(NoTitle),$(!REG_VT_SZ),$(TapiMediaType)}}
Shell $(UtilityInf), AddValueList, $(TapiDeviceKey), $(NewValueList)
IfInt $($ShellCode) != $(!SHELL_CODE_OK)
Debug-Output $(InfName)": ShellCode error."
GoTo ShellCodeError
EndIf
Set RegistryErrorIndex = $($R0)
IfStr(i) $(RegistryErrorIndex) != NO_ERROR
Debug-Output $(InfName)": Registry error: Add value list"
GoTo FatalRegistry
EndIf
CloseRegKey $(TapiDeviceKey)
CloseRegKey $(BaseKey)
;
; if RAS is not installed, then shell ras setup INF file to install RAS
; else invoke RAS to allow user to configure RAS for Switch56.
;
; Read-Syms InvokeRasDlg$(!STF_LANGUAGE)
; Shell "oemnsvra.inf" CheckRasInstalled
; IfInt $($ShellCode) != $(!SHELL_CODE_OK)
; Debug-Output $(InfName)": Error Shelling the RAS INF file oemnsvra.inf"
; Shell "subroutn.inf" SetupMessage, $(!STF_LANGUAGE), +
; "STATUS", $(InvokeRasError)
; IfInt $($ShellCode) != $(!SHELL_CODE_OK)
; GoTo ShellCodeError
; EndIf
; GoTo SuccessfulOption
; EndIf
; Set RasInstalled = $($R0)
; Debug-Output $(InfName)": Is RAS Installed? "$(RasInstalled)
;
; display a message to the user that RAS setup will now be invoked
;
; IfStr(i) $(RasInstalled) == FALSE
; Shell "subroutn.inf" SetupMessage, $(!STF_LANGUAGE), "STATUS", +
; $(InvokeRasSetupMsg)
; IfInt $($ShellCode) != $(!SHELL_CODE_OK)
; GoTo SuccessfulOption
; EndIf
; Else
Shell "subroutn.inf" SetupMessage, $(!STF_LANGUAGE), "STATUS", +
$(InvokeRasConfigMsg)
IfInt $($ShellCode) != $(!SHELL_CODE_OK)
GoTo SuccessfulOption
EndIf
; EndIf
;
; FIXME - RAS INF will not locate the files if it is spawned here.
;
EndWait
; GoTo SuccessfulOption
;
; Set the flags based on whether this is an IDW installation
;
IfStr(i) $(!STF_IDW) == TRUE
Set AddCopy = NO
Set DoCopy = NO
Set DoConfig = NO
Else
Set AddCopy = YES
Set DoCopy = YES
Set DoConfig = YES
EndIf
;
; change the global install mode flag to configure if RAS is already installed
;
IfStr(i) $(RasInstalled) == TRUE
Set SaveNTN_InstallMode = $(!NTN_InstallMode)
Set !NTN_InstallMode = configure
EndIf
;
; now invoke RAS setup to do the right thing
;
Shell "oemnsvra.inf" InstallOption $(!STF_LANGUAGE) "RAS" $(RasDir) $(AddCopy) $(DoCopy) $(DoConfig)
;
; restore the global instal mode flag if it was changed
;
IfStr(i) $(RasInstalled) == TRUE
Set !NTN_InstallMode = $(SaveNTN_InstallMode)
EndIf
IfInt $($ShellCode) != $(!SHELL_CODE_OK)
Debug-Output $(InfName)": Error Shelling the RAS INF file oemnsvra.inf"
Shell "subroutn.inf" SetupMessage, $(!STF_LANGUAGE), "STATUS", +
$(InvokeRasError)
IfInt $($ShellCode) != $(!SHELL_CODE_OK)
GoTo ShellCodeError
EndIf
GoTo SuccessfulOption
EndIf
EndWait
GoTo SuccessfulOption
;***********************************************************************
;
;***********************************************************************
BindingAdapter =+
Set Error = "Binding: Sorry, not yet implemented."
GoTo FatalError
;***********************************************************************
;
;***********************************************************************
RemoveAdapter = +
IfStr(i) $(ProductKeyName) == $(!NTN_RegBase)
;;; v
Shell $(UtilityInf), RemoveSoftwareComponent, $(Manufacturer), +
$(ProductSwNameXX)
;;; ^
Shell $(UtilityInf), RemoveSoftwareComponent, $(Manufacturer), +
$(ProductSoftwareName)
IfInt $($ShellCode) != $(!SHELL_CODE_OK)
Debug-Output $(InfName)": ShellCode error"
GoTo ShellCodeError
EndIf
Set RegistryErrorIndex = $($R0)
IfStr(i) $(RegistryErrorIndex) != NO_ERROR
GoTo FatalRegistry
EndIf
Else
;;; v
Shell $(UtilityInf), RemoveSoftwareComponent, $(Manufacturer), +
$(ProductSwNameXX)
;;; ^
Shell $(UtilityInf), RemoveHardwareComponent, $(Manufacturer), +
$(ProductSoftwareName), $(!NTN_RegBase)
IfInt $($ShellCode) != $(!SHELL_CODE_OK)
Debug-Output $(InfName)": ShellCode error"
GoTo ShellCodeError
EndIf
Set RegistryErrorIndex = $($R0)
IfStr(i) $(RegistryErrorIndex) != NO_ERROR
GoTo FatalRegistry
EndIf
EndIf
GoTo end
;***********************************************************************
;
;***********************************************************************
UpgradeSoftware = +
IfStr(i) $(ProductKeyName) == $(!NTN_RegBase)
OpenRegKey $(!REG_H_LOCAL) "" $(ProductKeyName) $(MAXIMUM_ALLOWED) KeyProduct
IfStr $(KeyProduct) != $(KeyNull)
GetRegValue $(KeyProduct),"MajorVersion", VersionInfo
Set Version = *($(VersionInfo), 4)
Shell $(UtilityInf), GetInfFileNameFromRegistry, $(KeyProduct)
IfInt $($ShellCode) != $(!SHELL_CODE_OK)
Debug-Output $(InfName)": ShellCode error"
GoTo ShellCodeError
EndIf
Set !UG_Filename = $($R0)
IfStr(i) $(!UG_Filename) != ""
install "Install-Update"
IfStr(i) $(STF_INSTALL_OUTCOME) != STF_SUCCESS
GoTo FatalError
EndIf
EndIf
SetRegValue $(KeyProduct) {MajorVersion,$(NoTitle),$(!REG_VT_SZ),$(ProductMajorVersion)}
SetRegValue $(KeyProduct) {MinorVersion,$(NoTitle),$(!REG_VT_SZ),$(ProductMinorVersion)}
IfInt $(Version) != $(ProductVersion)
EndIf
CloseRegKey $(KeyProduct)
Else
GoTo FatalRegistry
EndIf
Else
OpenRegKey $(!REG_H_LOCAL) "" $(!NTN_RegBase) +
$(MAXIMUM_ALLOWED) NetworkCardKey
IfStr(i) $(NetworkCardKey) != $(KeyNull)
GetRegValue $(NetworkCardKey),"ServiceName", ServiceNameInfo
Set ServiceName = *($(ServiceNameInfo), 4)
OpenRegKey $(NetworkCardKey) "" "NetRules" +
$(MAXIMUM_ALLOWED) NetRuleKey
IfStr(i) $(NetRuleKey) != $(KeyNull)
Else
GoTo FatalRegistry
EndIf
CloseRegKey $(NetRules)
CloseRegKey $(NetworkCardKey)
Else
GoTo FatalRegistry
EndIf
OpenRegKey $(!REG_H_LOCAL) "" +
$(!NTN_ServiceBase)"\"$(ServiceName) +
$(MAXIMUM_ALLOWED) ServiceKey
IfStr(i) $(ServiceKey) != $(KeyNull)
CloseRegKey $(ServiceKey)
Else
GoTo FatalRegistry
EndIf
EndIf
GoTo end
;***********************************************************************
;
;***********************************************************************
SuccessfulOption = +
GoTo end
;***********************************************************************
;
;***********************************************************************
Abandon = +
ForListDo $(OEM_ABANDON_OPTIONS)
Shell $(UtilityInf), RemoveHardwareComponent, $(Manufacturer), +
$(ProductSoftwareName), $($)
IfInt $($ShellCode) != $(!SHELL_CODE_OK)
Debug-Output $(InfName)": ShellCode error"
GoTo ShellCodeError
EndIf
Set RegistryErrorIndex = $($R0)
IfStr(i) $(RegistryErrorIndex) != NO_ERROR
GoTo FatalRegistry
EndIf
EndForListDo
IfStr(i) $(OEM_ABANDON_SOFTWARE) == TRUE
Shell $(UtilityInf), RemoveSoftwareComponent, $(Manufacturer), +
$(ProductSoftwareName), FALSE
IfInt $($ShellCode) != $(!SHELL_CODE_OK)
Debug-Output $(InfName)": ShellCode error"
GoTo ShellCodeError
EndIf
Set RegistryErrorIndex = $($R0)
IfStr(i) $(RegistryErrorIndex) != NO_ERROR
GoTo FatalRegistry
EndIf
EndIf
GoTo end
;***********************************************************************
;
;***********************************************************************
WarningMsg = +
Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), "WARNING", $(Error)
IfInt $($ShellCode) != $(!SHELL_CODE_OK)
GoTo ShellCodeError
EndIf
IfStr(i) $($R1) == "OK"
GoTo $(to)
Else-IfStr(i) $($R1) == "CANCEL"
GoTo $(from)
EndIf
GoTo end
;***********************************************************************
;
;***********************************************************************
NonFatalInfo = +
Set Severity = STATUS
Set CommonStatus = STATUS_USERCANCEL
IfStr(i) $(Error) == ""
Set Severity = NONFATAL
Shell $(UtilityInf) RegistryErrorString "SETUP_FAIL"
IfInt $($ShellCode) != $(!SHELL_CODE_OK)
GoTo ShellCodeError
EndIf
Set Error = $($R0)
EndIf
Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), $(Severity), $(Error)
IfInt $($ShellCode) != $(!SHELL_CODE_OK)
GoTo ShellCodeError
EndIf
IfStr(i) $($R1) == "OK"
GoTo $(from)
EndIf
GoTo end
;***********************************************************************
;
;***********************************************************************
FatalRegistry = +
Shell $(UtilityInf) RegistryErrorString $(RegistryErrorIndex)
IfInt $($ShellCode) != $(!SHELL_CODE_OK)
GoTo ShellCodeError
EndIf
Set Error = $($R0)
GoTo FatalError
;***********************************************************************
;
;***********************************************************************
FatalDetect = +
Shell $(UtilityInf),RegistryErrorString,CANNOT_DETECT
IfInt $($ShellCode) != $(!SHELL_CODE_OK)
Debug-Output $(InfName)": ShellCode error: cannot get an error string."
GoTo ShellCodeError
EndIf
Set Error = $($R0)
GoTo FatalError
;***********************************************************************
;
;***********************************************************************
FatalError = +
IfStr(i) $(Error) == ""
Shell $(UtilityInf) RegistryErrorString "SETUP_FAIL"
IfInt $($ShellCode) != $(!SHELL_CODE_OK)
GoTo ShellCodeError
EndIf
Set Error = $($R0)
EndIf
Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), "FATAL", $(Error)
IfInt $($ShellCode) != $(!SHELL_CODE_OK)
GoTo ShellCodeError
EndIf
GoTo SetFailed
;***********************************************************************
;
;***********************************************************************
ShellCodeError = +
Set DlgType = "MessageBox"
Set STF_MB_TITLE = $(ShellCodeErrorTitle)
Set STF_MB_TEXT = $(ShellCodeErrorText)
Set STF_MB_TYPE = 1
Set STF_MB_ICON = 3
Set STF_MB_DEF = 1
UI Start "Error Message"
GoTo SetFailed
;***********************************************************************
;
;***********************************************************************
SetFailed = +
Set CommonStatus = STATUS_FAILED
IfStr(i) $(OEM_ABANDON_ON) == TRUE
Set OEM_ABANDON_ON = FALSE
GoTo Abandon
EndIf
GoTo end
;***********************************************************************
;
;***********************************************************************
end = +
Set !DebugOutputControl = $(OldDebugControl)
Return $(CommonStatus)
;***********************************************************************
;
;***********************************************************************
[HtCreateRegKey]
Debug-Output $(InfName)": Entering [HtCreateRegKey]"
Set ECR_Result = NO_ERROR
Set ECR_BaseKeyHandle = $($0)
Set ECR_NewPath = $($1)
Set KeyNull = ""
Set MAXIMUM_ALLOWED = 33554432
Debug-Output $(InfName)": HtCreateRegKey - ECR_BaseKeyHandle = "$(ECR_BaseKeyHandle)
Debug-Output $(InfName)": ECR_NewPath = "$(ECR_NewPath)
Debug-Output $(InfName)": MAXIMUM_ALLOWED = "$(MAXIMUM_ALLOWED)
Debug-Output $(InfName)": KeyNull = "$(KeyNull)
OpenRegKey $(ECR_BaseKeyHandle) "" $(ECR_NewPath) $(MAXIMUM_ALLOWED) +
ECR_BaseKey
Debug-Output $(InfName)": ECR_BaseKey = "$(ECR_BaseKey)
Debug-Output $(InfName)": OpenRegKey returned "$($R0)
IfStr $(ECR_BaseKey) == $(KeyNull)
Debug-Output $(InfName)": ECR_BaseKey == KeyNull"
Else
Debug-Output $(InfName)": ECR_BaseKey != KeyNull"
Set ECR_KeyHandle = $(ECR_BaseKey)
GoTo ECR_Return
EndIf
Set ECR_TmpPath = ""
Split-String $(ECR_NewPath) "\" ECR_PList
Debug-Output $(InfName)": ECR_PList = "$(ECR_PList)
ForListDo $(ECR_PList)
IfStr(i) $($) != "\"
IfInt $(#) == 1
Set ECR_TmpPath = $($)
Else
Set ECR_TmpPath = $(ECR_TmpPath)"\"$($)
EndIf
Debug-Output $(InfName)": Determining if "$(ECR_TmpPath)" exists"
OpenRegKey $(ECR_BaseKeyHandle) "" $(ECR_TmpPath) $(MAXIMUM_ALLOWED) ECR_BaseKey
IfStr $(ECR_BaseKey) == $(KeyNull)
Debug-Output $(InfName)": Creating "$(ECR_TmpPath)
CreateRegKey $(ECR_BaseKeyHandle) {$(ECR_TmpPath),0,GenericClass} "" $(MAXIMUM_ALLOWED) "" ECR_KeyHandle
IfStr(i) $(ECR_KeyHandle) == $(KeyNull)
Set ECR_Result = $($R0)
GoTo ECR_Return
EndIf
EndIf
EndIf
EndForListDo
ECR_Return = +
Return $(ECR_Result) $(ECR_KeyHandle)
;***********************************************************************
;
;***********************************************************************
[DebugConfiguration]
Debug-Output $(!p:InfName)": **CONFIGURATION STATE: "$($0)
Debug-Output $(!p:InfName)": InterruptNumber is "$(!p:InterruptNumber)
Debug-Output $(!p:InfName)": RamBaseAddress is "$(!p:RamBaseAddress)
Return
;***********************************************************************
;
;***********************************************************************
[Install-Option]
Set STF_VITAL = ""
IfStr(i) $(AddCopy) == "YES"
AddSectionFilesToCopyList Files-$(Option) $(SrcDir) $(!STF_WINDOWSSYSPATH)\drivers
EndIf
IfStr(i) $(DoCopy) == "YES"
Set !STF_NCPA_FLUSH_COPYLIST = TRUE
CopyFilesInCopyList
EndIf
Exit
;***********************************************************************
;
;***********************************************************************
[Install-Update]
Set STF_VITAL = ""
Set STF_OVERWRITE = "VERIFYSOURCEOLDER"
AddSectionFilesToCopyList Files-$(Option) $(SrcDir) $(!STF_WINDOWSSYSPATH)\drivers
AddSectionFilesToCopyList Files-Inf $(SrcDir) $(!STF_WINDOWSSYSPATH)
Set !STF_NCPA_FLUSH_COPYLIST = TRUE
CopyFilesInCopyList
Exit
[OneCardOnlyDlg]
set RegistryErrorIndex = NO_ERROR
set ButtonReturn = "OK"
ifstr(i) $(!STF_GUI_UNATTENDED) != "YES"
set-subst LF = "\n"
read-syms OneCardOnly$(!STF_LANGUAGE)
set DlgText = $(Text)
Shell "Subroutn.Inf" SetupMessage $(!STF_LANGUAGE) "WARNING" $(DlgText)
set ButtonReturn = $($R1)
endif
return $(RegistryErrorIndex), $(ButtonReturn)
;***********************************************************************
;
;***********************************************************************
[Source Media Descriptions]
1 = "T-DSL Setup Disk #1"
;***********************************************************************
;
;***********************************************************************
[ProductType]
STF_PRODUCT = Winnt
STF_PLATFORM = I386
;***********************************************************************
;
;***********************************************************************
[Files-Inf]
1, oemsetnt.inf, SIZE=1000, RENAME=$(!UG_Filename)
;***********************************************************************
;
;***********************************************************************
[Files-TDSLAdapter]
1, TDSLAdap.sys, SIZE=65536
1, TDSLProt.sys, SIZE=65536
;***********************************************************************
;
;***********************************************************************
[LanguagesSupported]
ENG
;***********************************************************************
;
;***********************************************************************
[OptionsTextENG]
TDSLAdapter = "T-DSL Adapter (T-Online)"
;***********************************************************************
;
;***********************************************************************
[FileConstantsENG]
ProCaption = "Windows NT Setup"
ProCancel = "Cancel"
ProCancelMsg = "Windows NT Networking is not correctly installed. "+
"Are you sure you want to cancel copying files?"
ProCancelCap = "Network Setup Message"
ProText1 = "Copying:"
ProText2 = "To:"
FunctionTitleTDSLAdapter = "T-DSL-Adapter Card Setup"
ProductSoftwareDescription = "T-DSL-Adapter Driver"
ProductHardwareTDSLAdapterDescription = "This is the Dialup-Adapter for the PPP-over-Ethernet (PPPoE) protocol. T-DSL is the product name of the ADSL connection provided in Germany by T-Online International AG. Created by www.engel-kg.com"
ProductSoftwareTitle = "T-DSL Driver"
ProductHardwareTDSLAdapterTitle = "T-DSL Adapter"
ShellCodeErrorTitle = "Error: "$(FunctionTitle)$(Option))
ShellCodeErrorText = "Shell Code Error."
ErrorLoggingList = ^(LoggingChoices$(Option), 1)
ErrorLoggingValues = ^(LoggingChoices$(Option), 2)
;***********************************************************************
;
;***********************************************************************
[DialogConstantsENG]
Help = "&Help"
Exit = "Cancel"
OK = "OK"
HelpContext = ""
Continue = "Continue"
Cancel = "Cancel"
;***********************************************************************
;
;***********************************************************************
[FileDependentDlgENG]
DlgText = "Driver closes T-DSL connection, when no PPP-KeepAlive packets "+
"are received from T-Online Server within specified amount "+
"of time (in seconds) "
DlgType = "Combination"
DlgTemplate = "ADAP_PROTO_COMBO"
Caption = $(FunctionTitle)$(Option)" Standard Options"
Combo1Label = "&KeepAlive Timeout (sec)"
Combo1List = $(KeepAliveList)
Combo1Out = $(KeepAlive)
ComboListItemsIn = {Combo1List}
ComboListItemsOut = {Combo1Out}
EditTextLim = 0
Edit1Label = ""
;***********************************************************************
;
;***********************************************************************
[DebugDlgENG]
DlgText = "Please keep Error-Logging DISABLED !!."$(!LF)$(!LF)+
"Error-Logging (standard/extended) is only need to be activated, "+
"when an T-DSL connection can´t be established. "+
"Be aware, that this can produce "+
"problems in performance or stability of Windows !"
DlgType = "Combination"
DlgTemplate = "ADAP_PROTO_COMBO"
Caption = $(FunctionTitle)$(Option)" Debugging/Logging Options"
Combo1Label = "&Error Logging"
Combo1List = $(ErrorLoggingList)
Combo1Out = $(ErrorLoggingIndex)
ComboListItemsIn = {Combo1List}
ComboListItemsOut = {Combo1Out}
EditTextLim = 0
Edit1Label = ""
;***********************************************************************
;
;***********************************************************************
[InvokeRasDlgENG]
InvokeRasSetupMsg = "T-DSL-Adapter setup is complete. "+
"Remote Access Services (RAS) must now be installed. "+
"Please configure the T-DSL ports in RAS "+
"setup to enable you to use RAS over the T-DSL-Adapter."
InvokeRasConfigMsg = "T-DSL-Adapter setup is complete. "+
"Remote Access Services (RAS) setup must now be invoked. "+
"Please configure the T-DSL-Adapter ports in RAS "+
"setup to enable you to use RAS over the T-DSL-Adapter."
InvokeRasError = "T-DSL-Adapter setup encountered an error "+
"while invoking the RAS setup INF file (OEMNSVRA.INF). "+
"Please make sure that the file is present in the "+
"System32 directory and is the proper file."
RasNotInstalledError = "T-DSL-Adapter setup encountered an error: "+
" the RAS-Service is not installed ! "+
"Please make sure that the RAS-Service is installed, "+
"before you try to install the T-DSL-Adapter."
;***********************************************************************
;
;***********************************************************************
[OneCardOnlyENG]
;Text = "Ein TDSL-Adapter ist bereits auf dem System installiert. Es ist nur einer zulässig !"
Text = "An TDSL-Adapter is already installed. Only one adapter is supported !"
;***********************************************************************
;
;***********************************************************************
Download Driver Pack
After your driver has been downloaded, follow these simple steps to install it.
Expand the archive file (if the download file is in zip or rar format).
If the expanded file has an .exe extension, double click it and follow the installation instructions.
Otherwise, open Device Manager by right-clicking the Start menu and selecting Device Manager.
Find the device and model you want to update in the device list.
Double-click on it to open the Properties dialog box.
From the Properties dialog box, select the Driver tab.
Click the Update Driver button, then follow the instructions.
Very important: You must reboot your system to ensure that any driver updates have taken effect.
For more help, visit our Driver Support section for step-by-step videos on how to install drivers for every file type.