|
|
;====================================================================; Copyright (c) 1995, Microsoft Corp.;; File: OEMNSVBR.INF;; History:; t-abolag 05/15/95 Created.;; Installation script for the BOOTP Relay Agent service;====================================================================
;-----------------------------------------------------------------------; OptionType; Types specific to networking:;; NetAdapter, a netcard / adapter combination or just a netcard; NetDriver, just a netcard driver; NetTransport, a complete NDIS-compliant TDI transport stack; NetService, an NT networking service; NetWork, a complete network ensemble.; NetProvider a complete network which supports NT MPR protocol;-----------------------------------------------------------------------[Identification] OptionType = NetService
;-----------------------------------------------------------------------; Options; This section lists the OEM Option key names. These keys are locale-; independent and used to represent the option in a locale-independent; manner.;-----------------------------------------------------------------------[Options] RelayAgent
;-----------------------------------------------------------------------; CONSTANTS FOR USING DIALOGS;-----------------------------------------------------------------------[FileConstants] Manufacturer = "Microsoft" ProductMajorVersion = "4" ProductMinorVersion = "0" ProductVersion = $(ProductMajorVersion)"."$(ProductMinorVersion) ProductOpSupport = 132 ; 0x0084 ; Display,Removable,NOT Properties,Not Updatable ProductSoftwareName = "RelayAgent" ProductSoftwareImagePath = "%SystemRoot%\System32\router.exe" ProductEventFile = "%SystemRoot%\System32\relay.dll" ProductSoftwareType = "autoserviceshare" ProductKeyName = $(!NTN_SoftwareBase)"\"$(Manufacturer)"\CurrentVersion" ProductRegRoot = $(!NTN_ServiceBase)"\"$(ProductSoftwareName) ProductRegParams = $(ProductRegRoot)"\Parameters" TCPIPRegRoot = $(!NTN_ServiceBase)"\Tcpip" NetRuleType = "relayAgent relayAgentClass" NetRuleUse = "service yes yes" NetRuleBindable = {"relayAgentClass ndisDriver non non 100"} NetRuleBindForm = """RelayAgent"" yes yes simple" NetRuleClass = {"relayAgentClass basic"} SoftwareType = "service"
[GeneralConstants] File_UTILITY_INF = "UTILITY.INF" File_SUBROUTN_INF = "SUBROUTN.INF" Exit_Code = 0 ExitCodeOK = 0 ExitCodeCancel = 1 ExitCodeFatal = 2
KeyNull = "" MAXIMUM_ALLOWED = 33554432 SERVICE_NO_CHANGE = 4294967295 RegistryErrorIndex = NO_ERROR KeyProduct = "" KeyParameters = ""
TRUE = 1 FALSE = 0 NoTitle = 0
to = "" from = "" ExitState = "Active" OldVersionExisted = $(FALSE)
[date] Now = {} ? $(!LIBHANDLE) GetSystemDate
[Identify] read-syms Identification set Status = STATUS_SUCCESSFUL set Identifier = $(OptionType) set Media = #("Source Media Descriptions", 1, 1) Return $(Status) $(Identifier) $(Media)
[ReturnOptions] set Status = STATUS_FAILED set OptionList = {} set OptionTextList = {} set LanguageList = ^(LanguagesSupported, 1) ifcontains(i) $($0) in $(LanguageList) goto returnOptions else set Status = STATUS_NOLANGUAGE goto finish_ReturnOptions endif
returnOptions = + set OptionList = ^(Options, 1) set OptionTextList = ^(OptionsText$($0), 1) set Status = STATUS_SUCCESSFUL
finish_ReturnOptions = + Return $(Status) $(OptionList) $(OptionTextList)
[InstallOption] set Status = STATUS_FAILED set Option = $($1) set SrcDir = $($2) set AddCopy = $($3) set DoCopy = $($4) set DoConfig = $($5)
set LanguageList = ^(LanguagesSupported, 1) ifcontains(i) $($0) NOT-IN $(LanguageList) return STATUS_NOLANGUAGE endif
StartWait read-syms GeneralConstants read-syms FileConstants read-syms FileConstants$(!STF_LANGUAGE) read-syms DialogConstants$(!STF_LANGUAGE) ifstr(i) $(!NTN_Origination) == "NCPA" set continue = $(OK) endif detect date set to = Begin set from = Begin set ExitStatus = STATUS_SUCCESSFUL EndWait
Begin = + ifstr(i) $(!NTN_InstallMode) == deinstall set startLabel = Deinstall else-ifstr(i) $(!NTN_InstallMode) == update set startLabel = Update else-ifstr(i) $(!NTN_InstallMode) == bind set startLabel = ScriptExit else-ifstr(i) $(!NTN_InstallMode) == configure ;set startLabel = Configure Debug-Output "Cannot configure the software." Shell $(File_UTILITY_INF), RegistryErrorString, + CANNOT_CONFIGURE_SOFTWARE ifint $($ShellCode) != $(!SHELL_CODE_OK) Debug-Output "ShellCode error: cannot get an error string." goto ShellErrorExit endif set ErrorMsg = $($R0) set Severity = STATUS set ExitStatus = STATUS_USERCANCEL Shell $(File_SUBROUTN_INF) SetupMessage, $(!STF_LANGUAGE), + $(Severity), $(ErrorMsg) goto ScriptExit else set startLabel = Install endif set from = $(ScriptExit) set to = $(ScriptExit)
goto $(startLabel)
;-----------------------------; Entry point for installation;----------------------------- Install = + ; make certain TCP/IP is installed OpenRegKey $(!REG_H_LOCAL) "" $(TCPIPRegRoot) $(MAXIMUM_ALLOWED) TCPIPRootKey ifstr $(TCPIPRootKey) == $(KeyNull) set Message = ErrorTCPIPNotInstalled goto MessageExit endif CloseRegKey $(TCPIPRegRoot)
; check to see if a previous version is installed OpenRegKey $(!REG_H_LOCAL) "" $(ProductKeyName) $(MAXIMUM_ALLOWED) ProductKey ifstr $(ProductKey) != $(KeyNull) CloseRegKey $(ProductKey) Shell $(File_UTILITY_INF), VerExistedDlg, + $(ProductSoftwareTitle), $(ProductVersion) goto ScriptExit endif
; Save Unattended flag for oemnxptc.inf (TCP/IP). This inf checks the config of DHCP relay; and presents a message box to the user if the config is wrong.; NOTE: The !STF_UNATTEND flag is not remembered during a binding review. This is why it's saved
OpenRegKey $(!REG_H_LOCAL) "" "System\Setup" $(MAXIMUM_ALLOWED) KeySetup ifstr(i) $(KeySetup) != "" DeleteRegTree $(KeySetup) "DHCPRelay" CreateRegKey $(KeySetup) {"DHCPRelay",$(NoTitle),GenericClass} "" $(MAXIMUM_ALLOWED) "" KeyDHCP ifstr(i) $(KeyDHCP) != "" SetRegValue $(KeyDHCP) {"Unattended",$(NoTitle),$(!REG_VT_SZ),$(!STF_UNATTENDED)} CloseRegKey $(KeyDHCP) endif endif
Ifstr(i) $(!NTN_InstallMode) == "install" Ifstr(i) $(DoCopy) == "YES" Shell $(File_UTILITY_INF), DoAskSource, $(!STF_CWDDIR), $(SrcDir) YES Ifint $($ShellCode) != $(!SHELL_CODE_OK) Goto ShellErrorExit Else-Ifstr(i) $($R0) == STATUS_FAILED Shell $(File_UTILITY_INF) RegistryErrorString "ASK_SOURCE_FAIL" ifint $($ShellCode) != $(!SHELL_CODE_OK) goto ShellErrorExit endif set Error = $($R0) Goto ScriptExit Else-Ifstr(i) $($R0) == STATUS_USERCANCEL; Set ExitStatus so NCPA won't change cancel to close set ExitStatus = STATUS_USERCANCEL Goto ScriptExit Endif Set SrcDir = $($R1) Endif install "Install-Option" ifstr(i) $(STF_INSTALL_OUTCOME) != STF_SUCCESS Shell $(UtilityInf) RegistryErrorString "UNABLE_COPY_FILE" ifint $($ShellCode) != $(!SHELL_CODE_OK) set ExitStatus = STATUS_USERCANCEL goto ScriptExit endif set Error = $($R0) goto ScriptExit endif endif
StartWait ; update the software registry key Shell $(File_UTILITY_INF), AddSoftwareComponent, $(Manufacturer), + $(ProductSoftwareName), $(ProductSoftwareName), + $(ProductSoftwareDisplayName), $(STF_CONTEXTINFNAME), + $(ProductSoftwareImagePath), $(ProductSoftwareType), "", + { "Tcpip", "EventLog" }, "", $(ProductEventFile) set SoftwareProductKey = $($R1) set SoftwareNetRuleKey = $($R2) set SoftwareServiceKey = $($R3) set ParamsKey = $($R4) set SoftLinkageKey = $($R5) ifint $($ShellCode) != $(!SHELL_CODE_OK) EndWait Debug-Output "ShellCode error: AddSoftwareComponent" goto ShellErrorExit endif
set RegistryErrorIndex = $($R0) ifstr(i) $(RegistryErrorIndex) != NO_ERROR EndWait Debug-Output "Registry error: AddSoftwareComponent" CloseRegKey $(SoftwareProductKey) CloseRegKey $(SoftwareNetRuleKey) CloseRegKey $(SoftwareServiceKey) CloseRegKey $(KeyParameters) CloseRegKey $(SoftLinkageKey) goto RegistryErrorExit endif
; fill in the RelayAgent\Parameters key set HopsThreshold = 4 set SecsThreshold = 4 set LogMessages = 0 set EnableTracing = 0 set DHCPServers = "" set NewValueList = {{HopsThreshold,$(NoTitle),$(!REG_VT_DWORD),$(HopsThreshold)},+ {SecsThreshold,$(NoTitle),$(!REG_VT_DWORD),$(SecsThreshold)},+ {LogMessages,$(NoTitle),$(!REG_VT_DWORD),$(LogMessages)},+ {EnableTracing,$(NoTitle),$(!REG_VT_DWORD),$(EnableTracing)},+ {DHCPServers,$(NoTitle),$(!REG_VT_MULTI_SZ),$(DHCPServers)}} Shell $(File_UTILITY_INF), AddValueList, $(ParamsKey), $(NewValueList) ifint $($ShellCode) != $(!SHELL_CODE_OK) EndWait Debug-Output "ShellCode error." goto ShellErrorExit endif set RegistryErrorIndex = $($R0) ifstr(i) $(RegistryErrorIndex) != NO_ERROR EndWait Debug-Output "Registry error: AddValueList" CloseRegKey $(SoftwareProductKey) CloseRegKey $(SoftwareNetRuleKey) CloseRegKey $(SoftwareServiceKey) CloseRegKey $(SoftLinkageKey) CloseRegKey $(KeyParameters) goto RegistryErrorExit endif
; fill in the Software\CurrentVersion key set NewValueList = {{SoftwareType,$(NoTitle),$(!REG_VT_SZ),$(SoftwareType)},+ {MajorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMajorVersion)},+ {MinorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMinorVersion)},+ {Title,$(NoTitle),$(!REG_VT_SZ),$(ProductSoftwareTitle)},+ {Description,$(NoTitle),$(!REG_VT_SZ),$(ProductSoftwareDescription)},+ {ServiceName,$(NoTitle),$(!REG_VT_SZ),$(ProductSoftwareName)},+ {OperationsSupport,$(NoTitle),$(!REG_VT_DWORD),$(ProductOpSupport)}, + {InstallDate,$(NoTitle),$(!REG_VT_DWORD),*($(Now),1)}} Shell $(File_UTILITY_INF), AddValueList, $(SoftwareProductKey), $(NewValueList) ifint $($ShellCode) != $(!SHELL_CODE_OK) EndWait Debug-Output "ShellCode error." goto ShellErrorExit endif set RegistryErrorIndex = $($R0) ifstr(i) $(RegistryErrorIndex) != NO_ERROR EndWait Debug-Output "Registry error: AddValueList." CloseRegKey $(SoftwareProductKey) CloseRegKey $(SoftwareNetRuleKey) CloseRegKey $(SoftwareServiceKey) CloseRegKey $(SoftLinkageKey) CloseRegKey $(KeyParameters) goto RegistryErrorExit endif
; fill in the Software\CurrentVersion\NetRules key set NewValueList = + {{InfOption,$(NoTitle),$(!REG_VT_SZ),RelayAgent},+ {class,$(NoTitle),$(!REG_VT_MULTI_SZ),$(NetRuleClass)},+ {type,$(NoTitle),$(!REG_VT_SZ),$(NetRuleType)},+ {use,$(NoTitle),$(!REG_VT_SZ),$(NetRuleUse)},+ {bindform,$(NoTitle),$(!REG_VT_SZ),$(NetRuleBindForm)},+ {bindable,$(NoTitle),$(!REG_VT_MULTI_SZ),$(NetRuleBindable)}} Shell $(File_UTILITY_INF), AddValueList, $(SoftwareNetRuleKey), $(NewValueList) ifint $($ShellCode) != $(!SHELL_CODE_OK) EndWait Debug-Output "ShellCode error." goto ShellErrorExit endif set RegistryErrorIndex = $($R0) ifstr(i) $(RegistryErrorIndex) != NO_ERROR EndWait Debug-Output "Registry error: AddValueList." CloseRegKey $(SoftwareProductKey) CloseRegKey $(SoftwareNetRuleKey) CloseRegKey $(SoftwareServiceKey) CloseRegKey $(KeyParameters) CloseRegKey $(SoftLinkageKey) goto RegistryErrorExit endif CloseRegKey $(SoftwareProductKey) CloseRegKey $(SoftwareNetRuleKey) CloseRegKey $(SoftLinkageKey) CloseRegKey $(KeyParameters) CloseRegKey $(SoftwareServiceKey)
EndWait
; the tcp configuration will either be up or will get invoke when ncpa is ; closed, it can get configured at that time.
set ExitStatus = STATUS_SUCCESSFUL goto ScriptExit
;---------------------------------; Entry point for deinstallation;--------------------------------- Deinstall = + Shell $(File_UTILITY_INF), RemoveSoftwareComponent, $(Manufacturer), + $(ProductSoftwareName) ifint $($ShellCode) != $(!SHELL_CODE_OK) Debug-Output "ShellCode error: RemoveSoftwareComponent" goto ShellErrorExit endif set RegistryErrorIndex = $($R0) ifstr(i) $(RegistryErrorIndex) != NO_ERROR goto RegistryErrorExit endif ; don't want to reboot, but no way around it set ExitStatus = STATUS_SUCCESSFUL goto ScriptExit
;---------------------------; Entry point for upgrades;--------------------------- Update = + OpenRegKey $(!REG_H_LOCAL) "" "SOFTWARE\Microsoft\RelayAgent\CurrentVersion" $(MAXIMUM_ALLOWED) ProductKey ifstr $(ProductKey) != "" SetRegValue $(ProductKey) {Description,$(NoTitle),$(!REG_VT_SZ), + $(ProductSoftwareDescription)}
SetRegValue $(ProductKey) {Title,$(NoTitle),$(!REG_VT_SZ), + $(ProductSoftwareTitle)}
OpenRegKey $(!REG_H_LOCAL) "" "SOFTWARE\Microsoft\Ncpa\InfOptions" $(MAXIMUM_ALLOWED) NcpaKey ifstr(i) $(NcpaKey) != "" DeleteRegTree $(NcpaKey) "oemnsvbr.inf" endif CloseRegKey $(NcpaKey)
OpenRegKey $(!REG_H_LOCAL) "" $(ProductRegRoot) $(MAXIMUM_ALLOWED) svcKey ifstr(i) $(svcKey) != $(KeyNull) SetRegValue $(svcKey) {DisplayName,$(NoTitle),$(!REG_VT_SZ), + $(ProductSoftwareDisplayName)} endif CloseRegKey $(svcKey) install "Install-Update" ifstr(i) $(STF_INSTALL_OUTCOME) != STF_SUCCESS EndWait Shell $(File_UTILITY_INF) RegistryErrorString "UNABLE_COPY_FILE" set Message = $($R0) goto MessageExit endif SetRegValue $(ProductKey) {MajorVersion,$(NoTitle),$(!REG_VT_SZ), + $(ProductMajorVersion)} SetRegValue $(ProductKey) {MinorVersion,$(NoTitle),$(!REG_VT_SZ), + $(ProductMinorVersion)} ; ; Update op support ; SetRegValue $(KeyProduct) {OperationsSupport,$(NoTitle),$(!REG_VT_DWORD),$(ProductOpSupport)} LibraryProcedure Result, $(!LIBHANDLE), SetupChangeServiceConfig, + $(ProductSoftwareName), $(SERVICE_NO_CHANGE), + $(SERVICE_NO_CHANGE), $(SERVICE_NO_CHANGE), + $(ProductSoftwareImagePath), "", "", "", "", "" CloseRegKey $(ProductKey)
; don't want to reboot, but no way to avoid set ExitStatus = STATUS_SUCCESSFUL endif goto ScriptExit
;--------------------------------; Entry point for configuration;-------------------------------- Configure = + goto ScriptExit
;--------------------------------; Exit point from a shell error;-------------------------------- ShellErrorExit = + set DlgType = "MessageBox" set STF_MB_TITLE = $(ShellCodeErrorTitle) set STF_MB_TEXT = $(ShellCodeErrorText) set STF_MB_TYPE = 1 set STF_MB_ICON = 3 set STF_MB_DEF = 1 ui start "Error Message" set ExitStatus = STATUS_FAILED goto ScriptExit
;-----------------------------------; Exit point from a registry error;----------------------------------- RegistryErrorExit = + Shell $(File_UTILITY_INF) RegistryErrorString $(RegistryErrorIndex) set Message = $($R0) set ExitStatus = STATUS_FAILED goto MessageExit
;----------------------------; Exit point with a message;---------------------------- MessageExit = + Shell $(File_SUBROUTN_INF) SetupMessage, $(!STF_LANGUAGE), "", $(Message) goto ScriptExit
;---------------------; Exit point for all;--------------------- ScriptExit = + return $(ExitStatus)
[GetFilesSize] set FileSizeList = ^(Files-RelayAgent, 3) set TotalSize = 0 ForListDo $(FileSizeList) Split-String $($) "=" SplitString set Size = *($(SplitString),3) set-add TotalSize = $(TotalSize) $(Size) EndForListDo set-div SizeInKB = $(TotalSize) 1024 return $(SizeInKB)
[Install-Option] set STF_VITAL = "" ifstr(i) $(AddCopy) == "YES" AddSectionFilesToCopyList Files-RelayAgent $(SrcDir) $(!STF_WINDOWSSYSPATH) endif ifstr(i) $(DoCopy) == "YES" set !STF_NCPA_FLUSH_COPYLIST = TRUE CopyFilesInCopyList endif ifstr(i) $(DoConfig) == "YES" endif exit
[Install-Update] set STF_VITAL = NO set STF_OVERWRITE = "VERIFYSOURCEOLDER" AddSectionFilesToCopyList Files-RelayAgent $(SrcDir) $(!STF_WINDOWSSYSPATH) exit
|
