ntddk/src/setup/inf/ndis/utility.inf - view

File: [WindowsNT SDKs] / ntddk / src / setup / inf / ndis / utility.inf
Revision 1.1.1.1 (vendor branch): download - view: text, annotated - select for diffs
Thu Aug 9 18:31:12 2018 UTC (7 years, 9 months ago) by root
Branches: msft, MAIN
CVS tags: ntddk-nov-1993, HEAD

Microsoft Windows NT Build 511 (DDK SDK) 11-01-1993

;************************************************************************* ; ; UTILITY.INF ; ; Network Installation utility functions. Each major piece of ; functionality is coded as a [Section], and is invoked by name from ; the outer level INF. See TEMPLATE.INF for example usage. ; ; CHANGES: ; DavidHov 6/11/92 Added Service"Linkage" key return ; value to [AddSoftwareComponent] ; ; DavidHov 8/24/92 Add WinSock support routines for ; transports ; ; ; ;************************************************************************* ; ;-------------------------------------------------------------------------- ; Header to be used at the front of all externally available INF sections. ;-------------------------------------------------------------------------- ; ;************************************************************************* ; ; SECTION: sectionname ; ; PURPOSE: <describe purpose of section> ; ; ARGUMENTS: $0 ; $1 ; ; RETURNS: $R0 ; $R1 ; ; REFERENCES: <list of global or parent variables referenced> ; ; MODIFIES: <list of global or parent variables modified> ; ; ;************************************************************************* ;************************************************************************* ; end of section sectionname ;************************************************************************* ; ; Initialize general constants ; [InitBaseVars] KeyNull = "" MAXIMUM_ALLOWED = 33554432 KeyInfo = {} RegistryErrorIndex = NO_ERROR NoTitle = 0 CurrentControlSet = "SYSTEM\CurrentControlSet" ServicesBaseName = $(CurrentControlSet)"\Services" NetworkCardKeyName = $(!NTN_SoftwareBase)"\Microsoft\Windows NT\CurrentVersion\NetworkCards" !RegLastError = NO_ERROR [RegistryErrorSetup] RegistryErrorIndex = ^(RegistryErrors$(!STF_LANGUAGE),1) RegistryErrorList = ^(RegistryErrors$(!STF_LANGUAGE),2) ;************************************************************************* ; ; SECTION: RegistryErrorString ; ; PURPOSE: Translate a numeric registry error code into a string ; ; ARGUMENTS: $0 Registry error code ; ; RETURNS: $R0 String containing displayable text in language ; ; REFERENCES: !STF_LANGUAGE -- global "user's language" variable; ; see [RegistryErrorSetup] ; ; MODIFIES: Nothing ; ; ;************************************************************************* [RegistryErrorString] read-syms RegistryErrorSetup read-syms RegistryErrorUnknown$(!STF_LANGUAGE) set RE_String = *($(RegistryErrorList),~($(RegistryErrorIndex),$($0))) Ifstr $(RE_String) == "" set RE_String = $(Error_Bogus) endif return $(RE_String) ;************************************************************************* ; end of section RegistryErrorString ;************************************************************************* ;************************************************************************* ; ; SECTION: BaseServiceKey ; ; PURPOSE: Return an open key handle to the top of the services tree ; ; ARGUMENTS: none ; ; RETURNS: $R0 Registry error code ; $R1 Registry key variable for SERVICES0 ; ; REFERENCES: Nothing ; ; MODIFIES: Nothing ; ;************************************************************************* [BaseServiceKey] read-syms InitBaseVars set BS_KeyServices = "" OpenRegKey $(!REG_H_LOCAL) "" $(ServicesBaseName) $(MAXIMUM_ALLOWED) BS_KeyServices Ifstr $(BS_KeyServices) == $(KeyNull) Debug-Output "UTILITY.INF: could not open Services base key" set RegistryErrorIndex = UNABLE_ACCESS_CONFIGURE_SERVICE endif B_S_Return = + return $(RegistryErrorIndex), $(BS_KeyServices) ;************************************************************************* ; ; SECTION: ReduceInfPath ; ; PURPOSE: Process the path\name string to an INF file. If ; its path points to STF_WINDOWSSYSPATH, remove the path prefix. ; ; ARGUMENTS: $0 Path\name to INF file ; ; RETURNS: $R0 Resulting string ; ; REFERENCES: Nothing ; ; MODIFIES: Nothing ; ;************************************************************************* [ReduceInfPath] Set RIP_Result = $($0) Split-String $(RIP_Result) "\" InList Set BasePath = $(!STF_WINDOWSSYSPATH)"\" Split-String $(BasePath) "\" BaseList ; ; See how many of the path elements match ; Set Indx = 0 Set Matched = 0 QueryListSize InListSize, $(InList) ForListDo $(BaseList) Set-add Indx = $(Indx),1 Ifint $(Indx) <= $(InListSize) Set Instr = *($(InList),$(Indx)) Ifstr(i) $($) == $(Instr) Set-add Matched = $(Matched),1 Endif Endif EndForListDo ; ; If all the path elements of the input path matched ; those of STF_WINDOWSSYSPATH, strip them off of the result. ; Ifint $(Indx) == $(Matched) Set RIP_Result = "" Set Indx2 = 0 ForListDo $(InList) Set-add Indx2 = $(Indx2),1 Ifint $(Indx2) > $(Indx) Set RIP_Result = $(RIP_Result)$($) Endif EndForListDo Endif Return $(RIP_Result) ;************************************************************************* ; ; SECTION: InstallSoftwareProduct ; ; PURPOSE: Add a new component into the Registry ; ; ARGUMENTS: $0 name of Manufacturer ; $1 name of Product ; $2 full INF path and name ; ; RETURNS: $R0 error code or zero if no error ; $R1 Registry key variable for ; SOFTWARE\Manufacturer\Product\Version key ; $R2 Registry key variable for ; ...\NetRules ; ; REFERENCES: none ; ; MODIFIES: none ; ;************************************************************************* [InstallSoftwareProduct] read-syms InitBaseVars set IS_MfgName = $($0) set IS_ProdName = $($1) set IS_Infname = $($2) set IS_KeySoftware = "" set IS_KeyMfg = "" set IS_KeyProduct = "" set IS_KeyVersion = "" set IS_KeyNetRules = "" set IS_MfgCreated = 1 set IS_ProductCreated = 1 ; ; Validate the arguments passed in ; set RegistryErrorIndex = INVALID_DATA_PASSED Ifstr(i) $(IS_MfgName) == "" goto I_S_Return endif Ifstr(i) $(IS_ProdName) == "" goto I_S_Return endif set RegistryErrorIndex = NO_ERROR ; ; Open the HKEY_LOCAL_MACHINE\SOFTWARE key ; OpenRegKey $(!REG_H_LOCAL) "" $(!NTN_SoftwareBase) $(MAXIMUM_ALLOWED) IS_KeySoftware Ifstr $(IS_KeySoftware) == $(KeyNull) set RegistryErrorIndex = UNABLE_ACCESS_SOFTWARE_REG goto I_S_Return endif ; ; Create the Manufacturer's key if necessary ; CreateRegKey $(IS_KeySoftware) {$(IS_MfgName),$(NoTitle),GenericClass} "" $(MAXIMUM_ALLOWED) "" IS_KeyMfg Ifstr $(IS_KeyMfg) == $(KeyNull) set IS_MfgCreated = 0 OpenRegKey $(IS_KeySoftware) "" $(IS_MfgName) $(MAXIMUM_ALLOWED) IS_KeyMfg Ifstr $(IS_KeyMfg) == $(KeyNull) set RegistryErrorIndex = UNABLE_OPEN_MICROSOFT_KEY goto I_S_Return endif endif ; ; Create the Software Product key if necessary ; CreateRegKey $(IS_KeyMfg) {$(IS_ProdName),$(NoTitle),GenericClass} "" $(MAXIMUM_ALLOWED) "" IS_KeyProduct Ifstr $(IS_KeyProduct) == $(KeyNull) set IS_ProductCreated = 0 OpenRegKey $(IS_KeyMfg) "" $(IS_ProdName) $(MAXIMUM_ALLOWED) IS_KeyProduct Ifstr $(IS_KeyProduct) == $(KeyNull) set RegistryErrorIndex = UNABLE_CREATE_PRODUCT_KEY goto I_S_Return endif endif ; ; Create the software product version key. ; CreateRegKey $(IS_KeyProduct) {"CurrentVersion",$(NoTitle),GenericClass} "" $(MAXIMUM_ALLOWED) "" IS_KeyVersion Ifstr $(IS_KeyVersion) == $(KeyNull) OpenRegKey $(IS_KeyProduct) "" "CurrentVersion" $(MAXIMUM_ALLOWED) IS_KeyVersion Ifstr $(IS_KeyVersion) == $(KeyNull) set RegistryErrorIndex = UNABLE_CREATE_PRODUCT_VERSION goto I_S_Return endif endif set RegistryErrorIndex = NO_ERROR ; ; Create the NetRules key ; CreateRegKey $(IS_KeyVersion) {NetRules,$(NoTitle),GenericClass} "" $(MAXIMUM_ALLOWED) "" IS_KeyNetRules Ifstr $(IS_KeyNetRules) == $(KeyNull) OpenRegKey $(IS_KeyVersion) "" NetRules $(MAXIMUM_ALLOWED) IS_KeyNetRules Ifstr $(IS_KeyNetRules) == $(KeyNull) set RegistryErrorIndex = UNABLE_CREATE_NETRULES_KEY goto I_S_Return endif endif ; ; Set the "Infname" value if non-null; reduce it if it's in %SystemRoot% ; Ifstr $(IS_Infname) != "" Shell "", ReduceInfPath, $(IS_Infname) SetRegValue $(IS_KeyNetRules) {InfName,$(NoTitle),$(!REG_VT_SZ),$($R0)} endif ; ; Exit, leaving $(IS_KeyVersion) and $(IS_KeyNetRules) open for the caller... ; I_S_Return = + Ifstr $(IS_KeyProduct) != "" Ifint $(IS_ProductCreated) == 1 Ifstr(i) $(RegistryErrorIndex) != NO_ERROR Debug-Output "UTILITY.INF: DeleteRegTree Product Key" ;DeleteRegTree $(IS_KeyProduct) "" set IS_KeyProduct = "" endif endif Ifstr $(IS_KeyProduct) != "" CloseRegKey $(IS_KeyProduct) endif endif Ifstr $(IS_KeyMfg) != "" Ifint $(IS_MfgCreated) == 1 Ifstr(i) $(RegistryErrorIndex) != NO_ERROR ;DeleteRegTree $(IS_KeyMfg) "" Debug-Output "UTILITY.INF: DeleteRegTree Manufacturer Key" set IS_KeyMfg = "" endif endif Ifstr $(IS_KeyMfg) != "" CloseRegKey $(IS_KeyMfg) endif endif Ifstr $(IS_KeySoftware) != "" CloseRegKey $(IS_KeySoftware) endif return $(RegistryErrorIndex), $(IS_KeyVersion), $(IS_KeyNetRules) ;************************************************************************* ; end of section InstallSoftwareProduct ;************************************************************************* ;************************************************************************* ; ; SECTION: AddValueList ; ; PURPOSE: Given a nested list of value items, add each to the given ; key. Key is left open. ; ; ARGUMENTS: $0 Registry key handle ; $1 List of value items; for example: ; { {ValueName1,0,$(!REG_VT_SZ),$(ValueData1)}, + ; {ValueName2,0,$(!REG_VT_SZ),$(ValueData2)} } ; ; RETURNS: $R0 Registry error code. ; ; ; REFERENCES: Nothing ; ; MODIFIES: Nothing ; ;************************************************************************* [AddValueList] set RegistryErrorIndex = NO_ERROR ForListDo $($1) SetRegValue $($0) $($) ifint $(RegLastError) != 0 Debug-Output "UTILITY.INF: Value write fail data: "$($) Debug-Output "UTILITY.INF: Value write fail key: "$($0) return UNABLE_WRITE_REGISTRY endif EndForListDo return $(RegistryErrorIndex) ;************************************************************************* ; end of section AddValueList ;************************************************************************* ;************************************************************************* ; ; SECTION: DeleteSoftwareProduct ; ; PURPOSE: Delete the given product from the Registry entirely ; ; ARGUMENTS: $0 Product Key Handle ; ; RETURNS: $R0 Registry error code ; $R1 ; ; REFERENCES: Nothing ; ; MODIFIES: Nothing ; ;************************************************************************* [DeleteSoftwareProduct] set RegistryErrorIndex = NO_ERROR Debug-Output "UTILITY.INF: DeleteRegTree Software Product" DeleteRegTree $($0) "" return $(RegistryErrorIndex) ;************************************************************************* ; end of section DeleteSoftwareProduct ;************************************************************************* ;************************************************************************* ; ; SECTION: VerExistedDlg ; ; PURPOSE: Popup a dialog and tell the user that the same ver of ; the software already exists in the registery tree. ; Ask the user whether he want to continue or not ; ; ARGUMENTS: $0 Product Name ; $0 Product version ; ; RETURNS: $R0 Registry error code ; $R1 either "continue" or "exit" ; ; REFERENCES: Nothing ; ; MODIFIES: Nothing ; ;************************************************************************* [VerExistedDlg] set RegistryErrorIndex = NO_ERROR set-subst LF = "\n" read-syms VerExisted$(!STF_LANGUAGE) set DlgText = $($0)+ $(ver)+ $($1)+ $(Text) Shell "Subroutn.Inf" SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(DlgText) ifint $($ShellCode) != $(!SHELL_CODE_OK) set RegistryErrorIndex = ERROR endif return $(RegistryErrorIndex), $($R1) ;************************************************************************* ; end of section VerExistedDialog ;************************************************************************* ;************************************************************************* ; ; SECTION: CardExistedDlg ; ; PURPOSE: Popup a dialog and tell the user that the network card ; is lready installed and ask them whether theyr want to ; continue. ; ; ARGUMENTS: NONE ; ; RETURNS: $R0 Registry error code ; $R1 either "continue" or "exit" ; ; REFERENCES: Nothing ; ; MODIFIES: Nothing ; ;************************************************************************* [CardExistedDlg] set RegistryErrorIndex = NO_ERROR set-subst LF = "\n" read-syms CardExisted$(!STF_LANGUAGE) set DlgText = $(Text) Shell "Subroutn.Inf" SetupMessage $(!STF_LANGUAGE) "WARNING" $(DlgText) ifint $($ShellCode) != $(!SHELL_CODE_OK) set RegistryErrorIndex = ERROR endif return $(RegistryErrorIndex), $($R1) ;************************************************************************* ; end of section CardExistedDialog ;************************************************************************* ;************************************************************************* ; ; SECTION: CreateService ; ; PURPOSE: Create the Services area entry for a new product ; ; ARGUMENTS: $0 Name of the service (no imbedded blanks, etc.) ; $1 Display Name of service ; $2 image path string ; $3 type of service: ; system ; adapter ; driver ; transport ; service ; serviceshare ; $4 group, if any or "" ; $5 dependency **list**, if any or {} ; $6 ObjectName, usually "" ; $7 EventMessageFile [Optional] ; $8 TypeSupported [Optional] ; $9 EventLog Location[Optional] ; $10 Error control value [Optional] ; $11 Event Source name [Optional] ; ; ; RETURNS: $R0 Registry error code ; $R1 Service area key handle ; $R2 Parameters key handle ; $R3 Linkage key handle ; ; REFERENCES: <list of global or parent variables referenced> ; ; MODIFIES: <list of global or parent variables modified> ; ; NOTES: If $(!NTN_ScUseRegistry) is != "", then direct Registry ; access is used in lieu of the Service Controller API ; wrapper. The Registry is automatically used if the ; service type is "adapter". ; ; The image path format varies for drivers and other ; services. For drivers of any kind, it's an NT name space ; name. For services, it's a REG_EXPAND_SZ format Win32 name. ; ; ; CHANGES: DavidHov: 6/11/92. "Groups" is REG_SZ, not REG_EXPAND_SZ ; Adapters are type=4, start=4. ; Only services get "ObjectName" value ; ; ; ; ;************************************************************************* [CreateService] read-syms InitBaseVars set CS_NameOfService = $($0) set CS_DisplayName = $($1) set CS_ImagePath = $($2) set CS_TypeOfService = $($3) set CS_Group = $($4) set CS_Dependencies = $($5) set CS_ObjectName = $($6) set CS_EventFile = $($7) set CS_TypeSupported = $($8) ifstr(i) $(CS_TypeSupported) == "" set CS_TypeSupported = 7 endif ; Set event log location set CS_EventLogLocation = $($9) ifstr(i) $(CS_EventLogLocation) == "" set CS_EventLogLocation = "System" endif set CS_ErrorControl = $($10) ifstr(i) $(CS_ErrorControl) == "" set CS_ErrorControl = 1 endif set CS_EventSourceName = $($11) ifstr(i) $(CS_EventSourceName) == "" set CS_EventSourceName = $(CS_NameOfService) endif set CS_KeyServices = "" set CS_KeyTempSvc = "" set CS_KeySvcManager = "" set CS_KeyParameters = "" set CS_KeyLinkage = "" set CS_UseRegistry = $(!NTN_ScUseRegistry) Debug-Output "UTILITY.INF: [CreateService] entered for "$(CS_NameOfService) Ifstr(i) $(CS_UseRegistry) != "YES" Ifstr(i) $(CS_UseRegistry) != "NO" Set CS_UseRegistry = "NO" Endif Endif Ifstr(i) $(CS_Dependencies) == "" Set CS_Dependencies = {} Endif ; ; Get the base key handle for the services area ; Shell "", BaseServiceKey set RegistryErrorIndex = $($R0) Ifstr(i) $(RegistryErrorIndex) != NO_ERROR set RegistryErrorIndex = UNABLE_ACCESS_CONFIGURE_SERVICE goto C_S_Return endif set CS_KeyServices = $($R1) ifstr(i) $(CS_TypeOfService) == "system" set TypeValue = 2 set StartValue = 3 else-ifstr(i) $(CS_TypeOfService) == "systemstart" set TypeValue = 2 set StartValue = 1 else-ifstr(i) $(CS_TypeOfService) == "systemauto" set TypeValue = 2 set StartValue = 2 else-ifstr(i) $(CS_TypeOfService) == "adapter" set TypeValue = 4 set StartValue = 3 Set CS_UseRegistry = "YES" else-ifstr(i) $(CS_TypeOfService) == "kernelauto" set TypeValue = 1 set StartValue = 1 else-ifstr(i) $(CS_TypeOfService) == "autoserviceshare" set TypeValue = 32 set StartValue = 2 else-ifstr(i) $(CS_TypeOfService) == "transport" set TypeValue = 2 set StartValue = 3 else-ifstr(i) $(CS_TypeOfService) == "kernel" set TypeValue = 1 set StartValue = 3 else-ifstr(i) $(CS_TypeOfService) == "kernelautostart" set TypeValue = 1 set StartValue = 2 else-ifstr(i) $(CS_TypeOfService) == "kerneldisable" set TypeValue = 1 set StartValue = 4 else-ifstr(i) $(CS_TypeOfService) == "service" set TypeValue = 16 set StartValue = 3 else-ifstr(i) $(CS_TypeOfService) == "serviceauto" set TypeValue = 16 set StartValue = 2 else-ifstr(i) $(CS_TypeOfService) == "serviceshare" set TypeValue = 32 set StartValue = 3 else Set CS_UseRegistry = "YES" Debug-Output "UTILITY.INF: [CreateService] Unrecognized TypeOfService parameter" set TypeValue = 4 set StartValue = 3 endif Ifint $(TypeValue) > 4 Ifstr(i) $(CS_ObjectName) == "" set CS_ObjectName = "LocalSystem" Endif Endif OpenRegKey $(CS_KeyServices) "" $(CS_NameOfService) $(MAXIMUM_ALLOWED) + CS_KeyTempSvc ifstr $(CS_KeyTempSvc) != $(KeyNull) ; wait a minute.. somebody already installed the driver ; go to open other keys ; check whether it is marked for deletion GetRegValue $(CS_KeyTempSvc),"DeleteFlag", DeleteFlagInfo set DeleteFlag = *($(DeleteFlagInfo), 4) ifint $(DeleteFlag) == 1 Set RegistryErrorIndex = REBOOT_MACHINE_BEFORE_ADD_ADAPTER goto C_S_Return endif ; ; Device section of the registry already exist. ; Let the code below to handle it. It will popup a dialog ; and returns error code. ; endif ifstr(i) $(CS_UseRegistry) == "YES" ; Debug-Output "UTILITY.INF: [CreateService] "$(CS_NameOfService)" using Registry" ; ; Create our own service ; OpenRegKey $(CS_KeyServices) "" $(CS_NameOfService) $(MAXIMUM_ALLOWED) + CS_KeyTempSvc ifstr $(CS_KeyTempSvc) == $(KeyNull) CreateRegKey $(CS_KeyServices) {$(CS_NameOfService),$(NoTitle),GenericClass} "" $(MAXIMUM_ALLOWED) "" CS_KeyTempSvc else Debug-Output "UTILITY.INF: service key "$(CS_NameOfService)" already existed" Set RegistryErrorIndex = UNABLE_CREATE_CONFIGURE_SERVICE CloseRegKey $(CS_KeyTempSvc) CloseRegKey $(CS_KeyServices) Goto C_S_Return endif Ifstr(i) $(CS_KeyTempSvc) == $(KeyNull) Debug-Output "UTILITY.INF: could not create service key "$(CS_NameOfService) Set RegistryErrorIndex = UNABLE_CREATE_CONFIGURE_SERVICE CloseRegKey $(CS_KeyTempSvc) CloseRegKey $(CS_KeyServices) Goto C_S_Return else set NewValueList = {+ {Type,$(NoTitle),$(!REG_VT_DWORD),$(TypeValue)},+ {Start,$(NoTitle),$(!REG_VT_DWORD),$(StartValue)},+ {ErrorControl,$(NoTitle),$(!REG_VT_DWORD),$(CS_ErrorControl)}+ } Ifint $(TypeValue) > 4 Set NewValueList = >($(NewValueList), + {ObjectName,$(NoTitle),$(!REG_VT_SZ),$(CS_ObjectName)}) Endif ifstr(i) $(CS_Group) != "" set NewValueList = >($(NewValueList), + {Group,$(NoTitle),$(!REG_VT_SZ),$(CS_Group)}) endif ifstr(i) $(CS_ImagePath) != "" set NewValueList = >($(NewValueList), + {ImagePath,$(NoTitle),$(!REG_VT_EXPAND_SZ),$(CS_ImagePath)}) endif ifstr(i) $(CS_Dependencies) != "" ifstr(i) $(CS_Dependencies) != {} set NewValueList = >($(NewValueList), + {Dependencies,$(NoTitle),$(!REG_VT_MULTI_SZ),$(CS_Dependencies)}) endif endif Shell "", AddValueList, $(CS_KeyTempSvc), $(NewValueList) set RegistryErrorIndex = $($R0) Ifstr(i) $(RegistryErrorIndex) != NO_ERROR Debug-Output "Registry error: Add value list" endif endif else Debug-Output "UTILITY.INF: [CreateService] "$(CS_NameOfService)" using CreateService() wrapper" ; ; Call NCPA to create service key. ; Set FLibraryErrCtl = 1 LibraryProcedure CS_CreateResult $(!NCPA_HANDLE), CPlSetup, $(!STF_HWND), CREATESVC,+ $(CS_NameOfService), $(CS_DisplayName), $(StartValue), $(TypeValue), $(CS_ErrorControl),+ $(CS_ImagePath), $(CS_Group),$(CS_Dependencies),$(CS_ObjectName) Set FLibraryErrCtl = 0 ; ; Check the return code ; Set CS_CreateError = *($(CS_CreateResult),1) Ifint $(CS_CreateError) != 0 Debug-Output "UTILITY.INF: CreateService wrapper failed, error: "$(CS_CreateResult) ; ; See if the error is special ; Ifint $(CS_CreateResult) == 1073 Set RegistryErrorIndex = SERVICE_ALREADY_EXISTS Else-ifint $(CS_CreateResult) == 1072 Set RegistryErrorIndex = SERVICE_MARKED_FOR_DELETE Else Set RegistryErrorIndex = UNABLE_CREATE_CONFIGURE_SERVICE Endif CloseRegKey $(CS_KeyTempSvc) CloseRegKey $(CS_KeyServices) Goto C_S_Return Endif ; ; Now open the key which should have been created by the service controller ; OpenRegKey $(CS_KeyServices) "" $(CS_NameOfService) $(MAXIMUM_ALLOWED) CS_KeyTempSvc ifstr $(CS_KeyTempSvc) == $(KeyNull) Debug-Output "UTILITY.INF: unable to open new service key" set RegistryErrorIndex = UNABLE_CREATE_CONFIGURE_SERVICE CloseRegKey $(CS_KeyTempSvc) CloseRegKey $(CS_KeyServices) Goto C_S_Return endif endif ; ; Open or Create the Parameters subkey ; OpenRegKey $(CS_KeyTempSvc) "" "Parameters" $(MAXIMUM_ALLOWED) + CS_KeyParameters ifstr $(CS_KeyParameters) == $(KeyNull) CreateRegKey $(CS_KeyTempSvc) {"Parameters",$(NoTitle),GenericClass} "" $(MAXIMUM_ALLOWED) "" CS_KeyParameters endif Ifstr $(CS_KeyParameters) == $(KeyNull) set RegistryErrorIndex = UNABLE_CREATE_SERVICE_SUBKEY CloseRegKey $(CS_KeyTempSvc) CloseRegKey $(CS_KeyServices) goto C_S_Return endif set RegistryErrorIndex = NO_ERROR ; ; Open or Create the Linkage subkey ; OpenRegKey $(CS_KeyTempSvc) "" "Linkage" $(MAXIMUM_ALLOWED) CS_KeyLinkage Ifstr $(CS_KeyLinkage) == $(KeyNull) CreateRegKey $(CS_KeyTempSvc) {"Linkage",$(NoTitle),GenericClass} "" $(MAXIMUM_ALLOWED) "" CS_KeyLinkage Endif Ifstr $(CS_KeyLinkage) == $(KeyNull) set RegistryErrorIndex = UNABLE_CREATE_SERVICE_SUBKEY CloseRegKey $(CS_KeyTempSvc) CloseRegKey $(CS_KeyServices) goto C_S_Return endif ; ; Open or Create the Linkage\Disabled subkey ; OpenRegKey $(CS_KeyLinkage) "" "Disabled" $(MAXIMUM_ALLOWED) CS_KeyDisabled Ifstr $(CS_KeyDisabled) == $(KeyNull) CreateRegKey $(CS_KeyLinkage) {"Disabled",$(NoTitle),GenericClass} "" $(MAXIMUM_ALLOWED) "" CS_KeyDisabled Endif Ifstr $(CS_KeyDisabled) == $(KeyNull) set RegistryErrorIndex = UNABLE_CREATE_SERVICE_SUBKEY CloseRegKey $(CS_KeyTempSvc) CloseRegKey $(CS_KeyServices) CloseRegKey $(CS_KeyLinkage) goto C_S_Return endif CloseRegKey $(CS_KeyDisabled) ; ; Create Eventlog information ; ifstr(i) $(CS_EventFile) != "" OpenRegKey $(!REG_H_LOCAL) "" "SYSTEM\CurrentControlSet\Services\EventLog\"$(CS_EventLogLocation) $(MAXIMUM_ALLOWED) CS_KeyEventLog Ifstr $(CS_KeyEventLog) == $(KeyNull) ; cannot open eventlog debug-output "Cannot open eventlog key" set RegistryErrorIndex = UNABLE_OPEN_EVENTLOG_SUBKEY CloseRegKey $(CS_KeyTempSvc) CloseRegKey $(CS_KeyServices) CloseRegKey $(CS_KeyParameters) CloseRegKey $(CS_KeyLinkage) goto C_S_Return else ; set up the service key OpenRegKey $(CS_KeyEventLog) "" $(CS_EventSourceName) $(MAXIMUM_ALLOWED) CS_KeyService ifstr(i) $(CS_KeyService) == "" CreateRegKey $(CS_KeyEventLog) {$(CS_EventSourceName),$(NoTitle),GenericClass} "" $(MAXIMUM_ALLOWED) "" CS_KeyService endif Ifstr $(CS_KeyService) != $(KeyNull) ; create the EventMessageFile and TypeSupported fields SetRegValue $(CS_KeyService) {EventMessageFile,$(NoTitle),$(!REG_VT_EXPAND_SZ),$(CS_EventFile)} SetRegValue $(CS_KeyService) {TypesSupported,$(NoTitle),$(!REG_VT_DWORD),$(CS_TypeSupported)} CloseRegKey $(CS_KeyService) endif Endif endif ; ; Return the keys and error codes ; C_S_Return = + Ifstr $(CS_KeyServices) != $(KeyNull) CloseRegKey $(CS_KeyServices) endif return $(RegistryErrorIndex), $(CS_KeyTempSvc), $(CS_KeyParameters), $(CS_KeyLinkage) ;************************************************************************* ; end of section CreateService ;************************************************************************* ;************************************************************************* ; ; SECTION: AssignAdapterNumber ; ; PURPOSE: Enumerate the netcards, and return a numeric value which ; is unused. ; ; ARGUMENTS: None. ; ; RETURNS: $R0 Regisitry Error Code ; $R1 Numeric value to be use for new adapter; ; (1,2,3..) ; ; REFERENCES: Nothing ; ; MODIFIES: Nothing ; ; ;************************************************************************* [AssignAdapterNumber] read-syms InitBaseVars set AA_AdapterNumber = 1 set AA_KeyNetcards = "" set AA_KeyTemp = "" set RegistryErrorIndex = NO_ERROR OpenRegKey $(!REG_H_LOCAL) "" $(NetworkCardKeyName) $(MAXIMUM_ALLOWED) AA_KeyNetcards Ifstr $(AA_KeyNetcards) == $(KeyNull) set RegistryErrorIndex = UNABLE_OPEN_NETWORKCARD_SECTION goto A_A_Return endif ; ; Loop to find an unused adapter number ; A_A_TryAgain = + Ifint $(AA_AdapterNumber) > 100 Set AA_AdapterNumber = 0 Set RegistryErrorIndex = UNABLE_OPEN_NETWORKCARD_SECTION Goto A_A_Found Endif ifint $(AA_AdapterNumber) < 10 set Tmp_AA_AdapterNumber = "0"$(AA_AdapterNumber) else set Tmp_AA_AdapterNumber = $(AA_AdapterNumber) endif OpenRegKey $(AA_KeyNetcards) "" $(Tmp_AA_AdapterNumber) $(MAXIMUM_ALLOWED) AA_KeyTemp Ifstr $(AA_KeyTemp) == $(KeyNull) Goto A_A_Found Endif CloseRegKey $(AA_KeyTemp) Set AA_KeyTemp = $(KeyNull) Set-add AA_AdapterNumber = $(AA_AdapterNumber),1 Goto A_A_TryAgain ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;BUGBUG: The code below should work ;; ; EnumRegKey $(AA_KeyNetcards) AA_KeyNameList ; ; ForListDo $(AA_KeyNameList) ; set AA_KeyName = *($($),1) ; Ifint $(AA_AdapterNumber) != $(AA_KeyName) ; goto A_A_Found ; endif ; set-add AA_AdapterNumber = $(AA_AdapterNumber),1 ; EndForListDo ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; A_A_Found =+ IfInt $(AA_AdapterNumber) <= 9 set AA_AdapterNumber = "0"$(AA_AdapterNumber) endif CloseRegKey $(AA_KeyNetcards) A_A_Return = + return $(RegistryErrorIndex) $(AA_AdapterNumber) ;************************************************************************* ; end of section AssignAdapterNumber ;************************************************************************* ;************************************************************************* ; ; SECTION: InstallNetcard ; ; PURPOSE: Create a new HARDWARE\Netcard\(n) area in the Registry ; ; ARGUMENTS: $0 Name if the INF file ; ; RETURNS: $R0 Registry error code ; $R1 Netcard\(n) key handle ; $R2 numeric index of netcard (n) ; $R3 NetRules key handle ; ; REFERENCES: Nothing ; ; MODIFIES: Nothing ; ; ;************************************************************************* [InstallNetcard] read-syms InitBaseVars set IN_Infname = $($0) set IN_CardNumber = 0 set IN_KeyNetcard = "" set IN_KeyNetRules = "" ; ; Assign a number to this network card and create its key ; Shell "" AssignAdapterNumber set RegistryErrorIndex = $($R0) Ifstr(i) $(RegistryErrorIndex) != NO_ERROR goto I_N_Return endif set IN_CardNumber = $($R1) CreateRegKey $(!REG_H_LOCAL) {$(NetworkCardKeyName)\$(IN_CardNumber),$(NoTitle),GenericClass} + "" $(MAXIMUM_ALLOWED) "" IN_KeyNetcard Ifstr $(IN_KeyNetcard) == $(KeyNull) set RegistryErrorIndex = UNABLE_CREATE_NETCARD_CONFIGURATION goto I_N_Return endif ; ; Create the NetRules key ; CreateRegKey $(IN_KeyNetcard) {NetRules,$(NoTitle),GenericClass} "" $(MAXIMUM_ALLOWED) "" IN_KeyNetRules Ifstr $(IN_KeyNetRules) == $(KeyNull) set RegistryErrorIndex = UNABLE_CREATE_NETRULES_KEY goto I_N_Return endif ; ; Set the "Infname" value if non-null; reduce it if it's in %SystemRoot% ; Ifstr $(IN_Infname) != "" Shell "", ReduceInfPath, $(IN_Infname) SetRegValue $(IN_KeyNetRules) {InfName,$(NoTitle),$(!REG_VT_SZ),$($R0)} endif set RegistryErrorIndex = NO_ERROR I_N_Return = + Ifstr(i) $(RegistryErrorIndex) != NO_ERROR Debug-Output "UTILITY.INF: [InstallNetcard]: "$(RegistryErrorIndex) Ifstr $(IN_KeyNetRules) != $(KeyNull) CloseRegKey $(IN_KeyNetRules) set IN_KeyNetrules = '' endif ;BUGBUG DeleteRegTree $(IN_KeyNetcard) set IN_KeyNetcard = "" endif return $(RegistryErrorIndex), $(IN_KeyNetcard), $(IN_CardNumber), $(IN_KeyNetRules) ;************************************************************************* ; end of section InstallNetcard ;************************************************************************* ;************************************************************************* ; ; SECTION: LinkToService ; ; PURPOSE: Link a software or hardware component to its ; corresponding service area entry ; ; ARGUMENTS: $0 Registry key handle to primary component key ; $1 Name of service (no imbedded blanks, etc.) ; ; RETURNS: $R0 Registry error code ; ; REFERENCES: Nothing ; ; MODIFIES: Nothing ; ; ;************************************************************************* [LinkToService] read-syms InitBaseVars SetRegValue $($0) {ServiceName,$(NoTitle),$(!REG_VT_SZ),$($1)} L_S_Return = + return $(RegistryErrorIndex) ;************************************************************************* ; end of section LinkToService ;************************************************************************* ;************************************************************************* ; ; SECTION: IncrementRefCount ; ; PURPOSE: Increment the reference counter in the registry ; ; ARGUMENTS: $0 Registry key name ; ; RETURNS: $R0 Registry error code ; ; REFERENCES: Nothing ; ; MODIFIES: Nothing ; ; ;************************************************************************* [IncrementRefCount] read-syms InitBaseVars OpenRegKey $(!REG_H_LOCAL) "" $($0) $(MAXIMUM_ALLOWED) SoftwareKey Ifstr $(SoftwareKey) == $(KeyNull) Debug-Output "UTILITY.INF: could not open Software base key" set RegistryErrorIndex = UNABLE_ACCESS_CONFIGURE_SERVICE goto IncrementRefCount_Return endif GetRegValue $(SoftwareKey),"RefCount", RefCountInfo set RefCount = *($(RefCountInfo), 4) Set-add RefCount = $(RefCount),1 SetRegValue $(SoftwareKey) {RefCount,$(NoTitle),$(!REG_VT_DWORD),$(RefCount)} CloseRegKey $(SoftwareKey) IncrementRefCount_Return = + return $(RegistryErrorIndex) ;************************************************************************* ; end of section IncrementRefCount ;************************************************************************* ;************************************************************************* ; ; SECTION: DecrementRefCount ; ; PURPOSE: Decrement the reference counter in the registry ; ; ARGUMENTS: $0 Registry key name ; ; RETURNS: $R0 Registry error code ; ; REFERENCES: Nothing ; ; MODIFIES: Nothing ; ; ;************************************************************************* [DecrementRefCount] read-syms InitBaseVars OpenRegKey $(!REG_H_LOCAL) "" $($0) $(MAXIMUM_ALLOWED) SoftwareKey Ifstr $(SoftwareKey) == $(KeyNull) Debug-Output "UTILITY.INF: could not open Software base key" set RegistryErrorIndex = UNABLE_ACCESS_CONFIGURE_SERVICE goto DecrementRefCount_Return endif GetRegValue $(SoftwareKey),"RefCount", RefCountInfo set RefCount = *($(RefCountInfo), 4) ifint $(RefCount) == 0 ; something wrong goto DecrementRefCount_Return endif Set-sub RefCount = $(RefCount),1 SetRegValue $(SoftwareKey) {RefCount,$(NoTitle),$(!REG_VT_DWORD),$(RefCount)} CloseRegKey $(SoftwareKey) DecrementRefCount_Return = + return $(RegistryErrorIndex) ;************************************************************************* ; end of section DecrementRefCount ;************************************************************************* ;************************************************************************* ; ; SECTION: IsRefCountEqual0 ; ; PURPOSE: check the reference counter in the registry is equal to 0 or ; not ; ; ARGUMENTS: $0 Registry key name ; ; RETURNS: $R0 Registry error code ; $R1 0 - if ref count != 0 ; 1 - if ref count = 0 ; ; REFERENCES: Nothing ; ; MODIFIES: Nothing ; ; ;************************************************************************* [IsRefCountEqualZero] read-syms InitBaseVars OpenRegKey $(!REG_H_LOCAL) "" $($0) $(MAXIMUM_ALLOWED) SoftwareKey Ifstr $(SoftwareKey) == $(KeyNull) Debug-Output "UTILITY.INF: could not open Software base key" set RegistryErrorIndex = UNABLE_ACCESS_CONFIGURE_SERVICE goto IsRefCountEqualZero_Return endif GetRegValue $(SoftwareKey),"RefCount", RefCountInfo set RefCount = *($(RefCountInfo), 4) Ifint $(RefCount) == 0 set RefCountEqualZero = 1 else set RefCountEqualZero = 0 endif CloseRegKey $(SoftwareKey) IsRefCountEqualZero_Return = + return $(RegistryErrorIndex) $(RefCountEqualZero) ;************************************************************************* ; ; SECTION: FindService ; ; PURPOSE: Given a hardware or software component key handle, ; return a key handle to the corresponding Service entry ; ; ARGUMENTS: $0 Registry key handle to primary component ; $1 type of component (adapter, etc.) ; ; RETURNS: $R0 Registry error code ; $R1 Registry key handle for Service area ; $R2 Registry key handle for Parameters subkey ; ; REFERENCES: Nothing ; ; MODIFIES: Nothing ; ; ;************************************************************************* [FindService] read-syms InitBaseVars set FS_KeyThisService = "" set FS_KeyParameters = "" set FS_KeyComponent = $($0) set FS_TypeComponent = $($1) Shell "", BaseServiceKey set FS_KeyServices = $($R1) set RegistryErrorIndex = $($R0) Ifstr(i) $(RegistryErrorIndex) != NO_ERROR goto F_S_Return endif ; ; Obtain the all the values for the component key. ; EnumRegValue $(FS_KeyComponent) FS_ValueList ; BUGBUG: Check RegLastError set FS_SvcName = "" ForListDo $(FS_ValueList) set FS_ValueName = *($($),1) Ifstr(i) $(FS_ValueName) == ServiceName set FS_SvcName = *($($),4) goto F_S_Break1 endif EndForListDo F_S_Break1 = + Ifstr $(FS_SvcName) == $(KeyNull) set RegistryErrorIndex = CANNOT_FIND_COMPONENT_SERVICE goto F_S_Return endif OpenRegKey $(FS_KeyServices) "" $(FS_SvcName) $(MAXIMUM_ALLOWED) FS_KeyThisService Ifstr $(FS_KeyThisService) == $(KeyNull) set RegistryErrorIndex = CANNOT_FIND_COMPONENT_SERVICE goto F_S_Return endif OpenRegKey $(FS_KeyThisService) "" "Parameters" $(MAXIMUM_ALLOWED) FS_KeyParameters Ifstr $(FS_KeyParameters) == $(KeyNull) set RegistryErrorIndex = CANNOT_FIND_COMPONENT_SERVICE goto F_S_Return endif F_S_Return = + Ifstr(i) $(RegistryErrorIndex) != NO_ERROR Ifstr $(FS_KeyParameters) != $(KeyNull) CloseRegKey $(FS_KeyParameters) endif Ifstr $(FS_KeyThisService) != $(KeyNull) CloseRegKey $(FS_KeyThisService) endif endif return $(RegistryErrorIndex), $(FS_KeyThisService) $(FS_KeyParameters) ;************************************************************************* ; end of section FindService ;************************************************************************* ;************************************************************************* ; ; SECTION: GetServiceParameters ; ; PURPOSE: Given a component key and type, return a list of ; all its current parameters ; ; ARGUMENTS: $0 Registry key handle to primary component ; $1 type of component (adapter, etc.) ; ; RETURNS: $R0 Registry error code ; $R1 Registry key handle for Service area ; $R2 Registry key handle for Parameters subkey ; $R3 Value list of all values under Parameters subkey ; ; REFERENCES: Nothing ; ; MODIFIES: Nothing ; ;************************************************************************* [GetServiceParameters] read-syms InitBaseVars set GP_KeyComponent = $($0) set GP_KeyService = "" set GP_KeyParameters = "" set GP_ValueList = {} FindService $(GP_KeyComponent) $($1) Ifstr(i) $(RegistryErrorIndex) != NO_ERROR goto G_P_Return endif set GP_KeyService = $($R1) set GP_KeyParameters = $($R2) EnumRegValue $(GP_KeyParameters) GP_ValueList G_P_Return = + return $(RegistryErrorIndex) $(GP_KeyService) $(GP_KeyParameters) $(GP_ValueList) ;************************************************************************* ; end of section sectionname ;************************************************************************* ;************************************************************************* ; ; SECTION: AddSoftwareComponent ; ; PURPOSE: Adds all the Registry information necessary for ; a new software component. This involves creating ; the SOFTWARE area and the SERVICE area. ; ; ARGUMENTS: $0 name of Manufacturer ; $1 name of Product ; $2 service name to use (no imbedded blanks, etc.) ; $3 Display Name for service ; $4 full path name to the INF file for configuration ; $5 ImagePath ; $6 type of the software, ; see [CreateService] for complete list ; $7 service order group, if any or "" ; $8 dependency **list**, if any or {} ; $9 ObjectName. if "", it will set to "LocalSystem" ; $10 EventMessageFile [optional] ; $11 TypeSupported [optional] ; $12 event log location [optional] ; $13 error control value [optional] ; $14 event log source [optional] ; ; RETURNS: $R0 error code or zero if no error ; $R1 Registry key variable for ; SOFTWARE\Manufacturer\Product\Version key ; $R2 Registry key variable for ; SOFTWARE\...\NetRules ; $R3 Registry key handle for Services key ; $R4 "Parameters" key handle for Services area ; $R5 "Linkage" key handle for Services area ; ; REFERENCES: Nothing ; ; MODIFIES: Nothing ; ;************************************************************************* [AddSoftwareComponent] read-syms InitBaseVars set AS_MfgName = $($0) set AS_ProdName = $($1) set AS_SvcName = $($2) set AS_DisplayName = $($3) set AS_Infname = $($4) set AS_ImagePath = $($5) set AS_ServiceType = $($6) set AS_Group = $($7) set AS_Dependencies = $($8) set AS_ObjectName = $($9) set AS_EventFile = $($10) set AS_TypeSupported = $($11) set AS_EventLocation = $($12) set AS_ErrorCtlValue = $($13) set AS_EventSource = $($14) set AS_KeyVersion = "" set AS_KeyNetRules = "" set AS_KeyService = "" set AS_KeyParameters = "" set AS_KeyLinkage = "" ; ; Create the Service entry for this product ; Shell "", CreateService,$(AS_SvcName),$(AS_DisplayName),$(AS_ImagePath),+ $(AS_ServiceType),$(AS_Group),$(AS_Dependencies),$(AS_ObjectName),+ $(AS_EventFile),$(AS_TypeSupported),+ $(AS_EventLocation),$(AS_ErrorCtlValue),$(AS_EventSource) set RegistryErrorIndex = $($R0) Ifstr(i) $(RegistryErrorIndex) != NO_ERROR goto A_S_Return endif set AS_KeyService = $($R1) set AS_KeyParameters = $($R2) set AS_KeyLinkage = $($R3) ; ; Service area is created. Create the software area and link them ; Shell "", InstallSoftwareProduct, $(AS_MfgName), $(AS_ProdName), $(AS_Infname) set RegistryErrorIndex = $($R0) Ifstr(i) $(RegistryErrorIndex) == NO_ERROR set AS_KeyVersion = $($R1) set AS_KeyNetRules = $($R2) Shell "", LinkToService, $(AS_KeyVersion), $(AS_SvcName), service set RegistryErrorIndex = $($R0) Ifstr(i) $(RegistryErrorIndex) != NO_ERROR goto A_S_Return endif ; ; Add Reference Counter ; GetRegValue $(AS_KeyVersion),"RefCount", RefCountInfo Ifint $(RegLastError) != $(!REG_ERROR_SUCCESS) ; no RefCount variable SetRegValue $(AS_KeyVersion) {RefCount,$(NoTitle),$(!REG_VT_DWORD),0} endif endif A_S_Return = + Ifstr(i) $(RegistryErrorIndex) != NO_ERROR Ifstr $(AS_KeyNetRules) != $(KeyNull) CloseRegKey $(AS_KeyNetRules) endif Ifstr $(AS_KeyParameters) != $(KeyNull) CloseRegKey $(AS_KeyParameters) endif Ifstr $(AS_KeyLinkage) != $(KeyNull) CloseRegKey $(AS_KeyLinkage) endif Ifstr $(AS_KeyVersion) != $(KeyNull) CloseRegKey $(AS_KeyVersion) Set AS_ProdKeyName = $(!NTN_SoftwareBase)"\"$(AS_MfgName)"\"$(AS_ProdName) OpenRegKey $(!REG_H_LOCAL) "" $(AS_ProdKeyName) $(MAXIMUM_ALLOWED) AS_KeyProduct Ifstr(i) $(AS_KeyProduct) != $(KeyNull) DeleteRegKey $(AS_KeyProduct) "CurrentVersion" CloseRegKey $(AS_KeyProduct) Endif Endif Ifstr $(AS_KeyService) != $(KeyNull) Debug-Output "UTILITY.INF: DeleteRegTree Service Key" ;DeleteRegTree $(AS_KeyService) "" endif set AS_KeyVersion = "" set AS_KeyNetRules = "" set AS_KeyService = "" set AS_KeyParameters = "" set AS_KeyLinkage = "" endif return $(RegistryErrorIndex), $(AS_KeyVersion), $(AS_KeyNetRules), $(AS_KeyService),+ $(AS_KeyParameters), $(AS_KeyLinkage) ;************************************************************************* ; end of section AddSoftwareComponent ;************************************************************************* ;************************************************************************* ; ; SECTION: AddHardwareComponent ; ; PURPOSE: Adds all the Registry information necessary for ; a new network adapater card ; ; ARGUMENTS: $0 service name to use (no imbedded blanks, etc.). ; This name will have the numeric value from ; InstallNetCard appended to it for uniqueness. ; $1 INF name for this adapter ; $2 Driver name in software section ; ; ; RETURNS: $R0 Registry error code or zero if no error ; $R1 Registry key variable for HARDWARE\Netcard\(n) ; $R2 Registry key variable for HARDWARE\Netcard\(n)\\NetRules ; $R3 Registry key handle for <service>\Parameters key ; $R4 Adapter number assigned to adapter ; $R5 Service name generated by combining svc name with ; adapter number ; ; REFERENCES: Nothing ; ; MODIFIES: Nothing ; ;************************************************************************* [AddHardwareComponent] read-syms InitBaseVars set AH_SvcName = $($0) set AH_Infname = $($1) set AH_SoftwareName = $($2) set AH_KeyNetcard = "" set AH_KeyNetRules = "" set AH_KeyService = "" set AH_KeyParameters = "" set AH_AdapNum = -1 ; ; Create the HARDWARE\Netcard entry for this adapter ; Shell "", InstallNetcard, $(AH_Infname) set RegistryErrorIndex = $($R0) Ifstr(i) $(RegistryErrorIndex) != NO_ERROR Debug-Output "UTILITY.INF: [AddHardwareComponent] InstallNetcard returned: "$(RegistryErrorIndex) goto A_H_Return endif set AH_KeyNetcard = $($R1) set AH_AdapNum = $($R2) set AH_SvcName = $(AH_SvcName)$(AH_AdapNum) set AH_KeyNetRules = $($R3) ; ; Create the SERVICES entry for this adapter; no binary path, no group, ; no dependencies. ; Shell "", CreateService, $(AH_SvcName), "", "", "adapter","",{} set RegistryErrorIndex = $($R0) Ifstr(i) $(RegistryErrorIndex) != NO_ERROR Debug-Output "UTILITY.INF: CreateService returned "$(RegistryErrorIndex) goto A_H_Return endif CloseRegKey $($R1) set AH_KeyParameters = $($R2) CloseRegKey $($R3) ; ; Link the Netcard entry to the Service created ; Shell "", LinkToService, $(AH_KeyNetcard), $(AH_SvcName) Ifstr(i) $(RegistryErrorIndex) != NO_ERROR Debug-Output "UTILITY.INF: [AddHardwareComponent] LinkToService returned "$(RegistryErrorIndex) goto A_H_Return endif ; ; Add the reference counter in the driver section ; Shell "", IncrementRefCount, $(AH_SoftwareName) Ifstr(i) $(RegistryErrorIndex) != NO_ERROR Debug-Output "UTILITY.INF: [AddHardwareComponent] IncrementRefCount returned "$(RegistryErrorIndex) goto A_H_Return endif A_H_Return = + Ifstr(i) $(RegistryErrorIndex) != NO_ERROR Debug-Output "UTILITY.INF: [AddHardwareComponent] returning error: "$(RegistryErrorIndex) Ifstr(i) $(AH_KeyNetRules) != $(KeyNull) CloseRegKey $(AH_KeyNetRules) Endif Ifstr(i) $(AH_KeyNetcard) != $(KeyNull) ; Let the RemoveHardware handle it ;DeleteRegTree $(AH_KeyNetcard) "" Endif set AH_KeyNetRules = "" set AH_KeyNetcard = "" endif return $(RegistryErrorIndex), $(AH_KeyNetcard), $(AH_KeyNetRules), $(AH_KeyParameters),+ $(AH_AdapNum), $(AH_SvcName) ;************************************************************************* ; end of section AddHardwareComponent ;************************************************************************* ;************************************************************************* ; ; SECTION: MCAFindBus ; ; PURPOSE: Find adpater(s) location ; ; ARGUMENTS: $0 The least signifiance byte of the device ID ; $1 The most signifiance byte of the device ID ; ; ; RETURNS: $R0 Registry error code or zero if no error ; $R1 The list of adapter location ; {{bus0,slot0},{bus1,slot1},{bus2,slot2}...{busk,slotk}} ; ; REFERENCES: Nothing ; ; MODIFIES: Nothing ; ;************************************************************************* [MCAFindBus] read-syms InitBaseVars set RegistryErrorIndex = NO_ERROR set MultifunctionAdapter = "HARDWARE\Description\System\MultifunctionAdapter" set InfoList = {} OpenRegKey $(!REG_H_LOCAL) "" $(MultifunctionAdapter) $(MAXIMUM_ALLOWED) KeyMultiAdapter Ifstr $(KeyMultiAdapter) == $(KeyNull) goto MCAFindBus_return endif EnumRegKey $(KeyMultiAdapter) BusList Debug-Output "Buslist" Debug-Output $(BusList) ForListDo $(BusList) set BusNum = *($($),1) set RegName = $(MultifunctionAdapter)"\"$(BusNum) Debug-Output "BusNum" Debug-Output $(BusNum) OpenRegKey $(!REG_H_LOCAL) "" $(RegName) $(MAXIMUM_ALLOWED) KeyBus ifstr $(KeyBus) != $(KeyNull) GetRegValue $(KeyBus),"Configuration Data",ConfigData ifstr $(ConfigData) != $(KeyNull) set CardInfo = *($(ConfigData), 4 ) ; ; Skip the header and jump to data position 33 ; set Position = 33 set SlotNum = 1 QueryListSize ListSize $(CardInfo) Loop1 =+ ifint $(Position) < $(ListSize) set-add NextByte = $(Position), 1 ifint *($(CardInfo), $(Position)) == $($0) ifint *($(CardInfo), $(NextByte)) == $($1) ; ; Set up the hardware ; Debug-Output $(BusNum) Debug-Output $(SlotNum) set-mul mcaid = $($1), 256 set-add mcaid = $(mcaid), $($0) set InfoList = >($(InfoList),{$(BusNum),$(SlotNum),$(mcaid)}) endif endif set-add Position = $(Position), 6 set-add SlotNum = $(SlotNum), 1 goto Loop1 endif endif CloseRegKey $(KeyBus) endif EndForListDo CloseRegKey $(KeyMultiAdapter) MCAFindBus_return = + return $(RegistryErrorIndex) $(InfoList) ;************************************************************************* ; end of section MCAFindBus ;************************************************************************* ;************************************************************************* ; ; SECTION: EISAFindBus ; ; PURPOSE: Find adpater(s) location ; ; ARGUMENTS: $0 The compress ID of the EISA card ; $1 EISA Compressed ID mask ; ; ; RETURNS: $R0 Registry error code or zero if no error ; $R1 The list of adapter location ; {{bus0,slot0},{bus1,slot1},{bus2,slot2}...{busk,slotk}} ; ; REFERENCES: Nothing ; ; MODIFIES: Nothing ; ;************************************************************************* [EISAFindBus] read-syms InitBaseVars set MaskNum = $($1) ifstr(i) $($1) == "" set MaskNum = 16777215 ; 0xffffff endif set RegistryErrorIndex = NO_ERROR set EISAAdapter = "HARDWARE\Description\System\EISAAdapter" set InfoList = {} OpenRegKey $(!REG_H_LOCAL) "" $(EISAAdapter) $(MAXIMUM_ALLOWED) KeyEISAAdapter Ifstr $(KeyEISAAdapter) == $(KeyNull) goto EISAFindBus_return endif EnumRegKey $(KeyEISAAdapter) BusList Debug-Output "Buslist" Debug-Output $(BusList) ForListDo $(BusList) set BusNum = *($($),1) OpenRegKey $(!REG_H_LOCAL) "" $(EISAAdapter)"\"$(BusNum) $(MAXIMUM_ALLOWED) KeyEISAAdapterBus LibraryProcedure SlotList, $(!LIBHANDLE), GetEisaSlotInformation, $(KeyEISAAdapterBus), "Configuration Data", $($0), $(MaskNum) ifstr(i) $(SlotList) != {} ForListDo $(SlotList) set SlotNum = $($) ifstr(i) $(SlotNum) != "ERROR" Debug-Output $(BusNum) Debug-Output $(SlotNum) set InfoList = >($(InfoList),{$(BusNum),$(SlotNum),$($0)}) endif EndForListDo endif EndForListDo CloseRegKey $(KeyEISAAdapter) EISAFindBus_return = + return $(RegistryErrorIndex) $(InfoList) ;************************************************************************* ; end of section EISAFindBus ;************************************************************************* ;************************************************************************* ; ; SECTION: AddNetworkProvider ; ; PURPOSE: Add a network provider entry into the registry ; ; ARGUMENTS: $0 network provider id. i.e., lanmanredirector ; $1 network provder location. i.e, c:\nt\windows\system\ntlanman.dll ; $2 English name of the provider. i.e, NT Lan Manager ; $3 network provider device name, if different from network ; provider ; ; ; RETURNS: $R0 Registry error code or zero if no error ; ; REFERENCES: Nothing ; ; MODIFIES: Nothing ; ;************************************************************************* [AddNetworkProvider] read-syms InitBaseVars set RegistryErrorIndex = NO_ERROR set ProviderDeviceName = $($3) ifstr(i) $(ProviderDeviceName) == "" set ProviderDeviceName = $($0) endif ; OpenRegKey $(!REG_H_LOCAL) "" $(CurrentControlSet)"\control\NetworkProvider\Active\"$($0) $(MAXIMUM_ALLOWED) ActiveKey ; ifstr(i) $(OrderKey) == $(KeyNull) ; CreateRegKey $(!REG_H_LOCAL) {$(CurrentControlSet)"\control\NetworkProvider\Active\"$($0),$(NoTitle),GenericClass} "" $(MAXIMUM_ALLOWED) "" ActiveKey ; endif OpenRegKey $(!REG_H_LOCAL) "" $(CurrentControlSet)"\control\NetworkProvider\order" $(MAXIMUM_ALLOWED) OrderKey ifstr(i) $(OrderKey) == $(KeyNull) CreateRegKey $(!REG_H_LOCAL) {$(CurrentControlSet)"\control\NetworkProvider\order",$(NoTitle),GenericClass} "" $(MAXIMUM_ALLOWED) "" OrderKey endif GetRegValue $(OrderKey) "ProviderOrder" OrderValue set Order = *($(OrderValue), 4 ) ifstr(i) $(OrderValue) == $(KeyNull) goto AddFirstProvider else-ifstr(i) $(Order) == $(KeyNull) goto AddFirstProvider else goto AddProvider endif AddFirstProvider = + SetRegValue $(OrderKey) {ProviderOrder,$(NoTitle),$(!REG_VT_SZ),$($0)} goto WriteProviderInfo AddProvider = + Split-String $(Order) "," OrderList ifContains(i) $($0) in $(OrderList) ; Enable if we cannot have the same provider ; ;set RegistryErrorIndex = PROVIDER_ALREADY_EXISTED ;goto AddnetworkProvider_return else set Order = $(Order)","$($0) SetRegValue $(OrderKey) {ProviderOrder,$(NoTitle),$(!REG_VT_SZ),$(Order)} endif goto WriteProviderInfo WriteProviderInfo = + CloseRegKey $(OrderKey) OpenRegKey $(!REG_H_LOCAL) "" $(ServicesBaseName)"\"$($0)"\networkprovider" $(MAXIMUM_ALLOWED) ProviderKey Ifstr(i) $(ProviderKey) == $(KeyNull) CreateRegKey $(!REG_H_LOCAL) {$(ServicesBaseName)"\"$($0)"\networkprovider",$(NoTitle),GenericClass} "" $(MAXIMUM_ALLOWED) "" ProviderKey endif set NewValueList = {{Devicename,$(NoTitle),$(!REG_VT_SZ),"\device\"$(ProviderDeviceName)},+ {ProviderPath, $(NoTitle), $(!REG_VT_EXPAND_SZ), $($1)},+ {Name, $(NoTitle), $(!REG_VT_SZ), $($2)}} Shell "" AddValueList $(ProviderKey) $(NewValueList) CloseRegKey $(ProviderKey) AddNetworkProvider_return = + return $(RegistryErrorIndex) ;************************************************************************* ; end of section AddNetworkProvider ;************************************************************************* ;************************************************************************* ; ; SECTION: RemoveNetworkProvider ; ; PURPOSE: Remove network provider entry ; ; ARGUMENTS: $0 provider name ; ; RETURNS: $R0 Registry error code or zero if no error ; ; REFERENCES: Nothing ; ; MODIFIES: Nothing ; ;************************************************************************* [RemoveNetworkProvider] read-syms InitBaseVars set RegistryErrorIndex = NO_ERROR OpenRegKey $(!REG_H_LOCAL) "" $(CurrentControlSet)"\control\NetworkProvider\order" $(MAXIMUM_ALLOWED) OrderKey ifstr(i) $(OrderKey) == $(KeyNull) set RegistryErrorIndex = PROVIDER_ORDER_DOES_NOT_EXIST goto RemoveNetworkProvider_return endif GetRegValue $(OrderKey) "ProviderOrder" OrderValue set Order = *($(OrderValue), 4 ) Split-String $(Order) "," OrderList set NewOrderList = {} set FirstTime = TRUE set Found = FALSE ForListDo $(OrderList) ifstr(i) $($) != "," ifstr(i) $($) != $($0) ifstr(i) $(FirstTime) == TRUE set FirstTime = FALSE set NewOrderList = $($) else set NewOrderList = $(NewOrderList)","$($) endif else set Found = TRUE endif endif EndForListDo ifstr(i) $(Found) == FALSE set RegistryErrorIndex = PROVIDER_ORDER_DOES_NOT_EXIST goto RemoveNetworkProvider_return else ifstr(i) $(NewOrderList) == {} set NewOrderList = "" endif SetRegValue $(OrderKey) {ProviderOrder,$(NoTitle),$(!REG_VT_SZ),$(NewOrderList)} endif OpenRegKey $(!REG_H_LOCAL) "" $(ServicesBaseName) $(MAXIMUM_ALLOWED) ProviderKey ifstr $(ProviderKey) != $(KeyNull) DeleteRegTree $(ProviderKey) $($0) endif RemoveNetworkProvider_return = + return $(RegistryErrorIndex) ;************************************************************************* ; ; SECTION: PrepareToCopy ; ; PURPOSE: Establish the variables required to perform ; "CopyFilesInCopyList" ; ; ARGUMENTS: none ; ; RETURNS: $R0 STATUS_SUCCESSFUL ; ; REFERENCES: nothing ; ; MODIFIES: see [ProgressCopyEng] above for list of variables ; modified/created in parent context. ; ; NOTES: Read NOTES commentary for section [DoAskSource] ; ;************************************************************************* [PrepareToCopy] ; ; Read the progress copy symbols. ; Read-syms ProgressCopy$(!STF_LANGUAGE) Return STATUS_SUCCESSFUL ;************************************************************************* ; end of section PrepareToCopy ;************************************************************************* ;************************************************************************* ; ; SECTION: DoAskSource ; ; PURPOSE: Determine or ask to location of the network binaries ; ; ARGUMENTS: $0 current value of STF_CWDDIR ; $1 current value of STF_SRCDIR ; $2 "YES" if part of NT base product (i.e., not OEM) ; "NO" otherwise. ; ; RETURNS: $R0: STATUS: STATUS_SUCCESSFUL | ; STATUS_USERCANCEL | ; STATUS_FAILED ; $R1 path to sources ; ; REFERENCES: Nothing ; ; MODIFIES: !STF_SRCDIR_USED changed to point to the user's ; keyed location ; !STF_SRCDIR_KEYED ; ; NOTES: The SETUP copy operations read the symbol table the old way; ; this means that they will only utilize local symbols for ; the necessary progress variables. This section/function assumes ; that it's being called by an INF at THE EXACT SAME CONTEXT LEVEL ; AT WHICH THE INSTALL FUNCTION WILL BE INVOKED! It stores the ; values specifically into the parent context so the progress dialog ; function can see them. ; ;************************************************************************* [DoAskSource] Set DAS_CWDDIR = $($0) Set DAS_SRCDIR = $($1) Set DAS_BUILTIN = $($2) Set DAS_Result = STATUS_FAILED ; ; If !STF_SRCDIR_OVERRIDE is not empty, use it instead. ; Ifstr(i) $(!STF_SRCDIR_OVERRIDE) != "" Set DAS_SRCDIR = $(!STF_SRCDIR_OVERRIDE) Set DAS_Result = STATUS_SUCCESSFUL Goto DAS_exit Endif ; ; If this is a built-in component during primary installation, ; use the given source path automatically unless !SFT_SRCDIR_WINNT ; is set. This is for the WINNT case, where Setup's SourcePath lies. ; Ifstr(i) $(DAS_BUILTIN) == YES Ifstr(i) $(!NTN_InstallPhase) == primary Ifstr(i) $(!STF_SRCDIR_WINNT) != "" Set DAS_SRCDIR = $(!STF_SRCDIR_WINNT) Endif Set DAS_Result = STATUS_SUCCESSFUL Goto DAS_exit Endif Endif Debug-Output "UTILITY.INF: [DoAskSource] STF_CWDDIR = "$(DAS_CWDDIR)" STF_SRCDIR = "$(DAS_SRCDIR) ; ; Set default to drive A: if necessary ; Ifstr(i) $(DAS_SRCDIR) == "" Set DAS_SRCDIR = "A:\" Endif ; ; If this is the same SRCDIR as last time, replace it with the string ; actually keyed by the user. This causes UNC names to reappear in their ; original form; the name of the automatically "used" remote drive should ; never be shown. ; Ifstr(i) $(DAS_SRCDIR) == $(!STF_SRCDIR_USED) Set DAS_SRCDIR = $(!STF_SRCDIR_KEYED) Endif ; ; Ask for the setup sources ; Shell "subroutn.inf" DoAskSource $(DAS_SRCDIR) ifint $($ShellCode) != $(!SHELL_CODE_OK) Debug-Output "UTILITY.INF: shelling SUBROUTN.INF [DoAskSource] failed" goto DAS_exit endif Set DAS_Result = $($R0) Ifstr(i) $(DAS_Result) == STATUS_USERCANCEL ; ; BUGBUG: All the INFs should change to handle this correctly. ; Set !p:CommonStatus = STATUS_USERCANCEL goto DAS_exit Endif Set DAS_SRCDIR = $($R1) ; ; Save the actual and converted SRCDIRs ; Set !STF_SRCDIR_USED = $($R1) Set !STF_SRCDIR_KEYED = $($R3) DAS_exit =+ ; ; Read the progress copy symbols. ; Read-syms ProgressCopy$(!STF_LANGUAGE) Return $(DAS_Result) $(DAS_SRCDIR) ;************************************************************************* ; end of section DoAskSource ;************************************************************************* ;************************************************************************* ; ; SECTION: RemoveSoftwareComponent ; ; PURPOSE: Remove the specified software component from the ; registry. It will remove the entry in the software ; section of the registry first. Then it will remove ; the entry in the service section of the registry. ; ; ARGUMENTS: $0 Manufacturer Name ; $1 Product Name ; $2 Boolean flag for zero reference count checking ; ( optional. If it is defined, skip checking ) ; ; ; RETURNS: $R0 Registry error code or zero if no error ; ; REFERENCES: Nothing ; ; MODIFIES: Nothing ; ;************************************************************************* [RemoveSoftwareComponent] Debug-Output "Remove Software Component..." read-syms InitBaseVars set RS_Manufacturer = $($0) set RS_ProductName = $($1) set RS_CheckRefCount = $($2) set RS_VersionNum = "CurrentVersion" set RS_ManufacturerKey = $(!NTN_SoftwareBase)"\"$(RS_Manufacturer) set RS_ProductKey = $(!NTN_SoftwareBase)"\"$(RS_Manufacturer)"\"$(RS_ProductName) set RS_ProductVerKey = $(!NTN_SoftwareBase)"\"$(RS_Manufacturer)"\"$(RS_ProductName)"\"$(RS_VersionNum) set RegistryErrorIndex = NO_ERROR ; ; Check the reference counter first ; ifstr(i) $(RS_CheckRefCount) != FALSE Shell "", IsRefCountEqualZero, $(RS_ProductVerKey) Ifstr(i) $($R0) != NO_ERROR Debug-Output "UTILITY.INF: [RemoveSoftwareComponent] IsRefCountEqualZero returned "$($R0) goto RemoveSoftwareComponent_Return endif Ifint $($R1) == 0 set RegistryErrorIndex = REF_COUNT_NOT_ZERO goto RemoveSoftwareComponent_Return endif endif ; ; Remove the software first ; OpenRegKey $(!REG_H_LOCAL) "" $(RS_ManufacturerKey) $(MAXIMUM_ALLOWED) ProductKey Ifstr $(ProductKey) == $(KeyNull) Debug-Output "UTILITY.INF: could not open Software product key" set RegistryErrorIndex = UNABLE_ACCESS_CONFIGURE_SERVICE goto RemoveSoftwareComponent_Return endif DeleteRegTree $(ProductKey) $(RS_ProductName) CloseRegKey $(ProductKey) ; ; Remove the service ; Shell "" RemoveService, $(RS_ProductName), "YES" Set RS_RemoveError = $($R0) Ifint $(RS_RemoveError) != 0 Debug-Output "UTILITY.INF: RemoveService wrapper failed, error: "$(RS_RemoveResult) Set RegistryErrorIndex = UNABLE_REMOVE_CONFIGURE_SERVICE Goto RemoveSoftwareComponent_Return Endif RemoveSoftwareComponent_Return = + Return $(RegistryErrorIndex) ;************************************************************************* ; end of section RemoveSoftwareComponent ;************************************************************************* ;************************************************************************* ; ; SECTION: RemoveHardwareComponent ; ; PURPOSE: Remove the adapter entry from the registry. First ; remove the adapter entry under Networkcards. Then it ; will remove the service entry under SYSTEM. ; ; ARGUMENTS: $0 Manufacturer Name (i.e., 3Com) ; $1 Product Name (i.e., Elnk) ; $2 Net Card Name (i.e., Elnkii05) ; ; ; RETURNS: $R0 Registry error code or zero if no error ; ; REFERENCES: Nothing ; ; MODIFIES: Nothing ; ;************************************************************************* [RemoveHardwareComponent] Debug-Output "Remove Hardware Component..." read-syms InitBaseVars set RH_Manufacturer = $($0) set RH_ProductName = $($1) set RH_VersionNum = "CurrentVersion" set RH_ProductKey = $(!NTN_SoftwareBase)"\"$($0)"\"$($1)"\"$(RH_VersionNum) set RH_NetCardName = $($2) Split-String $(RH_NetCardName), "\", CardInfo set RH_NetCardNum = *($(CardInfo),11) set RH_NetCardBase = *($(CardInfo),1)*($(CardInfo),2)*($(CardInfo),3)*($(CardInfo),4)*($(CardInfo),5)*($(CardInfo),6)*($(CardInfo),7)*($(CardInfo),8)*($(CardInfo),9) set RegistryErrorIndex = NO_ERROR ; ; decrement the reference counter first ; Shell "", DecrementRefCount, $(RH_ProductKey) Ifstr(i) $(RegistryErrorIndex) != NO_ERROR Debug-Output "UTILITY.INF: [AddHardwareComponent] IncrementRefCount returned "$(RegistryErrorIndex) goto RemoveHardwareComponent_Return endif ; ; Remove the Net card first ; OpenRegKey $(!REG_H_LOCAL) "" $(RH_NetCardBase) $(MAXIMUM_ALLOWED) NetCardKey Ifstr $(NetCardKey) == $(KeyNull) Debug-Output "UTILITY.INF: could not open NetworkCards key" set RegistryErrorIndex = UNABLE_ACCESS_CONFIGURE_SERVICE goto RemoveHardwareComponent_Return endif OpenRegKey $(NetCardKey) "" $(RH_NetCardNum) $(MAXIMUM_ALLOWED) NetCardNumKey Ifstr $(NetCardNumKey) == $(KeyNull) Debug-Output "UTILITY.INF: could not open NetworkCards Number key" set RegistryErrorIndex = UNABLE_ACCESS_CONFIGURE_SERVICE goto RemoveHardwareComponent_Return endif GetRegValue $(NetCardNumKey),"ServiceName", RH_ServiceNameInfo set RH_ServiceName = *($(RH_ServiceNameInfo), 4) ifstr(i) $(RH_ServiceName) == "" ; if we cannot get the service name, make a guess set RH_ServiceName = $(RH_ProductName)$(RH_NetCardNum) endif CloseRegKey $(NetCardNumKey) DeleteRegTree $(NetCardKey) $(RH_NetCardNum) CloseRegKey $(NetCardKey) Shell "", RemoveService, $(RH_ServiceName), "NO" Set RS_RemoveError = $($R0) Ifint $(RS_RemoveError) != 0 Debug-Output "UTILITY.INF: RemoveService wrapper failed, error: "$(RS_RemoveResult) Set RegistryErrorIndex = UNABLE_REMOVE_CONFIGURE_SERVICE Goto RemoveHardwareComponent_Return Endif ; ; If driver reference count is equal to 0, remove it. ; Shell "", IsRefCountEqualZero, $(RH_ProductKey) Ifstr(i) $($R0) != NO_ERROR Debug-Output "UTILITY.INF: [RemoveHardwareComponent] IsRefCountEqualZero returned "$($R0) goto RemoveHardwareComponent_Return endif Ifint $($R1) == 1 Debug-Output "Remove software component..." Shell "" RemoveSoftwareComponent, $(RH_Manufacturer), $(RH_ProductName) set RegistryErrorIndex = $($R0) endif debug-output "remove netbios information..." LibraryProcedure Result, $(!NCPA_HANDLE), RemoveRouteFromNETBIOS, $(RH_ServiceName) RemoveHardwareComponent_Return = + Return $(RegistryErrorIndex) ;************************************************************************* ; end of section RemoveHardwareComponent ;************************************************************************* ;************************************************************************* ; ; SECTION: RemoveService ; ; PURPOSE: Remove a specified service from the registry. It is ; called by RemoveSoftwareComponent and ; RemoveHardwareComponent. Or, if the service is ; created by calling "CreateService", we will ; need to use this subroutine to remove it. ; ; ARGUMENTS: $0 Service Name ; $1 "YES" - we use DeleteService to remove the service ; "NO" - we use DeleteRegTree to remove the ; registry tree ; ; RETURNS: $R0 Registry error code or zero if no error ; ; REFERENCES: Nothing ; ; MODIFIES: Nothing ; ;************************************************************************* [RemoveService] read-syms InitBaseVars Set RS_SvcName = $($0) Set RS_UseDelSvc = $($1) ; Make sure the service key exists first. OpenRegKey $(!REG_H_LOCAL) "" "SYSTEM\CurrentControlSet\Services\"$(RS_SvcName) + $(MAXIMUM_ALLOWED) ServiceKey Ifstr $(ServiceKey) == $(KeyNull) Debug-Output "UTILITY.INF: could not open SYSTEM Service key "$(RS_SvcName) goto RemoveService_Return endif ; Remove the NbProvider value if it exists OpenRegKey $(ServiceKey) "" "Parameters" $(MAXIMUM_ALLOWED) ParameterKey Ifstr $(ParameterKey) != $(KeyNull) DeleteRegValue $(ParameterKey) "NbProvider" CloseRegKey $(ParameterKey) Endif CloseRegKey $(ServiceKey) ifstr(i) $(RS_UseDelSvc) == "YES" ; Remove the service Set FLibraryErrCtl = 1 LibraryProcedure RS_RemoveResult $(!NCPA_HANDLE), CPlSetup, + $(!STF_HWND), DELETESVC, $(RS_SvcName) Set FLibraryErrCtl = 0 ; Check the return code Set RS_RemoveError = *($(RS_RemoveResult),1) Ifint $(RS_RemoveError) != 0 Debug-Output "UTILITY.INF: RemoveService wrapper failed, error: "$(RS_RemoveResult) Set RegistryErrorIndex = UNABLE_REMOVE_CONFIGURE_SERVICE Goto RemoveService_Return Endif else OpenRegKey $(!REG_H_LOCAL) "" "SYSTEM\CurrentControlSet\Services" + $(MAXIMUM_ALLOWED) ServiceKey Ifstr $(ServiceKey) == $(KeyNull) Debug-Output "UTILITY.INF: could not open SYSTEM Service key "$(RS_SvcName) set RegistryErrorIndex = UNABLE_ACCESS_CONFIGURE_SERVICE goto RemoveService_Return endif DeleteRegTree $(ServiceKey) $(RS_SvcName) CloseRegKey $(ServiceKey) endif RemoveService_Return = + return $(RegistryErrorIndex) ;************************************************************************* ; end of section RemoveService ;************************************************************************* ;************************************************************************* ; ; SECTION: IsNetCardAlreadyInstalled ; ; PURPOSE: This subroutine is called by EISA and MCA net card ; setup. Given the bus number and slot number, it will ; return a boolean to idicate whether the card is ; already installed or not. ; ; ARGUMENTS: $0 Bus Number ; $1 Slot Number ; $2 Product Description ; $3 Product Name ; ; RETURNS: $R0 Registry error code or zero if no error ; $R1 "YES" - if the net card already installed ; "NO" - if the net card is not in the registry ; ; REFERENCES: Nothing ; ; MODIFIES: Nothing ; ;************************************************************************* [IsNetCardAlreadyInstalled] read-syms InitBaseVars set AlreadyExisted = "NO" set BusNum = $($0) set SlotNum = $($1) set Description = $($2) set Product = $($3) OpenRegKey $(!REG_H_LOCAL) "" $(NetworkCardKeyName) $(MAXIMUM_ALLOWED) IE_KeyNetcards Ifstr $(IE_KeyNetcards) == $(KeyNull) set RegistryErrorIndex = UNABLE_OPEN_NETWORKCARD_SECTION goto IE_Return endif EnumRegKey $(IE_KeyNetcards) IE_KeyNameList ; ; Compare all the NetworkCards entry and see whether they have the ; same title and productname. ; ForListDo $(IE_KeyNameList) set IE_KeyName = *($($),1) OpenRegKey $(IE_KeyNetcards) "" $(IE_KeyName) $(MAXIMUM_ALLOWED) IE_Card Ifstr $(IE_Card) == $(KeyNull) set RegistryErrorIndex = UNABLE_OPEN_NETWORKCARD_SECTION goto IE_Return endif GetRegValue $(IE_Card),"Description", DescriptionInfo GetRegValue $(IE_Card),"ProductName", ProductNameInfo set CardDescription = *($(DescriptionInfo), 4) set CardProductName = *($(ProductNameInfo), 4) ifstr(i) $(CardDescription) == $(Description) ifstr(i) $(CardProductName) == $(Product) ; ; We find the same product type. make sure that it ; does not have the same bus number and slot number ; GetRegValue $(IE_Card), "ServiceName", ServiceNameInfo set ServiceName = *($(ServiceNameInfo), 4) OpenRegKey $(!REG_H_LOCAL) "" + $(ServicesBaseName)"\"$(ServiceName)"\Parameters" + $(MAXIMUM_ALLOWED) IE_KeyService Ifstr $(IE_KeyService) == $(KeyNull) set RegistryErrorIndex = UNABLE_OPEN_NETWORKCARD_SECTION goto IE_Return endif GetRegValue $(IE_KeyService), "BusNumber", BusInfo GetRegValue $(IE_KeyService), "SlotNumber", SlotInfo set CardBusNum = *($(BusInfo), 4) set CardSlotNum = *($(SlotInfo), 4) ifint $(CardBusNum) == $(BusNum) ifint $(CardSlotNum) == $(SlotNum) ; ; Don't install this card. It is already installed ; set AlreadyExisted = "YES" endif endif endif endif EndForListDo IE_Return = + return $(RegistryErrorIndex) $(AlreadyExisted) ;************************************************************************* ; end of section IsNetCardAlreadyInstalled ;************************************************************************* ;************************************************************************* ; ; SECTION: UpdateWinsockService ; ; PURPOSE: This section creates, if necessary, the WinSock ; service data object. This Registry key is a placeholder ; for all WinSock mapping information. In particular, ; it contains a value called Transports, which contains ; a REG_MULTI_SZ listing the names of all transports ; which export a sockets interface (through a DLL). ; ; Then, we either add or remove the name of this transport ; from the list. ; ; ARGUMENTS: $0 Name of Transport Service supporting WinSock ; $1 TRUE if adding data; FALSE if removing data ; ; RETURNS: $R0 Registry error code or zero if no error ; ; REFERENCES: none ; ; MODIFIES: none ; ; ;************************************************************************* [UpdateWinsockService] read-syms InitBaseVars ; ; Get the base key handle for the services area ; Set UW_NameOfService = $($0) Set UW_Adding = $($1) Set UW_KeyServices = $(KeyNull) Set UW_KeyParameters = $(KeyNull) Shell "", BaseServiceKey Set RegistryErrorIndex = $($R0) Ifstr(i) $(RegistryErrorIndex) != NO_ERROR Set RegistryErrorIndex = UNABLE_ACCESS_CONFIGURE_SERVICE Goto U_W_Return endif Set UW_KeyServices = $($R1) OpenRegKey $(UW_KeyServices) "" "WinSock\Parameters" $(MAXIMUM_ALLOWED) UW_KeyParameters Ifstr(i) $(UW_KeyParameters) == $(KeyNull) Debug-Output "UTILITY.INF: Create WinSock Service" Shell "", CreateService, "WinSock", "", "", "adapter", "", {} Set RegistryErrorIndex = $($R0) Ifstr(i) $(RegistryErrorIndex) != NO_ERROR Debug-Output "UTILITY.INF: CreateService for WinSock returned "$(RegistryErrorIndex) Goto U_W_Return Endif CloseRegKey $($R1) Set UW_KeyParameters = $($R2) CloseRegKey $($R3) Else Debug-Output "UTILITY.INF: Open WinSock Service" Endif Ifstr(i) $(UW_KeyParameters) == $(KeyNull) Set RegistryErrorIndex = UNABLE_ACCESS_CONFIGURE_SERVICE Goto U_W_Return Endif ; ; Get the old REG_MULTI_SZ containing the list of supported transports; ; add the new transport service name to the list or remove it. ; GetRegValue $(UW_KeyParameters) "Transports" UW_TransportsValue Ifint $(RegLastError) == $(!REG_ERROR_SUCCESS) Set UW_TransportsList = *($(UW_TransportsValue), 4) Else Set UW_TransportsList = {} Endif Ifstr(i) $(UW_TransportsList) == "" Set UW_TransportsList = {} Endif ; ; If we're removing the transport, do so; else, append it to the ; end of the list. ; Ifstr(i) $(UW_Adding) == "TRUE" Set UW_TransportsList = >($(UW_TransportsList), $(UW_NameOfService)) Else Set UW_NewList = {} ForListDo $(UW_TransportsList) Ifstr(i) $($) != $(UW_NameOfService) Set UW_NewList = >($(UW_NewList), $($)) Endif EndForListDo Set UW_TransportsList = $(UW_NewList) Endif SetRegValue $(UW_KeyParameters) {Transports, $(NoTitle), $(!REG_VT_MULTI_SZ), $(UW_TransportsList)} Debug-Output "UTILITY.INF: WinSock transport info added/deleted for "$(UW_NameOfService) U_W_Return = + Ifstr $(UW_KeyParameters) != $(KeyNull) CloseRegKey $(UW_KeyParameters) Endif Ifstr $(UW_KeyServices) != $(KeyNull) CloseRegKey $(UW_KeyServices) Endif Return $(RegistryErrorIndex) ;************************************************************************* ; end of section UpdateWinsockService ;************************************************************************* ;************************************************************************* ; ; SECTION: AddWinsockInfo ; ; PURPOSE: This function adds WinSock sockets provider info ; to a transport. ; ; ARGUMENTS: $0 Service name of transport driver ; $1 DLL name for WinSock interface to transport ; $2 integer value for MaxSockAddrLength ; $3 integer value for MinSockAddrLength ; ; RETURNS: $R0 Registry error code or zero if no error ; $R1 Key handle to <service>\Parameters\Winsock ; ; REFERENCES: none ; ; MODIFIES: none ; ; ; NOTES: This function/section calls the NCPA function CPlSetup ; to bind to the DLL in question and add the value of the ; export function WSHWinSockMapping() to the Registry under ; the "<service>\Parameters\Winsock:Mapping" value. To do ; this, the Registry key handle in SETUP form is passed ; to the NCPA export. ; ; ;************************************************************************* [AddWinsockInfo] read-syms InitBaseVars ; ; Get the base key handle for the services area ; Set AW_NameOfService = $($0) Set AW_DLLName = $($1) Set AW_MaxAddrLgt = $($2) Set AW_MinAddrLgt = $($3) Set AW_KeyServices = $(KeyNull) Set AW_KeyParameters = $(KeyNull) Set AW_KeySockets = $(KeyNull) Shell "", AddAFD Set RegistryErrorIndex = $($R0) Ifstr(i) $(RegistryErrorIndex) == NO_ERROR Shell "", BaseServiceKey Set RegistryErrorIndex = $($R0) Endif Ifstr(i) $(RegistryErrorIndex) != NO_ERROR Set RegistryErrorIndex = UNABLE_ACCESS_CONFIGURE_SERVICE Goto A_W_Return endif Set AW_KeyServices = $($R1) OpenRegKey $(AW_KeyServices) "" $(AW_NameOfService)"\Parameters" $(MAXIMUM_ALLOWED) AW_KeyParameters Ifstr(i) $(AW_KeyParameters) == $(KeyNull) Set RegistryErrorIndex = UNABLE_ACCESS_CONFIGURE_SERVICE Goto A_W_Return Endif OpenRegKey $(AW_KeyParameters) "" "Winsock" $(MAXIMUM_ALLOWED) AW_KeySockets Ifstr(i) $(AW_KeySockets) == $(KeyNull) CreateRegKey $(AW_KeyParameters) {Winsock,$(NoTitle),GenericClass} "" $(MAXIMUM_ALLOWED) "" AW_KeySockets Endif Ifstr(i) $(AW_KeySockets) == $(KeyNull) Set RegistryErrorIndex = UNABLE_ACCESS_CONFIGURE_SERVICE Goto A_W_Return Endif Set AW_ValueList = {{HelperDllName ,$(NoTitle),$(!REG_VT_EXPAND_SZ),$(AW_DLLName)},+ {MaxSockAddrLength,$(NoTitle),$(!REG_VT_DWORD),$(AW_MaxAddrLgt)},+ {MinSockAddrLength,$(NoTitle),$(!REG_VT_DWORD),$(AW_MinAddrLgt)}} Shell "", AddValueList, $(AW_KeySockets), $(AW_ValueList) Set RegistryErrorIndex = $($R0) Ifstr(i) $(RegistryErrorIndex) != NO_ERROR Debug-Output "UTILITY.INF: [AddWinsockInfo] Registry error: Add value list" Endif ; ; Extract the WinSock mapping information from the DLL ; Set FLibraryErrCtl = 1 LibraryProcedure AW_MapResult $(!NCPA_HANDLE), CPlSetup, $(!STF_HWND), WINSOCKMAP, $(AW_DLLName), $(AW_KeySockets) Set FLibraryErrCtl = 0 Set AW_MapError = *($(AW_MapResult),1) Ifint $(AW_MapError) != 0 Debug-Output "UTILITY.INF: [AddWinsockInfo] WINSOCKMAP returned "$(AW_MapError) Set RegistryErrorIndex = UNABLE_ACCESS_WINSOCK_MAP_INFO Goto A_W_Return Endif ; ; Add this service to the WinSock transports list. ; Shell "" UpdateWinsockService $(AW_NameOfService) TRUE Set RegistryErrorIndex = $($R0) A_W_Return = + Ifstr $(AW_KeySockets) != $(KeyNull) CloseRegKey $(AW_KeySockets) Endif Ifstr $(AW_KeyParameters) != $(KeyNull) CloseRegKey $(AW_KeyParameters) Endif Ifstr $(AW_KeyServices) != $(KeyNull) CloseRegKey $(AW_KeyServices) Endif Return $(RegistryErrorIndex) ;************************************************************************* ; end of section AddWinsockInfo ;************************************************************************* ;************************************************************************* ; ; SECTION: RemoveWinsockInfo ; ; PURPOSE: This function removes WinSock sockets provider ; information from a transport ; ; ARGUMENTS: $0 Service name of transport driver ; ; RETURNS: $R0 Registry error code or zero if no error ; ; REFERENCES: none ; ; MODIFIES: none ; ; ;************************************************************************* [RemoveWinsockInfo] read-syms InitBaseVars ; ; Get the base key handle for the services area ; Set RW_NameOfService = $($0) Set RW_KeyServices = $(KeyNull) Set RW_KeySockets = $(KeyNull) Shell "", BaseServiceKey Set RegistryErrorIndex = $($R0) Ifstr(i) $(RegistryErrorIndex) != NO_ERROR Set RegistryErrorIndex = UNABLE_ACCESS_CONFIGURE_SERVICE Goto R_W_Return endif Set RW_KeyServices = $($R1) OpenRegKey $(RW_KeyServices) "" $(RW_NameOfService)"\Parameters" $(MAXIMUM_ALLOWED) RW_KeySockets Ifstr(i) $(RW_KeySockets) == $(KeyNull) Set RegistryErrorIndex = NO_ERROR Goto R_W_Return Endif ; ; Delete the \Parameters\Winsock key. Ignore errors, since the service ; is almost certainly being deinstalled. ; DeleteRegTree $(RW_KeySockets) "Winsock" ; ; Remove this service from the WinSock transports list. ; Shell "" UpdateWinsockService $(RW_NameOfService) FALSE Set RegistryErrorIndex = $($R0) R_W_Return = + Ifstr $(RW_KeySockets) != $(KeyNull) CloseRegKey $(RW_KeySockets) Endif Ifstr $(RW_KeyServices) != $(KeyNull) CloseRegKey $(RW_KeyServices) Endif Return $(RegistryErrorIndex) ;************************************************************************* ; end of section RemoveWinsockInfo ;************************************************************************* ;************************************************************************* ; ; SECTION: GetBindingInfo ; ; PURPOSE: This function returns the bindable rules for the given ; manufacturer. ; ; ARGUMENTS: $0 manufacturer name ; ; RETURNS: $R0 Registry error code or zero if no error ; $R1 Bindable rule ; ; REFERENCES: none ; ; MODIFIES: none ; ; ;************************************************************************* [BindingInfo-DEC] BindingInfo = {+ "lanceDriver dec100Adapter non exclusive 100",+ "lanceDriver dec101Adapter non exclusive 100",+ "lanceDriver decetherworksturboAdapter non exclusive 100",+ "lanceDriver dec422Adapter non exclusive 100",+ "lanceDriver decpcAdapter non exclusive 100",+ "lanceDriver decstatAdapter non exclusive 100"+ } [BindingInfo-WD] BindingInfo = {+ "smc8000nDriver smcisaAdapter non exclusive 100",+ "smc8000nDriver wd8003eaAdapter non exclusive 100",+ "smc8000nDriver wd8003waAdapter non exclusive 100",+ "smc8000nDriver wd8013epaAdapter non exclusive 100",+ "smc8000nDriver wd8013wpaAdapter non exclusive 100"+ } [BindingInfo-PROTEON] BindingInfo = {+ "proteonDriver p1990Adapter non exclusive 100",+ "proteonDriver p1390Adapter non exclusive 100"+ } [BindingInfo-IBM] BindingInfo = {"ibmtokDriver ibmtokAdapter non exclusive 100",+ "ibmtokDriver ibmtokmcAdapter non exclusive 100"} [GetBindingInfo] set BindingInfo = {} read-syms BindingInfo-$($0) return "NO_ERROR", $(BindingInfo) ;************************************************************************* ; end of section GetBindingInfo ;************************************************************************* ;************************************************************************* ; ; SECTION: AddStreams ; ; PURPOSE: Add Streams component ; ; ARGUMENTS: nothing ; ; RETURNS: $R0 error code ; ; MODIFIES: Nothing ; ;************************************************************************* [AddStreams] read-syms InitBaseVars OpenRegKey $(!REG_H_LOCAL) "" $(ServicesBaseName)"\streams" $(MAXIMUM_ALLOWED) BS_KeyServices Ifstr $(BS_KeyServices) == $(KeyNull) set OldOption = $(!NTN_InfOption) set !NTN_InfOption = STREAMS Shell "oemnxpst.inf" InstallOption $(!STF_LANGUAGE) "STREAMS" $(!STF_SRCDIR) $(!NtLmAddCopy) $(!NtLmDoCopy) $(!NtLmDoConfig) set !NTN_InfOption = $(OldOption) else CloseRegKey $(BS_KeyServices) Debug-Output "UTILITY.INF: streams already installed" endif ; ; Increase the reference counter ; Shell "", IncrementRefCount, "Software\Microsoft\streams\CurrentVersion" AddStreamsReturn = + return NO_ERROR ;************************************************************************* ; ; SECTION: RemoveStreams ; ; PURPOSE: Remove Streams component ; ; ARGUMENTS: nothing ; ; RETURNS: $R0 error code ; ; MODIFIES: Nothing ; ;************************************************************************* [RemoveStreams] read-syms InitBaseVars OpenRegKey $(!REG_H_LOCAL) "" $(ServicesBaseName)"\streams" $(MAXIMUM_ALLOWED) BS_KeyServices Ifstr $(BS_KeyServices) != $(KeyNull) CloseRegKey $(BS_KeyServices) Shell "", DecrementRefCount, "Software\Microsoft\streams\CurrentVersion" Shell "", IsRefCountEqualZero, "Software\Microsoft\streams\CurrentVersion" Ifstr(i) $($R0) != NO_ERROR Debug-Output "UTILITY.INF: [RemoveSoftwareComponent] IsRefCountEqualZero returned "$($R0) goto RemoveStreamsReturn endif Ifint $($R1) != 1 ; if not zero, remove it next time goto RemoveStreamsReturn endif set OldOption = $(!NTN_InfOption) set OldInstallMode = $(!NTN_InstallMode) set !NTN_InfOption = STREAMS set !NTN_InstallMode = deinstall Shell "oemnxpst.inf" InstallOption $(!STF_LANGUAGE) "STREAMS" $(!STF_SRCDIR) $(!NtLmAddCopy) $(!NtLmDoCopy) $(!NtLmDoConfig) set !NTN_InfOption = $(OldOption) set !NTN_InstallMode = $(OldInstallMode) endif RemoveStreamsReturn = + return NO_ERROR ;************************************************************************* ; ; SECTION: AddAFD ; ; PURPOSE: Add AFD component ; ; ARGUMENTS: nothing ; ; RETURNS: $R0 error code ; ; MODIFIES: Nothing ; ;************************************************************************* [AFDVars] ; ; AFD Software data ; ProductAFDName = "Afd" ProductAFDTitle = "AFD Networking Support Environment" ProductAFDImagePath = "\SystemRoot\System32\drivers\afd.sys" ProductAFDSvcType = "kernelautostart" [AddAFD] read-syms InitBaseVars read-syms AFDVars Set Result = NO_ERROR OpenRegKey $(!REG_H_LOCAL) "" $(ServicesBaseName)"\AFD" $(MAXIMUM_ALLOWED) BS_KeyServices Ifstr $(BS_KeyServices) == $(KeyNull) Shell "", CreateService, $(ProductAFDName),+ $(ProductAFDTitle),+ $(ProductAFDImagePath),+ $(ProductAFDSvcType), "", {"+TDI"}, "",+ "%SystemRoot%\System32\IoLogMsg.dll" Set Result = $($R0) else CloseRegKey $(BS_KeyServices) endif AddAFDReturn = + return $(Result) ;************************************************************************* ; ; SECTION: GetBusTypeNum ; ; PURPOSE: return the Bus Type Number ; ; ARGUMENTS: nothing ; ; RETURNS: $R0 error code ; $R1 bus number ; ; MODIFIES: Nothing ; ;************************************************************************* [GetBusTypeNum] read-syms InitBaseVars set DetCard = $(!p:DetectedCard) ifstr(i) $(DetCard) == "" set DetCard = FALSE endif ifstr(i) $(DetCard) == FALSE ; Assume it is an ISA Bus set BusType = 1 ifstr(i) $(!STF_BUSTYPE) == "ISA" set BusType = 1 else-ifstr(i) $(!STF_BUSTYPE) == "EISA" set BusType = 2 else-ifstr(i) $(!STF_BUSTYPE) == "Jazz-Internal Bus" set BusType = 0 else-ifstr(i) $(!STF_BUSTYPE) == "MCA" set BusType = 3 else-ifstr(i) $(!STF_BUSTYPE) == "TCChannel" set BusType = 4 else debug-output "Utility.inf: Unknown bus type" endif else set BusType = *($(!STF_NCDETINFO),5) endif return NO_ERROR, $(BusType) ;************************************************************************* ; ; SECTION: AddRpcProtocol ; ; PURPOSE: Update the sections of the SOFTWARE\Microsoft\Rpc keys ; to reflect the presenceof a new protocol in the system. ; ; ARGUMENTS: $0 complete RPC protocol string; e.g., "ncacn_ip_tcp" ; $1 name of client DLL (no path); e.g., "rpcltc5.dll" ; $2 name of server DLL (no path); e.g., "rpclts5.dll" ; ; RETURNS: $R0 STATUS_SUCCESSFUL if ok; error otherwise. ; ; REFERENCES: Nothing ; ; MODIFIES: Nothing ; ; ;************************************************************************* [AddRpcProtocol] Set ARP_Protocol = $($0) Set ARP_ClientDll = $($1) Set ARP_ServerDll = $($2) read-syms InitBaseVars Set ARP_KeyRpc = $(KeyNull) Set ARP_KeyRpcServer = $(KeyNull) Set ARP_KeyRpcClient = $(KeyNull) Set RegistryErrorIndex = UNABLE_ACCESS_SOFTWARE_REG OpenRegKey $(!REG_H_LOCAL) "" "SOFTWARE\Microsoft\Rpc" $(MAXIMUM_ALLOWED) ARP_KeyRpc Ifstr(i) $(ARP_KeyRpc) == $(KeyNull) Goto ARP_Return Endif OpenRegKey $(ARP_KeyRpc) "" "ClientProtocols" $(MAXIMUM_ALLOWED) ARP_KeyClient Ifstr(i) $(ARP_KeyClient) == $(KeyNull) Goto ARP_Return Endif OpenRegKey $(ARP_KeyRpc) "" "ServerProtocols" $(MAXIMUM_ALLOWED) ARP_KeyServer Ifstr(i) $(ARP_KeyServer) == $(KeyNull) Goto ARP_Return Endif SetRegValue $(ARP_KeyClient) {$(ARP_Protocol),$(NoTitle),$(!REG_VT_SZ),$(ARP_ClientDll)} Ifint $(RegLastError) != $(!REG_ERROR_SUCCESS) Goto ARP_Return Endif SetRegValue $(ARP_KeyServer) {$(ARP_Protocol),$(NoTitle),$(!REG_VT_SZ),$(ARP_ServerDll)} Ifint $(RegLastError) != $(!REG_ERROR_SUCCESS) Goto ARP_Return Endif Set RegistryErrorIndex = NO_ERROR ARP_Return = + Ifstr(i) $(ARP_KeyServer) != $(KeyNull) CloseRegKey $(ARP_KeyServer) Endif Ifstr(i) $(ARP_KeyClient) != $(KeyNull) CloseRegKey $(ARP_KeyClient) Endif Ifstr(i) $(ARP_KeyRpc) != $(KeyNull) CloseRegKey $(ARP_KeyRpc) Endif Return $(RegistryErrorIndex) ;************************************************************************* ; end of section AddRpcProtocol ;************************************************************************* ;************************************************************************* ; ; SECTION: RemoveRpcProtocol ; ; PURPOSE: Remove information about an installed RPC protocol. ; ; ARGUMENTS: $0 complete RPC protocol string (see [AddRpcProtocol]). ; ; RETURNS: $R0 STATUS_SUCCESSFUL if ok; error otherwise. ; ; REFERENCES: Nothing ; ; MODIFIES: Nothing ; ; ;************************************************************************* [RemoveRpcProtocol] Set RRP_Protocol = $($0) read-syms InitBaseVars Set RRP_KeyRpc = $(KeyNull) Set RRP_KeyRpcServer = $(KeyNull) Set RRP_KeyRpcClient = $(KeyNull) Set RegistryErrorIndex = UNABLE_ACCESS_SOFTWARE_REG OpenRegKey $(!REG_H_LOCAL) "" "SOFTWARE\Microsoft\Rpc" $(MAXIMUM_ALLOWED) RRP_KeyRpc Ifstr(i) $(RRP_KeyRpc) == $(KeyNull) Goto RRP_Return Endif OpenRegKey $(RRP_KeyRpc) "" "ClientProtocols" $(MAXIMUM_ALLOWED) RRP_KeyClient Ifstr(i) $(RRP_KeyClient) == $(KeyNull) Goto RRP_Return Endif OpenRegKey $(RRP_KeyRpc) "" "ServerProtocols" $(MAXIMUM_ALLOWED) RRP_KeyServer Ifstr(i) $(RRP_KeyServer) == $(KeyNull) Goto RRP_Return Endif DeleteRegValue $(RRP_KeyClient) $(RRP_Protocol) Ifint $(RegLastError) != $(!REG_ERROR_SUCCESS) Goto RRP_Return Endif DeleteRegValue $(RRP_KeyServer) $(RRP_Protocol) Ifint $(RegLastError) != $(!REG_ERROR_SUCCESS) Goto RRP_Return Endif Set RegistryErrorIndex = NO_ERROR RRP_Return = + Ifstr(i) $(RRP_KeyServer) != $(KeyNull) CloseRegKey $(RRP_KeyServer) Endif Ifstr(i) $(RRP_KeyClient) != $(KeyNull) CloseRegKey $(RRP_KeyClient) Endif Ifstr(i) $(RRP_KeyRpc) != $(KeyNull) CloseRegKey $(RRP_KeyRpc) Endif Return $(RegistryErrorIndex) ;************************************************************************* ; end of section RemoveRpcProtocl ;************************************************************************* ;************************************************************************* ; ; SECTION: GetInfFileNameFromRegistry ; ; PURPOSE: get the inf file name from the product' NetRules section. ; ; ARGUMENTS: $0 product key handle ; (ie, system\software\Microsoft\Lance\CurrentVersion) ; ; RETURNS: $R0 Inf file name. ; ; REFERENCES: Nothing ; ; MODIFIES: Nothing ; ; ;************************************************************************* [GetInfFileNameFromRegistry] read-syms InitBaseVars set KeyProduct = $($0) set InfName = "" OpenRegKey $(KeyProduct) "" "NetRules" $(!REG_KEY_READ) NetRuleKey Ifstr(i) $(NetRuleKey) != $(KeyNull) GetRegValue $(NetRuleKey) "InfName" NetRuleInfNameList set NetRuleInfName = *($(NetRuleInfNameList), 4) Split-String $(NetRuleInfName), "\", FilenameList QueryListSize ListSize $(FilenameList) set InfName = *($(FilenameList), $(ListSize)) CloseRegKey $(KeyProduct) endif return $(InfName) ;************************************************************************* ; ; SECTION: ToggleBinding ; ; PURPOSE: Take the named binding from the list of "Disabled" ; bindings and merge it with the active bindings. ; ; ARGUMENTS: $0 name of service ; $1 number of binding ; $2 "activate" or "disable" ; ; RETURNS: $R0 NO_ERROR if OK; RegistryError if not. ; ; REFERENCES: None ; ; MODIFIES: None ; ; NOTES: This routine takes either the given inactive binding ; and activates it or the given active binding and ; deactivates it. ; ; ;************************************************************************* [ToggleBinding] Set SvcName = $($0) Set BindNumber = $($1) Set Action = $($2) Set Status = UNABLE_ACCESS_CONFIGURE_SERVICE Set KeySvc = "" Set KeyFrom = "" Set KeyTo = "" read-syms InitBaseVars OpenRegKey $(!REG_H_LOCAL) "" $(ServicesBaseName)"\"$(SvcName) $(MAXIMUM_ALLOWED) KeySvc Ifstr(i) $(KeySvc) == $(KeyNull) Debug-Output "UTILITY.INF: ToggleBinding: service key open FAILED" Goto TB_Return Endif Ifstr(i) $(Action) == activate Set FromKeyName = "Linkage\Disabled" Set ToKeyName = "Linkage" Else Set FromKeyName = "Linkage" Set ToKeyName = "Linkage\Disabled" Endif ; Open the Linkage and Linkage\Disabled subkeys OpenRegKey $(KeySvc) "" $(FromKeyName) $(MAXIMUM_ALLOWED) KeyFrom Ifstr(i) $(KeyFrom) == $(KeyNull) Debug-Output "UTILITY.INF: ToggleBinding: from linkage key open FAILED" Goto TB_Return Endif OpenRegKey $(KeySvc) "" $(ToKeyName) $(MAXIMUM_ALLOWED) KeyTo Ifstr(i) $(KeyTo) == $(KeyNull) Debug-Output "UTILITY.INF: ToggleBinding: to linkage key open FAILED" Goto TB_Return Endif ; Fetch all their values, allowing for complete absence. ; First, from the "From" key Set FromBindList = {} Set FromExportList = {} Set FromRouteList = {} Set ToBindList = {} Set ToExportList = {} Set ToRouteList = {} Set ErrorTotal = 0 Debug-Output "UTILITY.INF: ToggleBinding; fetch all linkage values" GetRegValue $(KeyFrom),"Bind",TempValue Ifint $(RegLastError) == $(!REG_ERROR_SUCCESS) Set FromBindList = *($(TempValue),4) Set-add ErrorTotal = $(ErrorTotal),1 Endif GetRegValue $(KeyFrom),"Export",TempValue Ifint $(RegLastError) == $(!REG_ERROR_SUCCESS) Set FromExportList = *($(TempValue),4) Set-add ErrorTotal = $(ErrorTotal),1 Endif GetRegValue $(KeyFrom),"Route",TempValue Ifint $(RegLastError) == $(!REG_ERROR_SUCCESS) Set FromRouteList = *($(TempValue),4) Set-add ErrorTotal = $(ErrorTotal),1 Endif ; Next, from the "To" key GetRegValue $(KeyTo),"Bind",TempValue Ifint $(RegLastError) == $(!REG_ERROR_SUCCESS) Set ToBindList = *($(TempValue),4) Set-add ErrorTotal = $(ErrorTotal),1 Endif GetRegValue $(KeyTo),"Export",TempValue Ifint $(RegLastError) == $(!REG_ERROR_SUCCESS) Set ToExportList = *($(TempValue),4) Set-add ErrorTotal = $(ErrorTotal),1 Endif GetRegValue $(KeyTo),"Route",TempValue Ifint $(RegLastError) == $(!REG_ERROR_SUCCESS) Set ToRouteList = *($(TempValue),4) Set-add ErrorTotal = $(ErrorTotal),1 Endif ; We have all the data. Do some sanity checking. ; Are the lists the same size? Ifint $(ErrorTotal) != 6 Debug-Output "UTILITY.INF: ToggleBinding; Bind list retreival error, "$(ErrorTotal) Endif Debug-Output "UTILITY.INF: ToggleBinding; sanity check results" QueryListSize sz1 $(FromBindList) QueryListSize sz2 $(FromExportList) QueryListSize sz3 $(FromRouteList) Ifint $(sz1) != $(sz2) Goto TB_Return Endif Ifint $(sz1) != $(sz3) Goto TB_Return Endif QueryListSize sz2 $(ToBindList) QueryListSize sz3 $(ToExportList) QueryListSize sz4 $(ToRouteList) Ifint $(sz2) != $(sz3) Goto TB_Return Endif Ifint $(sz2) != $(sz4) Goto TB_Return Endif ; Does the requested element exist? Debug-Output "UTILITY.INF: ToggleBinding; prepare to move binding" Ifint $(BindNumber) > $(sz1) Debug-Output "UTILITY.INF: ToggleBinding; binding to move was invalid" Set Status = INVALID_DATA_PASSED Endif ; We're ready. Move the data around. ; Extract the element from the "From" lists, append it ; to the "To" lists... Set FromBindItem = *($(FromBindList),$(BindNumber)) Set FromRouteItem = *($(FromRouteList),$(BindNumber)) Set FromExportItem = *($(FromExportList),$(BindNumber)) Set ToBindList = >($(ToBindList),$(FromBindItem)) Set ToRouteList = >($(ToRouteList),$(FromRouteItem)) Set ToExportList = >($(ToExportList),$(FromExportItem)) ; Regenerate the "From" lists by iteration. Set NewBind = {} Set NewExport = {} Set NewRoute = {} Set Index = 0 ForListDo $(FromBindList) Set-add Index = $(Index),1 Ifint $(Index) != $(BindNumber) Set NewBind = >($(NewBind),$($)) Set NewExport = >($(NewExport),*($(FromExportList),$(Index))) Set NewRoute = >($(NewRoute),*($(FromRouteList),$(Index))) Endif EndForListDo ; Replace the old values Set FromBindList = $(NewBind) Set FromExportList = $(NewExport) Set FromRouteList = $(NewRoute) ; Update the registry. Set ErrorTotal = 0 SetRegValue $(KeyFrom) {Bind,$(NoTitle),$(!REG_VT_MULTI_SZ),$(FromBindList)} Ifint $(RegLastError) != $(!REG_ERROR_SUCCESS) Set-add ErrorTotal = $(ErrorTotal),1 Endif SetRegValue $(KeyFrom) {Export,$(NoTitle),$(!REG_VT_MULTI_SZ),$(FromExportList)} Ifint $(RegLastError) != $(!REG_ERROR_SUCCESS) Set-add ErrorTotal = $(ErrorTotal),1 Endif SetRegValue $(KeyFrom) {Route,$(NoTitle),$(!REG_VT_MULTI_SZ),$(FromRouteList)} Ifint $(RegLastError) != $(!REG_ERROR_SUCCESS) Set-add ErrorTotal = $(ErrorTotal),1 Endif SetRegValue $(KeyTo) {Bind,$(NoTitle),$(!REG_VT_MULTI_SZ),$(ToBindList)} Ifint $(RegLastError) != $(!REG_ERROR_SUCCESS) Set-add ErrorTotal = $(ErrorTotal),1 Endif SetRegValue $(KeyTo) {Export,$(NoTitle),$(!REG_VT_MULTI_SZ),$(ToExportList)} Ifint $(RegLastError) != $(!REG_ERROR_SUCCESS) Set-add ErrorTotal = $(ErrorTotal),1 Endif SetRegValue $(KeyTo) {Route,$(NoTitle),$(!REG_VT_MULTI_SZ),$(ToRouteList)} Ifint $(RegLastError) != $(!REG_ERROR_SUCCESS) Set-add ErrorTotal = $(ErrorTotal),1 Endif Debug-Output "UTILITY.INF: ToggleBinding; Registry update error total = "$(ErrorTotal) Ifint $(ErrorTotal) != 0 Set Status = UNABLE_WRITE_REGISTRY Else Set Status = NO_ERROR Endif TB_Return = + Ifstr(i) $(KeyFrom) != $(KeyNull) CloseRegKey $(KeyFrom) Endif Ifstr(i) $(KeyTo) != $(KeyNull) CloseRegKey $(KeyTo) Endif Ifstr(i) $(KeySvc) != $(KeyNull) CloseRegKey $(KeySvc) Endif Return $(Status) ;************************************************************************* ; end of section ToggleBinding ;************************************************************************* ;------------------------------------------------------------------------- ; ; ROUTINE: SortListIndex ; ; DESCRIPTION: Sort a list into sequence, returning an "index" list, which ; indicates the sort position of each of the original list ; elements. ; ; INPUTS: $0: List to be sorted ; $1: TRUE for ascending sort (FALSE otherwise) ; $2: TRUE for case-insensitive sort (FALSE otherwise) ; ; OUTPUTS: $R0: Index list ; ; NOTES: Lists of displayable numeric values will automatically ; be sorted numerically if they are all decimal or hex ; and the sort is case-insensitive (param $2 FALSE). ; ;---------------------------------------------------------------------------- [SortListIndex] Set List = $($0) Set BoolAscend = $($1) Set BoolCaseSens = $($2) LibraryProcedure IndexList, $(!LIBHANDLE), GenerateSortedIndexList, $(List), $(BoolAscend), $(BoolCaseSens) Return $(IndexList) ;------------------------------------------------------------------------- ; ; ROUTINE: SortByIndex ; ; DESCRIPTION: Sort a list into the sequence given by an "index list". ; ; INPUTS: $0: List to be sorted ; $1: Index list ; ; OUTPUTS: $R0: Index list ; ;---------------------------------------------------------------------------- [SortByIndex] Set List = $($0) Set IndexList = $($1) Set NewList = {} ForListDo $(IndexList) Set Index = $($) Set Item = *($(List),$(Index)) Set NewList = >($(NewList),$(Item)) EndForListDo Return $(NewList) ;------------------------------------------------------------------------- ; ; ROUTINE: SortList ; ; DESCRIPTION: Sort a list into sequence, returning a sorted list. ; ; INPUTS: $0: List to be sorted ; $1: TRUE for ascending sort (FALSE otherwise) ; $2: TRUE for case-sensitive sort (FALSE for case-ins) ; ; OUTPUTS: $R0: Sorted list ; ; NOTES: Lists of displayable numeric values will automatically ; be sorted numerically if they are all decimal or hex ; and the sort is case-insensitive (param $2 FALSE). ; ;---------------------------------------------------------------------------- [SortList] Set List = $($0) Shell "" SortListIndex $(List) $($1) $($2) Set IndexList = $($R0) Shell "" SortByIndex $(List) $(IndexList) Set ResultList = $($R0) return $(ResultList) ;************************************************************************* ; end of file UTILITY.INF ;************************************************************************* ;************************************************************************* ; ; SECTION: UpdateDetectionDllNames ; ; PURPOSE: Search for files of the name ???NCDET.DLL. ; Update the Registry accordingly. ; ; ; ARGUMENTS: None ; ; RETURNS: $R0 STATUS_SUCCESSFUL if Registry updated ; STATUS_USERCANCEL if no update was required ; STATUS_FAILED if failed ; ; NOTES: This routine searches for all DLLs named ???NCDET.DLL ; and adds them to a list containing the name of the ; "standard" detection DLL, MSNCDET.DLL. ; ; Netcard detection is stopped and restarted if the ; Registry is updated. ; ; REFERENCES: ; ; MODIFIES: ; ;************************************************************************* [DetectionDllFiles] DetectionDllsFound = {} ? $(!LIBHANDLE) FindFileInstances $(!STF_WINDOWSSYSPATH)"\???ncdet.dll" [UpdateDetectionDllNames] Set Status = STATUS_FAILED read-syms InitBaseVars Detect DetectionDllFiles Set DllValueName = "NetcardDlls" OpenRegKey $(!REG_H_LOCAL) "" "System\Setup" $(MAXIMUM_ALLOWED) KeySetup Ifstr(i) $(KeySetup) == $(KeyNull) Debug-Output "UTILITY.INF: [UpdateDetectionDllNames] cant open System\Setup key" Goto UDDN_Return Endif ; Prefix the list with MSNCDET.DLL Set NewDllList = {"MSNCDET.DLL"} ForListDo $(DetectionDllsFound) Set NewDllList = >($(NewDllList),$($)) EndForListDo ; Get the old list Set UpdateRequired = 1 GetRegValue $(KeySetup) $(DllValueName) DllNamesValue Ifint $(RegLastError) == $(!REG_ERROR_SUCCESS) Set DllNames = *($(DllNamesValue),4) Debug-Output "UTILITY.INF: [UpdateDetectionDllNames] DllNames = "$(DllNames) Set UpdateRequired = 0 ; See if all the names are already present ForListDo $(NewDllList) Set DllIndex = ~($(DllNames),$($)) Ifint $(DllIndex) == 0 Set UpdateRequired = 1 Endif EndForListDo Endif Set Status = STATUS_SUCCESSFUL Ifint $(UpdateRequired) == 1 Debug-Output "UTILITY.INF: [UpdateDetectionDllNames] new DLL names = "$(NewDllList) Set ValueInfo = {$(DllValueName), $(NoTitle), $(!REG_VT_MULTI_SZ), $(NewDllList)} SetRegValue $(KeySetup) $(ValueInfo) Ifint $(RegLastError) != $(!REG_ERROR_SUCCESS) Set Status = STATUS_FAILED Else Shell "NCPARAM.INF" Param_ControlDetection DTEND Shell "NCPARAM.INF" Param_ControlDetection DTSTART Endif Else Set Status = STATUS_USERCANCEL Endif CloseRegKey $(KeySetup) UDDN_Return = + Return $(Status) ;************************************************************************* ; end of section UpdateDetectionDllNames ;************************************************************************* ;************************************************************************* ; ; SECTION: CheckIfCopyNecessary ; ; PURPOSE: Check a set of files and see if all are present. Used ; to offer the user a "current files" versus "new files" ; choice. ; ; ARGUMENTS: $0 list of path names corresponding to names ; given in next parameter ; $1 nested list of file names; see NOTES below ; ; RETURNS: $R0 STATUS_SUCCESSFUL or ; STATUS_FAILED ; ; REFERENCES: nothing ; ; MODIFIES: nothing ; ; NOTES: Typical values (taken from OEMNSVWK.INF) might be: ; ; $0: {$(!STF_WINDOWSSYSPATH),$(!STF_WINDOWSSYSPATH)\drivers} ; $1: {{"BOWSVC.DLL","WKSSVC.DLL","LMREPL.EXE"},+ ; {"SMBTRSUP.SYS","BROWSER.SYS","RDR.SYS"}} ; ; ;************************************************************************* [CheckIfCopyNecessary] Set Status = STATUS_SUCCESSFUL Set PathList = $($0) Set NamesList = $($1) Set Index = 0 Set Found = 1 ForListDo $(PathList) Set ThisPath = $($) Set-add Index = Index,1 Set NameList = *($(NamesList),$(Index)) ForListDo $(NameList) Set FileToCheck = $(ThisPath)\$($) LibraryProcedure FilePresent,$(!LIBHANDLE), CheckFileExistance $(FileToCheck) Ifstr(i) $(FilePresent) != "YES" Set Found = 0 Endif EndForListDo EndForListDo Ifint $(Found) != 1 Set Status = STATUS_FAILED Endif Return $(Status) ;************************************************************************* ; end of section CheckIfCopyNecessary ;************************************************************************* ;************************************************************************* ; ; SECTION: CetBusTypeDialog ; ; PURPOSE: Call the GetBusDialog function in ncpa.cpl and ; get the location of the network card. ; ; ARGUMENTS: $0 Card name description ; $1 Default bus type ; $2 Default bus number ; ; RETURNS: $R0 NO_ERROR ; $R1 BusType ; $R2 BusNumber ; ; REFERENCES: nothing ; ; MODIFIES: nothing ; ;************************************************************************* [GetBusTypeDialog] set CardName = $($0) set BusInterfaceType = $($1) set BusNumber = $($2) ifstr(i) $(BusInterfaceType) == "" set BusInterfaceType = 1 ; ISA endif ifstr(i) $(BusNumber) == "" set BusNumber = 0 ; Bus 0 endif set FLibraryErrCtl = 1 LibraryProcedure BusInfo $(!NCPA_HANDLE), GetBusTypeDialog, $(!STF_HWND), $(CardName), $(BusInterfaceType), $(BusNumber) set FLibraryErrCtl = 0 ; return values ifint *($(BusInfo),1) == 0 set ReturnValue = NO_ERROR set BusInterfaceType = *($(BusInfo),2) set BusNumber = *($(BusInfo),3) else set ReturnValue = ERROR endif Return $(ReturnValue), $(BusInterfaceType), $(BusNumber) ;************************************************************************* ; end of section GetBusTypeDialog ;*************************************************************************

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.