|
|
;------------------------------------------------------------------------; 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 = 4ProductMinorVersion = 0ProductVersion = $(ProductMajorVersion)"."$(ProductMinorVersion)ProductOpSupport = 134 ; 0x0086 ; Display,Removable,Properties,Not Updatable
; flag indicates AppleTalk has been installed for the first time.IsInitialInstall = 0SFMUnattended = 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 = 4294967295RegistryErrorIndex = NO_ERRORKeyProduct = ""KeyParameters = ""TRUE = 1FALSE = 0NoTitle = 0!UamCopyStatus = TRUE; !DebugOutputControl = 0
[date]Now = {} ? $(!LIBHANDLE) GetSystemDate
[AvailableSystemMemory]
SystemMemory = "" ? $(!LIBHANDLE) GetMemorySizeMinSystemMemory = 2048
[FSAndDiskSpace]
VolumeList = {} ? $(!LIBHANDLE) GetHardDriveLettersVolumeFreeList = {} ? $(!LIBHANDLE) GetHardDriveFreeSpaceVolumeFSList = {} ? $(!LIBHANDLE) GetHardDriveFileSystems
[VolList]
VolumeFSList = {} ? $(!LIBHANDLE) GetHardDriveFileSystemsVolumeList = {} ? $(!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 endifreturnoptions = + 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.sysATALKMSG = $(!STF_WINDOWSSYSPATH)\sfmatmsg.dllATCONFIG = $(!STF_WINDOWSSYSPATH)\sfmatcfg.dllATWINSOCK = $(!STF_WINDOWSSYSPATH)\sfmwshat.dllAFPSVCEXE = $(!STF_WINDOWSSYSPATH)\sfmsvc.exeAFPSVCMSG = $(!STF_WINDOWSSYSPATH)\sfmmsg.dllAFPSVCAPI = $(!STF_WINDOWSSYSPATH)\sfmapi.dllAFPSVCMGR = $(!STF_WINDOWSSYSPATH)\sfmmgr.cplAFPSRVR = $(!STF_WINDOWSSYSPATH)\drivers\sfmsrv.sysAFPICONS = $(!STF_WINDOWSSYSPATH)\sfmicons.infAFPTYPECRTR = $(!STF_WINDOWSSYSPATH)\sfmmap.infUAMINF = $(!STF_WINDOWSSYSPATH)\sfmuam.ifoUAMRES = $(!STF_WINDOWSSYSPATH)\sfmuam.rscUAMTXT = $(!STF_WINDOWSSYSPATH)\sfmuam.txtMACPRINT = $(!STF_WINDOWSSYSPATH)\sfmprint.exeATALKMON = $(!STF_WINDOWSSYSPATH)\sfmmon.dllPSTODIB1 = $(!STF_WINDOWSSYSPATH)\sfmpsexe.exePSTODIB2 = $(!STF_WINDOWSSYSPATH)\sfmpsfnt.dllPSTODIB3 = $(!STF_WINDOWSSYSPATH)\sfmpsprt.dllPSTODIB4 = $(!STF_WINDOWSSYSPATH)\sfmpsdib.dllSFMHELP = $(!STF_WINDOWSSYSPATH)\sfmmgr.hlpSFMRES = $(!STF_WINDOWSSYSPATH)\sfmres.dllSFMCTRSDLL = $(!STF_WINDOWSSYSPATH)\sfmctrs.dllSFMCTRNMH = $(!STF_WINDOWSSYSPATH)\sfmctrnm.hSFMCTRSINI = $(!STF_WINDOWSSYSPATH)\sfmctrs.iniATKCTRSDLL = $(!STF_WINDOWSSYSPATH)\atlkctrs.dllATKCTRNMH = $(!STF_WINDOWSSYSPATH)\atlkctrnm.hATKCTRSINI = $(!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
|
