|
|
;------------------------------------------------------------------------; 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 = NetTransport[LanguagesSupported] ENG[Options] SFM[OptionsTextENG] SFM = "Services for Macintosh"
[FileConstants]
ProductFullInfName = $(!STF_CWDDIR)oemnxpsm.inf
Manufacturer = "Microsoft"ProductMajorVersion = 3ProductMinorVersion = 1ProductVersion = $(ProductMajorVersion)"."$(ProductMinorVersion)
;------------------------------------------------------------------------; SFM Software Data;------------------------------------------------------------------------
ProductSFMName = "SFM"ProductSFMTitle = "Services for Macintosh"
; AppleTalk Transport Product Descriptions /Net Rules
ProductATALKName = "AppleTalk"ProductATALKDisplayName = "AppleTalk Transport"ProductATALKTitle = "Services for Macintosh"ProductATALKImagePath = "%SystemRoot%\system32\drivers\sfmatalk.sys"ProductATALKSvcType = "kernel"ProductATALKType = "transport"ProductATALKEventDll = "%SystemRoot%\system32\sfmatmsg.dll"NetRuleATALKType = "appletalk appletalktransport"NetRuleATALKUse = transport " yes yes"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 = "AfpServer"ProductAFPSVCDisplayName = "AFP File Server"ProductAFPSVCTitle = "Services for Macintosh"ProductAFPSVCImagePath = "%SystemRoot%\system32\sfmsvc.exe"ProductAFPSVCType = "service"ProductAFPSVCEventDll = "%SystemRoot%\system32\sfmmsg.dll"NetRuleAFPSVCType = "AfpServer lmNetService"NetRuleAFPSVCUse = "service"!UAMVolumeName = "Microsoft UAM Volume"
ProductAFPSRVRName = "AfpSrv"ProductAFPSRVRDisplayName = "AFP Kernel Driver"ProductAFPSRVRImagePath = "%SystemRoot%\system32\drivers\sfmsrv.sys"ProductAFPSRVREventDll = "%SystemRoot%\system32\sfmmsg.dll";------------------------------------------------------------------------; Macintosh Print Server Product Descriptions /Net Rules;------------------------------------------------------------------------ProductMACPRINTName = "MacPrint"ProductMACPRINTDisplayName = "Macintosh Print Service"ProductMACPRINTTitle = "Services for Macintosh"ProductMACPRINTImagePath = "%SystemRoot%\system32\sfmprint.exe"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 = "MS UAM ReadMe.ttxt"!AppleShareFolder = "AppleShare Folder"NtNetIniFileName = "ntnet.ini"WinFileIniFileName = "winfile.ini"AfpMgrCplFile = "sfmmgr.cpl"SrvMgrIniSection = "SMAddons"WinFileIniSection = "Addons"TypeCreatorMapFile = "sfmmap.inf"AtWinSockDll = "sfmshat.dll"PSprintProcFile = "sfmpsprt.dll"PSprintProc = "PSPRINT"
;------------------------------------------------------------------------; Product Key Names, Registry Key Names of Interest;-------------------------------------------------------------------------!ProductKeyBase = $(!NTN_SoftwareBase)"\"$(Manufacturer)!ProductKeyName = $(!NTN_SoftwareBase)"\"$(Manufacturer)"\"$(ProductSFMName)"\CurrentVersion"!ProductKeyLinkage = $(!NTN_ServiceBase)"\"$(ProductATALKName)"\Linkage"!PrintMonKeyName = "SYSTEM\CurrentControlSet\Control\Print\Monitors"!EventLogKey = $(!NTN_ServiceBase)"\EventLog\Application"
[GeneralConstants]
UtilInf = "UTILITY.INF"SubInf = "SUBROUTN.INF"!KeyNull = ""!ACCESS = 33554432RegistryErrorIndex = NO_ERRORKeyProduct = ""KeyParameters = ""TRUE = 1FALSE = 0NoTitle = 0!UamCopyStatus = TRUE!DebugOutputControl = 1
[FileConstantsENG]
FunctionTitle = "Services for Macintosh Setup"ProductATALKDescription = "AppleTalk Transport"ProductAFPSVCDescription = "AppleTalk File Server"ProductMACPRINTDescription = "AppleTalk Print Server"ProductSFMDescription = "Macintosh->Windows NT Connectivity"
ProCaption = $(FunctionTitle)ProCancel = "Cancel"ProCancelMsg = "Services for Macintosh is not correctly installed. "+ "Are you sure you want to cancel copying files ?"ProCancelCap = "Services for Macintosh Setup"ProText1 = "Copying:"ProText2 = "To:"Error = "User has cancelled copying files. Copied files will be removed."
MajorVersion = "MajorVersion"MinorVersion = "MinorVersion"
AskLocationText = "Please enter the full path of the Services for "+ "Macintosh distribution files. Then choose continue."
[DialogConstantsENG]
Help = "&Help"Exit = "E&xit Setup"OK = "OK"HelpContext = ""Continue = "Continue"Cancel = "Cancel"ConfigCancel = "Close"
[date]Now = {} ? $(!LIBHANDLE) GetSystemDate
[AvailableSystemMemory]
SystemMemory = "" ? $(!LIBHANDLE) GetMemorySizeMinSystemMemory = 2048
[FSAndDiskSpace]
VolumeList = {} ? $(!LIBHANDLE) GetHardDriveLettersVolumeFreeList = {} ? $(!LIBHANDLE) GetHardDriveFreeSpaceVolumeFSList = {} ? $(!LIBHANDLE) GetHardDriveFileSystems
[VolList]
VolumeFSList = {} ? $(!LIBHANDLE) GetHardDriveFileSystemsVolumeList = {} ? $(!LIBHANDLE) GetHardDriveLetters
[DefAfpParametersENG]
MaxSessions = 255 LoginMessage = "" ServerOptions = 7 PagedMemLimit = 20000 NonPagedMemLimit = 2000
[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"} MSWD3ID = {"ID=16"} MSWD4ID = {"ID=17"} MSWD5ID = {"ID=18"}
MSPJ1ID = {"ID=19"} MSPJ2ID = {"ID=20"} MSPJ3ID = {"ID=21"} MSPJ4ID = {"ID=22"} MSPJ5ID = {"ID=23"} MSPJ6ID = {"ID=24"}
ALD31ID = {"ID=25"} ALD32ID = {"ID=26"} ALD33ID = {"ID=27"}
MOREID = {"ID=28"} FOX+ID = {"ID=29"} ALD2ID = {"ID=30"} ARTZID = {"ID=31"} SIT!ID = {"ID=32"} PPT2ID = {"ID=33"} PPT3ID = {"ID=34"} L123ID = {"ID=35"} TTXTID = {"ID=36"}
[UAMVarsENG] UAMDirName = "Microsoft UAM Volume" UAMPath = $(UAMDrive)"\"$(UAMDirName)
;------------------------------------------------------------------; Express /Custom Mode Install Dialog - Used In Initial Setup Only;------------------------------------------------------------------
[SetupSpaceDlgENG] DlgType = "MessageBox" STF_MB_TYPE = 5 STF_MB_ICON = 3 STF_MB_DEF = 3 STF_MB_TITLE = $(FunctionTitle) STF_MB_TEXT = "Setup could not find enough space on your Windows NT system partition. "+ "Setup requires atleast 2 MB for installing Services for Macintosh. "+ "You can retry installation by freeing up space on your system drive."
[ConfigureSfmDlgENG]DlgType = "Radio"DlgTemplate = "SFMCONFIGSEL"Caption = $(FunctionTitle)Label1 = "Select the component to be configured"RadioHeader = ""RadioDefault = "1"Radio1Text = "AppleTalk &Transport"Radio2Text = "AppleTalk &File Server"OptionsGreyed = {}HelpContext = #(SfmSetupHelpIds, HC_SFM_SFMCONFIGSEL,1)ComboListItemsOut = {}
[ConfigureAfpDlgENG]DlgType = "RadioCombination"DlgTemplate = "SRVCFG"Caption = "SFM File Server Configuration"Label1 = "Server &Name:"BuildUAMVol = "&Build UAM Volume"CheckItemsIn = {$(FShareUAM)}EditTextIn = $(ServerName)EditTextOut = ""EditTextLim = 31EditFocus = "ALL"CBOptionsGreyed = $(DisableList)HelpContext = #(SfmSetupHelpIds, HC_SFM_SRVCFG,1)ComboListItemsOut = {}
[UAMVolCreateDlgENG]DlgType = "Edit"DlgTemplate = "UAMVOLCREATE"Caption = "Services for Macintosh Setup"DlgText = "Enter the path for the Microsoft User Authentication files. "+ "The Microsoft User Authentication files will be copied to this "+ "location to allow Macintosh clients to download this module."$(!LF)$(!LF)+ "Press Cancel to cancel installation of this module."Static1Label = "Volume &Path:"EditTextLim = 259HelpContext = #(SfmSetupHelpIds, HC_SFM_UAMVOLCREATE,1)
[SetupAbortDlgENG] DlgType = "Info" DlgTemplate = "RESTART" Caption = $(FunctionTitle) DlgText = "Setup for Macintosh Services failed."$(!LF)$(!LF)+ "Please choose Exit to exit back to the Windows NT System." Windows = "E&xit to &Windows NT"
[ExitWarningDlgENG] DlgType = "MessageBox" STF_MB_TITLE = "Services for Macintosh Setup" STF_MB_TEXT = "Services for Macintosh is not correctly installed. Are you "+ "sure you want to exit Setup ?" STF_MB_TYPE = 3 STF_MB_ICON = 5 STF_MB_DEF = 2
;------------------------------------------------------------------; Error Strings;------------------------------------------------------------------
;------------------------------------------------------------------; Miscellaneous Errors;------------------------------------------------------------------
[MiscErrorString1ENG]ErrorString = " of Services for Macintosh is already installed in your system. "+ "Use [Update] to update to newer versions."
[MiscErrorString2ENG]ErrorString = "The amount of memory available on your system is not sufficient "+ "to run Services for Macintosh. Services for Macintosh requires "+ "at least 8 MB to run."
[MiscErrorString3ENG]ErrorString = ""
[ShellingErrorENG]ErrorString = " An internal error occurred. Contact MS support."
[UamFileNotCopiedENG]ErrorString = "Setup failed to copy Microsoft User Authentication files. "+ "Setup will not create a volume for allowing Macintosh clients to "+ "download these files. Refer to your user's guide on how to setup "+ "this volume after installation."
[UamFileNotCopied1ENG]ErrorString = "Setup failed to copy Microsoft User Authentication files. "+ "Setup will not create a volume for allowing Macintosh clients to "+ "download these files."
;------------------------------------------------------------------; Status Strings;------------------------------------------------------------------
[IntroMessageENG]
Status = "Setup is ready to install Services for Macintosh. "+ "Setup will install the AppleTalk Transport, the AppleTalk File "+ "Server, the Macintosh Print Server and create a volume for "+ "downloading Microsoft Authentication files to Macintosh clients. "+ "Press OK to start installation."
[Status0ENG]Status = "Checking Disk Space and File System Information..."
[Status1ENG]Status = "Installing "$(Product$(Option))"..."
[StatusAtalk1ENG]Status = "Adding AppleTalk Transport to registry..."
[StatusAtalk3ENG]Status = "Starting AppleTalk ..."
[StatusAfp1ENG]Status = "Adding Afp Server Service to registry..."
[StatusAfp2ENG]Status = "Creating Afp Service ..."
[StatusAfp3ENG]Status = "Adding Afp File Server to File Manager and Server Manager ..."
[StatusMacPrint1ENG]Status = "Adding Macintosh Print Service to registry..."
[StatusRemove1ENG]Status = "Removing Services for Macintosh files..."
[StatusRemove2ENG]Status = "Restoring Services for Macintosh original state..."
[StatusRemoveDoneENG]Status = "Services for Macintosh has been successfully removed. "+ "You must now close the Network Applet and reboot for the system "+ "to work correctly. Do not attempt to reinstall Services for "+ "Macintosh now."
;------------------------------------------------------------------; AppleTalk Transport Error Strings;------------------------------------------------------------------
[AtalkString1ENG]ErrorString = "Setup failed to add WinSock support for the Appletalk transport. "+ "This will not affect installation. Contact your system administrator "+ "for support."
[AtalkString2ENG]ErrorString = "Setup failed to remove WinSock support for the Appletalk transport."
[AtalkString3ENG]ErrorString = "Services for Macintosh has just been installed. Services will be "+ "available to Macintoshes in the default network. If you would like "+ "the services to appear in a different zone or to configure routing, close "+ "the Control Panel, reboot, Start AppleTalk and use the Control Panel "+ "to configure Services for Macintosh."
[AFPString1ENG]ErrorString = "Setup could not find any NT File System volumes in your system. "+ "Services for Macintosh requires a NT File System volume for "+ "Macintosh clients to share files. You can create the NT FileSystem "+ "volume after installing Services for Macintosh. Setup will proceed to "+ "install Services for Macintosh."
[AFPString2ENG]ErrorString = "Unable to add Afp File Server to the File Manager Menu. "+ "You will not be able to use the File Manager to create/edit/delete or edit "+ "type creator associations from File Manager. Consult your user's guide "+ "on how to do this after installation."
[AFPString3ENG]ErrorString = "Unable to add Afp File Server to the Server Manager Menu. "+ "You will not be able to use the Server Manager to administer Afp Servers on your "+ "network. Consult your user's guide on how to do this after installation."
[AFPString10ENG]ErrorString = "An invalid volume path has been entered or this volume is not a NT File System volume."
[AFPString11ENG]ErrorString = "Could not find the volumes key in the AfpServer section in registry. "+ "UAM Volume cannot be built."
[AFPString12ENG]ErrorString = "Could not find any NTFS volumes in your system. UAM Volume cannot be built."
[MacPrintString1ENG]ErrorString = "Unable to create Macintosh Print user account. This account may already exist. "+ "Enter a new account name to create."
[MacPrintString2ENG]ErrorString = "Unable to open registry key for eventlog. Macintosh Print Service event log entries "+ "may not be set correctly."
[MacPrintString3ENG]ErrorString = "Unable to add Macintosh Print Service Print Processor. Macintosh clients will be unable to "+ "print postscript jobs to a non-postscript printer on the Advanced Server network."
[MacPrintString4ENG]ErrorString = "Unable to add Macintosh Print Monitor. You will be unable to use the "+ "Macintosh Print Service. Contact Microsoft Support."
[MacPrintString5ENG]ErrorString = "Unable to remove the Macintosh Print Service Print Processor. "+ "Contact your system admnistrator for support."
[MacPrintString6ENG]ErrorString = "Unable to find the directory to install the Macintosh Print Processor. "+ "Macintosh Print Processor will not be installed."
[MacPrintString7ENG]ErrorString = "Unable to remove the Macintosh Print Monitor. Contact your Administrator. "+ "Temporary Message: Setup will manually delete your monitor registry keys NOW!."
[MacPrintString8ENG]ErrorString = "Unable to create the Macintosh Print User Account. Refer "+ "to your Services for Macintosh User's Guide on how to set up "+ "this account after installation."
[MacPrintString9ENG]ErrorString = "Unable to remove the Macintosh Print User Account. Refer "+ "to your Services for Macintosh User's Guide on how to remove "+ "this account."
[MacPrintString10ENG]ErrorString = "Unable to open registry key for eventlog. The event log entry for "+ "the Macintosh Print Service monitor may not be set correctly."
[NoAdaptersFoundENG]
ErrorString = "Fatal Error: Unable to find any network adapter "+ "for Services for Macintosh. You will not be able "+ "to use Services for Macintosh. Add a network "+ "adapter or enable AppleTalk Transport bindings."
[CantRemoveSfmENG]ErrorString = "Services for Macintosh is currently running on your system. You "+ "cannot remove now. Stop Services for Macintosh and retry."
[RemoveDefaultPortENG]ErrorString = "The default network adapter used by Services"$(!LF)+ "for Macintosh has been removed. An attempt"$(!LF)+ "will be made to change the default port."$(!LF)+ "This may cause Macintosh clients to no longer"$(!LF)+ "see services on the current zone. You must"$(!LF)+ "configure the AppleTalk transport to change"$(!LF)+ "the zone for Services for Macintosh."
[SetupSuccessENG]Status = "Services for Macintosh has been installed."$(LF)+ "Services will self-start on reboot."$(LF)$(LF)+ "Services will be available to Macintosh clients in the default network. "+ "If you would like the services to appear in a different zone or to configure routing, "+ "reboot and use the Control Panel Network Applet to configure the AppleTalk Transport. "+ "Consult your Services for Macintosh User's Guide on things to do after installation."[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
StartWait set-subst LF = "\n" set-subst CR = "\r" read-syms GeneralConstants read-syms FileConstants read-syms DialogConstants$(!STF_LANGUAGE)
read-syms FileConstants$(!STF_LANGUAGE) read-syms SfmSetupHelpIds SetHelpFile $(!STF_CWDDIR)sfmsetup.hlp $(MinHelpID) $(MaxHelpID)
detect date set-title $(FunctionTitle) set to = Begin set from = Begin 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) EndWait
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
Debug-Output "Remove Software List = "$(REMOVE_SOFTWARE) Debug-Output "Remove Services List = "$(REMOVE_SERVICES)
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
; CODEWORK - Declare Error and Bomb Out
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
Else set Text = $(AskLocationText)
ifstr(i) $(!NTN_InstallPhase) == "secondary"
Shell $(SubInf), DoAskSourceEx, $(SrcDir) $(Text) Ifint $($ShellCode) != $(!SHELL_CODE_OK) Goto fatal Else-Ifstr(i) $($R0) == STATUS_FAILED Shell $(UtilInf) RegistryErrorString "ASK_SOURCE_FAIL" ifint $($ShellCode) != $(!SHELL_CODE_OK) goto ShellCodeError endif set Error = $($R0) Goto fatal Else-Ifstr(i) $($R0) == STATUS_USERCANCEL Goto initialsetupcancel Endif Set SrcDir = $($R1) EndIf
EndIf
StartWait
Debug-Output "Detecting memory"
read-syms AvailableSystemMemory detect AvailableSystemMemory
Debug-Output "System Memory = "$(SystemMemory) Debug-Output "Min System Memory = "$(MinSystemMemory)
Ifint $(SystemMemory) < $(MinSystemMemory) read-syms MiscErrorString2(!STF_LANGUAGE) shell $(SubInf) SetupMessage $(!STF_LANGUAGE) "FATAL" $(ErrorString) goto end EndIf
Debug-Output "Reading Status 0" read-syms Status0$(!STF_LANGUAGE) Shell $(SubInf) PushBillBoard NETSTATUSDLG $(Status)
Debug-Output "Detecting Disk Space"
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) $(NTFSVolExists) == FALSE read-syms AFPString1$(!STF_LANGUAGE) Shell $(SubInf) SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(ErrorString) 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 = +
Debug-Output "Detecting vol list" 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
Else goto intromessage EndIf
EndIf
EndForListDo
intromessage = +
Shell $(SubInf) PopBillBoard read-syms IntroMessage$(!STF_LANGUAGE) Shell $(SubInf) SetupMessage $(!STF_LANGUAGE) "STATUS" $(Status)
;------------------------------------------------------------------; Copy the SFM Files;------------------------------------------------------------------
CopySfmFiles = +
install "Install-Initial"
ifstr(i) $(STF_INSTALL_OUTCOME) != STF_SUCCESS
read-syms StatusRemove1$(!STF_LANGUAGE) Shell $(SubInf) PushBillBoard NETSTATUSDLG $(Status)
Shell "" RemoveSfmFiles "INSTALL" Shell $(SubInf) PopBillBoard
goto usercancel
endif
LoadLibrary "x" $(!STF_CWDDIR)$(UtilDll) !UTILHANDLE
Set Result = "" Set FLibraryErrCtl = 1 LibraryProcedure Result, $(!UTILHANDLE), CopyUamFiles, $(SrcDir)"\"$(!UamResSrcFile) $(!STF_WINDOWSSYSPATH)"\"$(!UamResSrcFile) Set FLibraryErrCtl = 0 ifstr(i) $(Result) == "FAILED" read-syms UamFileNotCopied$(!STF_LANGUAGE) Shell $(SubInf) SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(ErrorString) Set !UamCopyStatus = FALSE goto StartInstall EndIf Set FLibraryErrCtl = 1 LibraryProcedure Result, $(!UTILHANDLE), CopyUamFiles, $(SrcDir)"\"$(!UamInfoSrcFile) $(!STF_WINDOWSSYSPATH)"\"$(!UamInfoSrcFile) Set FLibraryErrCtl = 0 ifstr(i) $(Result) == "FAILED" read-syms UamFileNotCopied$(!STF_LANGUAGE) Shell $(SubInf) SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(ErrorString) Set !UamCopyStatus = FALSE EndIf
StartInstall = +
Set REMOVE_FLAG = TRUE
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 = + {{Infname,0,$(!REG_VT_SZ),$(ProductFullInfName)},+ {ServiceName,0,$(!REG_VT_SZ),$(Product$(ThisOption)Name)},+ {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)},+ {InstallDate,0,$(!REG_VT_DWORD),*($(Now),1)}}
Shell $(UtilInf), AddValueList, $(SfmProductKey), $(NewValueList) ifint $(ShellCode) != 0 goto ShellCodeError endif
set RegistryErrorIndex = $($R0) CloseRegKey $(SfmProductKey)
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR EndWait 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) CloseRegKey $(SfmNetRuleKey) Ifstr(i) $(RegistryErrorIndex) != NO_ERROR goto fatalregistry endif
Set ThisOption = ATALK Set REMOVE_SOFTWARE = >($(REMOVE_SOFTWARE), $(Product$(ThisOption)Name))
read-syms StatusAtalk1$(!STF_LANGUAGE) Shell $(SubInf) PushBillBoard NETSTATUSDLG $(Status) Set Atalk_DependList = {"+NDIS"} Set FLibraryErrCtl = 1 Shell $(UtilInf), AddSoftwareComponent, $(Manufacturer), + $(Product$(ThisOption)Name), $(Product$(ThisOption)Name), + $(Product$(ThisOption)DisplayName), + $(ProductFullInfName), $(Product$(ThisOption)ImagePath),+ "kernelautostart", "", $(Atalk_DependList), "" $(Product$(ThisOption)EventDll) Set FLibraryErrCtl = 0 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 ; $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),$(!STF_WINDOWSSYSPATH)},+ {ServiceName,0,$(!REG_VT_SZ),$(Product$(ThisOption)Name)},+ {Review,0,$(!REG_VT_DWORD),1},+ {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) CloseRegKey $(AtkVersKey) CloseRegKey $(AtkNetRuleKey)
Ifstr $(RegistryErrorIndex) != NO_ERROR goto fatalregistry EndIf
set NewValueList = {{OtherDependencies,0,$(!REG_VT_MULTI_SZ),{"+NDIS"}}}
shell $(UtilInf), AddValueList, $(AtkLinkageKey), $(NewValueList)
set RegistryErrorIndex = $($R0)
Ifstr $(RegistryErrorIndex) != NO_ERROR EndWait CloseRegKey $(AtkVersKey) CloseRegKey $(AtkNetRuleKey) CloseRegKey $(AtkSvcKey) CloseRegKey $(AtkLinkageKey) CloseRegKey $(AtalkParameters) goto fatalregistry EndIf
; ; Create the Adapters Key ; CreateRegKey $(AtkSvcKey), {"Adapters",0,GenericClass},"", $(!ACCESS),+ "" , KeyAdapters
; write global parameters
Set DesiredZone = "" set NewValueList = {{EnableRouter,0,$(!REG_VT_DWORD),0},+ {DesiredZone,0,$(!REG_VT_SZ),$(DesiredZone)}}
Shell $(UtilInf), AddValueList, $(AtalkParameters), $(NewValueList)
set RegistryErrorIndex = $($R0)
CloseRegKey $(AtalkParameters) Ifstr(i) $(RegistryErrorIndex) != NO_ERROR goto fatalregistry EndIf
; Add WinSock Support to AppleTalk
Set WinAtalkDll = $(!STF_WINDOWSSYSPATH)"\"$(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
Shell $(SubInf) PopBillBoard
; Install AFPSVC
Set ThisOption = AFPSVC Set REMOVE_SOFTWARE = >($(REMOVE_SOFTWARE), $(Product$(ThisOption)Name)) Set REMOVE_SERVICES = >($(REMOVE_SERVICES), $(ProductAFPSRVRName)) StartWait read-syms StatusAfp1$(!STF_LANGUAGE)
Shell $(SubInf) PushBillBoard NETSTATUSDLG $(Status) Set FLibraryErrCtl = 1 Shell $(UtilInf), AddSoftwareComponent, $(Manufacturer), + $(Product$(ThisOption)Name), $(Product$(ThisOption)Name), + $(Product$(ThisOption)DisplayName), + $(ProductFullInfName), $(Product$(ThisOption)ImagePath),+ "autoserviceshare", "", {"AppleTalk","NetLogon"}, "" $(Product$(ThisOption)EventDll) Set FLibraryErrCtl = 0 Ifint $(ShellCode) != 0 goto ShellCodeError endif
set RegistryErrorIndex = $($R0)
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR EndWait CloseRegKey $($R1) CloseRegKey $($R2) CloseRegKey $($R3) CloseRegKey $($R4) 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 ;
Shell $(SubInf) PopBillBoard
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),$(!STF_CWDDIR)},+ {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 EndWait CloseRegKey $(McProductKey) CloseRegKey $(McNetRuleKey) CloseRegKey $(McServiceKey) CloseRegKey $(McParameters) CloseRegKey $(McLinkageKey) goto fatalregistry Endif
set NewValueList = {{type,0,$(!REG_VT_SZ),$(NetRule$(ThisOption)Type)},+ {use,$(NoTitle),$(!REG_VT_SZ),$(NetRule$(ThisOpton)Use)},+ {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) CloseRegKey $(McNetRuleKey)
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR EndWait 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 EndWait CloseRegKey $(McProductKey) CloseRegKey $(McNetRuleKey) CloseRegKey $(McServiceKey) CloseRegKey $(McParameters) CloseRegKey $(McLinkageKey) goto fatalregistry endif
; Set TypeCreator Mappings
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)},+ {21,0,$(!REG_VT_MULTI_SZ),$(!MSPJ6CREATOR)},+ {22,0,$(!REG_VT_MULTI_SZ),$(!ALD31CREATOR)},+ {23,0,$(!REG_VT_MULTI_SZ),$(!ALD32CREATOR)},+ {24,0,$(!REG_VT_MULTI_SZ),$(!ALD33CREATOR)},+ {25,0,$(!REG_VT_MULTI_SZ),$(!MORECREATOR)},+ {26,0,$(!REG_VT_MULTI_SZ),$(!FOX+CREATOR)},+ {27,0,$(!REG_VT_MULTI_SZ),$(!ALD2CREATOR)},+ {28,0,$(!REG_VT_MULTI_SZ),$(!ARTZCREATOR)},+ {29,0,$(!REG_VT_MULTI_SZ),$(!SIT!CREATOR)},+ {30,0,$(!REG_VT_MULTI_SZ),$(!PPT2CREATOR)},+ {31,0,$(!REG_VT_MULTI_SZ),$(!PPT3CREATOR)},+ {32,0,$(!REG_VT_MULTI_SZ),$(!L123CREATOR)}}
Shell $(UtilInf),AddValueList,$(KeyTypeCreator),$(NewValueList)
ifint $(ShellCode) != 0 goto ShellCodeError endif
set RegistryErrorIndex = $($R0)
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR EndWait 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)},+ {WRD,0,$(!REG_VT_MULTI_SZ),$(MSWD2ID)},+ {RTF,0,$(!REG_VT_MULTI_SZ),$(MSWD3ID)},+ {STY,0,$(!REG_VT_MULTI_SZ),$(MSWD4ID)},+ {GLY,0,$(!REG_VT_MULTI_SZ),$(MSWD5ID)},+ {TXT,0,$(!REG_VT_MULTI_SZ),$(MSWD6ID)},+ {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)},+ {PM3,0,$(!REG_VT_MULTI_SZ),$(ALD31ID)},+ {PT3,0,$(!REG_VT_MULTI_SZ),$(ALD32ID)},+ {TEM,0,$(!REG_VT_MULTI_SZ),$(ALD33ID)},+ {TPL,0,$(!REG_VT_MULTI_SZ),$(ALD33ID)},+ {TIF,0,$(!REG_VT_MULTI_SZ),$(ALD33ID)},+ {RDY,0,$(!REG_VT_MULTI_SZ),$(MOREID)},+ {DBF,0,$(!REG_VT_MULTI_SZ),$(FOX+ID)},+ {PUB,0,$(!REG_VT_MULTI_SZ),$(ALD2ID)},+ {EPS,0,$(!REG_VT_MULTI_SZ),$(ARTZID)},+ {SIT,0,$(!REG_VT_MULTI_SZ),$(SIT!ID)},+ {PPT,0,$(!REG_VT_MULTI_SZ),$(PPT2ID)},+ {WK3,0,$(!REG_VT_MULTI_SZ),$(L123ID)}}
Shell $(UtilInf),AddValueList,$(KeyExtensions),$(NewValueList)
ifint $(ShellCode) != 0 goto ShellCodeError endif
set RegistryErrorIndex = $($R0)
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR EndWait CloseRegKey $(McProductKey) CloseRegKey $(McNetRuleKey) CloseRegKey $(McServiceKey) CloseRegKey $(McParameters) CloseRegKey $(McLinkageKey) goto fatalregistry endif
Ifstr(i) $(NTFSVolExists) == TRUE
Ifstr(i) $(!UamCopyStatus) == TRUE Shell "" DoUAMInstall "INSTALL" EndIf
EndIf
read-syms DefAfpParameters$(!STF_LANGUAGE)
set NewValueList = + {{ServerOptions,0,$(!REG_VT_DWORD),$(ServerOptions)},+ {MaxSessions,0,$(!REG_VT_DWORD),$(MaxSessions)},+ {LoginMsg,0,$(!REG_VT_SZ),$(LoginMessage)}, + {PagedMemLimit,0,$(!REG_VT_DWORD),$(PagedMemLimit)}, + {NonPagedMemLimit,0,$(!REG_VT_DWORD),$(NonPagedMemLimit)}}
Shell $(UtilInf), AddValueList, $(McParameters), $(NewValueList)
set RegistryErrorIndex = $($R0)
CloseRegKey $(McParameters)
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR goto fatalregistry endif
read-syms StatusAfp2$(!STF_LANGUAGE) Shell $(SubInf) PushBillBoard NETSTATUSDLG $(Status)
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) CloseRegKey $($R1) CloseRegKey $($R2) CloseRegKey $($R3)
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR goto fatalregistry endif Shell $(SubInf) PopBillBoard
; WRITE Private Profile String in NTNET.INI
read-syms StatusAfp3$(!STF_LANGUAGE) Shell $(SubInf) PushBillBoard NETSTATUSDLG $(Status)
Set IniFile = $(!STF_NTPATH)"\"$(NtNetIniFileName) Set IniString = $(!STF_WINDOWSSYSPATH)"\"$(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 = $(!STF_NTPATH)"\"$(WinFileIniFileName) Set IniString = $(!STF_WINDOWSSYSPATH)"\"$(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
Shell $(SubInf) PopBillBoard
Set ThisOption = MACPRINT Set REMOVE_SOFTWARE = >($(REMOVE_SOFTWARE), $(Product$(ThisOption)Name))
read-syms StatusMacPrint1$(!STF_LANGUAGE) Shell $(SubInf) PushBillBoard NETSTATUSDLG $(Status) Set FLibraryErrCtl = 1 Shell $(UtilInf), AddSoftwareComponent, $(Manufacturer), + $(Product$(ThisOption)Name), $(Product$(ThisOption)Name),+ $(Product$(ThisOption)DisplayName), + $(ProductFullInfName), $(Product$(ThisOption)ImagePath),+ "serviceauto", "", {"AppleTalk"},"",+ $(Product$(ThisOption)EventDll) "", "Application", "" Set FLibraryErrCtl = 0 ifint $(ShellCode) != 0 goto ShellCodeError EndIf
set RegistryErrorIndex = $($R0)
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR EndWait CloseRegKey $($R1) CloseRegKey $($R2) CloseRegKey $($R3) CloseRegKey $($R4) 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 ; Shell $(SubInf) PopBillBoard
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),$(!STF_CWDDIR)},+ {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 EndWait 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)
CloseRegKey $(MpProductKey) CloseRegKey $(MpNetRuleKey)
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR EndWait CloseRegKey $(MpParameters) CloseRegKey $(MpLinkageKey) 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)
CloseRegKey $(MpProductKey) CloseRegKey $(MpNetRuleKey)
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR EndWait CloseRegKey $(MpParameters) CloseRegKey $(MpLinkageKey) goto fatalregistry EndIf
; Add additional EventLogging Entries for MacPrint
Set MacPrintEventLogKey = $(!EventLogKey)"\"$(ThisOption)
OpenRegKey $(!REG_H_LOCAL) "" $(MacPrintEventLogKey) $(!ACCESS) MacEvntLogKey
ifstr(i) $(MacEvntLogKey) != $(!KeyNull)
Set EventFile = "%SystemRoot%\System32\sfmprint.exe"
Set NewValueList = {{CategoryMessageFile,0,$(!REG_VT_EXPAND_SZ),$(EventFile)}, + {CategoryCount,0,$(!REG_VT_DWORD),4}}
Shell $(UtilInf) AddValueList, $(MacEvntLogKey), $(NewValueList)
ifint $(ShellCode) != 0 goto ShellCodeError EndIf
set RegistryErrorIndex = $($R0)
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR CloseRegKey $(KeyMcEventLog) goto fatalregistry EndIf
Else read-syms MacPrintString2$(!STF_LANGUAGE) Shell $(SubInf) SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(ErrorString) EndIf
; Add the AppleTalk Print Monitor Stuff
Set AddMonStatus = "" Set FLibraryErrCtl = 1 LibraryProcedure AddMonStatus $(!UTILHANDLE) SfmAddPrintMonitor 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) {"AppleTalk Print Monitor",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)
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR CloseRegKey $(AtalkMonKey) goto fatalregistry EndIf
Else read-syms MacPrintString10$(!STF_LANGUAGE) Shell $(SubInf) SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(ErrorString) EndIf
; Install PSTODIB Stuff
Set PrintProcDir = ""
Set FLibraryErrCtl = 1 LibraryProcedure PrintProcDir $(!UTILHANDLE) GetPrintProcDir Set FLibraryErrCtl = 0 Debug-Output "SFMSETUP: GetPrintProcDir Return Val = "$(PrintProcDir)
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 = +
EndWait FreeLibrary $(!UTILHANDLE)
read-syms SetupSuccess$(!STF_LANGUAGE) Shell $(SubInf) SetupMessage $(!STF_LANGUAGE) "STATUS" $(Status)
goto successful
;=============================Install Section End=========================
;=============================Configure Section Begin=========================
Configuresfm = +
LoadLibrary "x" $(!STF_CWDDIR)$(ResDll) !SFMDLGHANDLE LoadLibrary "x" $(!STF_CWDDIR)$(UtilDll) !UTILHANDLE
read-syms ConfigureSfmDlg$(!STF_LANGUAGE)
beginconfigui = +
ui start "cfgsfm" $(!SFMDLGHANDLE)
Ifstr(i) $(DLGEVENT) == "CONTINUE" Ifstr(i) $(ButtonChecked) == "1" Set Option = ATALK else Set Option = AFPSVC Endif ui pop 1 else-ifstr(i) $(DLGEVENT) == "BACK" ui pop 1 goto endconfigui EndIf
ifstr(i) $(Option) == "ATALK" StartWait
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 LibraryProcedure "", $(ATHANDLE),EnterAtalkConfigDLL $(!STF_HWND) FreeLibrary $(ATHANDLE) Set FLibraryErrCtl = 0 goto endconfigui
else-ifstr(i) $(Option) == "AFPSVC"
Set ParamKeyName = $(!NTN_ServiceBase)"\"$(Product$(Option)Name)"\Parameters" OpenRegKey $(!REG_H_LOCAL) "" $(ParamKeyName) $(!ACCESS) AfpParameters
Ifstr(i) $(AfpParameters) == $(!KeyNull) set RegistryErrorIndex = CANNOT_FIND_COMPONENT_SERVICE goto fatalregistry endif
set ValueList = {} set ServerName = ""
EnumRegValue $(AfpParameters) ValueList
ForListDo $(ValueList) Ifstr(i) *($($),1) == "ServerName" set ServerName = *($($),4) endif EndForListDo
Ifstr(i) $(ServerName) == ""
Set ServerName = $(!STF_COMPUTERNAME)
EndIf
read-syms ConfigureAfpDlg$(!STF_LANGUAGE)
processui = + ui start "afpdlg" $(!SFMDLGHANDLE)
Debug-Output "DLGEVENT = "$(DLGEVENT)
ifstr(i) $(DLGEVENT) == "CONTINUE"
set ServerName = *($(EditTextOut),1)
; If Server Name is same as Computer Name, donot update
ifstr(i) $(ServerName) != $(!STF_COMPUTERNAME)
set NewValueList = {{ServerName,0,$(!REG_VT_SZ),$(ServerName)}}
Shell $(UtilInf), AddValueList, $(AfpParameters), $(NewValueList)
CloseRegKey $(AfpParameters)
set RegistryErrorIndex = $($R0)
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR goto fatalregistry endif
else DeleteRegValue $(AfpParameters) "ServerName" EndIf ui pop 1 Else-ifstr(i) $(DLGEVENT) == "EXIT"
Shell "" DoUAMInstall "CONFIGURE" goto processui
Else ui pop 1 EndIf
EndIf
endconfigui = + FreeLibrary $(!SFMDLGHANDLE) FreeLibrary $(!UTILHANDLE) Set CommonStatus = STATUS_USERCANCEL goto usercancel
;=============================Configure Section End=========================
;=============================Bindings Section Begin=========================Bindingssfm = +
OpenRegKey $(!REG_H_LOCAL) "" $(!NTN_ServiceBase)"\AppleTalk\Linkage" $(!ACCESS) LinkageKey Ifstr(i) $(LinkageKey) == $(!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
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
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
OpenRegKey $(!REG_H_LOCAL) "" $(!NTN_ServiceBase)"\AppleTalk\Parameters" $(!ACCESS) ParmKey Ifstr(i) $(ParmKey) == $(!KeyNull) Set RegistryErrorIndex = UNABLE_ACCESS_CONFIGURE_SERVICE Goto fatalregistry Endif Set DefaultPort = {} Set MediaTypeList = {} GetRegValue $(ParmKey) "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) Set DefaultPort = *($(TobeUsedBindList),1) else read-syms NoAdaptersFound$(!STF_LANGUAGE) Shell $(SubInf) SetupMessage, $(!STF_LANGUAGE), "FATAL", $(ErrorString) goto endbinding Endif
defportdone = +
Set NewValueList = {{DefaultPort,0,$(!REG_VT_SZ),$(DefaultPort)}} Shell $(UtilInf), AddValueList, $(ParmKey), $(NewValueList) set RegistryErrorIndex = $($R0) CloseRegKey $(ParmKey) Ifstr(i) $(RegistryErrorIndex) != NO_ERROR goto fatalregistry EndIf goto endbinding
removeadapters = + Split-String *($(DefaultPort),4) "\" PortName ForListDo $(AtalkAdapterList) Ifcontains(i) $($) not-in $(NewBindList) DeleteRegKey $(AdapterKey) $($) Ifstr(i) $($) == *($(PortName),4) read-syms RemoveDefaultPort$(!STF_LANGUAGE) Shell $(SubInf) SetupMessage $(!STF_LANGUAGE) "FATAL" $(ErrorString) goto finddefaultport Endif EndIf EndForListDo
endbinding = + 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) "AfpServer" in $(REMOVE_SOFTWARE)
Set IniFile = $(!STF_NTPATH)"\"$(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 = $(!STF_NTPATH)"\"$(WinFileIniFileName) Set IniSection = $(WinFileIniSection) Set FLibraryErrCtl = 1 LibraryProcedure Result, $(!UTILHANDLE), WriteAfpMgrIniStrings, $(IniSection), NULL, $(IniFile) Set FLibraryErrCtl = 0 ifstr(i) $(Result) == "FAILED"
endif
EndIf
read-syms StatusRemove1$(!STF_LANGUAGE) Shell $(SubInf) PushBillBoard NETSTATUSDLG $(Status)
Shell "" RemoveSfmFiles "REMOVE"
Shell $(SubInf) PopBillBoard
Ifstr(i) $($R0) != STATUS_SUCCESSFUL
; restore the Afp Server SMAddons
read-syms CantRemoveSfm$(!STF_LANGUAGE) Shell $(SubInf) SetupMessage $(!STF_LANGUAGE) "FATAL" $(ErrorString)
read-syms StatusRemove2$(!STF_LANGUAGE) Shell $(SubInf) PushBillBoard NETSTATUSDLG $(Status)
Ifcontains(i) "AfpServer" in $(REMOVE_SOFTWARE)
Set IniString = $(!STF_WINDOWSSYSPATH)"\"$(AfpMgrCplFile) Set IniFile = $(!STF_NTPATH)"\"$(NtNetIniFileName) Set IniSection = $(SrvMgrIniSection) Set FLibraryErrCtl = 1 LibraryProcedure Result, $(!UTILHANDLE), WriteAfpMgrIniStrings, + $(IniSection), $(IniString), $(IniFile) Set FLibraryErrCtl = 0 ifstr(i) $(Result) == "FAILED"
endif
; Restore the File Manager Addons too
Set IniString = $(!STF_WINDOWSSYSPATH)"\"$(AfpMgrCplFile) Set IniFile = $(!STF_NTPATH)"\"$(WinFileIniFileName) Set IniSection = $(WinFileIniSection) Set FLibraryErrCtl = 1 LibraryProcedure Result, $(!UTILHANDLE), WriteAfpMgrIniStrings, + $(IniSection), $(IniString), $(IniFile) Set FLibraryErrCtl = 0 ifstr(i) $(Result) == "FAILED"
endif
EndIf
Shell $(SubInf) PopBillBoard goto removeabort
EndIf
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 Set FLibraryErrCtl = 0 ifstr(i) $(DelMonStatus) == "FAILED" read-syms MacPrintString7$(!STF_LANGUAGE) Shell $(SubInf) SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(ErrorString) EndIf
; Temporary Fix
OpenRegKey $(!REG_H_LOCAL) "" $(!PrintMonKeyName) $(!ACCESS) MonitorKey DeleteRegTree $(MonitorKey) "AppleTalk Printers"
; Delete EventLog entries for MacPrint and AppleTalk Monitors
OpenRegKey $(!REG_H_LOCAL) "" $(!EventLogKey) $(!ACCESS) LogKey
Ifstr(i) $(LogKey) == $(!KeyNull) Set RegistryErrorIndex = $($R0) goto fatalregistry EndIf
Set AtalkMonKey = "AppleTalk Print Monitor" DeleteRegTree $(LogKey) $(AtalkMonKey)
Set MacPrintKey = "MACPRINT" DeleteRegTree $(LogKey) $(MacPrintKey)
CloseRegKey $(!EventLogKey)
; Delete the PSPRINT Print Processor
Set DelStatus = "" Set FLibraryErrCtl = 1 LibraryProcedure DelStatus $(!UTILHANDLE) DeletePrintProc "\\"$(!STF_COMPUTERNAME) PSPRINT Set FLibraryErrCtl = 0 Ifstr(i) $(DelStatus) == FAILED read-syms MacPrintString5$(!STF_LANGUAGE) Shell $(SubInf) SetupMessage "NONFATAL" $(ErrorString) EndIf
EndIf
; Update WinSock Service to remove from Transport List 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
FreeLibrary $(!UTILHANDLE) Set FLibraryErrCtl = 1 LibraryProcedure Status, $(!LIBHANDLE), DelFile $(!STF_CWDDIR)$(UtilDll) Set FLibraryErrCtl = 0
read-syms StatusRemoveDone$(!STF_LANGUAGE) Shell $(SubInf) SetupMessage $(!STF_LANGUAGE) "STATUS" $(Status)
goto end
removeabort = +
FreeLibrary $(!UTILHANDLE)
goto usercancel
Upgradesfm = +
ifstr(i) $(!ProductKeyName) == $(!NTN_RegBase)
OpenRegKey $(!REG_H_LOCAL) "" $(!ProductKeyName) $(!ACCESS) KeyProduct
Ifstr $(KeyProduct) != $(!KeyNull)
GetRegValue $(KeyProduct),"MajorVersion", VersionInfo set Version = *($(VersionInfo), 4) Split-String $(!NTN_Infname), "\", FilenameList QueryListSize ListSize $(FilenameList) set !UG_Filename = *($(FilenameList), $(ListSize))
install Install-Initial ifstr(i) $(STF_INSTALL_OUTCOME) != STF_SUCCESS goto fatal endif SetRegValue $(KeyProduct) {MajorVersion,$(NoTitle),$(!REG_VT_SZ),$(ProductMajorVersion)} SetRegValue $(KeyProduct) {MinorVersion,$(NoTitle),$(!REG_VT_SZ),$(ProductMinorVersion)} CloseRegKey $(KeyProduct) else 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", $(ThisOption):$(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
setupabort = + read-syms SetupAbortDlg$(!STF_LANGUAGE) ui start "setupabort"
initialsetupcancel = +
Set CommonStatus = STATUS_USERCANCEL goto end
usercancel = +
Set CommonStatus = STATUS_USERCANCEL
end = +
Return $(CommonStatus)
;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;-------------------------------------------------------------; 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 = {""} IfInt $(MediaType) == 3 set NewValueList = {{"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)}} else 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)}} EndIf
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_LAMGUAGE) Shell $(SubInf) SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(ErrorString) goto enduam EndIf
OpenRegKey $(!REG_H_LOCAL) "" $(!NTN_ServiceBase)"\AfpServer\Parameters\Volumes" $(!ACCESS) KeyVol
ifstr(i) $(KeyVol) == $(!KeyNull) read-syms AFPString11$(!STF_LAMGUAGE) Shell $(SubInf) SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(ErrorString) goto enduam endif
Ifstr(i) $(Mode) == "INSTALL" Set UAMDrive = *($(NTFSVolumeList),1) read-syms UAMVars$(!STF_LANGUAGE) goto uamuidone
Else-Ifstr(i) $(Mode) == "CONFIGURE" Set UAMDrive = *($(NTFSVolumeList),1) read-syms UAMVars$(!STF_LANGUAGE) Set EditTextIn = $(UAMPath) read-syms UAMVolCreateDlg$(!STF_LANGUAGE) EndIf
; display the uam ui
uamui = +
ui start "uaminstall" $(!SFMDLGHANDLE)
ifstr(i) $(DLGEVENT) == "CONTINUE" Set FLibraryErrCtl = 1 LibraryProcedure IsFullPath, $(!LIBHANDLE), CheckPathFullPathSpec $(EditTextOut) Set FLibraryErrCtl = 0 ifstr(i) $(IsFullPath) == "YES"
Split-String $(EditTextOut) ":" DriveLetter
Set NTFSDrive = *($(DriveLetter),1)":"
IfContains(i) $(NTFSDrive) not-in $(NTFSVolumeList)
read-syms AFPString10$(!STF_LANGUAGE) Shell "subroutn.inf" SetupMessage $(!STF_LANGUAGE) "FATAL" $(ErrorString) goto uamui
Endif
Else
read-syms AFPString10$(!STF_LANGUAGE) Shell "subroutn.inf" SetupMessage $(!STF_LANGUAGE) "FATAL" $(ErrorString) goto uamui
EndIf
ui pop 1 Set UAMPath = $(EditTextOut)
Else-ifstr(i) $(DLGEVENT) == "BACK" ui pop 1
EndIf
uamuidone = +
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=25", "PROPERTIES=32768","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 Status = STATUS_SUCCESSFUL
enduam = +
Return $(Status) $(RegistryErrorIndex)
[RemoveSfmFiles]
Set Mode = $($0)
Set RemoveList = {} Set RenameList = {}
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, AFPSVCEXE, 1)) Set RemoveList = >($(RemoveList), #(Files-RemoveList, AFPSVCMSG, 1)) Set RenameList = >($(RenameList), #(Files-RemoveList, AFPSVCAPI, 1)) Set RenameList = >($(RenameList), #(Files-RemoveList, AFPSVCMGR, 1)) Set RemoveList = >($(RemoveList), #(Files-RemoveList, AFPSRVR, 1)) 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, PSTODIB1, 1)) Set RemoveList = >($(RemoveList), #(Files-RemoveList, PSTODIB2, 1)) Set RenameList = >($(RenameList), #(Files-RemoveList, PSTODIB3, 1)) Set RemoveList = >($(RemoveList), #(Files-RemoveList, PSTODIB4, 1))
Set RemoveList = >($(RemoveList), #(Files-RemoveList, MACPRINT, 1)) Set RenameList = >($(RenameList), #(Files-RemoveList, ATALKMON, 1))
; Remove resource dll's and other dll's
Set RemoveList = >($(RemoveList), #(Files-RemoveList, SFMRESDLL, 1)) Set RemoveList = >($(RemoveList), #(Files-RemoveList, SFMSETUPINF, 1))
ForListDo $(RemoveList)
Set DelStatus = "" Debug-Output "Deleting File "$($) Set FLibraryErrCtl = 1
Ifstr(i) $(Mode) == "REMOVE" LibraryProcedure DelStatus $(!UTILHANDLE), DelFile $($) else LibraryProcedure DelStatus $(!LIBHANDLE), DelFile $($) EndIf Set FLibraryErrCtl = 0 Debug-Output "Del File Status = "$(DelStatus)
ifstr(i) $(DelStatus) == "FAILED" Ifstr(i) $(Mode) == "REMOVE" read-syms CantRemoveSfm$(!STF_LANGUAGE) Shell $(SubInf) SetupMessage $(!STF_LANGUAGE) "FATAL" $(ErrorString) Set Status = STATUS_FAILED goto endremove EndIf Endif
EndForListDo
ForListDo $(RenameList)
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
Set Status = STATUS_SUCCESSFUL
endremove = +
Return $(Status)
[SfmSetupHelpIds]
MinHelpID = 25000 MaxHelpID = 30000 InitialSfmId = 25000
HC_SFM_SFMCONFIGSEL = 25023 HC_SFM_SRVCFG = 25024 HC_SFM_UAMVOLCREATE = 25026
;-----------------------------------------------------------------------------;; Copy File /Install Sections;;-----------------------------------------------------------------------------
[Install-Initial]
set STF_VITAL = ""
AddSectionFilesToCopyList Files-Inf $(SrcDir) $(!STF_WINDOWSSYSPATH) AddSectionFilesToCopyList Files-SFM $(SrcDir) $(!STF_WINDOWSSYSPATH) AddSectionFilesToCopyList Files-SFMDrivers $(SrcDir) $(!STF_WINDOWSSYSPATH)"\drivers" CopyFilesInCopyList
Exit
[Install-PSPrint] AddSectionFilesToCopyList Files-PRINTPROC $(!STF_CWDDIR) $(!PrintProcDir) CopyFilesInCopyList Exit
[CreateUAMDir]
CreateDir $(UAMPath) CreateDir $(UAMPath)"\"$(!AppleShareFolder)
Exit
[Source Media Descriptions] 1 = "Windows NT Advanced Server Setup Disk #1" , TAGFILE = sfmutil.dll 2 = "Windows NT Advanced Server Setup CD-ROM Disk" , TAGFILE = sfmutil.dll
[ProductType]STF_PRODUCT = LanmanNTSTF_PLATFORM = I386
[Files-Inf]2, oemsetup.inf, SIZE=75000, RENAME=oemnxpsm.inf, DECOMPRESS2, sfmicons.inf, SIZE=2599, DECOMPRESS2, sfmmap.inf, SIZE=2599, DECOMPRESS
[Files-SFM]2, sfmres.dll, SIZE=10752, DECOMPRESS2, sfmutil.dll, SIZE=9210, DECOMPRESS2, sfmatmsg.dll, SIZE=55555, DECOMPRESS2, sfmatcfg.dll, SIZE=72704, DECOMPRESS2, sfmwshat.dll, SIZE=55555, DECOMPRESS2, sfmsvc.exe, SIZE=141824, DECOMPRESS2, sfmmsg.dll, SIZE=10752, DECOMPRESS2, sfmapi.dll, SIZE=61440, DECOMPRESS2, sfmmgr.dll, SIZE=126976, RENAME=sfmmgr.cpl, DECOMPRESS2, sfmprint.exe, SIZE=76288, DECOMPRESS2, sfmmon.dll, SIZE=47616, DECOMPRESS2, sfmpsexe.exe, SIZE=55555, DECOMPRESS2, sfmpsfnt.dll, SIZE=55555, DECOMPRESS2, sfmpsprt.dll, SIZE=55555, DECOMPRESS2, sfmpsdib.dll, SIZE=55555, DECOMPRESS2. sfmuam.txt SIZE=55555, DECOMPRESS
[Files-SFMDrivers]2, sfmatalk.sys, SIZE=436224, DECOMPRESS2, sfmsrv.sys, SIZE=274432, DECOMPRESS
[Files-PRINTPROC]2, sfmpsprt.dll, SIZE=55555, DECOMPRESS
[Files-RemoveList]
SFMSETUPINF = $(!STF_WINDOWSSYSPATH)\oemnxpsm.infSFMRESDLL = $(!STF_WINDOWSSYSPATH)\sfmres.dllSFMUTILDLL = $(!STF_WINDOWSSYSPATH)\sfmutil.dll
ATALKSYS = $(!STF_WINDOWSSYSPATH)\drivers\sfmatalk.sysATALKMSG = $(!STF_WINDOWSSYSPATH)\sfmatmsg.dllATCONFIG = $(!STF_WINDOWSSYSPATH)\sfmatcfg.dllATWINSOCK = $(!STF_WINDOWSSYSPATH)\sfmwshat.dll
AFPSVCEXE = $(!STF_WINDOWSSYSPATH)\sfmsvc.exeAFPSVCMSG = $(!STF_WINDOWSSYSPATH)\sfmmsg.dllAFPSVCAPI = $(!STF_WINDOWSSYSPATH)\sfmapi.dllAFPSVCMGR = $(!STF_WINDOWSSYSPATH)\sfmmgr.cpl
AFPSRVR = $(!STF_WINDOWSSYSPATH)\drivers\sfmsrv.sysAFPICONS = $(!STF_WINDOWSSYSPATH)\sfmicons.infAFPTYPECRTR = $(!STF_WINDOWSSYSPATH)\sfmmap.infUAMINF = $(!STF_WINDOWSSYSPATH)\sfmuam.ifoUAMRES = $(!STF_WINDOWSSYSPATH)\sfmuam.rs
MACPRINT = $(!STF_WINDOWSSYSPATH)\sfmprint.exeATALKMON = $(!STF_WINDOWSSYSPATH)\sfmmon.dll
PSTODIB1 = $(!STF_WINDOWSSYSPATH)\sfmpsexe.exePSTODIB2 = $(!STF_WINDOWSSYSPATH)\sfmpsfnt.dllPSTODIB3 = $(!STF_WINDOWSSYSPATH)\sfmpsprt.dllPSTODIB4 = $(!STF_WINDOWSSYSPATH)\sfmpsdib.dll
|
