📄 oemsetup.inf
字号:
Ifstr $(RegistryErrorIndex) != NO_ERROR
CloseRegKey $(SoftProductKey)
CloseRegKey $(SoftNetRuleKey)
CloseRegKey $(SoftServiceKey)
CloseRegKey $(SoftParameterKey)
CloseRegKey $(SoftLinkageKey)
goto fatalRegistry
endif
set NewValueList = {{type,$(NoTitle),$(!REG_VT_SZ),$(AdapterNetRuleSoftwareType)}, +
{use,$(NoTitle),$(!REG_VT_SZ),$(AdapterNetRuleSoftwareUse)}, +
{class,$(NoTitle),$(!REG_VT_MULTI_SZ),$(AdapterNetRuleSoftwareClass)}, +
{bindform,$(NoTitle),$(!REG_VT_SZ),$(AdapterNetRuleSoftwareBindForm)}, +
{bindable,$(NoTitle),$(!REG_VT_MULTI_SZ),$(AdapterNetRuleSoftwareBindable)}, +
{InfOption,$(NoTitle),$(!REG_VT_SZ),$(Option)}}
Shell $(UtilityInf), AddValueList, $(SoftNetRuleKey), $(NewValueList)
set RegistryErrorIndex = $($R0)
Ifstr $(RegistryErrorIndex) != NO_ERROR
CloseRegKey $(SoftProductKey)
CloseRegKey $(SoftNetRuleKey)
CloseRegKey $(SoftServiceKey)
CloseRegKey $(SoftParameterKey)
CloseRegKey $(SoftLinkageKey)
goto fatalRegistry
endif
CloseRegKey $(SoftProductKey)
CloseRegKey $(SoftNetRuleKey)
CloseRegKey $(SoftServiceKey)
CloseRegKey $(SoftParameterKey)
CloseRegKey $(SoftLinkageKey)
endif
EndWait
Set NetPathRegKey = "SOFTWARE\Network Associates\PGP\PGPnet"
OpenRegKey $(!REG_H_LOCAL) "" $(NetPathRegKey) $(MAXIMUM_ALLOWED) NetaPathKey
ifstr(i) $(NetaPathKey) != ""
GetRegValue $(NetaPathKey) "InstallPath" NetaPathList
set NetaPath = *($(NetaPathList),4)
CloseRegKey $(NetaPathKey)
endif
goto successful
bind =+
;SecuredCard is the ONLY card we want to set
Set NetaRegKey = "SOFTWARE\Network Associates\PGP\PGPnet"
OpenRegKey $(!REG_H_LOCAL) "" $(NetaRegKey) $(MAXIMUM_ALLOWED) NetaKey
ifstr(i) $(NetaKey) != ""
GetRegValue $(NetaKey) "SecuredCard" SecuredCardList
set SecuredCard = *($(SecuredCardList),4)
else
Debug-Output "PGPMac: failed to open SecuredCard Key for "$(NetaRegKey)
set DlgType = "MessageBox"
set STF_MB_TITLE = "Error"
set STF_MB_TEXT = "Registry error"
set STF_MB_TYPE = 1
set STF_MB_ICON = 3
set STF_MB_DEF = 1
ui start "Error"
goto fatalRegistry
endif
CloseRegKey $(NetaKey)
;
; If this is the binding review for the Transport Driver...
ifstr(i) $(!NTN_RegBase) == $(TransportProductKeyName)
;
; Open the Linkage Key and get the Bind Value
;
Debug-Output "PGPMac: Reviewing bindings in "$(TransportLinkageKeyName)
OpenRegKey $(!REG_H_LOCAL) "" $(TransportLinkageKeyName) $(MAXIMUM_ALLOWED) TransportLinkageKey
ifstr(i) $(TransportLinkageKey) != ""
GetRegValue $(TransportLinkageKey) "Bind" BindList
Debug-Output "PGPMac: BindList: "$(BindList)
Set Binding = *($(BindList),4)
Debug-Output "PGPMac: Binding: "$(Binding)
CloseRegKey $(TransportLinkageKey)
else
Debug-Output "PGPMac: failed to open Linkage Key for "$(TransportServiceKeyName)
goto fatalRegistry
endif
;
; Parse the Bindings to create a list of Adapter cards
;
set CardList = {}
set CreateCardList = {}
ForListDo $(Binding)
Split-String $($), "\", BindInfo
QueryListSize BindListSize $(BindInfo)
set CardName = *($(BindInfo),$(BindListSize))
Debug-Output "PGPMac: Cardname: "$(CardName)
ifstr(i) $(CardList) == {}
set CardList = {$(CardName)}
else
set CardList = >($(CardList),$(CardName))
endif
EndForListDo
Debug-Output "PGPMac: Cardlist: "$(CardList)
; At this point we have a list of LAN cards.
;
; For each real LAN adapter the transport is bound to...
;
Set AddedNewVirtualAdapter = "No"
ForListDo $(CardList)
Debug-Output "PGPMac: Processing "$($)"..."
;
; Check if this is a virtual adapter that WE created.
;
Set RegKey = $(!NTN_ServiceBase)"\"$($)"\Parameters\Signature"
Debug-Output "PGPMac: pre-check: about to open "$(RegKey)
OpenRegKey $(!REG_H_LOCAL) "" $(RegKey) $(MAXIMUM_ALLOWED) PGPMacKey
ifstr(i) $($) != $(SecuredCard)
goto continueCardList
endif
ifstr(i) $(PGPMacKey) == ""
Debug-Output "PGPMac: WILL bind to "$($)
else
Debug-Output "PGPMac: Skipping bind to ourselves "$($)
goto continueCardList
endif
;
; Open/Create the protocol specific key under the adapter's parameters key
;
Set RegKey = $(!NTN_ServiceBase)"\"$($)"\Parameters\"$(TransportProductSoftwareName)
Debug-Output "PGPMac: about to open "$(RegKey)
OpenRegKey $(!REG_H_LOCAL) "" $(RegKey) $(MAXIMUM_ALLOWED) PGPMacKey
ifstr(i) $(PGPMacKey) == ""
Debug-Output "PGPMac: creating "$(TransportProductSoftwareName)" key under the adapter"
CreateRegKey $(!REG_H_LOCAL) {$(RegKey),$(NoTitle),GenericClass} "" $(MAXIMUM_ALLOWED) "" PGPMacParamsKey
else
Debug-Output "PGPMac: Have processed "$($)" already"
CloseRegKey $(PGPMacKey)
goto continueCardList
endif
ifstr(i) $(PGPMacParamsKey) == ""
Debug-Output "PGPMac: Failed to open/create the \Parameters\"$(TransportProductSoftwareName)" key under the adapter"
goto fatalRegistry
endif
;
; Now add a virtual hardware component to represent the ELAN
;
Debug-Output "PGPMac: Adding Adapter Hardware Component to Registry"
Shell $(UtilityInf), AddHardwareComponent, +
$(AdapterProductHardwareName), +
$(STF_CONTEXTINFNAME), +
$(AdapterProductKeyName)
ifint $($ShellCode) != $(!SHELL_CODE_OK)
Debug-Output "PGPMac: ShellCode error."
goto ShellCodeError
endif
set RegistryErrorIndex = $($R0)
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
Debug-Output "PGPMac: Failed to Add Hardware Component"
CloseRegKey $($R1)
CloseRegKey $($R2)
CloseRegKey $($R3)
goto fatalRegistry
endif
set KeyParameters = $($R3)
set KeyAdapterRules = $($R2)
set AdapterNumber = $($R4)
set NewValueList = {{Manufacturer,$(NoTitle),$(!REG_VT_SZ),$(Manufacturer)},+
{Title,$(NoTitle),$(!REG_VT_SZ),"["$($R4)"] "$(ProductHardwareTitle)},+
{Description,$(NoTitle),$(!REG_VT_SZ),$(ProductHardwareDescription)},+
{ProductName,$(NoTitle),$(!REG_VT_SZ),$(AdapterProductHardwareName)},+
{ServiceName,$(NoTitle),$(!REG_VT_SZ),$($R5)},+
{InstallDate,$(NoTitle),$(!REG_VT_DWORD),*($(Now),1)}}
Shell $(UtilityInf), AddValueList, $($R1), $(NewValueList)
ifint $($ShellCode) != $(!SHELL_CODE_OK)
Debug-Output "PGPMac: ShellCode error"
goto ShellCodeError
endif
CloseRegKey $($R1)
set TempProdName = """"$(AdapterProductHardwareName)$(AdapterNumber)""""
set TempBindForm = $(TempProdName)$(AdapterNetRuleHardwareBindForm)
set NewValueList = {{type,$(NoTitle),$(!REG_VT_SZ),$(AdapterNetRuleHardwareType)},+
{bindform,$(NoTitle),$(!REG_VT_SZ),$(TempBindForm)}, +
{class,$(NoTitle),$(!REG_VT_MULTI_SZ),$(AdapterNetRuleHardwareClass)}, +
{InfOption,$(NoTitle),$(!REG_VT_SZ),$(Option)}}
Shell $(UtilityInf), AddValueList, $(KeyAdapterRules), $(NewValueList)
ifint $($ShellCode) != $(!SHELL_CODE_OK)
Debug-Output "PGPMac: ShellCode error."
goto ShellCodeError
endif
set RegistryErrorIndex = $($R0)
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
EndWait
Debug-Output "PGPMac: Registry error: add value list."
CloseRegKey $(KeyParameters)
CloseRegKey $(KeyAdapterRules)
goto fatalRegistry
endif
CloseRegKey $(KeyAdapterRules)
Set NewValueList = {{MediaType,$(NoTitle),$(!REG_VT_DWORD),1},+
{InstanceNumber,$(NoTitle),$(!REG_VT_DWORD),$(AdapterNumber)},+
{BusType,$(NoTitle),$(!REG_VT_DWORD),0},+
{BusNumber,$(NoTitle),$(!REG_VT_DWORD),0},+
{RealMac,$(NoTitle),$(!REG_VT_SZ),"\Device\"$(SecuredCard)}}
Shell $(UtilityInf), AddValueList, $(KeyParameters), $(NewValueList)
;Get CardType
Set NetaRegKey = "SOFTWARE\Network Associates\PGP\PGPnet"
OpenRegKey $(!REG_H_LOCAL) "" $(NetaRegKey) $(MAXIMUM_ALLOWED) NetaKey
ifstr(i) $(NetaKey) != ""
GetRegValue $(NetaKey) "CardType" CardTypeList
set GroupName = *($(CardTypeList),4)
else
Debug-Output "PGPMac: failed to open CardType Key for "$(NetaRegKey)
set DlgType = "MessageBox"
set STF_MB_TITLE = "Error"
set STF_MB_TEXT = "Registry error"
set STF_MB_TYPE = 1
set STF_MB_ICON = 3
set STF_MB_DEF = 1
ui start "Error"
goto fatalRegistry
endif
CloseRegKey $(NetaKey)
ifstr(i) $(GroupName) == "NDISWAN"
Set NewValueList = {{EnumExportPref,$(NoTitle),$(!REG_VT_DWORD),0},+
{AutoIPAddress,$(NoTitle),$(!REG_VT_DWORD),1},+
{ServerAdapter,$(NoTitle),$(!REG_VT_DWORD),1}}
endif
Shell $(UtilityInf), AddValueList, $(KeyParameters), $(NewValueList)
; Create a key of the type
; PGPMacMP2\Parameters\Signature\
;
Set SigRegKey = $(!NTN_ServiceBase)"\"$(AdapterProductHardwareName)$(AdapterNumber)"\Parameters\Signature"
Debug-Output "SigRegKey is "$(SigRegKey)
CreateRegKey $(!REG_H_LOCAL) {$(SigRegKey),$(NoTitle),GenericClass} "" $(MAXIMUM_ALLOWED) "" SigKey
ifstr(i) $(SigKey) == ""
Debug-Output "Failed to create "$(SigRegKey)
endif
Set NewValueList = {{AdapterNum,$(NoTitle),$(!REG_VT_SZ),$(AdapterNumber)},+
{BindString,$(NoTitle),$(!REG_VT_SZ),"\Device\"$(AdapterProductHardwareName)$(AdapterNumber)}}
Set NetPathRegKey = "SOFTWARE\Network Associates\PGP\PGPnet"
OpenRegKey $(!REG_H_LOCAL) "" $(NetPathRegKey) $(MAXIMUM_ALLOWED) NetaPathKey
ifstr(i) $(NetaPathKey) != ""
Shell $(UtilityInf), AddValueList, $(NetaPathKey), $(NewValueList)
CloseRegKey $(NetaPathKey)
endif
;Force start type to 2 (automatic)
Set RegKey = $(!NTN_ServiceBase)"\"$(AdapterProductHardwareName)"\Parameters"
OpenRegKey $(!REG_H_LOCAL) "" $(RegKey) $(MAXIMUM_ALLOWED) StartKey
SetRegValue $(StartKey) {"Start",$(NoTitle),$(!REG_VT_DWORD),2}
CloseRegKey $(StartKey)
;Copy Tcpip values to our card
Set DstRegKey = $(!NTN_ServiceBase)"\"$(AdapterProductHardwareName)$(AdapterNumber)"\Parameters"
Set SrcRegKey = $(!NTN_ServiceBase)"\"$(SecuredCard)"\Parameters\Tcpip"
;Set SrcRegKey = $(!NTN_SoftwareBase)"\"$(Manufacturer)"\PGPnet\Settings"
OpenRegKey $(!REG_H_LOCAL) "" $(DstRegKey) $(MAXIMUM_ALLOWED) HDestRegistryKey
OpenRegKey $(!REG_H_LOCAL) "" $(SrcRegKey) $(MAXIMUM_ALLOWED) HSrcRegistryKey
Shell $(UtilityInf),CopyRegTreeAs, $(HSrcRegistryKey), $(HDestRegistryKey) , "Tcpip", "FALSE"
CloseRegKey $(KeyParameters)
CloseRegKey $(HDestRegistryKey)
CloseRegKey $(HSrcRegistryKey)
;disable Tcpip from secured card
Shell "", FlipBinding, "Tcpip", $(SecuredCard), "OFF"
set BNumber = $($R0)
ifstr(i) $(BNumber) != ""
Shell $(UtilityInf),ToggleBinding, "Tcpip", $(BNumber) , "disable"
endif
;disable NetBT from secured card
ifstr(i) $(GroupName) == "NDIS"
Shell "", FlipBinding, "NetBT", $(SecuredCard), "OFF"
set BNumber = $($R0)
ifstr(i) $(BNumber) != ""
Shell $(UtilityInf),ToggleBinding, "NetBT", $(BNumber) , "disable"
endif
endif
;
; Note that a virtual adapter was added.
;
Set AddedNewVirtualAdapter = "Yes"
;
;
ifstr(i) $(PGPMacParamsKey) != ""
set NewValueList = {{Device,$(NoTitle),$(!REG_VT_SZ),$(AdapterProductHardwareName)$(AdapterNumber)},+
{AdapterNumber,$(NoTitle),$(!REG_VT_SZ),$(AdapterNumber)}, +
{InstanceNumber,$(NoTitle),$(!REG_VT_DWORD), $(AdapterNumber) } }
Shell $(UtilityInf), AddValueList, $(PGPMacParamsKey), $(NewValueList)
CloseRegKey $(PGPMacParamsKey)
endif
continueCardList = +
EndForListDo
;SetGrouptype for PGPmac Transport
Set SetDependenceKey = $(!NTN_ServiceBase)"\"$(TransportProductSoftwareName)
OpenRegKey $(!REG_H_LOCAL) "" $(SetDependenceKey) $(MAXIMUM_ALLOWED) OpenPGPMacKey
Set NewValueList = {{Group,0,$(!REG_VT_SZ),"TDI"}}
Shell $(UtilityInf), AddValueList, $(OpenPGPMacKey), $(NewValueList)
CloseRegKey $(OpenPGPMacKey)
;
; If we added a virtual adapter, tell NCPA to review bindings
; again after this completes.
;
ifstr(i) $(AddedNewVirtualAdapter) == "Yes"
Set RegKey = $(!NTN_SoftwareBase)"\Microsoft\NCPA\CurrentVersion"
OpenRegKey $(!REG_H_LOCAL) "" $(RegKey) $(MAXIMUM_ALLOWED) NcpaKey
ifstr(i) $(NcpaKey) != ""
SetRegValue $(NcpaKey) {"BindRestart",$(NoTitle),$(!REG_VT_DWORD),1}
Debug-Output "PGPMac: set BindRestart to 1 in "$(RegKey)
CloseRegKey $(NcpaKey)
else
Debug-Output "PGPMac: failed to open "$(RegKey)
endif
else
Set NetPathRegKey = "SOFTWARE\Network Associates\PGP\PGPnet"
OpenRegKey $(!REG_H_LOCAL) "" $(NetPathRegKey) $(MAXIMUM_ALLOWED) NetaPathKey
ifstr(i) $(NetaPathKey) != ""
GetRegValue $(NetaPathKey) "AdapterNum" NetaList
set AdptNum = *($(NetaList),4)
endif
;disable us from us
Shell "", FlipBinding, "PGPMac", $(AdapterProductHardwareName)$(AdptNum), "OFF"
set BNumber = $($R0)
ifstr(i) $(BNumber) != ""
Shell $(UtilityInf),ToggleBinding, "PGPMac", $(BNumber) , "disable"
endif
;disable dRmon from us if present
Shell "", FlipBinding, "DTA", $(AdapterProductHardwareName)$(AdptNum), "OFF"
set BNumber = $($R0)
ifstr(i) $(BNumber) != ""
Shell $(UtilityInf),ToggleBinding, "DTA", $(BNumber) , "disable"
endif
;Get registry values for secured card
Set NetaRegKey = "SOFTWARE\Network Associates\PGP\PGPnet"
OpenRegKey $(!REG_H_LOCAL) "" $(NetaRegKey) $(MAXIMUM_ALLOWED) NetaKey
ifstr(i) $(NetaKey) != ""
GetRegValue $(NetaKey) "SecuredCard" SecuredCardList
set SecuredCard = *($(SecuredCardList),4)
endif
ifstr(i) $(NetaKey) != ""
GetRegValue $(NetaKey) "AdapterNum" SecuredCardNumberList
set SecuredCardNumber = *($(SecuredCardNumberList),4)
endif
;Copy WINS values to our card
Set DstRegKey = $(!NTN_ServiceBase)"\NetBT\Adapters"
Set SrcRegKey = $(!NTN_ServiceBase)"\NetBT\Adapters\"$(SecuredCard)
Debug-Output "DstRegKey is "$(DstRegKey)
OpenRegKey $(!REG_H_LOCAL) "" $(DstRegKey) $(MAXIMUM_ALLOWED) HDestRegistryKey
OpenRegKey $(!REG_H_LOCAL) "" $(SrcRegKey) $(MAXIMUM_ALLOWED) HSrcRegistryKey
Shell $(UtilityInf),CopyRegTreeAs, $(HSrcRegistryKey), $(HDestRegistryKey) , $(AdapterProductHardwareName)$(SecuredCardNumber), "FALSE"
CloseRegKey $(HDestRegistryKey)
CloseRegKey $(HSrcRegistryKey)
endif
endif
goto successful
deinstall = +
read-syms GeneralConstants
Set NetaRegKey = "SOFTWARE\Network Associates\PGP\PGPnet"
OpenRegKey $(!REG_H_LOCAL) "" $(NetaRegKey) $(MAXIMUM_ALLOWED) NetaKey
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -