Source code of Windows XP (NT5)
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

3068 lines
103 KiB

;------------------------------------------------------------------------
; Copyright(c) 1992-93 Microsoft Corporation
;
; Services for Macintosh Setup INF File.
;
; Author: KrishG
;
; Revision History: 3/3/93 - Changed for Custom/Express removal
;------------------------------------------------------------------------
[Identification]
OptionType = NetService
[Options]
SFM
[FileConstants]
ProductFullInfName = "oemnsvsm.inf"
Manufacturer = "Microsoft"
ProductMajorVersion = 4
ProductMinorVersion = 0
ProductVersion = $(ProductMajorVersion)"."$(ProductMinorVersion)
ProductOpSupport = 134 ; 0x0086 ; Display,Removable,Properties,Not Updatable
; flag indicates AppleTalk has been installed for the first time.
IsInitialInstall = 0
SFMUnattended = 0
;------------------------------------------------------------------------
; SFM Software Data
;------------------------------------------------------------------------
ProductSFMName = "SFM"
; AppleTalk Transport Product Descriptions /Net Rules
ProductATALKName = "AppleTalk"
ProductATALKImagePath = "%SystemRoot%\system32\drivers\sfmatalk.sys"
ProductATALKSvcType = "kernel"
ProductATALKType = "transport"
ProductATALKEventDll = "%SystemRoot%\system32\sfmatmsg.dll"
NetRuleATALKType = "appletalk appletalktransport"
NetRuleATALKUse = $(ProductATALKType)" none none"
NetRuleATALKBindForm = """appletalk"" yes yes container"
NetRuleATALKClass = {"appletalktransport basic "}
NetRuleATALKBindList = {"appletalktransport ndisDriver non non 100", +
"appletalktransport ltkndisDriver non exclusive 100" }
;------------------------------------------------------------------------
; Afp Server Service and Server Product Descriptions /Net Rules
;------------------------------------------------------------------------
ProductAFPSVCName = "MacFile"
ProductAFPSVCImagePath = "%SystemRoot%\system32\sfmsvc.exe"
ProductAFPSVCType = "service"
ProductAFPSVCEventDll = "%SystemRoot%\system32\sfmmsg.dll"
NetRuleAFPSVCType = "MacFile lmNetService"
NetRuleAFPSVCUse = "service"
ProductAFPSRVRName = "MacSrv"
ProductAFPSRVRImagePath = "%SystemRoot%\system32\drivers\sfmsrv.sys"
ProductAFPSRVREventDll = "%SystemRoot%\system32\sfmmsg.dll"
;------------------------------------------------------------------------
; Macintosh Print Server Product Descriptions /Net Rules
;------------------------------------------------------------------------
ProductMACPRINTName = "MacPrint"
ProductMACPRINTImagePath = "%SystemRoot%\system32\sfmprint.exe"
ProductMACPRINTType = "service"
ProductMACPRINTEventDll = "%SystemRoot%\system32\sfmprint.exe"
ProductMonitorDll = "sfmmon.dll"
ProductMonitorEventDll = "%SystemRoot%\system32\sfmmon.dll"
;------------------------------------------------------------------------
; Dll And File Names
;---------------------------------------------------------------------
UtilDll = "sfmutil.dll"
ResDll = "sfmres.dll"
IconsInfFile = "sfmicons.inf"
!UamResSrcFile = "sfmuam.rsc"
!UamInfoSrcFile = "sfmuam.ifo"
!UamResDestFile = "MS UAM:Afp_Resource"
!UamInfoDestFile = "MS UAM:Afp_AfpInfo"
!UamReadMeSrcFile = "sfmuam.txt"
; !UamReadMeDestFile = "ReadMe.UAM"
NtNetIniFileName = $(!STF_WINDOWSSYSPATH)"\ntnet.ini"
WinFileIniFileName = $(!STF_WINDOWSSYSPATH)"\winfile.ini"
AfpMgrCplFile = "sfmmgr.cpl"
SrvMgrIniSection = "SMAddons"
WinFileIniSection = "Addons"
TypeCreatorMapFile = "sfmmap.inf"
AtWinSockDll = "sfmwshat.dll"
PSprintProcFile = "sfmpsprt.dll"
PSprintProc = "SFMPSPRT"
;------------------------------------------------------------------------
; Product Key Names, Registry Key Names of Interest
;-------------------------------------------------------------------------
!ProductKeyBase = $(!NTN_SoftwareBase)"\"$(Manufacturer)
!ProductKeyName = $(!NTN_SoftwareBase)"\"$(Manufacturer)"\"$(ProductSFMName)"\CurrentVersion"
!ProductATALKKeyName = $(!NTN_SoftwareBase)"\"$(Manufacturer)"\"$(ProductATALKName)
!ProductKeyLinkage = $(!NTN_ServiceBase)"\"$(ProductATALKName)"\Linkage"
!PrintMonKeyName = "SYSTEM\CurrentControlSet\Control\Print\Monitors"
!EventLogKey = $(!NTN_ServiceBase)"\EventLog\Application"
;------------------------------------------------------------------------
; Performance data
;------------------------------------------------------------------------
AfpPerfLibraryName = "sfmctrs.dll"
AfpPerfOpenFunction = "OpenAfpPerformanceData"
AfpPerfCloseFunction = "CloseAfpPerformanceData"
AfpPerfCollectFunction = "CollectAfpPerformanceData"
AfpCounterFileName = "sfmctrs.ini"
AfpEventLogName = "sfmctrs"
AtalkPerfLibraryName = "atkctrs.dll"
AtalkPerfOpenFunction = "OpenAtkPerformanceData"
AtalkPerfCloseFunction = "CloseAtkPerformanceData"
AtalkPerfCollectFunction = "CollectAtkPerformanceData"
AtalkCounterFileName = "atkctrs.ini"
AtalkEventLogName = "atkctrs"
!PerfKeyName = "Performance"
[GeneralConstants]
UtilInf = "UTILITY.INF"
SubInf = "SUBROUTN.INF"
!KeyNull = ""
!ACCESS = 33554432
!SERVICE_NO_CHANGE = 4294967295
RegistryErrorIndex = NO_ERROR
KeyProduct = ""
KeyParameters = ""
TRUE = 1
FALSE = 0
NoTitle = 0
!UamCopyStatus = TRUE
; !DebugOutputControl = 0
[date]
Now = {} ? $(!LIBHANDLE) GetSystemDate
[AvailableSystemMemory]
SystemMemory = "" ? $(!LIBHANDLE) GetMemorySize
MinSystemMemory = 2048
[FSAndDiskSpace]
VolumeList = {} ? $(!LIBHANDLE) GetHardDriveLetters
VolumeFreeList = {} ? $(!LIBHANDLE) GetHardDriveFreeSpace
VolumeFSList = {} ? $(!LIBHANDLE) GetHardDriveFileSystems
[VolList]
VolumeFSList = {} ? $(!LIBHANDLE) GetHardDriveFileSystems
VolumeList = {} ? $(!LIBHANDLE) GetHardDriveLetters
[ExtensionIds]
XCEL1ID = {"ID=1"}
XCEL2ID = {"ID=2"}
XCEL3ID = {"ID=3"}
XCEL4ID = {"ID=4"}
XCEL5ID = {"ID=5"}
XCEL6ID = {"ID=6"}
XCEL7ID = {"ID=7"}
XCEL8ID = {"ID=8"}
XCEL9ID = {"ID=9"}
XCEL10ID = {"ID=10"}
XCEL11ID = {"ID=11"}
XCEL12ID = {"ID=12"}
XCEL13ID = {"ID=13"}
MSWD1ID = {"ID=14"}
MSWD2ID = {"ID=15"}
MSPJ1ID = {"ID=16"}
MSPJ2ID = {"ID=17"}
MSPJ3ID = {"ID=18"}
MSPJ4ID = {"ID=19"}
MSPJ5ID = {"ID=20"}
MSPJ6ID = {"ID=5016"}
ALD31ID = {"ID=21"}
ALD32ID = {"ID=22"}
ALD33ID = {"ID=23"}
MOREID = {"ID=24"}
FOX+ID = {"ID=25"}
ALD41ID = {"ID=26"}
ALD42ID = {"ID=27"}
ALD43ID = {"ID=28"}
ARTZID = {"ID=29"}
SIT!ID = {"ID=30"}
PPT2ID = {"ID=31"}
PPT3ID = {"ID=32"}
L123ID = {"ID=33"}
LMANID = {"ID=34"}
TTXTID = {"ID=35"}
FOXX1ID = {"ID=5000"}
FOXX2ID = {"ID=5001"}
FOXX3ID = {"ID=5002"}
FOXX4ID = {"ID=5003"}
FOXX5ID = {"ID=5004"}
FOXX6ID = {"ID=5005"}
FOXX7ID = {"ID=5006"}
FOXX8ID = {"ID=5007"}
FOXX9ID = {"ID=5008"}
FOXX10ID = {"ID=5009"}
FOXX11ID = {"ID=5010"}
FOXX12ID = {"ID=5011"}
FOXX13ID = {"ID=5012"}
FOXX14ID = {"ID=5013"}
FOXX15ID = {"ID=5014"}
FOXX16ID = {"ID=5015"}
[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
set-subst LF = "\n"
set-subst CR = "\r"
read-syms GeneralConstants
read-syms FileConstants
read-syms DialogConstants$(!STF_LANGUAGE)
read-syms FileConstants$(!STF_LANGUAGE)
detect date
set-title $(FunctionTitle)
set CommonStatus = STATUS_SUCCESSFUL
Debug-Output "SFMSETUP: Install Mode = "$(!NTN_InstallMode)
Debug-Output "SFMSETUP: Origin = "$(!NTN_Origination)
Debug-Output "SFMSETUP: Phase = "$(!NTN_InstallPhase)
Debug-Output "SFMSETUP: Context INF = "$(!STF_CONTEXTINFNAME)
Begin = +
Set REMOVE_SOFTWARE = {}
Set REMOVE_SERVICES = {}
IfStr(i) $(!NTN_InstallMode) == deinstall
Set StartLabel = Removesfm
Set REMOVE_SOFTWARE = { $(ProductATALKName),+
$(ProductAFPSVCName),+
$(ProductMACPRINTName)+
}
Set REMOVE_SERVICES = {$(ProductAFPSRVRName)}
LoadLibrary "x" $(!STF_CWDDIR)$(UtilDll) !UTILHANDLE
else-Ifstr(i) $(!NTN_InstallMode) == Update
set StartLabel = Upgradesfm
else-Ifstr(i) $(!NTN_InstallMode) == configure
set StartLabel = Configuresfm
else-Ifstr(i) $(!NTN_InstallMode) == bind
set StartLabel = Bindingssfm
else-Ifstr(i) $(!NTN_InstallMode) == install
set StartLabel = Installsfm
else
Set StartLabel = end
endif
goto $(StartLabel)
;------------------------------------------------------------------
; Install the product
;------------------------------------------------------------------
Installsfm = +
Set FLibraryErrCtl = 1
; Detect if we are already installed. If installed, ask the user to
; use the update option. Otherwise ask the user to input the
; location of the SFM files
OpenRegKey $(!REG_H_LOCAL) "" $(!ProductKeyName) $(!ACCESS) KeyProduct
Ifstr $(KeyProduct) != $(!KeyNull)
GetRegValue $(KeyProduct) $(MajorVersion) VersionInfo
set VersionMajor = *($(VersionInfo), 4)
GetRegValue $(KeyProduct) $(MinorVersion) VersionInfo
set VersionMinor = *($(VersionInfo), 4)
set InstalledVersion = $(VersionMajor)"."$(VersionMinor)
ifstr(i) $(ProductVersion) == $(InstalledVersion)
read-syms MiscErrorString1$(!STF_LANGUAGE)
Set Text = $(Version)$(ProductVersion)
Shell $(SubInf), SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(Text)$(ErrorString)
goto end
EndIf
EndIf
ifstr(i) $(!NTN_InstallMode) == "install"
Ifstr(i) $(DoCopy) == "YES"
Shell $(UtilInf), DoAskSource, $(!STF_CWDDIR), $(SrcDir) YES
Ifint $($ShellCode) != $(!SHELL_CODE_OK)
Goto ShellCodeError
Else-Ifstr(i) $($R0) == STATUS_FAILED
Shell $(UtilInf) RegistryErrorString "ASK_SOURCE_FAIL"
ifint $($ShellCode) != $(!SHELL_CODE_OK)
goto ShellCodeError
endif
set Error = $($R0)
Goto end
Else-Ifstr(i) $($R0) == STATUS_USERCANCEL
Goto end
Endif
Set SrcDir = $($R1)
Endif
Endif
read-syms AvailableSystemMemory
detect AvailableSystemMemory
Ifint $(SystemMemory) < $(MinSystemMemory)
read-syms MiscErrorString2(!STF_LANGUAGE)
shell $(SubInf) SetupMessage $(!STF_LANGUAGE) "FATAL" $(ErrorString)
goto end
EndIf
read-syms FSAndDiskSpace
detect FSAndDiskSpace
GetDriveInPath NtDrive $(!STF_WINDOWSSYSPATH)
; Check if the user has any NTFS Volumes or not
Set NTFSVolExists = FALSE
Set !NTFSVolumeList = {}
ForListDo $(VolumeFSList)
Ifstr(i) $($) == "NTFS"
Set NTFSVolExists = TRUE
Set NTFSVolumeList = >($(NTFSVolumeList),*($(VolumeList),$(#)))
EndIf
EndForListDo
Ifstr(i) $(!STF_GUI_UNATTENDED) != YES
Ifstr(i) $(NTFSVolExists) == FALSE
Debug-Output "OEMNSVSM.INF:Install Phase = "$(!NTN_InstallPhase)
Ifstr(i) $(!NTN_InstallPhase) == primary
read-syms NTFSFormatHappening$(!STF_LANGUAGE)
Shell $(SubInf) SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(ErrorString)
Else
read-syms AFPString1$(!STF_LANGUAGE)
Shell $(SubInf) SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(ErrorString)
EndIf
EndIf
Endif
;
; Check if there is enough space in the Windows NT System Drive.
; If not enough space, tell the user ot make some space and retry
;
readvollist = +
ForListDo $(VolumeList)
set CurrentVolume = *($(VolumeList), $(#))
set CurrentVolumeFree = *($(VolumeFreeList), $(#))
Ifstr(i) $(CurrentVolume) == $(NtDrive)
Ifint $(CurrentVolumeFree) < $(RequiredSfmSize)
read-syms SetupSpaceDlg$(!STF_LANGUAGE)
ui start "SetupSpaceDlg"
Ifstr(i) $(DLGEVENT) == "RETRY"
read-syms FSAndDiskSpace
detect FSAndDiskSpace
goto readvollist
else
goto initialsetupcancel
EndIf
EndIf
EndIf
EndForListDo
;------------------------------------------------------------------
; Copy the SFM Files
;------------------------------------------------------------------
CopySfmFiles = +
install "Install-Initial"
ifstr(i) $(STF_INSTALL_OUTCOME) != STF_SUCCESS
read-syms StatusRemoveSfm$(!STF_LANGUAGE)
Shell $(SubInf) PushBillBoard NETSTATUSDLG $(Status)
Shell "" RemoveSfmFiles "INSTALL"
Shell $(SubInf) PopBillBoard
goto usercancel
endif
; add our inf file to the ReviewPrograms List of NCPA so that
; we will be called last for review bindings.
Shell "" AddInfToReviewProgramsList
ifint $($ShellCode) != $(!SHELL_CODE_OK)
Debug-Output "error shelling AddInfToReviewProgramsList."
goto ShellCodeError
endif
ifstr(i) $($R0) != STATUS_SUCCESSFUL
Debug-Output "error returned by AddInfToReviewProgramsList."
endif
LoadLibrary "x" $(!STF_CWDDIR)$(UtilDll) !UTILHANDLE
Set Result = ""
Set FLibraryErrCtl = 1
StartInstall = +
Set REMOVE_FLAG = TRUE
; this flag is used to determine if AppleTalk print monitor should be
; installed by SFM setup. If AppleTalk was previously installed and
; the user is attempting to isntall SFM on top of it, then the PrintMon
; was previously installed as well.
set PrintMonInstalled = FALSE
read-syms StatusInstallSfm$(!STF_LANGUAGE)
Shell $(SubInf) PushBillBoard NETSTATUSDLG $(Status)
StartWait
Set ThisOption = "SFM"
Shell $(UtilInf), InstallSoftwareProduct, $(Manufacturer),$(Product$(ThisOption)Name), $(ProductFullInfName)
ifint $(ShellCode) != 0
goto ShellCodeError
endif
set RegistryErrorIndex = $($R0)
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
CloseRegKey $($R1)
CloseRegKey $($R2)
goto fatalregistry
Endif
Set SfmProductKey = $($R1)
Set SfmNetRuleKey = $($R2)
; set product key information in the registry
set NewValueList = +
{{SoftwareType,0,$(!REG_VT_SZ),"service")},+
{Infname,0,$(!REG_VT_SZ),$(ProductFullInfName)},+
{Title,0,$(!REG_VT_SZ), $(Product$(ThisOption)Title)},+
{Description,$(NoTitle),$(!REG_VT_SZ),$(Product$(ThisOption)Description)},+
{MajorVersion,0,$(!REG_VT_DWORD),$(ProductMajorVersion)},+
{MinorVersion,0,$(!REG_VT_DWORD),$(ProductMinorVersion)},+
{InstalledComponents,$(NoTitle),$(!REG_VT_MULTI_SZ),$(TobeInstalledList)},+
{OperationsSupport,$(NoTitle),$(!REG_VT_DWORD),$(ProductOpSupport)}, +
{InstallDate,0,$(!REG_VT_DWORD),*($(Now),1)}}
Shell $(UtilInf), AddValueList, $(SfmProductKey), $(NewValueList)
ifint $(ShellCode) != 0
goto ShellCodeError
endif
set RegistryErrorIndex = $($R0)
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
CloseRegKey $(SfmProductKey)
CloseRegKey $(SfmNetRuleKey)
goto fatalregistry
endif
Set NewValueList = {{InfOption,$(NoTitle),$(!REG_VT_SZ),$(ThisOption)}, +
{Infname,$(NoTitle),$(!REG_VT_SZ),$(ProductFullInfName)}}
Shell $(UtilInf), AddValueList, $(SfmNetRuleKey), $(NewValueList)
ifint $(ShellCode) != 0
goto ShellCodeError
endif
set RegistryErrorIndex = $($R0)
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
CloseRegKey $(SfmProductKey)
CloseRegKey $(SfmNetRuleKey)
goto fatalregistry
Endif
CloseRegKey $(SfmProductKey)
CloseRegKey $(SfmNetRuleKey)
Set ThisOption = ATALK
Set REMOVE_SOFTWARE = >($(REMOVE_SOFTWARE), $(Product$(ThisOption)Name))
Set Atalk_DependList = {}
Set FLibraryErrCtl = 1
Shell $(UtilInf), AddSoftwareComponent,+
$(Manufacturer), +
$(Product$(ThisOption)Name),+
$(Product$(ThisOption)Name), +
$(Product$(ThisOption)DisplayName), +
$(ProductFullInfName),+
$(Product$(ThisOption)ImagePath),+
"kernelautostart", "PNP_TDI",+
$(Atalk_DependList), "",+
$(Product$(ThisOption)EventDll)
Set FLibraryErrCtl = 0
Set RegistryErrorIndex = $($R0)
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
; If AppleTalk already exists, then this means the user is trying
; to install SFM on top of an AppleTalk install.
; Let us set the Review flag of AppleTalk to 0 so that review bindings
; happens only once. set the MonitorInstalled flag to TRUE to indicate
; that the print monitor was previously installed.
ifstr(i) $(RegistryErrorIndex) == SERVICE_ALREADY_EXISTS
OpenRegKey $(!REG_H_LOCAL) "" +
$(!NTN_SoftwareBase)"\Microsoft\AppleTalk\CurrentVersion" +
$(!ACCESS) AtalkKey
Ifstr(i) $(AtalkKey) != $(!KeyNull)
SetRegValue $(AtalkKey) {Review,0,$(!REG_VT_DWORD),0}
CloseRegKey $(AtalkKey)
endif
set PrintMonInstalled = TRUE
goto InstallAFPSVC
endif
CloseRegKey $($R1)
CloseRegKey $($R2)
CloseRegKey $($R3)
CloseRegKey $($R4)
CloseRegKey $($R5)
goto fatalregistry
EndIf
; At this point:
; $R1 contains the product version key handle;
; $R2 contains the NetRules subkey handle;
; $R3 contains the new Services key handle; and
; $R4 contains the Parameters key
; $R5 contains the Linkage Key
;
Set AtkVersKey = $($R1)
Set AtkNetRuleKey = $($R2)
Set AtkSvcKey = $($R3)
Set AtalkParameters = $($R4)
Set AtkLinkageKey = $($R5)
set NewValueList = +
{{SoftwareType,0,$(!REG_VT_SZ),$(Product$(ThisOption)Type)},+
{Title,0,$(!REG_VT_SZ),$(Product$(ThisOption)Title)},+
{Description,0,$(!REG_VT_SZ),$(Product$(ThisOption)Description)},+
{PathName,0,$(!REG_VT_SZ),"%SystemRoot%\system32"},+
{ServiceName,0,$(!REG_VT_SZ),$(Product$(ThisOption)Name)},+
{Hidden,0,$(!REG_VT_DWORD),1},+
{InstallDate,0,$(!REG_VT_DWORD),*($(Now),1)}}
Shell $(UtilInf), AddValueList, $(AtkVersKey), $(NewValueList)
set RegistryErrorIndex = $($R0)
Ifstr $(RegistryErrorIndex) != NO_ERROR
CloseRegKey $(AtkVersKey)
CloseRegKey $(AtkNetRuleKey)
CloseRegKey $(AtkSvcKey)
CloseRegKey $(AtkLinkageKey)
CloseRegKey $(AtalkParameters)
goto fatalregistry
EndIf
set NewValueList = +
{{type,0,$(!REG_VT_SZ),$(NetRule$(ThisOption)Type)}, +
{use,0,$(!REG_VT_SZ),$(NetRule$(ThisOption)Use)}, +
{bindform,0,$(!REG_VT_SZ),$(NetRule$(ThisOption)BindForm)}, +
{class,0, $(!REG_VT_MULTI_SZ),$(NetRule$(ThisOption)Class)}, +
{bindable,0, $(!REG_VT_MULTI_SZ), $(NetRule$(ThisOption)BindList)},+
{InfOption,0,$(!REG_VT_SZ),$(ThisOption)}, +
{Infname,0,$(!REG_VT_SZ),$(ProductFullInfName)} }
Shell $(UtilInf), AddValueList, $(AtkNetRuleKey), $(NewValueList)
set RegistryErrorIndex = $($R0)
Ifstr $(RegistryErrorIndex) != NO_ERROR
CloseRegKey $(AtkVersKey)
CloseRegKey $(AtkNetRuleKey)
CloseRegKey $(AtkSvcKey)
CloseRegKey $(AtkLinkageKey)
CloseRegKey $(AtalkParameters)
goto fatalregistry
EndIf
;
; Create the Adapters Key
; CODEWORK - Localize ?
;
CreateRegKey $(AtkSvcKey), {"Adapters",0,GenericClass},+
"", $(!ACCESS), "" , KeyAdapters
; write global parameters
Set DesiredZone = ""
Set UnattendInstallMode = 0
Ifstr(i) $(!STF_UNATTENDED) == YES
set UnattendInstallMode = 1
Debug-Output "SFMSETUP: UnattendInstallMode(1) = "$(UnattendInstallMode)
endif
Ifstr(i) $(!STF_GUI_UNATTENDED) == YES
set UnattendInstallMode = 1
Debug-Output "SFMSETUP: UnattendInstallMode(2) = "$(UnattendInstallMode)
endif
set NewValueList = +
{{EnableRouter,0,$(!REG_VT_DWORD),0},+
{InitialInstall,0, $(!REG_VT_DWORD),1},+
{Unattended,0, $(!REG_VT_DWORD),$(UnattendInstallMode)},+
{DesiredZone,0,$(!REG_VT_SZ),$(DesiredZone)}}
Shell $(UtilInf), AddValueList, $(AtalkParameters), $(NewValueList)
set RegistryErrorIndex = $($R0)
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
CloseRegKey $(KeyAdapters)
goto fatalregistry
EndIf
; Add WinSock Support to AppleTalk
Set WinAtalkDll = "%SystemRoot%\System32\"$(AtWinSockDll)
Set MaxSockAddrLen = 8
Set MinSockAddrLen = 6
Shell $(UtilInf) AddWinsockInfo $(Product$(ThisOption)Name), +
$(WinAtalkDll), +
$(MaxSockAddrLen),+
$(MinSockAddrLen)
ifstr(i) $($R0) != NO_ERROR
read-syms AtalkString1$(!STF_LANGUAGE)
Shell $(SubInf) SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(ErrorString)
Endif
; Add the performance data to the AppleTalk\performance service key
Shell "" CreatePerfKey $(AtkSvcKey) $(AtalkPerfLibraryName) +
$(AtalkCounterFileName) $(AtalkPerfOpenFunction) +
$(AtalkPerfCloseFunction) $(AtalkPerfCollectFunction)
Ifstr(i) $($R0) != STATUS_SUCCESSFUL
Set RegistryErrorIndex = $($R1)
goto fatalregistry
EndIf
; Add the performance dll to the EventLog
Shell "" CreateEventLogKey $(AtalkEventLogName) $(AtalkPerfLibraryName)
Ifstr(i) $($R0) != STATUS_SUCCESSFUL
Set RegistryErrorIndex = $($R1)
goto fatalregistry
EndIf
Shell "utility.inf" AddRpcProtocol ncacn_at_dsp rpclt1.dll rpclt1.dll
; close all open keys
CloseAtkKeys = +
CloseRegKey $(AtkVersKey)
CloseRegKey $(AtkNetRuleKey)
CloseRegKey $(AtkSvcKey)
CloseRegKey $(AtkLinkageKey)
CloseRegKey $(AtalkParameters)
CloseRegKey $(KeyAdapters)
InstallAFPSVC =+
; Install AFPSVC
Set ThisOption = AFPSVC
Set REMOVE_SOFTWARE = >($(REMOVE_SOFTWARE), $(Product$(ThisOption)Name))
Set REMOVE_SERVICES = >($(REMOVE_SERVICES), $(ProductAFPSRVRName))
Set FLibraryErrCtl = 1
Shell $(UtilInf), AddSoftwareComponent, +
$(Manufacturer), +
$(Product$(ThisOption)Name),+
$(Product$(ThisOption)Name), +
$(Product$(ThisOption)DisplayName), +
$(ProductFullInfName),+
$(Product$(ThisOption)ImagePath),+
"autoserviceshare", "",+
{"AppleTalk","LanManWorkStation"}, "",+
$(Product$(ThisOption)EventDll)
Set FLibraryErrCtl = 0
Ifint $(ShellCode) != 0
goto ShellCodeError
endif
set RegistryErrorIndex = $($R0)
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
CloseRegKey $($R1)
CloseRegKey $($R2)
CloseRegKey $($R3)
CloseRegKey $($R4)
CloseRegKey $($R5)
goto fatalregistry
endif
;
; At this point:
; $R1 contains the product version key handle;
; $R2 contains the NetRules subkey handle;
; $R3 contains the new Services key handle; and
; $R4 contains the Parameters key
;
Set McProductKey = $($R1)
Set McNetRuleKey = $($R2)
Set McServiceKey = $($R3)
set McParameters = $($R4)
Set McLinkageKey = $($R5)
set NewValueList = +
{{SoftwareType,0 ,$(!REG_VT_SZ),$(Product$(ThisOption)Type)},+
{Title,0,$(!REG_VT_SZ),$(Product$(ThisOption)Title)},+
{Description,0,$(!REG_VT_SZ),$(Product$(ThisOption)Description)},+
{PathName,0,$(!REG_VT_SZ),"%SystemRoot%\system32"},+
{ServiceName,0,$(!REG_VT_SZ),$(Product$(ThisOption)Name)},+
{Hidden,0,$(!REG_VT_DWORD),1},+
{InstallDate,0,$(!REG_VT_DWORD),*($(Now),1)}}
Shell $(UtilInf),AddValueList,$(McProductKey),$(NewValueList)
ifint $(ShellCode) != 0
goto ShellCodeError
endif
set RegistryErrorIndex = $($R0)
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
CloseRegKey $(McProductKey)
CloseRegKey $(McNetRuleKey)
CloseRegKey $(McServiceKey)
CloseRegKey $(McParameters)
CloseRegKey $(McLinkageKey)
goto fatalregistry
Endif
set NewValueList = +
{{InfOption,$(NoTitle),$(!REG_VT_SZ),$(ThisOption)}, +
{Infname ,$(NoTitle),$(!REG_VT_SZ),$(ProductFullInfName)}}
Shell $(UtilInf), AddValueList, $(McNetRuleKey), $(NewValueList)
ifint $(ShellCode) != 0
goto ShellCodeError
endif
set RegistryErrorIndex = $($R0)
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
CloseRegKey $(McProductKey)
CloseRegKey $(McNetRuleKey)
CloseRegKey $(McServiceKey)
CloseRegKey $(McParameters)
CloseRegKey $(McLinkageKey)
goto fatalregistry
endif
CreateRegKey $(McParameters) {"Type_Creators",0,GenericClass} "" +
$(!ACCESS) "" KeyTypeCreator
CreateRegKey $(McParameters) {"Extensions",0,GenericClass} "" +
$(!ACCESS) "" KeyExtensions
CreateRegKey $(McParameters) {"Icons",0,GenericClass} "" +
$(!ACCESS) "" KeyIcons
CreateRegKey $(McParameters) {"Volumes",$(NoTitle),GenericClass} "" +
$(!ACCESS) "" KeyVolumeList
Shell $(!STF_CWDDIR)$(IconsInfFile) ReadIconVariables
set NewValueList = +
{{LMANDEXE,0,$(!REG_VT_MULTI_SZ),$(!LMANDEXE)},+
{LMANTEXT,0, $(!REG_VT_MULTI_SZ),$(!LMANTEXT)},+
{SRVRSRVR,0, $(!REG_VT_MULTI_SZ),$(!SRVRSRVR)}}
Shell $(UtilInf),AddValueList,$(KeyIcons),$(NewValueList)
ifint $(ShellCode) != 0
goto ShellCodeError
endif
set RegistryErrorIndex = $($R0)
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
CloseRegKey $(McProductKey)
CloseRegKey $(McNetRuleKey)
CloseRegKey $(McServiceKey)
CloseRegKey $(McParameters)
CloseRegKey $(McLinkageKey)
goto fatalregistry
endif
; Set TypeCreator Mappings
read-syms TCComments$(!STF_LANGUAGE)
Shell $(!STF_CWDDIR)$(TypeCreatorMapFile) ReadTypeCreatorMappings
Set NewValueList = +
{{1,0,$(!REG_VT_MULTI_SZ),$(!XCEL1CREATOR)},+
{2,0,$(!REG_VT_MULTI_SZ),$(!XCEL2CREATOR)},+
{3,0,$(!REG_VT_MULTI_SZ),$(!XCEL3CREATOR)},+
{4,0,$(!REG_VT_MULTI_SZ),$(!XCEL4CREATOR)},+
{5,0,$(!REG_VT_MULTI_SZ),$(!XCEL5CREATOR)},+
{6,0,$(!REG_VT_MULTI_SZ),$(!XCEL6CREATOR)},+
{7,0,$(!REG_VT_MULTI_SZ),$(!XCEL7CREATOR)},+
{8,0,$(!REG_VT_MULTI_SZ),$(!XCEL8CREATOR)},+
{9,0,$(!REG_VT_MULTI_SZ),$(!XCEL9CREATOR)},+
{10,0,$(!REG_VT_MULTI_SZ),$(!XCEL10CREATOR)},+
{11,0,$(!REG_VT_MULTI_SZ),$(!XCEL11CREATOR)},+
{12,0,$(!REG_VT_MULTI_SZ),$(!XCEL12CREATOR)},+
{13,0,$(!REG_VT_MULTI_SZ),$(!XCEL13CREATOR)},+
{14,0,$(!REG_VT_MULTI_SZ),$(!MSWD1CREATOR)},+
{15,0,$(!REG_VT_MULTI_SZ),$(!MSWD2CREATOR)},+
{16,0,$(!REG_VT_MULTI_SZ),$(!MSPJ1CREATOR)},+
{17,0,$(!REG_VT_MULTI_SZ),$(!MSPJ2CREATOR)},+
{18,0,$(!REG_VT_MULTI_SZ),$(!MSPJ3CREATOR)},+
{19,0,$(!REG_VT_MULTI_SZ),$(!MSPJ4CREATOR)},+
{20,0,$(!REG_VT_MULTI_SZ),$(!MSPJ5CREATOR)},+
{5016,0,$(!REG_VT_MULTI_SZ),$(!MSPJ6CREATOR)},+
{21,0,$(!REG_VT_MULTI_SZ),$(!ALD31CREATOR)},+
{22,0,$(!REG_VT_MULTI_SZ),$(!ALD32CREATOR)},+
{23,0,$(!REG_VT_MULTI_SZ),$(!ALD33CREATOR)},+
{24,0,$(!REG_VT_MULTI_SZ),$(!MORECREATOR)},+
{25,0,$(!REG_VT_MULTI_SZ),$(!FOX+CREATOR)},+
{26,0,$(!REG_VT_MULTI_SZ),$(!ALD41CREATOR)},+
{27,0,$(!REG_VT_MULTI_SZ),$(!ALD42CREATOR)},+
{28,0,$(!REG_VT_MULTI_SZ),$(!ALD43CREATOR)},+
{29,0,$(!REG_VT_MULTI_SZ),$(!ARTZCREATOR)},+
{30,0,$(!REG_VT_MULTI_SZ),$(!SIT!CREATOR)},+
{31,0,$(!REG_VT_MULTI_SZ),$(!PPT2CREATOR)},+
{32,0,$(!REG_VT_MULTI_SZ),$(!PPT3CREATOR)},+
{33,0,$(!REG_VT_MULTI_SZ),$(!L123CREATOR)},+
{34,0,$(!REG_VT_MULTI_SZ),$(!LMANCREATOR)},+
{35,0,$(!REG_VT_MULTI_SZ),$(!TTXTCREATOR)},+
{5000,0,$(!REG_VT_MULTI_SZ),$(!FOXX1CREATOR)},+
{5001,0,$(!REG_VT_MULTI_SZ),$(!FOXX2CREATOR)},+
{5002,0,$(!REG_VT_MULTI_SZ),$(!FOXX3CREATOR)},+
{5003,0,$(!REG_VT_MULTI_SZ),$(!FOXX4CREATOR)},+
{5004,0,$(!REG_VT_MULTI_SZ),$(!FOXX5CREATOR)},+
{5005,0,$(!REG_VT_MULTI_SZ),$(!FOXX6CREATOR)},+
{5006,0,$(!REG_VT_MULTI_SZ),$(!FOXX7CREATOR)},+
{5007,0,$(!REG_VT_MULTI_SZ),$(!FOXX8CREATOR)},+
{5008,0,$(!REG_VT_MULTI_SZ),$(!FOXX9CREATOR)},+
{5009,0,$(!REG_VT_MULTI_SZ),$(!FOXX10CREATOR)},+
{5010,0,$(!REG_VT_MULTI_SZ),$(!FOXX11CREATOR)},+
{5011,0,$(!REG_VT_MULTI_SZ),$(!FOXX12CREATOR)},+
{5012,0,$(!REG_VT_MULTI_SZ),$(!FOXX13CREATOR)},+
{5013,0,$(!REG_VT_MULTI_SZ),$(!FOXX14CREATOR)},+
{5014,0,$(!REG_VT_MULTI_SZ),$(!FOXX15CREATOR)},+
{5015,0,$(!REG_VT_MULTI_SZ),$(!FOXX16CREATOR)},+
{5100,0,$(!REG_VT_MULTI_SZ),$(!MSWD3CREATOR)},+
{5101,0,$(!REG_VT_MULTI_SZ),$(!MSWD4CREATOR)}}
Shell $(UtilInf),AddValueList,$(KeyTypeCreator),$(NewValueList)
ifint $(ShellCode) != 0
goto ShellCodeError
endif
set RegistryErrorIndex = $($R0)
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
CloseRegKey $(McProductKey)
CloseRegKey $(McNetRuleKey)
CloseRegKey $(McServiceKey)
CloseRegKey $(McParameters)
CloseRegKey $(McLinkageKey)
goto fatalregistry
endif
; Set Extensions
read-syms ExtensionIds
Set NewValueList = +
{{XLC,0,$(!REG_VT_MULTI_SZ),$(XCEL1ID)},+
{XLS,0,$(!REG_VT_MULTI_SZ),$(XCEL2ID)},+
{XLM,0,$(!REG_VT_MULTI_SZ),$(XCEL3ID)},+
{XLW,0,$(!REG_VT_MULTI_SZ),$(XCEL4ID)},+
{XLA,0,$(!REG_VT_MULTI_SZ),$(XCEL5ID)},+
{XLT,0,$(!REG_VT_MULTI_SZ),$(XCEL6ID)},+
{SLK,0,$(!REG_VT_MULTI_SZ),$(XCEL7ID)},+
{WKS,0,$(!REG_VT_MULTI_SZ),$(XCEL8ID)},+
{WK1,0,$(!REG_VT_MULTI_SZ),$(XCEL9ID)},+
{CSV,0,$(!REG_VT_MULTI_SZ),$(XCEL10ID)},+
{DIF,0,$(!REG_VT_MULTI_SZ),$(XCEL11ID)},+
{DOC,0,$(!REG_VT_MULTI_SZ),$(MSWD1ID)},+
{MCW,0,$(!REG_VT_MULTI_SZ),$(MSWD1ID)},+
{WRD,0,$(!REG_VT_MULTI_SZ),$(MSWD2ID)},+
{RTF,0,$(!REG_VT_MULTI_SZ),$(MSWD2ID)},+
{STY,0,$(!REG_VT_MULTI_SZ),$(MSWD2ID)},+
{GLY,0,$(!REG_VT_MULTI_SZ),$(MSWD2ID)},+
{TXT,0,$(!REG_VT_MULTI_SZ),$(MSWD2ID)},+
{MPP,0,$(!REG_VT_MULTI_SZ),$(MSPJ1ID)},+
{MPX,0,$(!REG_VT_MULTI_SZ),$(MSPJ2ID)},+
{MPC,0,$(!REG_VT_MULTI_SZ),$(MSPJ3ID)},+
{MPV,0,$(!REG_VT_MULTI_SZ),$(MSPJ4ID)},+
{MPW,0,$(!REG_VT_MULTI_SZ),$(MSPJ5ID)},+
{MPT,0,$(!REG_VT_MULTI_SZ),$(MSPJ6ID)},+
{PM4,0,$(!REG_VT_MULTI_SZ),$(ALD41ID)},+
{PT4,0,$(!REG_VT_MULTI_SZ),$(ALD42ID)},+
{TEM,0,$(!REG_VT_MULTI_SZ),$(ALD42ID)},+
{TPL,0,$(!REG_VT_MULTI_SZ),$(ALD42ID)},+
{TIF,0,$(!REG_VT_MULTI_SZ),$(ALD43ID)},+
{RDY,0,$(!REG_VT_MULTI_SZ),$(MOREID)},+
{PUB,0,$(!REG_VT_MULTI_SZ),$(ALD31ID)},+
{EPS,0,$(!REG_VT_MULTI_SZ),$(ARTZID)},+
{SIT,0,$(!REG_VT_MULTI_SZ),$(SIT!ID)},+
{PPT,0,$(!REG_VT_MULTI_SZ),$(PPT3ID)},+
{WK3,0,$(!REG_VT_MULTI_SZ),$(L123ID)},+
{UAM,0,$(!REG_VT_MULTI_SZ),$(TTXTID)},+
{EXE,0,$(!REG_VT_MULTI_SZ),$(LMANID)},+
{DLL,0,$(!REG_VT_MULTI_SZ),$(LMANID)},+
{COM,0,$(!REG_VT_MULTI_SZ),$(LMANID)},+
{BAT,0,$(!REG_VT_MULTI_SZ),$(LMANID)},+
{CMD,0,$(!REG_VT_MULTI_SZ),$(LMANID)},+
{SYS,0,$(!REG_VT_MULTI_SZ),$(LMANID)},+
{DBF,0,$(!REG_VT_MULTI_SZ),$(FOXX1ID)},+
{FPT,0,$(!REG_VT_MULTI_SZ),$(FOXX2ID)},+
{IDX,0,$(!REG_VT_MULTI_SZ),$(FOXX3ID)},+
{CDX,0,$(!REG_VT_MULTI_SZ),$(FOXX4ID)},+
{PRG,0,$(!REG_VT_MULTI_SZ),$(FOXX5ID)},+
{FRX,0,$(!REG_VT_MULTI_SZ),$(FOXX6ID)},+
{FRT,0,$(!REG_VT_MULTI_SZ),$(FOXX7ID)},+
{LBX,0,$(!REG_VT_MULTI_SZ),$(FOXX8ID)},+
{LBT,0,$(!REG_VT_MULTI_SZ),$(FOXX9ID)},+
{SCX,0,$(!REG_VT_MULTI_SZ),$(FOXX10ID)},+
{SCT,0,$(!REG_VT_MULTI_SZ),$(FOXX11ID)},+
{MNX,0,$(!REG_VT_MULTI_SZ),$(FOXX12ID)},+
{MNT,0,$(!REG_VT_MULTI_SZ),$(FOXX13ID)},+
{QPR,0,$(!REG_VT_MULTI_SZ),$(FOXX14ID)},+
{PJX,0,$(!REG_VT_MULTI_SZ),$(FOXX15ID)},+
{PJT,0,$(!REG_VT_MULTI_SZ),$(FOXX16ID)}}
Shell $(UtilInf),AddValueList,$(KeyExtensions),$(NewValueList)
ifint $(ShellCode) != 0
goto ShellCodeError
endif
set RegistryErrorIndex = $($R0)
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
CloseRegKey $(McProductKey)
CloseRegKey $(McNetRuleKey)
CloseRegKey $(McServiceKey)
CloseRegKey $(McParameters)
CloseRegKey $(McLinkageKey)
goto fatalregistry
endif
Ifstr(i) $(NTFSVolExists) == TRUE
Ifstr(i) $(!UamCopyStatus) == TRUE
Shell "" DoUAMInstall "INSTALL"
Ifint $($ShellCode) != $(!SHELL_CODE_OK)
Goto ShellCodeError
EndIf
EndIf
EndIf
; set ClearText for password to ON per Jameelh - ramc
SetRegValue $(McParameters) {ServerOptions,0,$(!REG_VT_DWORD),3}
; close the registry keys
CloseRegKey $(McProductKey)
CloseRegKey $(McNetRuleKey)
CloseRegKey $(McServiceKey)
CloseRegKey $(McParameters)
CloseRegKey $(McLinkageKey)
CloseRegKey $(KeyTypeCreator)
CloseRegKey $(KeyExtensions)
CloseRegKey $(KeyIcons)
CloseRegKey $(KeyVolumeList)
Set Afp_DependList = {"+TDI"}
Set FLibraryErrCtl = 1
Shell $(UtilInf) CreateService,+
$(ProductAFPSRVRName),$(ProductAFPSRVRDisplayName),+
$(ProductAFPSRVRImagePath),"system",+
"Network", $(Afp_DependList),"",+
$(ProductAFPSRVREventDll)
Set FLibraryErrCtl = 0
Ifint $($ShellCode) != $(!SHELL_CODE_OK)
goto ShellCodeError
endif
set RegistryErrorIndex = $($R0)
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
goto fatalregistry
endif
Set AfpSrvSvcKey = $($R1)
; Add the performance data to the MacSrv\performance service key
Shell "" CreatePerfKey $(AfpSrvSvcKey) $(AfpPerfLibraryName) +
$(AfpCounterFileName) $(AfpPerfOpenFunction) +
$(AfpPerfCloseFunction) $(AfpPerfCollectFunction)
Ifstr(i) $($R0) != STATUS_SUCCESSFUL
Set RegistryErrorIndex = $($R1)
goto fatalregistry
EndIf
; Add the performance dll to the EventLog
Shell "" CreateEventLogKey $(AfpEventLogName) $(AfpPerfLibraryName)
Ifstr(i) $($R0) != STATUS_SUCCESSFUL
Set RegistryErrorIndex = $($R1)
goto fatalregistry
EndIf
CloseRegKey $($R1)
CloseRegKey $($R2)
CloseRegKey $($R3)
; WRITE Private Profile String in NTNET.INI
Set IniFile = $(NtNetIniFileName)
Set IniString = $(AfpMgrCplFile)
Set IniSection = $(SrvMgrIniSection)
Set FLibraryErrCtl = 1
LibraryProcedure IniStatus $(!UTILHANDLE) WriteAfpMgrIniStrings, $(IniSection), $(IniString), $(IniFile)
Set FLibraryErrCtl = 0
ifstr(i) $(IniStatus) == "FAILED"
read-syms AFPString3$(!STF_LANGUAGE)
shell $(SubInf) SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(ErrorString)
EndIf
; Do the same thing for File Manager
Set IniFile = $(WinFileIniFileName)
Set IniString = $(AfpMgrCplFile)
Set IniSection = $(WinFileIniSection)
Set FLibraryErrCtl = 1
LibraryProcedure IniStatus $(!UTILHANDLE) WriteAfpMgrIniStrings, $(IniSection), $(IniString), $(IniFile)
Set FLibraryErrCtl = 0
ifstr(i) $(IniStatus) == "FAILED"
read-syms AFPString2$(!STF_LANGUAGE)
shell $(SubInf) SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(ErrorString)
EndIf
Set ThisOption = MACPRINT
Set REMOVE_SOFTWARE = >($(REMOVE_SOFTWARE), $(Product$(ThisOption)Name))
Set FLibraryErrCtl = 1
Shell $(UtilInf), AddSoftwareComponent, +
$(Manufacturer), +
$(Product$(ThisOption)Name), +
$(Product$(ThisOption)Name),+
$(Product$(ThisOption)DisplayName), +
$(ProductFullInfName), +
$(Product$(ThisOption)ImagePath),+
"serviceauto", "", +
{"AppleTalk", "Spooler"},"",+
$(Product$(ThisOption)EventDll) "", +
"Application", ""
Set FLibraryErrCtl = 0
ifint $(ShellCode) != 0
goto ShellCodeError
EndIf
set RegistryErrorIndex = $($R0)
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
CloseRegKey $($R1)
CloseRegKey $($R2)
CloseRegKey $($R3)
CloseRegKey $($R4)
CloseRegKey $($R5)
goto fatalregistry
EndIf
;
; At this point:
; $R1 contains the product version key handle;
; $R2 contains the NetRules subkey handle;
; $R3 contains the new Services key handle; and
; $R4 contains the Parameters key
;
Set MpProductKey = $($R1)
Set MpNetRuleKey = $($R2)
Set MpServiceKey = $($R3)
Set MpParameters = $($R4)
Set MpLinkageKey = $($R5)
set NewValueList = +
{{SoftwareType,0,$(!REG_VT_SZ),$(Product$(ThisOption)Type)},+
{Title,0,$(!REG_VT_SZ),$(Product$(ThisOption)Title)},+
{Description,0,$(!REG_VT_SZ),$(Product$(ThisOption)Description)},+
{PathName,$(NoTitle),$(!REG_VT_SZ),"%SystemRoot%\system32"},+
{ServiceName,$(NoTitle),$(!REG_VT_SZ),$(Product$(ThisOption)Name)},+
{Hidden,0,$(!REG_VT_DWORD),1},+
{InstallDate,$(NoTitle),$(!REG_VT_DWORD),*($(Now),1)}}
Shell $(UtilInf),AddValueList,$(MpProductKey),$(NewValueList)
ifint $(ShellCode) != 0
goto ShellCodeError
EndIf
set RegistryErrorIndex = $($R0)
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
CloseRegKey $(MpProductKey)
CloseRegKey $(MpNetRuleKey)
CloseRegKey $(MpServiceKey)
CloseRegKey $(MpParameters)
CloseRegKey $(MpLinkageKey)
goto fatalregistry
EndIf
set NewValueList = {{InfOption,0,$(!REG_VT_SZ),$(ThisOption)}, +
{Infname,0,$(!REG_VT_SZ),$(ProductFullInfName)}}
Shell $(UtilInf), AddValueList, $(MpNetRuleKey), $(NewValueList)
ifint $(ShellCode) != 0
goto ShellCodeError
EndIf
set RegistryErrorIndex = $($R0)
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
CloseRegKey $(MpProductKey)
CloseRegKey $(MpNetRuleKey)
CloseRegKey $(MpParameters)
CloseRegKey $(MpLinkageKey)
CloseRegKey $(MpServiceKey)
goto fatalregistry
EndIf
set NewValueList = {{OtherDependencies,0,$(!REG_VT_MULTI_SZ),{"AppleTalk"}}}
Shell $(UtilInf), AddValueList $(MpLinkageKey), $(NewValueList)
ifint $(ShellCode) != 0
goto ShellCodeError
EndIf
set RegistryErrorIndex = $($R0)
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
CloseRegKey $(MpProductKey)
CloseRegKey $(MpNetRuleKey)
CloseRegKey $(MpParameters)
CloseRegKey $(MpLinkageKey)
CloseRegKey $(MpServiceKey)
goto fatalregistry
EndIf
; Close all keys
CloseRegKey $(MpProductKey)
CloseRegKey $(MpNetRuleKey)
CloseRegKey $(MpParameters)
CloseRegKey $(MpLinkageKey)
CloseRegKey $(MpServiceKey)
; Add additional EventLogging Entries for MacPrint
Set MacPrintEventLogKey = $(!EventLogKey)"\"$(ThisOption)
OpenRegKey $(!REG_H_LOCAL) "" $(MacPrintEventLogKey) $(!ACCESS) MacEvntLogKey
ifstr(i) $(MacEvntLogKey) != $(!KeyNull)
Set EventFile = $(ProductMACPRINTEventDll)
Set NewValueList = +
{{CategoryMessageFile,0,$(!REG_VT_EXPAND_SZ),$(EventFile)}, +
{CategoryCount,0,$(!REG_VT_DWORD),5}}
Shell $(UtilInf) AddValueList, $(MacEvntLogKey), $(NewValueList)
ifint $(ShellCode) != 0
goto ShellCodeError
EndIf
set RegistryErrorIndex = $($R0)
CloseRegKey $(MacEvntLogKey)
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
goto fatalregistry
EndIf
Else
read-syms MacPrintString2$(!STF_LANGUAGE)
Shell $(SubInf) SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(ErrorString)
EndIf
; Add the AppleTalk Print Monitor Stuff only if it was not installed
; by the AppleTalk installer.
ifstr(i) $(PrintMonInstalled) == FALSE
Set AddMonStatus = ""
Set FLibraryErrCtl = 1
LibraryProcedure AddMonStatus $(!UTILHANDLE) SfmAddPrintMonitor $(!AtalkMonName)
Set FLibraryErrCtl = 0
ifstr(i) $(AddMonStatus) == "FAILED"
read-syms MacPrintString4$(!STF_LANGUAGE)
Shell $(SubInf) SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(ErrorString)
EndIf
; Set up Event Loggin for the AppleTalk Monitor
OpenRegKey $(!REG_H_LOCAL) "" $(!EventLogKey) $(!ACCESS) EvntLogKey
ifstr(i) $(EvntLogKey) != $(!KeyNull)
CreateRegKey $(EvntLogKey) +
{$(!AtalkMonEventLogName),0,GenericClass} "" +
$(!ACCESS) "" AtalkMonKey
Set EventFile = "%SystemRoot%\system32\sfmmon.dll"
Set NewValueList = +
{{CategoryMessageFile,0,$(!REG_VT_EXPAND_SZ),$(EventFile)},+
{EventMessageFile,0,$(!REG_VT_EXPAND_SZ),$(EventFile)},+
{CategoryCount,0,$(!REG_VT_DWORD),4},+
{TypesSupported,0,$(!REG_VT_DWORD),7}}
Shell $(UtilInf) AddValueList $(AtalkMonKey) $(NewValueList)
ifint $(ShellCode) != 0
goto ShellCodeError
EndIf
set RegistryErrorIndex = $($R0)
CloseRegKey $(AtalkMonKey)
CloseRegKey $(EvntLogKey)
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
goto fatalregistry
EndIf
Else
read-syms MacPrintString10$(!STF_LANGUAGE)
Shell $(SubInf) SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(ErrorString)
EndIf
EndIf
; Install PSTODIB Stuff
Set PrintProcDir = ""
Set FLibraryErrCtl = 1
LibraryProcedure PrintProcDir $(!UTILHANDLE) GetPrintProcDir
Set FLibraryErrCtl = 0
ifstr(i) $(PrintProcDir) == "FAILED"
read-syms MacPrintString6$(!STF_LANGUAGE)
Shell $(SubInf) SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(ErrorString)
goto pstodibdone
Endif
; Copy PSPRINT.DLL to the Print Processor Directory
Set !PrintProcDir = $(PrintProcDir)
install "Install-PSPrint"
; Call AddPrintProcessor to add the PrintProcessor to system
Set FLibraryErrCtl = 1
LibraryProcedure Status $(!UTILHANDLE) AddPrintProc $(PSprintProcFile) $(PSprintProc)
Set FLibraryErrCtl = 0
ifstr(i) $(Status) != SUCCESS
read-syms MacPrintString3$(!STF_LANGUAGE)
Shell $(SubInf) SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(ErrorString)
EndIf
pstodibdone = +
install "Install-WinFile-Icon"
EndWait
FreeLibrary $(!UTILHANDLE)
Shell $(SubInf) PopBillBoard
goto successful
;=============================Install Section End=========================
;=============================Configure Section Begin=========================
Configuresfm = +
OpenRegKey $(!REG_H_LOCAL) "" $(!ProductKeyLinkage) $(!ACCESS) LinkageKey
ifstr(i) $(LinkageKey) != $(!KeyNull)
GetRegValue $(LinkageKey) "Bind" BindList
ifstr(i) $(BindList) == ""
read-syms AtalkString3$(!STF_LANGUAGE)
Shell $(SubInf) SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(ErrorString)
goto endconfigui
endif
else
Set RegistryErrorIndex = $($R0)
goto fatalregistry
EndIf
LoadLibrary "x" $(!STF_CWDDIR)sfmatcfg.dll ATHANDLE
Set FLibraryErrCtl = 1
Set atcfgresult = ""
Debug-Output "SFMSETUP: SFMUnattended"$(SFMUnattended)
Debug-Output "SFMSETUP: IsInitialInstall"$(IsInitialInstall)
LibraryProcedure atcfgresult, $(ATHANDLE),EnterAtalkConfigDLL $(!STF_HWND) $(IsInitialInstall) $(SFMUnattended)
FreeLibrary $(ATHANDLE)
endconfigui = +
Set CommonStatus = STATUS_USERCANCEL
goto usercancel
;=============================Configure Section End=========================
;=============================Bindings Section Begin=========================
Bindingssfm = +
Set DefaultPortRemoved = FALSE
; remove all service dependencies of AppleTalk on Adapters (leaving only
; the group dependency). This is needed so that if there are two net cards
; on the system and one fails to load (docking station scenario), then
; AppleTalk will still be able to start.
Shell "" RemoveAllServiceDependencies "AppleTalk"
OpenRegKey $(!REG_H_LOCAL) "" $(!NTN_ServiceBase)"\AppleTalk\Linkage" $(!ACCESS) LinkageKey
Ifstr(i) $(LinkageKey) == $(!KeyNull)
Set RegistryErrorIndex = UNABLE_ACCESS_CONFIGURE_SERVICE
Goto fatalregistry
Endif
OpenRegKey $(!REG_H_LOCAL) "" $(!NTN_ServiceBase)"\AppleTalk\Parameters" $(!ACCESS) BindParmKey
Ifstr(i) $(BindParmKey) == $(!KeyNull)
Set RegistryErrorIndex = UNABLE_ACCESS_CONFIGURE_SERVICE
Goto fatalregistry
Endif
Set BindList = {}
Set ExportList = {}
Set RouteList = {}
GetRegValue $(LinkageKey) "Bind" BindList
GetRegValue $(LinkageKey) "Export" ExportList
GetRegValue $(LinkageKey) "Route" RouteList
GetRegValue $(LinkageKey) "Exclude" ExcludeList
QueryListSize BindCount $(BindList)
IfInt $(BindCount) == 0
Goto endbinding
Endif
set NewBindList = {}
set NewExportList = {}
set NewRouteList = {}
ForListDo *($(BindList),4)
Split-String $($), "\", BindInfo
set NewBindList = >($(NewBindList), *($(BindInfo),4))
EndForListDo
Debug-Output "OEMNSVSM.INF: Review bindings NewBindList "$(NewBindList)
ForListDo *($(ExportList),4)
set NewExportList = >($(NewExportList), $($))
EndForListDo
ForListDo *($(RouteList),4)
set NewRouteList = >($(NewRouteList), $($))
EndForListDo
ForListDo *($(ExcludeList),4)
set NewExcludeList = >($(NewExcludeList), $($))
EndForListDo
OpenRegKey $(!REG_H_LOCAL) "" $(!NTN_ServiceBase)"\AppleTalk\Adapters" $(!ACCESS) AdapterKey
Ifstr(i) $(AdapterKey) == $(!KeyNull)
Set RegistryErrorIndex = UNABLE_ACCESS_CONFIGURE_SERVICE
Goto fatalregistry
Endif
set AdapterList = ""
EnumRegKey $(AdapterKey) AdapterList
Set AtalkAdapterList = {}
ForListDo $(AdapterList)
Set AtalkAdapterList = >($(AtalkAdapterList), *($($),1))
EndForListDo
QueryListSize AdapterCount $(AtalkAdapterList)
Set fAddingFirstAdapter = FALSE
ifint $(AdapterCount) == 0
Set fAddingFirstAdapter = TRUE
EndIf
Set NewBindings = ""
Set TobeUsedBindList = {}
Set TobeUsedExportList = {}
Set TobeUsedRouteList = {}
ForListDo $(NewBindList)
IfContains(i) $($) not-in $(AtalkAdapterList)
Set NewBindings = TRUE
Set TobeUsedBindList = >($(TobeUsedBindList),"\Device\"$($))
Set TobeUsedExportList = >($(TobeUsedExportList),*($(NewExportList),$(#)))
Set TobeUsedRouteList = >($(TobeUsedRouteList),*($(NewRouteList),$(#)))
Shell "" CreateAtalkConfig $($) $(AdapterKey)
Ifstr(i) $($R0) != STATUS_SUCCESSFUL
CloseRegKey $(AdapterKey)
Set RegistryErrorIndex = $($R1)
goto fatalregistry
EndIf
Else
Set TobeUsedBindList = >($(TobeUsedBindList),"\Device\"$($))
Set TobeUsedExportList = >($(TobeUsedExportList),*($(NewExportList),$(#)))
Set TobeUsedRouteList = >($(TobeUsedRouteList),*($(NewRouteList),$(#)))
Endif
EndForListDo
set NewValueList = {{Bind,0,$(!REG_VT_MULTI_SZ),$(TobeUsedBindList)}, +
{Export,0,$(!REG_VT_MULTI_SZ),$(TobeUsedExportList)}, +
{Route,0,$(!REG_VT_MULTI_SZ),$(TobeUsedRouteList)}}
Ifstr(i) $(NewBindings) == TRUE
Shell $(UtilInf), AddValueList, $(LinkageKey), $(NewValueList)
set RegistryErrorIndex = $($R0)
CloseRegKey $(LinkageKey)
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
goto fatalregistry
EndIf
EndIf
; Add the Default Port
Set DefaultPort = {}
Set MediaTypeList = {}
GetRegValue $(BindParmKey) "DefaultPort" DefaultPort
Ifstr(i) $(DefaultPort) != {}
goto removeadapters
EndIf
finddefaultport = +
ForListDo $(TobeUsedBindList)
Split-String $($) "\" PortName
Shell "" FindMediaType *($(PortName),4)
Ifstr(i) $($R0) == STATUS_SUCCESSFUL
Set MediaTypeList = >($(MediaTypeList), $($R1))
EndIf
EndForListDo
Ifcontains(i) "1" in $(MediaTypeList)
ForListDo $(MediaTypeList)
Ifint $($) == 1
Set DefaultPort = *($(TobeUsedBindList),$(#))
goto defportdone
EndIf
EndForListDo
else-ifcontains(i) "2" in $(MediaTypeList)
ForListDo $(MediaTypeList)
Ifint $($) == 2
Set DefaultPort = *($(TobeUsedBindList),$(#))
goto defportdone
EndIf
EndForListDo
else-ifcontains(i) "3" in $(MediaTypeList)
ForListDo $(MediaTypeList)
Ifint $($) == 3
Set DefaultPort = *($(TobeUsedBindList),$(#))
goto defportdone
EndIf
EndForListDo
else-ifcontains(i) "4" in $(MediaTypeList)
ForListDo $(MediaTypeList)
Ifint $($) == 4
Set DefaultPort = *($(TobeUsedBindList),$(#))
goto defportdone
EndIf
EndForListDo
else-ifcontains(i) "5" in $(MediaTypeList)
Set DefaultPort = *($(TobeUsedBindList),1)
else
read-syms NoAdaptersFound$(!STF_LANGUAGE)
Shell $(SubInf) SetupMessage, $(!STF_LANGUAGE), "FATAL", $(ErrorString)
Set DefaultPort = ""
Set NewValueList = {{DefaultPort,0,$(!REG_VT_SZ),$(DefaultPort)}}
Shell $(UtilInf), AddValueList, $(BindParmKey), $(NewValueList)
set RegistryErrorIndex = $($R0)
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
goto fatalregistry
EndIf
goto endbinding
Endif
defportdone = +
Set NewValueList = {{DefaultPort,0,$(!REG_VT_SZ),$(DefaultPort)}}
Shell $(UtilInf), AddValueList, $(BindParmKey), $(NewValueList)
set RegistryErrorIndex = $($R0)
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
goto fatalregistry
EndIf
goto startconfig
removeadapters = +
Split-String *($(DefaultPort),4) "\" PortName
Debug-Output "OEMNSVSM.INF:Review Bindings PortName "*($(PortName),4)
ForListDo $(AtalkAdapterList)
Debug-Output "OEMNSVSM.INF:Review Bindings Adapter "$($)
Ifcontains(i) $($) not-in $(NewBindList)
DeleteRegKey $(AdapterKey) $($)
Ifstr(i) $($) == *($(PortName),4)
read-syms RemoveDefaultPort$(!STF_LANGUAGE)
Shell $(SubInf) SetupMessage $(!STF_LANGUAGE) "FATAL" $(ErrorString)
Set DefaultPortRemoved = TRUE
goto finddefaultport
Endif
EndIf
EndForListDo
; if this is the first time configuration start appletalk and launch config
; if the default port has been removed and other adapters are available
; start appletalk
startconfig = +
Set DoConfig = 0
GetRegValue $(BindParmKey) "InitialInstall" DoConfig
Set IsInitialInstall = *($(DoConfig),4)
Set DoUnattended = 0
GetRegValue $(BindParmKey) "Unattended" DoUnattended
Set SFMUnattended = *($(DoUnattended),4)
Debug-Output "SFMSETUP: SFMUnattended(start config)"$(SFMUnattended)
Debug-Output "Config State = "$(DoConfig)
Debug-Output "Unattend State = "$(DoUnattended)
ifint $(IsInitialInstall) == 1
goto startsvc
EndIf
ifstr(i) $(DefaultPortRemoved) == TRUE
goto startsvc
endif
ifstr(i) $(fAddingFirstAdapter) == TRUE
goto startsvc
endif
goto endbinding
startsvc = +
Set FLibraryErrCtl = 1
read-syms StatusStartingAppleTalk$(!STF_LANGUAGE)
Shell $(SubInf) PushBillBoard NETSTATUSDLG $(Status)
StartWait
Set WaitStarted = 1
LibraryProcedure START_RESULT $(!NCPA_HANDLE), CPlSetup $(!STF_HWND), STARTSVC, AppleTalk
Shell $(SubInf) PopBillBoard
Set START_STATUS = *($(START_RESULT),1)
Debug-Output "OEMNSVSM.INF: Start AppleTalk; result was: "$(START_STATUS)
Ifint $(START_STATUS) != 0
EndWait
Set WaitStarted = 0
LibraryProcedure START_RESULT $(!NCPA_HANDLE), CPlSetup $(!STF_HWND), ERRORMSG, $(START_STATUS)
Set ATALK_ERROR_MESSAGE = *($(START_RESULT),2)
read-syms CannotStartAtalk$(!STF_LANGUAGE)
Set ErrorString = $(ATALK_ERROR_MESSAGE)$(ErrorSuffix)
Shell $(SubInf) SetupMessage $(!STF_LANGUAGE) "FATAL" $(ErrorString)
Else
; start the afd driver
LibraryProcedure START_RESULT $(!NCPA_HANDLE), CPlSetup $(!STF_HWND), STARTSVC, Afd
Set START_STATUS = *($(START_RESULT),1)
Debug-Output "OEMNSVSM.INF: Start Afd result was: "$(START_STATUS)
Ifint $(START_STATUS) != 0
EndWait
Set WaitStarted = 0
LibraryProcedure START_RESULT $(!NCPA_HANDLE), CPlSetup $(!STF_HWND), ERRORMSG, $(START_STATUS)
Set ATALK_ERROR_MESSAGE = *($(START_RESULT),2)
read-syms CannotStartAfd$(!STF_LANGUAGE)
Set ErrorString = $(ATALK_ERROR_MESSAGE)$(ErrorSuffix)
Shell $(SubInf) SetupMessage $(!STF_LANGUAGE) "FATAL" $(ErrorString)
goto endbinding
EndIf
; Now start the NDIS group.
LibraryProcedure START_RESULT $(!NCPA_HANDLE), CPlSetup $(!STF_HWND), STARTSVC, +NDIS
Set START_STATUS = *($(START_RESULT),1)
Debug-Output "OEMNSVSM.INF: Start +NDIS result was: "$(START_STATUS)
Ifint $(START_STATUS) != 0
EndWait
Set WaitStarted = 0
LibraryProcedure START_RESULT $(!NCPA_HANDLE), CPlSetup $(!STF_HWND), ERRORMSG, $(START_STATUS)
Set ATALK_ERROR_MESSAGE = *($(START_RESULT),2)
read-syms CannotStartAtalk$(!STF_LANGUAGE)
Set ErrorString = $(ATALK_ERROR_MESSAGE)$(ErrorSuffix)
Shell $(SubInf) SetupMessage $(!STF_LANGUAGE) "FATAL" $(ErrorString)
goto endbinding
EndIf
; Launch the AppleTalk Transport Configuration
LoadLibrary "x" $(!STF_CWDDIR)sfmatcfg.dll ATHANDLE
Set FLibraryErrCtl = 1
Set atcfgresult = ""
Debug-Output "SFMSETUP: SFMUnattended(1)"$(SFMUnattended)
LibraryProcedure atcfgresult, $(ATHANDLE),EnterAtalkConfigDLL $(!STF_HWND) $(IsInitialInstall) $(SFMUnattended)
FreeLibrary $(ATHANDLE)
EndWait
EndIf
endbinding = +
ifint $(IsInitialInstall) == 1
SetRegValue $(BindParmKey) {InitialInstall,0,$(!REG_VT_DWORD),0}
EndIf
ifint $(SFMUnattended) == 1
SetRegValue $(BindParmKey) {Unattended,0,$(!REG_VT_DWORD),0}
EndIf
CloseRegKey $(BindParmKey)
goto end
;=============================Bindings Section End=========================
Removesfm = +
; Remove the SMAddons String in regnet.ini. This is done first, because
; we remove the util dll in "SfmRemoveFiles". If RemoveFiles failed,
; the SMAddons section will be restored to it's former shape.
Set FLibraryErrCtl = 1
Ifcontains(i) "MacFile" in $(REMOVE_SOFTWARE)
Set IniFile = $(NtNetIniFileName)
Set IniSection = $(SrvMgrIniSection)
Set Result = ""
Set FLibraryErrCtl = 1
LibraryProcedure Result, $(!UTILHANDLE), WriteAfpMgrIniStrings, $(IniSection), NULL, $(IniFile)
Set FLibraryErrCtl = 0
ifstr(i) $(Result) == "FAILED"
endif
; Remove the file manager addons also
Set IniFile = $(WinFileIniFileName)
Set IniSection = $(WinFileIniSection)
Set FLibraryErrCtl = 1
LibraryProcedure Result, $(!UTILHANDLE), WriteAfpMgrIniStrings, $(IniSection), NULL, $(IniFile)
Set FLibraryErrCtl = 0
EndIf
; Remove OEMNSVSM.INF from the review programs list of NCPA
Shell "" RemoveInfFromReviewPrograms
; remove the WinSock information
Shell $(UtilInf), RemoveWinsockInfo, $(ProductATALKName)
;
; Remove rpc
;
Shell "utility.inf" RemoveRpcProtocol ncacn_at_dsp
; remove the sfm files
read-syms StatusRemoveSfm$(!STF_LANGUAGE)
Shell $(SubInf) PushBillBoard NETSTATUSDLG $(Status)
Shell "" RemoveSfmFiles "REMOVE"
Shell $(SubInf) PopBillBoard
OpenRegKey $(!REG_H_LOCAL) "" $(!ProductKeyBase) $(!ACCESS) ProductKey
Ifstr $(ProductKey) == $(!KeyNull)
set RegistryErrorIndex = UNABLE_ACCESS_CONFIGURE_SERVICE
goto fatalregistry
endif
DeleteRegTree $(ProductKey) $(ProductSFMName)
CloseRegKey $(ProductKey)
ForListDo $(REMOVE_SOFTWARE)
debug-output "Removing component: "$($)
Shell $(UtilInf), RemoveSoftwareComponent, $(Manufacturer), $($)
EndForListDo
ForListDo $(REMOVE_SERVICES)
debug-output "Removing component service: "$($)
Shell $(UtilInf), RemoveService, $($), "YES"
EndForListDo
; Use Deletemonitor Api
Ifcontains(i) "MACPRINT" in $(REMOVE_SOFTWARE)
Set DelMonStatus = ""
Set FLibraryErrCtl = 1
LibraryProcedure DelMonStatus $(!UTILHANDLE) SfmDeletePrintMonitor $(!AtalkMonName)
Set FLibraryErrCtl = 0
ifstr(i) $(DelMonStatus) == "FAILED"
read-syms MacPrintString7$(!STF_LANGUAGE)
Shell $(SubInf) SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(ErrorString)
EndIf
OpenRegKey $(!REG_H_LOCAL) "" $(!EventLogKey) $(!ACCESS) LogKey
Ifstr(i) $(LogKey) == $(!KeyNull)
Set RegistryErrorIndex = $($R0)
goto fatalregistry
EndIf
Set AtalkMonKey = $(!AtalkMonEventLogName)
DeleteRegTree $(LogKey) $(AtalkMonKey)
Set MacPrintKey = "MACPRINT"
DeleteRegTree $(LogKey) $(MacPrintKey)
CloseRegKey $(LogKey)
; Delete the PSPRINT Print Processor
Set DelStatus = ""
Set FLibraryErrCtl = 1
LibraryProcedure DelStatus $(!UTILHANDLE) DeletePrintProc "\\"$(!STF_COMPUTERNAME) SFMPSPRT
Set FLibraryErrCtl = 0
Ifstr(i) $(DelStatus) == FAILED
read-syms MacPrintString5$(!STF_LANGUAGE)
Shell $(SubInf) SetupMessage "NONFATAL" $(ErrorString)
EndIf
EndIf
Ifcontains(i) "AppleTalk" in $(REMOVE_SOFTWARE)
Shell $(UtilInf) UpdateWinsockService "AppleTalk" FALSE
EndIf
Ifstr(i) $($R0) != NO_ERROR
read-syms AtalkString2$(!STF_LANGUAGE)
Shell $(SubInf) SetupMessage "NONFATAL" $(ErrorString)
EndIf
install "Remove-WinFile-Icon"
FreeLibrary $(!UTILHANDLE)
Set FLibraryErrCtl = 1
LibraryProcedure Status, $(!LIBHANDLE), DelFile $(!STF_CWDDIR)$(UtilDll)
Set FLibraryErrCtl = 0
goto end
Upgradesfm = +
Debug-Output "In Upgradesfm"
OpenRegKey $(!REG_H_LOCAL) "" $(!ProductKeyName) $(!ACCESS) KeyProduct
Ifstr $(KeyProduct) != $(!KeyNull)
Debug-Output "Opened "$(!ProductKeyName)
ifstr(i) $(Option) != "SFM"
; Bug 45543
Debug-Output "OEMNSVSM.INF: Not running upgrade on option: "$Option)
CloseRegKey $(KeyProduct)
set CommonStatus = STATUS_NOEFFECT
goto end
endif
install "Remove-WinFile-Icon"
install "Install-WinFile-Icon"
GetRegValue $(KeyProduct),"MajorVersion", VersionInfo
set Version = *($(VersionInfo), 4)
Split-String $(!NTN_Infname), "\", FilenameList
QueryListSize ListSize $(FilenameList)
set !UG_Filename = *($(FilenameList), $(ListSize))
install Install-Update
ifstr(i) $(STF_INSTALL_OUTCOME) != STF_SUCCESS
goto fatal
endif
; load the sfmutil.dll
LoadLibrary "x" $(!STF_CWDDIR)$(UtilDll) !UTILHANDLE
; Update the UAM - copy UAM to correct place and update registry
Shell "" DoUamInstall "INSTALL"
FreeLibrary $(!UTILHANDLE)
;
; between NT 3.1 and 3.5 the adapter numbers have changed from
; 0x to X. For example, ELNKII01 has now become ELNKII1.
; We have to account for this change, otherwise, the user will
; see an alarming popup that the default adapter has been removed
; and he may not see the appletalk zones.
; Change the AppleTalk adapter numbers from 0x to X
; also modify the PortName in each AppleTalk adapter from 0x to X
; and modify the DefaultPort parameter from 0x to X
LoadLibrary "x" $(!STF_CWDDIR)sfmatcfg.dll ATHANDLE
LibraryProcedure STATUS, $(ATHANDLE), ChangeAdapterNum
FreeLibrary $(ATHANDLE)
Ifint $($ShellCode) != $(!SHELL_CODE_OK)
Goto ShellCodeError
EndIf
; Add the performance data that was not available in NT Ver 3.10
; Add the performance data to the AppleTalk\performance service key
OpenRegKey $(!REG_H_LOCAL) "" $(!NTN_ServiceBase)"\"$(ProductATALKName) +
$(!ACCESS) AtkSvcKey
Ifstr $(AtkSvcKey) != $(!KeyNull)
Shell "" CreatePerfKey $(AtkSvcKey) $(AtalkPerfLibraryName) +
$(AtalkCounterFileName) $(AtalkPerfOpenFunction) +
$(AtalkPerfCloseFunction) $(AtalkPerfCollectFunction)
Ifstr(i) $($R0) != STATUS_SUCCESSFUL
CloseRegKey $(AtkSvcKey)
Set RegistryErrorIndex = $($R1)
goto fatalregistry
EndIf
; Add the performance dll to the EventLog
Shell "" CreateEventLogKey $(AtalkEventLogName) +
$(AtalkPerfLibraryName)
Ifstr(i) $($R0) != STATUS_SUCCESSFUL
CloseRegKey $(AtkSvcKey)
Set RegistryErrorIndex = $($R1)
goto fatalregistry
EndIf
; Change group membership to PNP_TDI
Debug-Output "OEMNSVSM.INF: Changing Group membership."
SetRegValue $(AtkSvcKey) {Group, $(NoTitle), $(!REG_VT_SZ), "PNP_TDI" }
; Get rid of the NDIS dependency in OtherDependencies.
OpenRegKey $(AtkSvcKey) "" "Linkage" $(!ACCESS) AtkLinkageKey
Ifstr $(AtkLinkageKey) != $(!KeyNull)
Debug-Output "OEMNSVSM.INF: Deleting OtherDependencies"
DeleteRegValue $(AtkLinkageKey) "OtherDependencies"
CloseRegKey $(AtkLinkageKey)
Endif
CloseRegKey $(AtkSvcKey)
Else
Debug-Output "OEMNSVSM.INF: error opening ATALK service key."
EndIf
;
; add rpc stuff
;
Shell "utility.inf" AddRpcProtocol ncacn_at_dsp rpclt1.dll rpclt1.dll
; Add the performance data to the MacSrv\performance service key
OpenRegKey $(!REG_H_LOCAL) "" +
$(!NTN_ServiceBase)"\"$(ProductAFPSRVRName) +
$(!ACCESS) AfpSrvSvcKey
Ifstr $(AfpSrvSvcKey) != $(!KeyNull)
Shell "" CreatePerfKey $(AfpSrvSvcKey) $(AfpPerfLibraryName) +
$(AfpCounterFileName) $(AfpPerfOpenFunction) +
$(AfpPerfCloseFunction) $(AfpPerfCollectFunction)
Ifstr(i) $($R0) != STATUS_SUCCESSFUL
Set RegistryErrorIndex = $($R1)
goto fatalregistry
EndIf
CloseRegKey $(AfpSrvSvcKey)
; Add the performance dll to the EventLog
Shell "" CreateEventLogKey $(AfpEventLogName) $(AfpPerfLibraryName)
Ifstr(i) $($R0) != STATUS_SUCCESSFUL
Set RegistryErrorIndex = $($R1)
goto fatalregistry
EndIf
Else
Debug-Output "OEMNSVSM.INF: error opening AFPSRV service key."
EndIf
; Fix Atalk Software key values
set KeyCurrentVersion = ""
set SoftKeyName = $(!ProductKeyBase)"\"$(ProductATALKName)"\CurrentVersion"
OpenRegKey $(!REG_H_LOCAL) "" $(SoftKeyName) $(!ACCESS) KeyCurrentVersion
ifstr $(KeyCurrentVersion) == ""
Debug-Output "OEMNSVSM.INF: Update Software values: couldn't open "$(SoftKeyName)
else
SetRegValue $(KeyCurrentVersion) {Title,0,$(!REG_VT_SZ),$(ProductATALKTitle)}
SetRegValue $(KeyCurrentVersion) {Description,0,$(!REG_VT_SZ),$(ProductATALKDescription)}
CloseRegKey $(KeyCurrentVersion)
endif
; Fix MacPrint Software key SoftwareType
set KeyCurrentVersion = ""
set MacPrintSoftKeyName = $(!ProductKeyBase)"\"$(ProductMACPRINTName)"\CurrentVersion"
OpenRegKey $(!REG_H_LOCAL) "" $(MacPrintSoftKeyName) $(!ACCESS) KeyCurrentVersion
ifstr $(KeyCurrentVersion) == ""
Debug-Output "OEMNSVSM.INF:UpdateSoftwareType: couldn't open "$(MacPrintSoftKeyName)
else
SetRegValue $(KeyCurrentVersion) {SoftwareType, 0, $(!REG_VT_SZ), "service" }
SetRegValue $(KeyCurrentVersion) {Title,0,$(!REG_VT_SZ),$(ProductMACPRINTTitle)}
SetRegValue $(KeyCurrentVersion) {Description,0,$(!REG_VT_SZ),$(ProductMACPRINTDescription)}
CloseRegKey $(KeyCurrentVersion)
endif
; Fix SFM Software key SoftwareType
set KeyCurrentVersion = ""
OpenRegKey $(!REG_H_LOCAL) "" $(!ProductKeyName) $(!ACCESS) KeyCurrentVersion
ifstr $(KeyCurrentVersion) == ""
Debug-Output "OEMNSVSM.INF:UpdateSoftwareType: couldn't open " $(!ProductKeyName)
else
SetRegValue $(KeyCurrentVersion) {SoftwareType, 0, $(!REG_VT_SZ), "service" }
SetRegValue $(KeyCurrentVersion) {Title,0,$(!REG_VT_SZ),$(ProductSFMTitle)}
SetRegValue $(KeyCurrentVersion) {Description,0,$(!REG_VT_SZ),$(ProductSFMDescription)}
;
; Update description and op support
;
SetRegValue $(KeyCurrentVersion) {OperationsSupport,$(NoTitle),$(!REG_VT_DWORD),$(ProductOpSupport)}
CloseRegKey $(KeyCurrentVersion)
endif
; Add the Spooler dependency to the MacPrint service
OpenRegKey $(!REG_H_LOCAL) "" +
$(!NTN_ServiceBase)\$(ProductMACPRINTName) +
$(!ACCESS) MacPrintSvcKey
Ifstr $(MacPrintSvcKey) != $(!KeyNull)
Debug-Output "OEMNSVSM.INF: Changing group dependency of MACPRINT"
set newDependList = {"Spooler"}
set TmpList = {}
GetRegValue $(MacPrintSvcKey) "DependOnService" TmpList
ifint $(RegLastError) == 0
Debug-Output "OEMNSVSM.INF old depend List "*($(TmpList), 4)
ForListDo *($(TmpList),4)
ifstr(i) $($) != "Spooler"
set newDependList = >($(newDependList), $($))
endif
EndForListDo
endif
Debug-Output "OEMNSVSM.INF: new depend List "$(newDependList)
LibraryProcedure Result, $(!LIBHANDLE), SetupChangeServiceConfig, $(ProductMACPRINTName) $(!SERVICE_NO_CHANGE), $(!SERVICE_NO_CHANGE), $(!SERVICE_NO_CHANGE), "", "", $(newDependList), "", "", ""
; Add the OtherDependencies as well
OpenRegKey $(MacPrintSvcKey) "" "Linkage" $(!ACCESS) LinkageKey
Ifstr $(LinkageKey) != $(!KeyNull)
set newDependList = {"Spooler"}
set TmpList = {}
GetRegValue $(LinkageKey) "OtherDependencies" TmpList
Debug-Output "OEMNSVSM.INF: old other depend List "*($(TmpList), 4)
ifint $(RegLastError) == 0
ForListDo *($(TmpList),4)
ifstr(i) $($) != "Spooler"
set newDependList = >($(newDependList), $($))
endif
EndForListDo
endif
Debug-Output "OEMNSVSM.INF: new other depend List "$(newDependList)
SetRegValue $(LinkageKey) {OtherDependencies,0,$(!REG_VT_MULTI_SZ),$(newDependList)}
CloseRegKey $(LinkageKey)
else
Debug-Output "OEMNSVSM.INF: error opening MACPRINT linkage key."
endif
CloseRegKey $(MacPrintSvcKey)
; Remove the bogus MacFile netrules
set MacFileNetRules = $(!NTN_SoftwareBase)"\"$(Manufacturer)"\"$(ProductAFPSVCName)"\CurrentVersion\NetRules"
OpenRegKey $(!REG_H_LOCAL) "" $(MacFileNetRules) $(!ACCESS) NetRuleKey
Ifstr $(NetRuleKey) != $(!KeyNull)
Debug-Output "OEMNSVSM.INF: Removing bogus MacFile netrules"
DeleteRegValue $(NetRuleKey) "type"
DeleteRegValue $(NetRuleKey) "use"
CloseRegKey $(NetRuleKey)
EndIf
Else
Debug-Output "OEMNSVSM.INF: error opening MACPRINT service key."
EndIf
SetRegValue $(KeyProduct) {MajorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMajorVersion)}
SetRegValue $(KeyProduct) {MinorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMinorVersion)}
CloseRegKey $(KeyProduct)
;
; Delete cache section for NCPA
;
Set MaskAllAccess = 33554432
Set NewInfName = "oemnsvsm.inf"
Set CacheKey = "SOFTWARE\Microsoft\Ncpa\InfOptions"
Set CacheValue = "oemnxpsm.inf"
OpenRegKey $(!REG_H_LOCAL) "" $(CacheKey) $(MaskAllAccess) Cache
Ifint $(RegLastError) == $(!REG_ERROR_SUCCESS)
DeleteRegTree $(Cache) $(CacheValue)
CloseRegKey $(Cache)
endif
;
; remove old inf file, oemnxpsm.inf from Post-Review bindings. This is because the name changed
;
OpenRegKey $(!REG_H_LOCAL) "" $(!NTN_SoftwareBase)"\Microsoft\Ncpa\CurrentVersion" $(!ACCESS) NCPA
ifstr(i) $(NCPA) != $(!KeyNull)
GetRegValue $(NCPA) "ReviewPrograms" BindList
ifcontains(i) "OEMNXPSM.INF" in *($(BindList),4)
debug-output "Removing old inf, oemnxpsm.inf from post-review list"
; create a new bind list without the old nf name
set NewBindList = {}
ForListDo *($(BindList),4)
ifstr(i) $($) != "OEMNXPSM.INF"
set NewBindList = >($(NewBindList), $($))
else
; don't allow duplicates in the list of the new inf name
ifcontains(i) "OEMNSVSM.INF" not-in *($(BindList),4)
set NewBindList = >($(NewBindList), "OEMNSVSM.INF")
endif
endif
EndForListDo
SetRegValue $(NCPA) {"ReviewPrograms", 0, +
$(!REG_VT_MULTI_SZ),$(NewBindList)}
endif
CloseRegKey $(NCPA)
endif
; Upgrade The NetRules Use value for PNP.
OpenRegKey $(!REG_H_LOCAL) "" +
$(!NTN_SoftwareBase)"\Microsoft\AppleTalk\CurrentVersion\NetRules" +
$(!ACCESS) AtalkNetRulesKey
Ifstr(i) $(AtalkNetRulesKey) != $(!KeyNull)
SetRegValue $(AtalkNetRulesKey) {use,$(NoTitle),$(!REG_VT_SZ),$(NetRuleATALKUse)}
CloseRegKey $(AtalkNetRulesKey)
endif
; Update winsock mappings
Shell $(UtilInf) UpdateWinsockMappings $(ProductATALKName) "%SystemRoot%\System32\"$(AtWinSockDll)
set RegistryErrorIndex = $($R0)
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
Debug-Output "OEMNSVSM.INF: Registry error: Add Winsock Info."
Endif
else
;
;
;
;
;
OpenRegKey $(!REG_H_LOCAL) "" $(!ProductATALKKeyName) $(!ACCESS) KeyATalkProduct
ifstr(i) $(KeyATalkProduct) != $(!KeyNull)
LoadLibrary "x" $(!STF_CWDDIR)sfmutil.dll !UTILHANDLE
Shell $(UtilInf), RemoveSoftwareComponent, $(Manufacturer), $(ProductATALKName)
Set DelMonStatus = ""
Set FLibraryErrCtl = 1
LibraryProcedure DelMonStatus $(!UTILHANDLE) SfmDeletePrintMonitor $(!AtalkMonName)
Set FLibraryErrCtl = 0
ifstr(i) $(DelMonStatus) == "FAILED"
read-syms AtalkString5$(!STF_LANGUAGE)
Shell $(SubInf) SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(ErrorString)
EndIf
OpenRegKey $(!REG_H_LOCAL) "" $(!EventLogKey) $(!ACCESS) LogKey
Ifstr(i) $(LogKey) != $(!KeyNull)
Set AtalkMonKey = $(!AtalkMonEventLogName)
DeleteRegTree $(LogKey) $(AtalkMonKey)
CloseRegKey $(LogKey)
endif
Shell $(UtilInf), RemoveWinsockInfo, $(ProductATALKName)
Shell "utility.inf" RemoveRpcProtocol ncacn_at_dsp
FreeLibrary $(!UTILHANDLE)
CloseRegKey $(KeyATalkProduct)
else
Debug-Output "OEMNSVSM.INF: error opening prodcut key."
Set RegistryErrorIndex = $($R0)
goto fatalregistry
endif
endif
goto end
successful = +
Set Status = STATUS_SUCCESSFUL
goto end
fatalregistry = +
EndWait
Shell $(UtilInf) RegistryErrorString $(RegistryErrorIndex)
IfInt $(ShellCode) != 0
goto ShellCodeError
Endif
set Error = $($R0)
goto fatal
fatal = +
Ifint $(BillboardVisible) != 0
Shell $(SubInf) PopBillboard
Set BillboardVisible = 0
Endif
read-syms MiscErrorString3$(!STF_LANGUAGE)
Shell $(SubInf) SetupMessage, $(!STF_LANGUAGE), "FATAL",$(ErrorString)$(Error)
ifint $($ShellCode) != $(!SHELL_CODE_OK)
goto ShellCodeError
endif
goto failed
ShellCodeError = +
read-syms ShellingError$(!STF_LANGUAGE)
Shell $(SubInf) SetupMessage $(!STF_LANGUAGE) "FATAL" $(ErrorString)
failed = +
set CommonStatus = STATUS_FAILED
ifstr(i) $(REMOVE_FLAG) == TRUE
set REMOVE_FLAG = FALSE
goto Removesfm
endif
goto end
initialsetupcancel = +
Set CommonStatus = STATUS_USERCANCEL
goto end
usercancel = +
Set CommonStatus = STATUS_USERCANCEL
end = +
Return $(CommonStatus)
;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
[BindingsReview]
; This routine is invoked by NCPA when we list OEMNSVSM.INF in the
; ReviewPrograms list in SOFTWARE\Microsoft\NCPA registry key
; we do this to ensure that we are the last to be called for review
; bindings.
;
; extract parameters
;
set Option = $($1)
set SrcDir = $($2)
set AddCopy = $($3)
set DoCopy = $($4)
set DoConfig = $($5)
set Language = $(!STF_LANGUAGE)
set SaveInstallMode = $(!NTN_InstallMode)
; force the bind mode
set !NTN_InstallMode = bind
Shell "" InstallOption $(Language) $(Option) $(SrcDir) $(AddCopy) $(DoCopy) $(DoConfig)
; restore install mode
set !NTN_InstallMode = $(SaveInstallMode)
set Status = $($R0)
Return $(Status)
[AddInfToReviewProgramsList]
; Add OEMNSVSM.INF to SOFTWARE\Microsoft\NCPA\ReviewPrograms list
Debug-Output "AddInfToReviewPrograms: entry"
set Status = STATUS_FAILED
set KeyNull = ""
set NcpaKeyName = $(!NTN_SoftwareBase)"\Microsoft\Ncpa\CurrentVersion"
set newList = {"OEMNSVSM.INF"}
OpenRegKey $(!REG_H_LOCAL) "" $(NcpaKeyName) $(!ACCESS) KeyNcpa
Ifstr(i) $(KeyNcpa) != $(KeyNull)
GetRegValue $(KeyNcpa) "ReviewPrograms" TmpList
ifint $(RegLastError) == 0
Debug-Output "AddInf: old List "*($(TmpList), 4)
ForListDo *($(TmpList),4)
ifstr(i) $($) != "OEMNSVSM.INF"
set newList = >($(newList), $($))
endif
EndForListDo
Debug-Output "OEMNSVSM.INF: AddInf: new List "$(newList)
SetRegValue $(KeyNcpa) {ReviewPrograms, 0, +
$(!REG_VT_MULTI_SZ),$(newList)}
CloseRegKey $(KeyNcpa)
Set Status = STATUS_SUCCESSFUL
endif
else
Debug-Output "AddInfToReviewPrograms: error opening ncpa key."
endif
Debug-Output "AddInfToReviewPrograms: exit"
return $(Status)
[RemoveInfFromReviewPrograms]
; remove OEMNSVSM.INF from SOFTWARE\Microsoft\NCPA\ReviewPrograms list
Debug-Output "RemoveInfFromReviewPrograms: entry"
set Status = STATUS_FAILED
set KeyNull = ""
set NcpaKeyName = $(!NTN_SoftwareBase)"\Microsoft\Ncpa\CurrentVersion"
set newList = {}
OpenRegKey $(!REG_H_LOCAL) "" $(NcpaKeyName) $(!ACCESS) KeyNcpa
Ifstr(i) $(KeyNcpa) != $(KeyNull)
GetRegValue $(KeyNcpa) "ReviewPrograms" TmpList
ifint $(RegLastError) == 0
Debug-Output "RemoveInf: old List "*($(TmpList), 4)
ForListDo *($(TmpList),4)
ifstr(i) $($) != "OEMNSVSM.INF"
set newList = >($(newList), $($))
endif
EndForListDo
Debug-Output "AddInf: new List "$(newList)
SetRegValue $(KeyNcpa) {ReviewPrograms, 0, +
$(!REG_VT_MULTI_SZ),$(newList)}
CloseRegKey $(KeyNcpa)
Set Status = STATUS_SUCCESSFUL
endif
else
Debug-Output "RemoveInfFromReviewPrograms: error opening ncpa key."
endif
Debug-Output "RemoveInfFromReviewPrograms: exit"
return $(Status)
;-------------------------------------------------------------
; ROUTINE : CreatePerfKey
; DESCRIPTION : Creates the perf key for the service named &
; : loads the counters to the registry.
; ARGUMENTS : $0: ServiceKey
; : $1: perf counters dll name
; : $2: perf counters file name
; : $3: open routine name
; : $4: close routine name
; : $5: collect routine name
;
; RETURNS : R0: STATUS_SUCCESSFUL | STATUS_FAILED
; : R1: RegistryErrorIndex, if error
;
;------------------------------------------------------------
[CreatePerfKey]
Set Status = STATUS_FAILED
Set ServiceKey = $($0)
Set PerfDll = $($1)
Set PerfCounterFileName = $($2)
Set PerfOpen = $($3)
Set PerfClose = $($4)
Set PerfCollect = $($5)
set KeyPerformance = $(!KeyNull)
OpenRegKey $(ServiceKey) "" $(!PerfKeyName) $(!ACCESS) KeyPerformance
ifstr $(KeyPerformance) == $(!KeyNull)
CreateRegKey $(ServiceKey) {$(!PerfKeyName),$(NoTitle),GenericClass} +
"" $(!ACCESS) "" KeyPerformance
ifstr $(KeyPerformance) == $(!KeyNull)
Debug-Output "Error creating Performance key"
Set RegistryErrorIndex = $($R0)
return $(Status) $(RegistryErrorIndex)
endif
endif
set NewValueList = +
{{Library ,$(NoTitle),$(!REG_VT_SZ),$(PerfDll)},+
{Open, $(NoTitle),$(!REG_VT_SZ),$(PerfOpen)},+
{Close, $(NoTitle),$(!REG_VT_SZ),$(PerfClose)},+
{Collect, $(NoTitle),$(!REG_VT_SZ),$(PerfCollect)}}
Shell utility.inf, AddValueList, $(KeyPerformance), $(NewValueList)
set RegistryErrorIndex = $($R0)
ifint $($ShellCode) != $(!SHELL_CODE_OK)
set RegistryErrorIndex = ERROR
endif
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
CloseRegKey $(KeyPerformance)
Debug-Output "OEMNSVSM.INF: error adding perf values"
return STATUS_FAILED $(RegistryErrorIndex)
endif
CloseRegKey $(KeyPerformance)
Set Status = STATUS_SUCCESSFUL
return $(Status) $(RegistryErrorIndex)
;-------------------------------------------------------------
; ROUTINE : CreateEventLogKey
; DESCRIPTION : Creates the application event log key
; ARGUMENTS : $0: Application name
; : $1: perf counters dll name
;
; RETURNS : R0: STATUS_SUCCESSFUL | STATUS_FAILED
; : R1: RegistryErrorIndex, if error
;
;------------------------------------------------------------
[CreateEventLogKey]
Set Status = STATUS_FAILED
Set Service = $($0)
Set PerfDll = $($1)
Set EventLogKeyName = $(!EventLogKey)"\"$(Service)
OpenRegKey $(!REG_H_LOCAL) "" $(EventLogKeyName) $(!ACCESS) EvntLogKey
ifstr $(EvntLogKey) == $(!KeyNull)
OpenRegKey $(!REG_H_LOCAL) "" $(!EventLogKey) $(!ACCESS) EvntKey
ifstr(i) $(EvntKey) != $(!KeyNull)
CreateRegKey $(EvntKey) {$(Service),0,GenericClass} +
"" $(!ACCESS) "" EvntLogKey
ifstr $(EvntLogKey) == $(!KeyNull)
Debug-Output "Error creating eventlog key"
Set RegistryErrorIndex = $($R0)
CloseRegKey $(EvntKey)
return $(Status) $(RegistryErrorIndex)
endif
endif
CloseRegKey $(EvntKey)
endif
Set NewValueList = +
{{EventMessageFile,0,$(!REG_VT_EXPAND_SZ),$(PerfDll)}, +
{TypeSupported,0,$(!REG_VT_DWORD),7}}
Shell utility.inf, AddValueList, $(EvntLogKey), $(NewValueList)
set RegistryErrorIndex = $($R0)
ifint $($ShellCode) != $(!SHELL_CODE_OK)
set RegistryErrorIndex = ERROR
endif
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
CloseRegKey $(EvntLogKey)
Debug-Output "Error adding values to eventlog key"
return $(Status) $(RegistryErrorIndex)
EndIf
CloseRegKey $(EvntLogKey)
set Status = STATUS_SUCCESSFUL
Debug-Output "OEMNSVSM.INF: created the eventlog key"
return $(Status) $(RegistryErrorIndex)
;-------------------------------------------------------------
; ROUTINE : RemoveAllServiceDependencies
; DESCRIPTION : Removes any service dependencies for
; the specified service
; ARGUMENTS : $0: Service name
;
; RETURNS : R0: STATUS_SUCCESSFUL
;
;------------------------------------------------------------
[RemoveAllServiceDependencies]
Debug-Output "RemoveAllServiceDependencies: entry"
set Status = STATUS_SUCCESSFUL
Set KeyNull = ""
set DependentService = $(!NTN_ServiceBase)\$($0)
set DependentName = $($0)
set KeyService = $(KeyNull)
OpenRegKey $(!REG_H_LOCAL) "" $(DependentService) $(!ACCESS) KeyService
ifstr $(KeyService) != $(KeyNull)
set newDependList = {}
GetRegValue $(KeyService) "DeleteFlag" DeleteFlagValue
; make sure the service is not marked for deletion
ifint $(RegLastError) != 0
GetRegValue $(KeyService) "DependOnService" ServiceList
ifint $(RegLastError) == 0
Debug-Output "RemoveAllServiceDependencies: old DependOnService List "*($(ServiceList), 4)
; get any existing group dependencies
GetRegValue $(KeyService) "DependOnGroup" GrpList
ifint $(RegLastError) == 0
ForListDo *($(GrpList),4)
set grp = "+"$($)
set newDependList = >($(newDependList), $(grp))
EndForListDo
endif
Debug-Output "RemoveAllServiceDependencies: new DependOnService List "$(newDependList)
; now set only the group dependency
LibraryProcedure Result, $(!LIBHANDLE), +
SetupChangeServiceConfig, $(DependentName) +
$(!SERVICE_NO_CHANGE), $(!SERVICE_NO_CHANGE), +
$(!SERVICE_NO_CHANGE), "", "", +
$(newDependList), "", "", ""
endif
endif
CloseRegKey $(KeyService)
else
Debug-Output "RemoveAllServiceDependencies: failed to open service key "$(DependentService)
endif
Debug-Output "RemoveAllServiceDependencies: exit"
return $(Status)
;-------------------------------------------------------------
; ROUTINE : Find MediaType
; DESCRIPTION : Gets the media type of the card
; RETURNS : R0: STATUS_SUCCESSFUL | STATUS_FAILED
; : R1: RegistryErrorIndex, if error, else media type
;
;------------------------------------------------------------
[FindMediaType]
Set Status = STATUS_FAILED
Set CardName = $(!NTN_ServiceBase)"\"$($0)"\Parameters"
OpenRegKey $(!REG_H_LOCAL) "" $(CardName) $(!ACCESS) CardKey
Ifstr(i) $(CardKey) == $(!KeyNull)
Set RegistryErrorIndex = $($R0)
Return $(Status) $(RegistryErrorIndex)
EndIf
GetRegValue $(CardKey) "MediaType" MediaTypeList
Set MediaType = *($(MediaTypeList),4)
Set Status = STATUS_SUCCESSFUL
Return $(Status) $(MediaType)
;-------------------------------------------------------------
; ROUTINE : CreateAtalkConfig
; DESCRIPTION : Creates the registry entries for AppleTalk
; RETURNS : R0: STATUS_SUCCESSFUL | STATUS_FAILED
; : R1: RegistryErrorIndex
;
;------------------------------------------------------------
[CreateAtalkConfig]
Set AdapterName = $($0)
Set KeyAdapters = $($1)
Set RetStatus = STATUS_SUCCESSFUL
read-syms GeneralConstants
CreateRegKey $(KeyAdapters) {$(AdapterName), 0, GenericClass} "" $(!ACCESS) "", TempKeyAdapters
Shell "" FindMediaType $($0)
Ifstr(i) $($R0) == STATUS_SUCCESSFUL
Set MediaType = $($R1)
else
Set RegistryErrorIndex = $($R1)
Set RetStatus = $($R0)
goto return
EndIf
set PortName = $($0)"@"$(!STF_COMPUTERNAME)
set ZoneList = {""}
set AarpRetries = 10
set DefaultZone = ""
set NewValueList = +
{{"AarpRetries",0,$(!REG_VT_DWORD),$(AarpRetries)}, +
{"DefaultZone", 0,$(!REG_VT_SZ),$(DefaultZone)},+
{"NetworkRangeUpperEnd",0,$(!REG_VT_DWORD),0 },+
{"NetworkRangeLowerEnd",0,$(!REG_VT_DWORD),0 },+
{"ZoneList",0,$(!REG_VT_MULTI_SZ),$(ZoneList)},+
{"SeedingNetwork", 0,$(!REG_VT_DWORD),0},+
{"DdpCheckSums", 0,$(!REG_VT_DWORD),0},+
{"PortName",0,$(!REG_VT_SZ),$(PortName)}}
Shell $(UtilInf),AddValueList, $(TempKeyAdapters), $(NewValueList)
set RegistryErrorIndex = $($R0)
Ifstr $(RegistryErrorIndex) != NO_ERROR
CloseRegKey $(TmpKeyAdapters)
Set RetStatus = STATUS_FAILED
EndIf
return = +
Return $(RetStatus) $(RegistryErrorIndex)
;-------------------------------------------------------------------------
;
; DO UAM INSTALL
;
;-------------------------------------------------------------------------
[DoUAMInstall]
Set Status = STATUS_FAILED
Set Mode = $($0)
read-syms DialogConstants$(!STF_LANGUAGE)
read-syms VolList
detect VolList
Set NTFSVolumeList = {}
; loop thru the volume list and find the first NTFS Volume
ForListDo $(VolumeFSList)
Ifstr(i) $($) == "NTFS"
Set NTFSExists = TRUE
Set NTFSVolumeList = >($(NTFSVolumeList),*($(VolumeList),$(#)))
EndIf
EndForListDo
Ifstr(i) $(NTFSExists) != TRUE
read-syms AFPString12$(!STF_LANGUAGE)
Shell $(SubInf) SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(ErrorString)
goto enduam
EndIf
OpenRegKey $(!REG_H_LOCAL) "" $(!NTN_ServiceBase)"\MacFile\Parameters\Volumes" $(!ACCESS) KeyVol
ifstr(i) $(KeyVol) == $(!KeyNull)
read-syms AFPString11$(!STF_LANGUAGE)
Shell $(SubInf) SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(ErrorString)
goto enduam
endif
Ifstr(i) $(Mode) == "INSTALL"
Set UAMDrive = *($(NTFSVolumeList),1)
read-syms UAMVars$(!STF_LANGUAGE)
EndIf
install "CreateUAMDir"
Set Result = ""
Set FLibraryErrCtl = 1
LibraryProcedure Result, $(!UTILHANDLE), CopyUamFiles, +
$(!STF_CWDDIR)$(!UamResSrcFile), +
$(UAMPath)"\"$(!AppleShareFolder)"\"$(!UamResDestFile)
Set FLibraryErrCtl = 0
ifstr(i) $(Result) == "FAILED"
read-syms UamFileNotCopied1$(!STF_LANGUAGE)
Shell "subroutn.inf" SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(ErrorString)
Set Status = STATUS_USERCANCEL
goto enduam
EndIf
Set Result = ""
Set FLibraryErrCtl = 1
LibraryProcedure Result,$(!UTILHANDLE), CopyUamFiles, +
$(!STF_CWDDIR)$(!UamInfoSrcFile), +
$(UAMPath)"\"$(!AppleShareFolder)"\"$(!UamInfoDestFile)
Set FLibraryErrCtl = 0
ifstr(i) $(Result) == "FAILED"
read-syms UamFileNotCopied1$(!STF_LANGUAGE)
Shell "subroutn.inf" SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(ErrorString)
Set Status = STATUS_USERCANCEL
goto enduam
EndIf
; copy the UAM Readme
Set Result = ""
Set FLibraryErrCtl = 1
LibraryProcedure Result, $(!UTILHANDLE),CopyUamFiles,+
$(!STF_CWDDIR)$(!UamReadMeSrcFile), +
$(UAMPath)"\"$(!AppleShareFolder)"\"$(!UamReadMeDestFile)
Set FLibraryErrCtl = 0
ifstr(i) $(Result) == "FAILED"
read-syms UamFileNotCopied1$(!STF_LANGUAGE)
Shell "subroutn.inf" SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(ErrorString)
Set Status = STATUS_USERCANCEL
goto enduam
EndIf
Set VolProperties = {"MAXUSES=1000", "PROPERTIES=163841","PASSWORD="}
Set VolProperties = >($(VolProperties),"PATH="$(UAMPath))
set NewValueList = +
{{$(!UAMVolumeName),0, $(!REG_VT_MULTI_SZ),$(VolProperties)}}
Shell "utility.inf" AddValueList $(KeyVol) $(NewValueList)
set RegistryErrorIndex = $($R0)
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
CloseRegKey $(KeyVol)
Set Status = STATUS_FAILED
goto enduam
EndIf
;
; Set the Default Security on the UAM Directory
;
Set Result = ""
Set FLibraryErrCtl = 1
LibraryProcedure Result, $(!UTILHANDLE),SfmSetUamSecurity $(UAMPath)
Set FLibraryErrCtl = 0
ifstr(i) $(Result) == "FAILED"
read-syms UamSecurityNotSet$(!STF_LANGUAGE)
Shell "subroutn.inf" SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(ErrorString)
endif
Set Status = STATUS_SUCCESSFUL
enduam = +
Return $(Status) $(RegistryErrorIndex)
[RemoveSfmFiles]
;
; Attempt to remove all SFM Files. If unable to remove the file
; add it to the reboot list. The file will be deleted on next reboot.
;
Set Status = STATUS_SUCCESSFUL
Set Mode = $($0)
Set RemoveList = {}
Set DelOnRebootList = {}
; ATALK Files
Set RemoveList = >($(RemoveList), #(Files-RemoveList, ATALKSYS, 1))
Set RemoveList = >($(RemoveList), #(Files-RemoveList, ATALKMSG, 1))
Set RemoveList = >($(RemoveList), #(Files-RemoveList, ATCONFIG, 1))
Set RemoveList = >($(RemoveList), #(Files-RemoveList, ATWINSOCK, 1))
; AFP SVC AND SERVER FILES
Set RemoveList = >($(RemoveList), #(Files-RemoveList, AFPSVCEXE, 1))
Set RemoveList = >($(RemoveList), #(Files-RemoveList, AFPSVCMSG, 1))
Set RemoveList = >($(RemoveList), #(Files-RemoveList, AFPSRVR, 1))
Set RemoveList = >($(RemoveList), #(Files-RemoveList, AFPSVCAPI, 1))
Set RemoveList = >($(RemoveList), #(Files-RemoveList, AFPSVCMGR, 1))
; MACPRINT AND PSTODIB FILES
Set RemoveList = >($(RemoveList), #(Files-RemoveList, PSTODIB1, 1))
Set RemoveList = >($(RemoveList), #(Files-RemoveList, PSTODIB2, 1))
Set RemoveList = >($(RemoveList), #(Files-RemoveList, PSTODIB3, 1))
Set RemoveList = >($(RemoveList), #(Files-RemoveList, PSTODIB4, 1))
Set RemoveList = >($(RemoveList), #(Files-RemoveList, MACPRINT, 1))
Set RemoveList = >($(RemoveList), #(Files-RemoveList, ATALKMON, 1))
; INF, UAM and Setup Dll's
Set RemoveList = >($(RemoveList), #(Files-RemoveList, AFPICONS, 1))
Set RemoveList = >($(RemoveList), #(Files-RemoveList, AFPTYPECRTR, 1))
Set RemoveList = >($(RemoveList), #(Files-RemoveList, UAMRES, 1))
Set RemoveList = >($(RemoveList), #(Files-RemoveList, UAMINF, 1))
Set RemoveList = >($(RemoveList), #(Files-RemoveList, UAMTXT, 1))
Set RemoveList = >($(RemoveList), #(Files-RemoveList, SFMRES, 1))
; Help File
Set RemoveList = >($(RemoveList), #(Files-RemoveList, SFMHELP, 1))
; PerfMon files
Set RemoveList = >($(RemoveList), #(Files-RemoveList, SFMCTRSDLL, 1))
Set RemoveList = >($(RemoveList), #(Files-RemoveList, SFMCTRNMH, 1))
Set RemoveList = >($(RemoveList), #(Files-RemoveList, SFMCTRSINI, 1))
Set RemoveList = >($(RemoveList), #(Files-RemoveList, ATKCTRSDLL, 1))
Set RemoveList = >($(RemoveList), #(Files-RemoveList, ATKCTRNMH, 1))
Set RemoveList = >($(RemoveList), #(Files-RemoveList, ATKCTRSINI, 1))
ForListDo $(RemoveList)
Set DelStatus = ""
Debug-Output "Deleting File "$($)
Set FLibraryErrCtl = 1
Ifstr(i) $(Mode) == "REMOVE"
LibraryProcedure DelStatus $(!UTILHANDLE), DelFile $($)
ifstr(i) $(DelStatus) == "FAILED"
Set DelOnRebootList = >($(DelOnRebootList), $($))
EndIf
else
LibraryProcedure DelStatus $(!LIBHANDLE), DelFile $($)
EndIf
Set FLibraryErrCtl = 0
EndForListDo
ForListDo $(DelOnRebootList)
Ifstr(i) $(Mode) == "REMOVE"
Debug-Output "File to remove on reboot = "$($)
AddFileToDeleteList $($)
else
Set FLibraryErrCtl = 1
LibraryProcedure DelStatus $(!LIBHANDLE), DelFile $($)
Set FLibraryErrCtl = 0
EndIf
EndForListDo
Return $(Status)
[Install-PSPrint]
AddSectionFilesToCopyList Files-PRINTPROC $(!STF_CWDDIR) $(!PrintProcDir)
CopyFilesInCopyList
Exit
[CreateUAMDir]
CreateDir $(UAMPath)
CreateDir $(UAMPath)"\"$(!AppleShareFolder)
Exit
[Install-Update]
set STF_VITAL = ""
AddSectionFilesToCopyList Files-SFM $(SrcDir) $(!STF_WINDOWSSYSPATH)
AddSectionFilesToCopyList Files-SFMDrivers $(SrcDir) $(!STF_WINDOWSSYSPATH)"\drivers"
AddSectionFilesToCopyList Files-UAM $(SrcDir) $(!STF_WINDOWSSYSPATH)
CopyFilesInCopyList
Exit
[Install-Initial]
set STF_VITAL = ""
set OLDCOPYSTATE = $(!STF_NCPA_FLUSH_COPYLIST)
set !STF_NCPA_FLUSH_COPYLIST = TRUE
AddSectionFilesToCopyList Files-SFM $(SrcDir) $(!STF_WINDOWSSYSPATH)
AddSectionFilesToCopyList Files-SFMDrivers $(SrcDir) $(!STF_WINDOWSSYSPATH)"\drivers"
AddSectionFilesToCopyList Files-UAM $(SrcDir) $(!STF_WINDOWSSYSPATH)
CopyFilesInCopyList
set !STF_NCPA_FLUSH_COPYLIST = $(OLDCOPYSTATE)
Exit
[Install-WinFile-Icon]
CreateCommonProgManGroup $(GroupName), ""
RemoveCommonProgManItem $(GroupName), $(IconName)
CreateCommonProgManItem $(GroupName), $(IconName), winfile.exe, winfile.exe, ""
ShowCommonProgManGroup $(GroupName), 6
exit
[Remove-WinFile-Icon]
RemoveCommonProgManItem $(GroupName), $(IconName)
exit
[Files-RemoveList]
ATALKSYS = $(!STF_WINDOWSSYSPATH)\drivers\sfmatalk.sys
ATALKMSG = $(!STF_WINDOWSSYSPATH)\sfmatmsg.dll
ATCONFIG = $(!STF_WINDOWSSYSPATH)\sfmatcfg.dll
ATWINSOCK = $(!STF_WINDOWSSYSPATH)\sfmwshat.dll
AFPSVCEXE = $(!STF_WINDOWSSYSPATH)\sfmsvc.exe
AFPSVCMSG = $(!STF_WINDOWSSYSPATH)\sfmmsg.dll
AFPSVCAPI = $(!STF_WINDOWSSYSPATH)\sfmapi.dll
AFPSVCMGR = $(!STF_WINDOWSSYSPATH)\sfmmgr.cpl
AFPSRVR = $(!STF_WINDOWSSYSPATH)\drivers\sfmsrv.sys
AFPICONS = $(!STF_WINDOWSSYSPATH)\sfmicons.inf
AFPTYPECRTR = $(!STF_WINDOWSSYSPATH)\sfmmap.inf
UAMINF = $(!STF_WINDOWSSYSPATH)\sfmuam.ifo
UAMRES = $(!STF_WINDOWSSYSPATH)\sfmuam.rsc
UAMTXT = $(!STF_WINDOWSSYSPATH)\sfmuam.txt
MACPRINT = $(!STF_WINDOWSSYSPATH)\sfmprint.exe
ATALKMON = $(!STF_WINDOWSSYSPATH)\sfmmon.dll
PSTODIB1 = $(!STF_WINDOWSSYSPATH)\sfmpsexe.exe
PSTODIB2 = $(!STF_WINDOWSSYSPATH)\sfmpsfnt.dll
PSTODIB3 = $(!STF_WINDOWSSYSPATH)\sfmpsprt.dll
PSTODIB4 = $(!STF_WINDOWSSYSPATH)\sfmpsdib.dll
SFMHELP = $(!STF_WINDOWSSYSPATH)\sfmmgr.hlp
SFMRES = $(!STF_WINDOWSSYSPATH)\sfmres.dll
SFMCTRSDLL = $(!STF_WINDOWSSYSPATH)\sfmctrs.dll
SFMCTRNMH = $(!STF_WINDOWSSYSPATH)\sfmctrnm.h
SFMCTRSINI = $(!STF_WINDOWSSYSPATH)\sfmctrs.ini
ATKCTRSDLL = $(!STF_WINDOWSSYSPATH)\atlkctrs.dll
ATKCTRNMH = $(!STF_WINDOWSSYSPATH)\atlkctrnm.h
ATKCTRSINI = $(!STF_WINDOWSSYSPATH)\atlkctrs.ini
[UamGetLanguage]
STF_LANGUAGE = "" ? $(!LIBHANDLE) GetLanguage
[UAMINSTALL]
;
; This section is called when the initial installation failed to
; install the UAM and the user use's setup /i oemnsvsm.inf /c uaminstall
;
; Load SetupDll.dll to get entry points
LoadLibrary "x" $(!STF_CWDDIR)setupdll.dll !LIBHANDLE
read-syms UamGetLanguage
detect UamGetLanguage
; read all general and dialog constants
read-syms GeneralConstants
read-syms FileConstants
read-syms FileConstants$(STF_LANGUAGE)
Debug-Output "UAMINSTALL: Language = "$(STF_LANGUAGE)
; Detect file system information
read-syms FSAndDiskSpace
detect FSAndDiskSpace
Set NTFSVolExists = FALSE
Set NTFSVolumeList = {}
ForListDo $(VolumeFSList)
Ifstr(i) $($) == "NTFS"
Set NTFSVolExists = TRUE
Set NTFSVolumeList = >($(NTFSVolumeList),*($(VolumeList),$(#)))
EndIf
EndForListDo
Ifstr(i) $(NTFSVolExists) == FALSE
read-syms UamFileNotCopied1$(STF_LANGUAGE)
Shell $(SubInf) SetupMessage $(STF_LANGUAGE) "NONFATAL" $(ErrorString)
goto uaminstalldone
EndIf
LoadLibrary "y" $(!STF_CWDDIR)sfmutil.dll !UTILHANDLE
Set !NTN_ServiceBase = "SYSTEM\CurrentControlSet\Services"
OpenRegKey $(!REG_H_LOCAL) "" $(!NTN_ServiceBase)"\MacFile\Parameters\Volumes" $(!ACCESS) KeyVol
ifstr(i) $(KeyVol) == $(!KeyNull)
read-syms AFPString11$(!STF_LANGUAGE)
Shell $(SubInf) SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(ErrorString)
goto uaminstalldone
endif
Set UAMDrive = *($(NTFSVolumeList),1)
read-syms UAMVars$(!STF_LANGUAGE)
install "CreateUAMDir"
Set Result = ""
Set FLibraryErrCtl = 1
LibraryProcedure Result,+
$(!UTILHANDLE), +
CopyUamFiles, +
$(!STF_CWDDIR)$(!UamResSrcFile), +
$(UAMPath)"\"$(!AppleShareFolder)"\"$(!UamResDestFile)
Set FLibraryErrCtl = 0
ifstr(i) $(Result) == "FAILED"
read-syms UamFileNotCopied1$(!STF_LANGUAGE)
Shell $(SubInf) SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(ErrorString)
goto uaminstalldone
EndIf
Set Result = ""
Set FLibraryErrCtl = 1
LibraryProcedure Result,+
$(!UTILHANDLE),+
CopyUamFiles, +
$(!STF_CWDDIR)$(!UamInfoSrcFile) +
$(UAMPath)"\"$(!AppleShareFolder)"\"$(!UamInfoDestFile)
Set FLibraryErrCtl = 0
ifstr(i) $(Result) == "FAILED"
read-syms UamFileNotCopied1$(!STF_LANGUAGE)
Shell $(SubInf) SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(ErrorString)
goto uaminstalldone
EndIf
; copy the UAM Readme
Set Result = ""
Set FLibraryErrCtl = 1
LibraryProcedure Result, +
$(!UTILHANDLE), +
CopyUamFiles, +
$(!STF_CWDDIR)$(!UamReadMeSrcFile) +
$(UAMPath)"\"$(!AppleShareFolder)"\"$(!UamReadMeDestFile)
Set FLibraryErrCtl = 0
ifstr(i) $(Result) == "FAILED"
read-syms UamFileNotCopied1$(!STF_LANGUAGE)
Shell $(SubInf) SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(ErrorString)
goto uaminstalldone
EndIf
Set VolProperties = {"MAXUSES=1000", "PROPERTIES=163841","PASSWORD="}
Set VolProperties = >($(VolProperties),"PATH="$(UAMPath))
set NewValueList = +
{{$(!UAMVolumeName), 0, $(!REG_VT_MULTI_SZ),$(VolProperties)}}
Shell $(UtilInf) AddValueList $(KeyVol) $(NewValueList)
set RegistryErrorIndex = $($R0)
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
CloseRegKey $(KeyVol)
EndIf
Set Result = ""
Set FLibraryErrCtl = 1
LibraryProcedure Result, $(!UTILHANDLE),SfmSetUamSecurity $(UAMPath)
Set FLibraryErrCtl = 0
ifstr(i) $(Result) == "FAILED"
read-syms UamSecurityNotSet$(!STF_LANGUAGE)
Shell "subroutn.inf" SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(ErrorString)
endif
uaminstalldone = +
FreeLibrary $(!LIBHANDLE)
FreeLibrary $(!UTILHANDLE)
exit