home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DOS/V Power Report 1998 January
/
VPR9801A.ISO
/
JA
/
NT4SP3
/
NEC98
/
OEMNSVRP.SRV
< prev
next >
Wrap
INI File
|
1997-09-23
|
37KB
|
889 lines
[Identification]
OptionType = NetService
[Options]
RPCLOCATE
RPCBANYAN
[FileConstants]
UtilityInf = "UTILITY.INF"
subroutineinf = "SUBROUTN.INF"
SoftwareType = "service"
Exit_Code = 0
[GeneralConstants]
from = ""
to = ""
ExitCodeOk = 0
ExitCodeCancel = 1
ExitCodeFatal = 2
KeyNull = ""
MAXIMUM_ALLOWED = 33554432
RegistryErrorIndex = NO_ERROR
KeyProduct = ""
KeyParameters = ""
TRUE = 1
FALSE = 0
NoTitle = 0
ExitState = "Active"
OldVersionExisted = $(FALSE)
Manufacturer = "Microsoft"
ProductMajorVersion = "4"
ProductMinorVersion = "0"
ProductVersion = $(ProductMajorVersion)"."$(ProductMinorVersion)
ProductOpSupportRPC = 134
ProductOpSupportRPCBANYAN = 132
RpcBanyanSoftKeyName = "SOFTWARE\Microsoft\RpcBanyan"
RpcSoftKeyName = "SOFTWARE\Microsoft\Rpc"
RpcSrvKeyName = "Software\Microsoft\RPCLOCATOR"
RpcSecurityKeyName = "Software\Microsoft\Rpc\SecurityService"
RpcSrvNameRpcss = "RPCSS"
RpcSrvNameLocator = "RPCLOCATOR"
RpcSrvNameBanyan = "RpcBanyan"
RpcSrvNameSSP = "NtLmSsp"
RpcSrvExeRpcss = "%SystemRoot%\System32\RPCSS.EXE"
RpcSrvExeLocator = "%SystemRoot%\System32\LOCATOR.EXE"
RpcSrvExeSSP = "%SystemRoot%\System32\SERVICES.EXE"
ProductKeyName = $(RpcSrvKeyName)"\CurrentVersion"
ServerProto = "\ServerProtocols"
ClientProto = "\ClientProtocols"
RpcSrvDepend= {"LanmanWorkstation","Rdr" }
MSSecurityDLL = "security.dll"
LocatorChoiceList = ^(LocatorData,1)
LocatorEndPointList = ^(LocatorData,2)
LocatorProtocolList = ^(LocatorData,3)
NameServiceKeyName = "Software\Microsoft\Rpc\NameService"
SecurityKeyName = "Software\Microsoft\Rpc\SecurityService"
SecurityChoiceList = ^(SecurityData,1)
SecurityDllList = ^(SecurityData,2)
[LocatorData]
LD_1 = "LocatorWINNT","\pipe\locator","ncacn_np"
LD_2 = "LocatorDCE","","ncacn_ip_tcp"
[SecurityData]
SD_1 = "SecurityWINNT","security.dll"
SD_2 = "SecurityDCE","dcesec.dll"
[UpgradeMapConstants]
DLLClientList = { "rpcltc3.dll", "rpcltc6.dll", "rpcltc5.dll", "rpcltc7.dll", "rpcdgc3.dll" }
DLLServerList = { "rpclts3.dll", "rpclts6.dll", "rpclts5.dll", "rpclts7.dll", "rpcdgs3.dll" }
[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 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
set-subst LF = "\n"
Debug-Output "OEMNSVRP.INF: active"
read-syms GeneralConstants
read-syms FileConstants
read-syms UpgradeMapConstants
detect date
read-syms DialogConstants$(!STF_LANGUAGE)
read-syms $(Option)Constants$(!STF_LANGUAGE)
read-syms FileConstants$(!STF_LANGUAGE)
set-title $(FunctionTitle)
set to = Begin
set from = Begin
set CommonStatus = STATUS_SUCCESSFUL
EndWait
Begin = +
Ifstr(i) $(!NTN_InstallMode) == deinstall
set StartLabel = removeadapter
else-Ifstr(i) $(!NTN_InstallMode) == update
set StartLabel = UpgradeSoftware
else-Ifstr(i) $(!NTN_InstallMode) == bind
set StartLabel = bindingadapter
else-Ifstr(i) $(!NTN_InstallMode) == configure
set StartLabel = configureadapter
else
set StartLabel = installadapter
endif
set from = $(fatal)
set to = $(fatal)
goto $(StartLabel)
configureadapter = +
ifstr(i) $(Option) == "RPCBANYAN"
Shell $(UtilityInf),RegistryErrorString,CANNOT_CONFIGURE_SOFTWARE
ifint $($ShellCode) != $(!SHELL_CODE_OK)
Debug-Output "OEMNSVBH.INF: ShellCode error: cannot get an error string."
goto ShellCodeError
endif
set Error = $($R0)
Set CommonStatus = STATUS_USERCANCEL
Set Severity = STATUS
set from = "end"
set to = "end"
goto nonfatal
endif
set CommonStatus = STATUS_REBOOT
OpenRegKey $(!REG_H_LOCAL) "" $(NameServiceKeyName) $(MAXIMUM_ALLOWED) KeyNameService
Ifstr(i) $(KeyNameService) == ""
Set RegistryErrorIndex = UNABLE_ACCESS_SOFTWARE_REG
Goto fatalregistry
Endif
Set OldVersionExisted = $(TRUE)
GetRegValue $(KeyNameService),"Protocol", ProtocolNameValue
Ifint $(RegLastError) != $(!REG_ERROR_SUCCESS)
CloseRegKey $(KeyNameService)
Set RegistryErrorIndex = UNABLE_ACCESS_SOFTWARE_REG
Goto fatalregistry
Endif
OpenRegKey $(!REG_H_LOCAL) "" $(SecurityKeyName) $(MAXIMUM_ALLOWED) KeySecurity
Ifstr $(KeySecurity) == ""
Set RegistryErrorIndes = UNABLE_ACCESS_SOFTWARE_REG
Goto fatalregistry
Endif
GetRegValue $(KeySecurity), "DefaultProvider", ProviderNameValue
Ifint $(RegLastError) != $(!REG_ERROR_SUCCESS)
CloseRegKey $(KeyNameService)
CloseRegKey $(KeySecurity)
Set RegistryErrorIndex = UNABLE_ACCESS_SOFTWARE_REG
Goto fatalregistry
Endif
GetRegValue $(KeySecurity), "11", DCEProviderDllValue
read-syms SecurityNames$(!STF_LANGUAGE)
Ifstr $(DCEProviderDllValue) == ""
Set SecurityChoiceList = {"SecurityWINNT"}
Set SecurityDllList = {"security.dll"}
Set SecurityListboxNames = {$(SecName1)}
Set DCEProviderDll = ""
Else
Set DCEProviderDll = *($(DCEProviderDllValue),4)
Set SecurityChoiceList = {"SecurityWINNT","SecurityDCE"}
Set SecurityDllList = {"security.dll",$(DCEProviderDll)}
Set SecurityListboxNames = {$(SecName1),$(SecName2)}
Endif
Debug-Output "OEMNSVRP.INF: Configure Name Services"
configureretry = +
read-syms LocatorNames$(!STF_LANGUAGE)
Set LocatorListboxNames = {$(LocName1),$(LocName2)}
Set ProtocolName = *($(ProtocolNameValue),4)
Set LocatorIndex = ~($(LocatorProtocolList),$(ProtocolName))
Set LocatorInUse = *($(LocatorChoiceList),$(LocatorIndex))
Set LocatorChosen = $(LocatorInUse)
Set LocatorChosenName = *($(LocatorListboxNames),$(LocatorIndex))
GetRegValue $(KeyNameService),"NetworkAddress", NetAddrValue
Set NetworkAddress = *($(NetAddrValue),4)
Set NetworkAddressInUse = $(NetworkAddress)
Ifstr(i) $(LocatorChosen) == "LocatorWINNT"
Set NetworkAddressDCE = ""
Else
Set NetworkAddressDCE = $(NetworkAddress)
Endif
Set SecurityProviderName = *($(ProviderNameValue),4)
Set SecurityProviderIndex = ~($(SecurityDllList),$(SecurityProviderName))
Set SecurityProviderInUse = *($(SecurityChoiceList),$(SecurityProviderIndex))
Set SecurityChosen = $(SecurityProviderInUse)
Set SecurityChosenName = *($(SecurityListboxNames),$(SecurityProviderIndex))
reinitdialog = +
Set LocatorLastChosen = $(LocatorChosen)
Ifstr(i) $(LocatorChosen) == "LocatorWINNT"
Set NetworkAddress = ""
Else
Set NetworkAddress = $(NetworkAddressDCE)
Endif
read-syms RpcProviderDlg$(!STF_LANGUAGE)
ui start "System"
Ifstr(i) $(DLGEVENT) == "NOTIFY"
Set LocatorIndex = ~($(LocatorListboxNames),$(Combo1Out))
Set LocatorChosen = *($(LocatorChoiceList),$(LocatorIndex))
Set LocatorChosenName = *($(LocatorListboxNames),$(LocatorIndex))
Debug-Output "OEMNSVRP.INF: NOTIFY: "$(LocatorChosenName)" = "$(LocatorChosen)
Set ReInit = YES
Ifstr(i) $(LocatorChosen) == $(LocatorLastChosen)
Goto reinitdialog
Endif
Ifstr(i) $(LocatorChosen) == "LocatorWINNT"
Set NetworkAddress = ""
Set NetworkAddressDCE = $(EditTextOut)
Endif
Goto reinitdialog
Else-Ifstr(i) $(DLGEVENT) != "CONTINUE"
ui pop 1
Set CommonStatus = STATUS_USERCANCEL
Goto configuredone
Endif
Set NetworkAddress = $(EditTextOut)
Set LocatorIndex = ~($(LocatorListboxNames),$(Combo1Out))
Set LocatorChosen = *($(LocatorChoiceList),$(LocatorIndex))
Set LocatorChosenName = *($(LocatorListboxNames),$(LocatorIndex))
Set SecurityProviderIndex = ~($(SecurityListboxNames),$(Combo2Out))
Set SecurityChosen = *($(SecurityChoiceList),$(SecurityProviderIndex))
Set SecurityChosenName = *($(SecurityListboxNames),$(SecurityProviderIndex))
Debug-Output "OEMNSVRP.INF: OK: "$(LocatorChosenName)", "$(LocatorChosen)
Debug-Output "OEMNSVRP.INF: OK: "$(SecurityChosenName)", "$(SecurityChosen)
Ifstr(i) $(LocatorChosen) == "LocatorWINNT"
Ifstr(i) $(NetworkAddress) != ""
read-syms NonFatalError2$(!STF_LANGUAGE)
shell "subroutn.inf" SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(NonFatal)
Endif
Set NetworkAddress = "\\."
Else-ifstr(i) $(NetworkAddress) == ""
read-syms NonFatalError1$(!STF_LANGUAGE)
shell "subroutn.inf" SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(NonFatal)
Goto configureretry
Endif
Ifstr(i) $(SecurityChosen) == "SecurityDCE"
Ifstr(i) $(DCEProviderDll) == ""
read-syms NonFatalError3$(!STF_LANGUAGE)
shell "subroutn.inf" SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(NonFatal)
Goto configureretry
Endif
Endif
Ifstr(i) $(LocatorChosen) == $(LocatorInUse)
Ifstr(i) $(NetworkAddress) == $(NetworkAddressInUse)
Ifstr(i) $(SecurityChosen) == $(SecurityProviderInUse)
ui pop 1
Set CommonStatus = STATUS_USERCANCEL
Goto configuredone
Endif
Endif
Endif
ui pop 1
Set ProtocolName = *($(LocatorProtocolList),$(LocatorIndex))
Set EndPointName = *($(LocatorEndPointList),$(LocatorIndex))
Set NewValueList = {{Protocol,$(NoTitle),$(!REG_VT_SZ),$(ProtocolName)},+
{NetworkAddress,$(NoTitle),$(!REG_VT_SZ),$(NetworkAddress)},+
{ServerNetworkAddress,$(NoTitle),$(!REG_VT_SZ),$(NetworkAddress)},+
{Endpoint,$(NoTitle),$(!REG_VT_SZ),$(EndPointName)}}
Shell $(UtilityInf), AddValueList, $(KeyNameService), $(NewValueList)
Ifint $($ShellCode) != $(!SHELL_CODE_OK)
Debug-Output "OEMNSVRP.INF: ShellCode error."
Goto ShellCodeError
Endif
set RegistryErrorIndex = $($R0)
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
Debug-Output "OEMNSVRP.INF: registry error: add value list."
Goto fatalregistry
Endif
Set SecurityDllName = *($(SecurityDllList),$(SecurityProviderIndex))
Set NewValueList = {{DefaultProvider,$(NoTitle),$(!REG_VT_SZ),$(SecurityDllName)}}
Debug-Output "OEMNSVRP.INF: adding security provider list: "$(SecurityDllName)
Shell $(UtilityInf), AddValueList, $(KeySecurity), $(NewValueList)
Ifint $($ShellCode) != $(!SHELL_CODE_OK)
Debug-Output "OEMNSVRP.INF: ShellCode error."
Goto ShellCodeError
Endif
set RegistryErrorIndex = $($R0)
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
Debug-Output "OEMNSVRP.INF: registry error: add value list."
Goto fatalregistry
Endif
configuredone = +
CloseRegKey $(KeyNameService)
CloseRegKey $(KeySecurity)
Goto successful
installadapter = +
ifstr(i) $(Option) == "RPCBANYAN"
OpenRegKey $(!REG_H_LOCAL) "" $(RpcBanyanSoftKeyName) $(MAXIMUM_ALLOWED) KeyProduct
Ifstr $(KeyProduct) != $(KeyNull)
CloseRegKey $(KeyProduct)
Shell $(UtilityInf), VerExistedDlg, $(ProductRPCBanyanTitle),+
$(ProductVersion)
ifint $($ShellCode) != $(!SHELL_CODE_OK)
Debug-Output "ShellCode error: cannot get an error string."
goto ShellCodeError
endif
set CommonStatus = STATUS_USERCANCEL
goto end
endif
Ifstr(i) $(DoCopy) == "YES"
Shell $(UtilityInf), DoAskSource, $(!STF_CWDDIR), $(SrcDir) YES
Ifint $($ShellCode) != $(!SHELL_CODE_OK)
Goto ShellCodeError
Else-Ifstr(i) $($R0) == STATUS_FAILED
Shell $(UtilityInf) RegistryErrorString "ASK_SOURCE_FAIL"
ifint $($ShellCode) != $(!SHELL_CODE_OK)
goto ShellCodeError
endif
set Error = $($R0)
Goto fatal
Else-Ifstr(i) $($R0) == STATUS_USERCANCEL
Goto successful
Endif
Set SrcDir = $($R1)
Endif
install "Install-Option"
ifstr(i) $(STF_INSTALL_OUTCOME) != STF_SUCCESS
Shell $(UtilityInf) RegistryErrorString "UNABLE_COPY_FILE"
ifint $($ShellCode) != $(!SHELL_CODE_OK)
goto ShellCodeError
endif
set Error = $($R0)
goto fatal
endif
Shell $(UtilityInf), InstallSoftwareProduct, $(Manufacturer), $(RpcSrvNameBanyan), "oemnsvrp.inf"
Set SoftProductKey = $($R1)
Set SoftNetRuleKey = $($R2)
set NewValueList = {{SoftwareType,$(NoTitle),$(!REG_VT_SZ),"service"},+
{MajorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMajorVersion)},+
{MinorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMinorVersion)},+
{Title,$(NoTitle),$(!REG_VT_SZ),$(ProductRPCBanyanTitle)},+
{Description,$(NoTitle),$(!REG_VT_SZ),$(ProductRPCBaynanSoftDescription)},+
{OperationsSupport,$(NoTitle),$(!REG_VT_DWORD),$(ProductOpSupportRPCBANYAN)}, +
{InstallDate,$(NoTitle),$(!REG_VT_DWORD),*($(Now),1)}}
Shell $(UtilityInf), AddValueList, $(SoftProductKey), $(NewValueList)
ifint $($ShellCode) != $(!SHELL_CODE_OK)
Debug-Output "OEMNSVNW.INF: ShellCode error."
goto ShellCodeError
endif
set RegistryErrorIndex = $($R0)
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
EndWait
Debug-Output "OEMNSVNW.INF: registry error: add value list."
CloseRegKey $(SoftProductKey)
CloseRegKey $(SoftNetRuleKey)
goto fatalregistry
endif
set NewValueList = {{InfOption,$(NoTitle),$(!REG_VT_SZ),RPCBANYAN}}
Shell $(UtilityInf), AddValueList, $(SoftNetRuleKey), $(NewValueList)
ifint $($ShellCode) != $(!SHELL_CODE_OK)
Debug-Output "OEMNSVNW.INF: ShellCode error."
goto ShellCodeError
endif
set RegistryErrorIndex = $($R0)
CloseRegKey $(SoftProductKey)
CloseRegKey $(SoftNetRuleKey)
OpenRegKey $(!REG_H_LOCAL) "" $(RpcSoftKeyName)$(ServerProto) $(MAXIMUM_ALLOWED) KeyProduct
Ifstr $(KeyProduct) == $(KeyNull)
Set RegistryErrorIndex = UNABLE_ACCESS_SOFTWARE_REG
Goto fatalregistry
endif
SetRegValue $(KeyProduct) +
{"ncacn_vns_spp",$(NoTitle),$(!REG_VT_SZ),"rpclts8.dll" }
CloseRegKey $(KeyProduct)
OpenRegKey $(!REG_H_LOCAL) "" $(RpcSoftKeyName)$(ClientProto) $(MAXIMUM_ALLOWED) KeyProduct
Ifstr $(KeyProduct) == $(KeyNull)
Set RegistryErrorIndex = UNABLE_ACCESS_SOFTWARE_REG
Goto fatalregistry
endif
SetRegValue $(KeyProduct) +
{"ncacn_vns_spp",$(NoTitle),$(!REG_VT_SZ),"rpcltc8.dll" }
CloseRegKey $(KeyProduct)
Goto successful
endif
OpenRegKey $(!REG_H_LOCAL) "" $(RpcSrvKeyName) $(MAXIMUM_ALLOWED) KeyProduct
Ifstr $(KeyProduct) != $(KeyNull)
CloseRegKey $(KeyProduct)
Shell $(UtilityInf), VerExistedDlg, $(ProductRPCTitle),+
$(ProductVersion)
ifint $($ShellCode) != $(!SHELL_CODE_OK)
Debug-Output "ShellCode error: cannot get an error string."
goto ShellCodeError
endif
set CommonStatus = STATUS_USERCANCEL
goto end
endif
StartWait
ifstr(i) $(!NTN_InstallMode) == "install"
Ifstr(i) $(DoCopy) == "YES"
Shell $(UtilityInf), DoAskSource, $(!STF_CWDDIR), $(SrcDir) YES
Ifint $($ShellCode) != $(!SHELL_CODE_OK)
Goto ShellCodeError
Else-Ifstr(i) $($R0) == STATUS_FAILED
Shell $(UtilityInf) RegistryErrorString "ASK_SOURCE_FAIL"
ifint $($ShellCode) != $(!SHELL_CODE_OK)
goto ShellCodeError
endif
set Error = $($R0)
Goto fatal
Else-Ifstr(i) $($R0) == STATUS_USERCANCEL
Goto successful
Endif
Set SrcDir = $($R1)
Endif
install "Install-Option"
ifstr(i) $(STF_INSTALL_OUTCOME) != STF_SUCCESS
Shell $(UtilityInf) RegistryErrorString "UNABLE_COPY_FILE"
ifint $($ShellCode) != $(!SHELL_CODE_OK)
goto ShellCodeError
endif
set Error = $($R0)
goto fatal
endif
endif
set OEM_ABANDON_ON = TRUE
Set RpcSecurityServiceKey = $(KeyNull)
Set RpcKey = $(KeyNull)
OpenRegKey $(!REG_H_LOCAL) "" $(RpcSoftKeyName) $(MAXIMUM_ALLOWED) RpcKey
Ifstr(i) $(RpcKey) == $(KeyNull)
Debug-Output "OEMNSVRP.INF: Error opening RPC key"
Set RegistryErrorIndex = UNABLE_ACCESS_SOFTWARE_REG
Goto fatalregistry
Endif
CreateRegKey $(RpcKey) {"SecurityService",$(NoTitle),GenericClass} "" $(MAXIMUM_ALLOWED) "" RpcSecurityServiceKey
Ifstr(i) $(RpcSecurityServiceKey) == $(KeyNull)
OpenRegKey $(!REG_H_LOCAL) "" $(RpcSecurityKeyName) $(MAXIMUM_ALLOWED) RpcSecurityServiceKey
Endif
Ifstr(i) $(RpcSecurityServiceKey) == $(KeyNull)
Debug-Output "OEMNSVRP.INF: Registry error creating subordinate RPC keys"
CloseRegKey $(RpcKey)
Goto fatalregistry
Endif
Set NewValueList = {{DefaultProvider,$(NoTitle),$(!REG_VT_SZ),$(MSSecurityDLL)},+
{10,$(NoTitle),$(!REG_VT_SZ),$(MSSecurityDLL)},+
{DefaultAuthLevel,$(NoTitle),$(!REG_VT_DWORD),0}}
Shell $(UtilityInf), AddValueList, $(RpcSecurityServiceKey), $(NewValueList)
Ifint $($ShellCode) != $(!SHELL_CODE_OK)
Debug-Output "OEMNSVRP.INF: ShellCode error."
CloseRegKey $(RpcSecurityServiceKey)
goto ShellCodeError
Endif
set RegistryErrorIndex = $($R0)
CloseRegKey $(RpcSecurityServiceKey)
CloseRegKey $(RpcKey)
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
EndWait
Debug-Output "OEMNSVRP.INF: registry error: add value list."
goto fatalregistry
Endif
createrpcservices =+
Ifstr(i) $(!STF_PRODUCT) == "LANMANNT"
Set RpcLocatorStartType = "serviceauto"
Else
Set RpcLocatorStartType = "service"
Endif
Shell $(UtilityInf), AddSoftwareComponent, $(Manufacturer), +
$(RpcSrvNameLocator), +
$(RpcSrvNameLocator), +
$(RpcSrvDisplayNameLocator), $(STF_CONTEXTINFNAME), +
$(RpcSrvExeLocator), $(RpcLocatorStartType), "", $(RpcSrvDepend), "", ""
set RegistryErrorIndex = $($R0)
Ifint $($ShellCode) != $(!SHELL_CODE_OK)
Debug-Output "OEMNSVRP.INF: ShellCode error creating RPCLOCATOR service: "$($ShellCode)
Goto ShellCodeError
Endif
Set SoftProductKey = $($R1)
Set SoftNetRuleKey = $($R2)
CloseRegKey $($R3)
Set RpcLocatorParametersKey = $($R4)
CloseRegKey $($R5)
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
EndWait
Debug-Output "OEMNSVRP.INF: Registry error: creating RPCLOCATE software product"
CloseRegKey $(SoftProductKey)
CloseRegKey $(SoftNetRuleKey)
CloseRegKey $(RpcLocatorParametersKey)
Goto fatalregistry
Endif
Set NewValueList = {{SoftwareType,$(NoTitle),$(!REG_VT_SZ),$(SoftwareType)},+
{MajorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMajorVersion)},+
{MinorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMinorVersion)},+
{Title,$(NoTitle),$(!REG_VT_SZ),$(ProductRPCTitle)},+
{Description,$(NoTitle),$(!REG_VT_SZ),$(ProductSoftwareDescription)},+
{OperationsSupport,$(NoTitle),$(!REG_VT_DWORD),$(ProductOpSupportRPC)}, +
{InstallDate,$(NoTitle),$(!REG_VT_DWORD),*($(Now),1)}}
Shell $(UtilityInf), AddValueList, $(SoftProductKey), $(NewValueList)
Set RegistryErrorIndex = $($R0)
CloseRegKey $(SoftProductKey)
ifint $($ShellCode) != $(!SHELL_CODE_OK)
Debug-Output "ShellCode error."
goto ShellCodeError
endif
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
EndWait
Debug-Output "OEMNSVRP.INF: Registry error: add value list to RPCLOCATE product"
CloseRegKey $(SoftNetRuleKey)
CloseRegKey $(RpcLocatorParametersKey)
goto fatalregistry
endif
Set NewValueList = {{InfOption,$(NoTitle),$(!REG_VT_SZ),$(Option)}}
Shell $(UtilityInf), AddValueList, $(SoftNetRuleKey), $(NewValueList)
set RegistryErrorIndex = $($R0)
CloseRegKey $(SoftNetRuleKey)
ifint $($ShellCode) != $(!SHELL_CODE_OK)
CloseRegKey $(RpcLocatorParametersKey)
Debug-Output "ShellCode error."
goto ShellCodeError
endif
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
EndWait
CloseRegKey $(RpcLocatorParametersKey)
Debug-Output "OEMNSVSV.INF: Registry error: add value list."
goto fatalregistry
Endif
Set NewValueList = {{ExpirationAge,$(NoTitle),$(!REG_VT_DWORD),3600}}
Shell $(UtilityInf), AddValueList, $(RpcLocatorParametersKey), $(NewValueList)
Ifint $($ShellCode) != $(!SHELL_CODE_OK)
Debug-Output "OEMNSVRP.INF: ShellCode error."
goto ShellCodeError
Endif
set RegistryErrorIndex = $($R0)
CloseRegKey $(RpcLocatorParametersKey)
Ifstr(i) $(!STF_PRODUCT) == "LANMANNT"
Set AclIndex = 4
Else
Set AclIndex = 3
Endif
Shell $(UtilityInf), CreateService, $(RpcSrvNameSSP), +
$(RpcSrvDisplayNameSSP), $(RpcSrvExeSSP), "serviceshare", "", {}, "", ""
Ifint $($ShellCode) != $(!SHELL_CODE_OK)
Debug-Output "OEMNSVRP.INF: ShellCode error creating RPCSS service: "$($ShellCode)
goto ShellCodeError
endif
Set RegistryErrorIndex = $($R0)
CloseRegKey $($R1)
CloseRegKey $($R2)
CloseRegKey $($R3)
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
EndWait
Debug-Output "OEMNSVRP.INF: Registry error: creating RPCSS service"
Goto fatalregistry
Endif
LibraryProcedure NCPA_RESULT $(!NCPA_HANDLE), CPlSetup $(!STF_HWND),+
SECURESVC, $(RpcSrvNameLocator), $(AclIndex)
LibraryProcedure NCPA_RESULT $(!NCPA_HANDLE), CPlSetup $(!STF_HWND),+
SECURESVC, $(RpcSrvNameRpcss), $(AclIndex)
LibraryProcedure NCPA_RESULT $(!NCPA_HANDLE), CPlSetup $(!STF_HWND),+
SECURESVC, $(RpcSrvNameSSP), $(AclIndex)
EndWait
goto successful
bindingadapter =+
set Error = "RPC INF file invoked during bindings review."
goto fatal
removeadapter = +
ifstr(i) $(Option) == "RPCBANYAN"
Debug-Output "OEMNSVRP.INF: Remove component RpcBanyan"
Shell $(UtilityInf), RemoveSoftwareComponent, $(Manufacturer), $(RpcSrvNameBanyan), FALSE
OpenRegKey $(!REG_H_LOCAL) "" $(RpcSoftKeyName)$(ServerProto) $(MAXIMUM_ALLOWED) KeyProduct
Ifstr $(KeyProduct) == $(KeyNull)
Set RegistryErrorIndex = UNABLE_ACCESS_SOFTWARE_REG
Goto fatalregistry
endif
DeleteRegValue $(KeyProduct) "ncacn_vns_spp"
CloseRegKey $(KeyProduct)
OpenRegKey $(!REG_H_LOCAL) "" $(RpcSoftKeyName)$(ClientProto) $(MAXIMUM_ALLOWED) KeyProduct
Ifstr $(KeyProduct) == $(KeyNull)
Set RegistryErrorIndex = UNABLE_ACCESS_SOFTWARE_REG
Goto fatalregistry
endif
DeleteRegValue $(KeyProduct) "ncacn_vns_spp"
CloseRegKey $(KeyProduct)
Goto successful
endif
Debug-Output "OEMNSVRP.INF: Remove component "$(RpcSrvNameLocator)
Shell $(UtilityInf), RemoveSoftwareComponent, $(Manufacturer), $(RpcSrvNameLocator), FALSE
Debug-Output "OEMNSVRP.INF: Remove service "$(RpcSrvNameSSP)
Shell $(UtilityInf), RemoveService, $(RpcSrvNameSSP), "YES"
goto end
UpgradeSoftware = +
ifstr(i) $(Option) == "RPCBANYAN"
OpenRegKey $(!REG_H_LOCAL) "" $(RpcBanyanSoftKeyName) $(MAXIMUM_ALLOWED) KeyProduct
Ifstr $(KeyProduct) != $(KeyNull)
SetRegValue $(KeyProduct) {MajorVersion,$(NoTitle),$(!REG_VT_SZ),$(ProductMajorVersion)}
SetRegValue $(KeyProduct) {MinorVersion,$(NoTitle),$(!REG_VT_SZ),$(ProductMinorVersion)}
SetRegValue $(KeyProduct) {Description,$(NoTitle),$(!REG_VT_SZ),$(ProductRPCBanyanSoftDescription)}
SetRegValue $(KeyProduct) {OperationsSupport,$(NoTitle),$(!REG_VT_DWORD),$(ProductOpSupportRPCBANYAN)}
CloseRegKey $(KeyProduct)
endif
Goto successful
endif
set RpcLocatorService = "SYSTEM\CurrentControlSet\Services\"$(RpcSrvNameLocator)
OpenRegKey $(!REG_H_LOCAL) "" $(RpcLocatorService) $(MAXIMUM_ALLOWED) KeyService
ifstr $(KeyService) != $(KeyNull)
SetRegValue $(KeyService) +
{"DependOnService",$(NoTitle),$(!REG_VT_MULTI_SZ),$(RpcSrvDepend) }
endif
OpenRegKey $(!REG_H_LOCAL) "" $(ProductKeyName) $(MAXIMUM_ALLOWED) KeyProduct
Ifstr $(KeyProduct) != $(KeyNull)
install "Install-Update"
ifstr(i) $(STF_INSTALL_OUTCOME) != STF_SUCCESS
goto fatal
endif
SetRegValue $(KeyProduct) {MajorVersion,$(NoTitle),$(!REG_VT_SZ),$(ProductMajorVersion)}
SetRegValue $(KeyProduct) {MinorVersion,$(NoTitle),$(!REG_VT_SZ),$(ProductMinorVersion)}
SetRegValue $(KeyProduct) {Description,$(NoTitle),$(!REG_VT_SZ),$(ProductSoftwareDescription)}
SetRegValue $(KeyProduct) {OperationsSupport,$(NoTitle),$(!REG_VT_DWORD),$(ProductOpSupportRPC)}
OpenRegKey $(!REG_H_LOCAL) "" $(SecurityKeyName) $(MAXIMUM_ALLOWED) KeySecurity
Ifstr $(KeySecurity) == ""
Shell $(UtilityInf), CreateService, $(RpcSrvNameSSP), +
$(RpcSrvDisplayNameSSP), $(RpcSrvExeSSP), "serviceshare", +
"", {}, "", ""
Ifint $($ShellCode) != $(!SHELL_CODE_OK)
Debug-Output "OEMNSVRP.INF: ShellCode error creating RPCSS service: "$($ShellCode)
goto ShellCodeError
endif
Set RegistryErrorIndex = $($R0)
CloseRegKey $($R1)
CloseRegKey $($R2)
CloseRegKey $($R3)
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
EndWait
Debug-Output "OEMNSVRP.INF: Registry error: creating RPCSS service"
Goto fatalregistry
Endif
OpenRegKey $(!REG_H_LOCAL) "" $(RpcSoftKeyName) $(MAXIMUM_ALLOWED) RpcKey
Ifstr(i) $(RpcKey) == $(KeyNull)
Debug-Output "OEMNSVRP.INF: Error opening RPC key"
Set RegistryErrorIndex = UNABLE_ACCESS_SOFTWARE_REG
Goto fatalregistry
Endif
CreateRegKey $(RpcKey) {"SecurityService",$(NoTitle),GenericClass} "" $(MAXIMUM_ALLOWED) "" KeySecurity
Ifstr(i) $(KeySecurity) == $(KeyNull)
OpenRegKey $(!REG_H_LOCAL) "" $(RpcSecurityKeyName) $(MAXIMUM_ALLOWED) KeySecurity
Endif
CloseRegKey $(RpcKey)
Ifstr(i) $(KeySecurity) == $(KeyNull)
Debug-Output "OEMNSVRP.INF: Registry error creating subordinate RPC keys"
Goto fatalregistry
Endif
Set NewValueList = {{DefaultProvider,$(NoTitle),$(!REG_VT_SZ),$(MSSecurityDLL)},+
{10,$(NoTitle),$(!REG_VT_SZ),$(MSSecurityDLL)},+
{DefaultAuthLevel,$(NoTitle),$(!REG_VT_DWORD),0}}
Shell $(UtilityInf), AddValueList, $(KeySecurity), $(NewValueList)
Ifint $($ShellCode) != $(!SHELL_CODE_OK)
Debug-Output "OEMNSVRP.INF: ShellCode error."
CloseRegKey $(KeySecurity)
goto ShellCodeError
Endif
set RegistryErrorIndex = $($R0)
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
Debug-Output "OEMNSVRP.INF: registry error: add value list."
goto fatalregistry
Endif
Endif
OpenRegKey $(!REG_H_LOCAL) "" $(RpcSoftKeyName)$(ClientProto) $(MAXIMUM_ALLOWED) KeyClient
Ifstr $(KeyClient) != $(KeyNull)
EnumRegValue $(KeyClient) ValueList
ForListDo $(ValueList)
set ValueItemList = $($)
Ifcontains(i) *($(ValueItemList),4) in $(DLLClientList)
set NewValueList = {*($(ValueItemList),1),0,$(!REG_VT_SZ),"rpcltccm.dll" }
SetRegValue $(KeyClient) $(NewValueList)
Ifint $(RegLastError) != $(!REG_ERROR_SUCCESS)
Debug-Output "OEMNSVRP.INF: registry error: setting new client protocol dll name:"*($(ValueItemList),1)":"$(RegLastError)
goto fatalregistry
endif
Endif
EndForListDo
CloseRegKey $(KeyClient)
else
Debug-Output "OEMNSVRP.INF: registry error: opening client protocols for dll rename"
goto fatalregistry
endif
OpenRegKey $(!REG_H_LOCAL) "" $(RpcSoftKeyName)$(ServerProto) $(MAXIMUM_ALLOWED) KeyServer
Ifstr $(KeyServer) != $(KeyNull)
EnumRegValue $(KeyServer) ValueList
ForListDo $(ValueList)
set ValueItemList = $($)
Ifcontains(i) *($(ValueItemList),4) in $(DLLServerList)
set NewValueList = {*($(ValueItemList),1),0,$(!REG_VT_SZ),"rpcltscm.dll" }
SetRegValue $(KeyServer) $(NewValueList)
Ifint $(RegLastError) != $(!REG_ERROR_SUCCESS)
Debug-Output "OEMNSVRP.INF: registry error: setting new server protocol dll name:"*($(ValueItemList),1)":"$(RegLastError)
goto fatalregistry
endif
Endif
EndForListDo
CloseRegKey $(KeyServer)
else
Debug-Output "OEMNSVRP.INF: registry error: opening server protocols for dll rename"
goto fatalregistry
endif
CloseRegKey $(KeySecurity)
CloseRegKey $(KeyProduct)
else
goto fatalregistry
endif
goto end
successful = +
goto end
warning = +
Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), "WARNING", $(Error)
ifint $($ShellCode) != $(!SHELL_CODE_OK)
goto ShellCodeError
endif
ifstr(i) $($R1) == "OK"
goto $(to)
else-ifstr(i) $($R1) == "CANCEL"
goto $(from)
else
goto "end"
endif
nonfatal = +
ifstr(i) $(Error) == ""
Shell $(UtilityInf) RegistryErrorString "SETUP_FAIL"
ifint $($ShellCode) != $(!SHELL_CODE_OK)
goto ShellCodeError
endif
set Error = $($R0)
endif
Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), "NONFATAL", $(Error)
ifint $($ShellCode) != $(!SHELL_CODE_OK)
goto ShellCodeError
endif
ifstr(i) $($R1) == "OK"
goto $(from)
else
goto "end"
endif
fatalregistry = +
Shell $(UtilityInf) RegistryErrorString $(RegistryErrorIndex)
ifint $($ShellCode) != $(!SHELL_CODE_OK)
goto ShellCodeError
endif
set Error = $($R0)
goto fatal
fatal = +
ifstr(i) $(Error) == ""
Shell $(UtilityInf) RegistryErrorString "SETUP_FAIL"
ifint $($ShellCode) != $(!SHELL_CODE_OK)
goto ShellCodeError
endif
set Error = $($R0)
endif
Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), "FATAL", $(Error)
ifint $($ShellCode) != $(!SHELL_CODE_OK)
goto ShellCodeError
endif
goto setfailed
ShellCodeError = +
set DlgType = "MessageBox"
set STF_MB_TITLE = $(ShellCodeErrorTitle)
set STF_MB_TEXT = $(ShellCodeErrorText)
set STF_MB_TYPE = 1
set STF_MB_ICON = 3
set STF_MB_DEF = 1
ui start "Error Message"
goto setfailed
setfailed = +
set CommonStatus = STATUS_FAILED
ifstr(i) $(OEM_ABANDON_ON) == TRUE
set OEM_ABANDON_ON = FALSE
goto removeadapter
endif
goto end
end = +
goto term
term = +
Return $(CommonStatus)
[Install-Option]
set STF_VITAL = ""
ifstr(i) $(AddCopy) == "YES"
AddSectionFilesToCopyList Files-$(Option) $(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 = ""
set STF_OVERWRITE = "VERIFYSOURCEOLDER"
AddSectionFilesToCopyList Files-$(Option) $(SrcDir) $(!STF_WINDOWSSYSPATH)
exit
[Source Media Descriptions]
1 = "Windows NT Server CD-ROM", TAGFILE = cdrom_s.40
[Signature]
FileType = MICROSOFT_FILE
[GetSignature]
read-syms Signature
return $(FileType)
[ProductType]
STF_PRODUCT = LanmanNT
STF_PLATFORM = I386
[Files-Inf]
2, oemsetup.inf, SIZE=1000, RENAME=$(!UG_Filename)
[Files-RPCBANYAN]
1,RPCLTC8.DLL , SIZE=94976
1,RPCLTS8.DLL , SIZE=109416
[Files-RPCLOCATE]
1,LOCATOR.EXE , SIZE=798096
[LanguagesSupported]
ENG
[OptionsTextENG]
RPCLOCATE = "RPC 構成"
RPCBANYAN = "RPC support for Banyan"
[LocatorNamesENG]
LocName1 = "Windows NT ロケータ"
LocName2 = "DCE セル ディレクトリ サービス"
[SecurityNamesENG]
SecName1 = "Windows NT セキュリティ サービス"
SecName2 = "DCE セキュリティ サービス"
[FileConstantsENG]
ProCaption = "Windows NT セットアップ"
ProCancel = "キャンセル"
ProCancelMsg = "Windows NT ネットワークは正しくインストールされていません。"+
"ファイルのコピーを中止しますか?"
ProCancelCap = "ネットワーク セットアップ メッセージ"
ProText1 = "コピー元:"
ProText2 = "コピー先:"
ProductSoftwareDescription = "リモート プロシージャ コール サービスにより、RPC で書かれたプログラムは複数のコンピュータ上でプロシージャを実行できます。これには、エンドポイント マッパーやその他の RPC サービスが含まれます。"
ProductRPCTitle = "RPC 構成"
ProductRPCBanyanTitle = "RPC support for Banyan"
ProductRPCBaynanSoftDescription = "RPC support for Banyan"
RpcSrvDisplayNameRpcss = "Remote Procedure Call (RPC) Service"
RpcSrvDisplayNameLocator = "Remote Procedure Call (RPC) Locator"
RpcSrvDisplayNameSSP = "NT LM Security Support Provider"
RpcSuiteDisplayName = "リモート プロシージャ コールの構成"
[RPCLOCATEConstantsENG]
FunctionTitle = "RPC 構成"
ShellCodeErrorTitle = "エラー: "$(FunctionTitle)
ShellCodeErrorText = "シェル コード エラーです。"
[RPCBANYANConstantsENG]
FunctionTitle = "RPC support for Banyan"
ShellCodeErrorTitle = "エラー: "$(FunctionTitle)
ShellCodeErrorText = "シェル コード エラーです。"
[DialogConstantsENG]
Help = "ヘルプ(&H)"
Exit = "キャンセル"
OK = "OK"
HelpContext = ""
Continue = "続行(&O)"
Cancel = "キャンセル(&A)"
[RpcProviderDlgENG]
Caption = "RPC 構成"
Edit1Label = "ネットワーク アドレス(&A):"
Combo1Label = "ネーム サービス プロバイダ(&N):"
Combo2Label = "セキュリティ サービス プロバイダ(&S):"
Help = "ヘルプ(&H)"
Continue = "OK"
Cancel = "キャンセル"
DlgType = Combination
DlgTemplate = "RPCPROVIDE"
EditTextIn = $(NetworkAddress)
EditFocus = "ALL"
EditTextLim = 50
Combo1List = $(LocatorListboxNames)
Combo1Out = $(LocatorChosenName)
Combo2List = $(SecurityListboxNames)
Combo2Out = $(SecurityChosenName)
ComboListItemsIn = {Combo1List, Combo2List}
ComboListItemsOut = {Combo1Out, Combo2Out}
HelpContext = $(!IDH_DB_RPCLOCATE_INS)
ExitState = "Active"
NotifyFields = { YES }
[NonFatalError1ENG]
NonFatal = "ネットワーク アドレスが入力されていません。"
[NonFatalError2ENG]
NonFatal = "ネットワーク アドレスは Windows NT ロケータを無視します。"
[NonFatalError3ENG]
NonFatal = "DCE セキュリティ サービスはインストールされていません。"