;-----------------------------------------------------------------------
;
; FILE: NetBond.Inf
;
; DESCRIPTION: This file contains inf sub-routines that are run by the
; the new NCPA and NetSetup Wizard. These routines Glue
; the current INF components/functions to the new code.
;
;
;-----------------------------------------------------------------------
[NotifySyms]
!PWM_SETPROGRESSTEXT = 2163 ; 1024 + 1139
!PWM_SETPROGRESSPOS = 2162 ; 1024 + 1138
!PWM_SETPROGRESSSIZE = 2161 ; 1024 + 1137
!PWM_PROGRESSEND = 2160 ; 1024 + 1136
!PGI_REMOVE = 0
!PGI_INSTALL = 1
!PGI_COPY = 2
!PGI_UPDATE = 3
;-----------------------------------------------------------------------
;
; ROUTINE: SetStatusInReg
;
; DESCRIPTION: This routine saves the passed string into the registry
; as the return value from sections called from this inf.
;
; INPUTS: $0 - ClearReg - YES | NO; Set or Clear Registry
; $1 - ErrorMsg - The string to save in the registry
;
; OUTPUTS: none
;
; NOTES: In the Reg Key HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Ncpa the value
; InfReturn is set to the passed string
;
;
;------------------------------------------------------------------------
[SetStatusInReg]
set ClearReg = $($0)
set ErrorMsg = $($1)
Set SetupKeyName = "SOFTWARE\Microsoft\NCPA"
Set ErrorValueName = "InfReturn"
Set MaskAllAccess = 33554432
OpenRegKey $(!REG_H_LOCAL) "" $(SetupKeyName) $(MaskAllAccess) SetupKey
Ifint $(RegLastError) == $(!REG_ERROR_SUCCESS)
ifstr(i) ClearReg == YES
DeleteRegValue $(SetupKey) $(ErrorValueName)
else
SetRegValue $(SetupKey) {$(ErrorValueName),0,$(!REG_VT_SZ),$(ErrorMsg)}
endif
CloseRegKey $(SetupKey)
endif
return
;-----------------------------------------------------------------------
;
; ROUTINE: IsNetCard
;
; DESCRIPTION: This routine determines whether the inf file name
; that is passed in is a net driver inf file (prefixed by oemnad.
;
;
; INPUTS: $0 - InfFileName
;
; OUTPUTS: YES if $0 is an oemnad*.inf, NO otherwise
;
; NOTES:
;
;------------------------------------------------------------------------
[IsNetCard]
set ThisInfName = $($0)
set NetCard = "NO"
Split-String $(ThisInfName) "\." SrcDirList
QueryListSize ListSize $(SrcDirList)
ifint $(ListSize) >= 3
set-sub Position = $(ListSize), 2
set InfName = *($(SrcDirList), $(Position))
Split-String $(InfName) "dD" CharList
QueryListSize ListSize $(CharList)
ifint $(ListSize) >= 2
ifstr(i) *($(CharList), 1) == "oemna"
ifstr(i) *($(CharList), 2) == "d"
set NetCard = "YES"
endif
endif
endif
endif
return $(NetCard)
;-----------------------------------------------------------------------
;
; ROUTINE: PrepRegForNetOptions
;
; DESCRIPTION: This routine finds all net infs in the system32 dir
; and places them in the registry.
;
; INPUTS: !NTN_NETTYPE - {NetAdapter | NetTransport | NetService | NetProvider | Network }
;
;
; OUTPUTS: $R0: STATUS: STATUS_SUCCESSFUL |
; STATUS_FAILED
;
;
;------------------------------------------------------------------------
[PrepRegForNetOptions]
Debug-Output "Other.INF: Get options NTN_NETTYPE "$(!NTN_NETTYPE)
ForListDo $(!NTN_NETTYPE)
Debug-Output "Other.INF: Get options net type "$($)
shell "Other.inf" ReturnOemOptions $(!STF_LANGUAGE) $($) TRUE
ifstr(i) $($R0) == "STATUS_SUCCESSFUL"
Debug-Output "NETBOND.INF: Other OEM options found for type "$($)
endif
EndForListDo
set Status = STATUS_SUCCESSFUL
Return $(Status)
;--------------------------------------------------------------------
;
; InstallAndCopyNetComponets
;
; Parameters
; !NTN_InfsToBeRun
; !NTN_OptionsToBeRun
; !NTN_TextToBeShown
; !NTN_NETOEMPATHS
;
; !NTN_NCDETINFOS - INF list containing detect info list
; Detected netcards have entries, all others are "{}"
; "{
; { OPTIONNAME,
; <card index>,
; <numeric card type>,
; <detection confidence level>,
; <bus interface type>,
; <bus number>
; }, ... }"
;
;--------------------------------------------------------------------
[InstallAndCopyNetComponents]
set UtilityInf = "Utility.inf"
set NcParamInf = "NCPARAM.INF"
set !STF_NETCANCELOVERIDE = "YES"
set !STF_NETDELETEOVERIDE = "YES"
set cDetectCount = 0
Debug-Output "The Glue That Keeps Us Installing"
Debug-Output "NetBond.INF: INFs to be run: "$(!NTN_InfsToBeRun)
Debug-Output "NetBond.INF: Options to install: "$(!NTN_OptionsToBeRun)
Debug-Output "NetBond.INF: Billboards to be shown: "$(!NTN_TextToBeShown)
Debug-Output "NetBond.INF: OemPaths to use: "$(!NTN_NETOEMPATHS)
Debug-Output "NetBond.INF: RegBases to pass: "$(!NTN_RegBases)
Debug-Output "NetBond.INF: STF_NCDETINFOs to be used: "$(!NTN_NCDETINFOS)
Debug-Output "NetBond.INF: NTN_NCDETECTED, items detected: "$(!NTN_NCDETECTED)
Debug-Output "NetBond.INF: NTN_NETSECTIONS, items detected: "$(!NTN_NETSECTIONS)
Debug-Output "NetBond.INF: Install Mode: "$(!NTN_STF_INSTALL_MODE)
Debug-Output "NetBond.INF: NTN_UPGRADEMODE: "$(!NTN_UPGRADEMODE)
Debug-Output "NetBond.INF: NTN_UPGRADEWARN: "$(!NTN_UPGRADEWARN)
Debug-Output "NetBond.INF: STF_UNATTENDED: "$(!STF_UNATTENDED)
Debug-Output "NetBond.INF: STF_GUI_UNATTENDED: "$(!STF_GUI_UNATTENDED)
Debug-Output "NetBond.INF: Notify Hwnd: "$(!NTN_NOTIFY_HWND)
;
; make sure install mode is set
;
ifstr(i) $(!NTN_STF_INSTALL_MODE) != ""
set !STF_INSTALL_MODE = $(!NTN_STF_INSTALL_MODE)
endif
;
; make sure reg base is set, used in upgrade only
;
set !NTN_RegBase = ""
Shell "" SetStatusInReg YES ""
;
; Should we ask for the source location?
;
ifstr(i) $(!NTN_InstallPhase) != primary
;
; make sure during secondary install that we ask for the
; location of the files
;
Set !STF_SRCDIR_OVERRIDE = ""
reaskforsource = +
Shell $(UtilityInf), DoAskSource, $(!STF_CWDDIR), $(!STF_SRCDIR) YES
Ifint $($ShellCode) != $(!SHELL_CODE_OK)
Shell "" SetStatusInReg NO "SHELLASKSRCFAIL"
set NetInstallStatus = $($R0)
Goto netcopyescape
Else-Ifstr(i) $($R0) == STATUS_FAILED
Shell "" SetStatusInReg NO "ASKSRCFAIL"
set NetInstallStatus = $($R0)
Goto netcopyescape
Else-Ifstr(i) $($R0) == STATUS_USERCANCEL
Shell "" SetStatusInReg NO "USERCANCEL"
set NetInstallStatus = $($R0)
Goto netcopyescape
Endif
;
; create modified version of the path specified by the user
; so that we can be smart about finding the files.
;
Split-String $($R1), "\", lSrcDirParts
QueryListSize cSrcDirParts $(lSrcDirParts)
; make sure srcpath has the \
;
ifstr(i) *($(lSrcDirParts),$(cSrcDirParts)) != "\"
Set SrcDir = $($R1)"\"
else
Set SrcDir = $($R1)
Endif
; remove the platform from the given path
;
ifint $(cSrcDirParts) >= 3
debug-output "NETBOND.INF: checking to remove platform"
ifstr(i) *($(lSrcDirParts),$(cSrcDirParts)) == "\"
; remove the extra \
set-sub iStopParts = $(cSrcDirParts), 2
else
set-sub iStopParts = $(cSrcDirParts), 1
endif
debug-output "NETBOND.INF: parts were "$(cSrcDirParts)" and stops at "$(iStopParts)
set SrcDirMin = ""
set SkipAppend = FALSE
ForListDo $(lSrcDirParts)
ifint $(#) > $(iStopParts)
ifstr(i) $($) == $(!STF_PLATFORM)
set SkipAppend = TRUE
debug-output "NETBOND.INF: skipping appended"$($)
goto skip_appending_list_item
else
ifstr(i) $(SkipAppend) == TRUE
debug-output "NETBOND.INF: skipping appended"$($)
goto skip_appending_list_item
endif
endif
endif
set NewSrcDir = $(SrcDirMin)$($)
set SrcDirMin = $(NewSrcDir)
debug-output "NETBOND.INF: appended items "$(SrcDirMin)
skip_appending_list_item = +
EndForListDo
else
debug-output "NETBOND.INF: path to small to have platform"
set SrcDirMin = *($(lSrcDirParts),1)"\"
endif
debug-output "NETBOND.INF: SrcDirMin : "$(SrcDirMin)
debug-output "NETBOND.INF: SrcDir : "$(SrcDir)
set NtTagFile = "Disk1"
;
; check the exact path the user entered
;
set NtSrc = $(SrcDir)
set Path1 = $(NtSrc)
LibraryProcedure STATUS,$(!LIBHANDLE), CheckFileExistance $(NtSrc)$(NtTagFile)
ifstr(i) $(STATUS) != "YES"
;
; check a minimum path we derived from the users entered path
;
set NtSrc = $(SrcDirMin)
set Path2 = $(NtSrc)
LibraryProcedure STATUS,$(!LIBHANDLE), CheckFileExistance $(NtSrc)$(NtTagFile)
ifstr(i) $(STATUS) != "YES"
;
; append the platform to the minimum path and check it
;
set NtSrc = $(SrcDirMin)$(!STF_PLATFORM)"\"
set Path3 = $(NtSrc)
LibraryProcedure STATUS,$(!LIBHANDLE), CheckFileExistance $(NtSrc)$(NtTagFile)
ifstr(i) $(STATUS) != "YES"
;
; no tag file was found, warn user and let them re-enter it
;
read-syms ErrorMsg$(!STF_LANGUAGE)
Shell "Subroutn.Inf" SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(CannotFindNtFiles)
goto reaskforsource
endif
endif
endif
Set !STF_SRCDIR = $(NtSrc)
endif
;
; ssync detect state, since we are running in seperate process
;
; Shell $(NcParamInf) Param_SetGlobals
; Shell $(NcParamInf) Param_ControlDetection DTSTART
Set lInfStatus = {}
Set fRunCopy = FALSE
; fake an update
ifstr(i) $(!NTN_UPGRADEMODE) == "YES"
Debug-Output "NETBOND.INF: We are in Upgrade now"
set OldInstallMode = $(!NTN_InstallMode)
set !NTN_InstallMode = "Update"
endif
; no ui if we are are in notify mode
read-syms MessageText$(!STF_LANGUAGE)
ifstr(i) $(!NTN_NOTIFY_HWND) != ""
read-syms NotifySyms
; set the install type
ifstr(i) $(!NTN_InstallMode) == "Update"
set NTN_PGI = $(!PGI_UPDATE)
else
set NTN_PGI = $(!PGI_INSTALL)
endif
QueryListSize cInfsToBeRun $(!NTN_InfsToBeRun)
LibraryProcedure STATUS, $(!NCPA_HANDLE), SendProgressMessage, $(!PWM_SETPROGRESSSIZE), $(!NTN_NOTIFY_HWND), "D", $(NTN_PGI), "D", $(cInfsToBeRun)
; set to default text, displays the guage and text
;
LibraryProcedure STATUS, $(!NCPA_HANDLE), SendProgressMessage, $(!PWM_SETPROGRESSTEXT), $(!NTN_NOTIFY_HWND), "D", $(NTN_PGI), "D", "-1"
endif
;
; Loop on list and shell the specific infs...
;
ForListDo $(!NTN_InfsToBeRun)
Set ThisInfName = $($)
Debug-Output "NETBOND.INF: Installing "$(ThisInfName)
ifstr(i) $(!NTN_InstallMode) == "Update"
set !NTN_RegBase = *($(!NTN_RegBases),$(#))
Debug-Output "NETBOND.INF: NTN_RegBase is "$(!NTN_RegBase)
; If this not a Microsoft file, we ignore it.
Shell $(ThisInfName) GetSignature
ifstr(i) $($ShellCode) != $(!SHELL_CODE_OK)
Debug-Output "NETBOND.INF: Does not have a GetSignature section "$(ThisInfName)
ifstr(i) $(!STF_UNATTENDED) == "NO"
ifstr(i) $(!NTN_UPGRADEWARN) == "YES"
set ServiceTitle = *($(!NTN_TextToBeShown), $(#))
Shell "" IsNetCard $(ThisInfName)
ifstr(i) $($R0) == "YES"
read-syms UpgradeNetCardWarnings
else
read-syms UpgradeWarnings
endif
read-syms WarningDlg
ui start "Warning"
endif
endif
goto skipthisinf
endif
ifstr(i) $($R0) != "MICROSOFT_FILE"
Debug-Output "NETBOND.INF: This is not an MS Inf "$(ThisInfName)
ifstr(i) $(!STF_UNATTENDED) == "NO"
ifstr(i) $(!NTN_UPGRADEWARN) == "YES"
set ServiceTitle = *($(!NTN_TextToBeShown), $(#))
Shell "" IsNetCard $(ThisInfName)
ifstr(i) $($R0) == "YES"
read-syms UpgradeNetCardWarnings
else
read-syms UpgradeWarnings
endif
read-syms WarningDlg
ui start "Warning"
endif
endif
goto skipthisinf
endif
endif
; no ui if we are are in notify mode
ifstr(i) $(!NTN_NOTIFY_HWND) == ""
ifstr(i) $(!NTN_InstallMode) == "Update"
Shell "subroutn.inf" PushBillboard NETSTATUSDLG $(MPreUpgrade1)*($(!NTN_TextToBeShown),$(#))$(MPreInstall2)
else
Shell "subroutn.inf" PushBillboard NETSTATUSDLG $(MPreInstall1)*($(!NTN_TextToBeShown),$(#))$(MPreInstall2)
endif
Set BillboardVisible = 1
else
LibraryProcedure STATUS, $(!NCPA_HANDLE), SendProgressMessage, $(!PWM_SETPROGRESSTEXT), $(!NTN_NOTIFY_HWND), "D", $(NTN_PGI), "A", *($(!NTN_TextToBeShown),$(#))
endif
Set InfOption = *($(!NTN_OptionsToBeRun),$(#))
;
; support netcard detection of params
; this info was saved during detection, so that these
; needed variables get set correctly
;
Set !STF_NCDETINFO = *($(!NTN_NCDETINFOS),$(#))
ifstr(i) $(!STF_NCDETINFO) != "{}"
Set !STF_NCDETECT = "YES"
Set !STF_NCDETCARD = *($(!STF_NCDETINFO),2)
Set !STF_NCOPTION = *($(!STF_NCDETINFO),1)
Debug-Output "NETBOND.INF: DetectInfo Available"
; only used to sync state so verify will work
;
;detectloop = +
; Shell $(NcParamInf) Param_DetectCard
; set-add cDetectCount = $(cDetectCount), 1
;
; ifint $(!STF_NCDETCARD) >= $(cDetectCount)
; goto detectloop
; endif
else
Debug-Output "NETBOND.INF: No DetectInfo Available"
Set !STF_NCDETECT = "NO"
Set !STF_NCDETCARD = 0
Set !STF_NCOPTION = ""
endif
;
; use the oem path if specified
;
Set OemPath = *($(!NTN_NETOEMPATHS),$(#))
ifstr(i) $(OemPath) == ""
Set OemPath = $(!STF_SRCDIR)
endif
;
; make sure all overides are turned off from inf to inf
;
Set !STF_SRCDIR_OVERRIDE = ""
;
; use the unattended sections if specified
;
Set !STF_UNATTENDED_SECTION = *($(!NTN_NETSECTIONS),$(#))
Debug-Output "NETBOND.INF: Unattend Section for "$(ThisInfName)" is "$(!STF_UNATTENDED_SECTION)
;
; preload netcard parameters, actually this will load the netcard
; symbols even for non-card infs, but since these are only used
; from netcard infs, this is ok. (we currently don't define the
; inf types at this point)
;
; also note that GetDefault answer checks STF_GUI_UNATTENDED and only
; loads them if it is yes
;
shell "subroutn.inf" GetDefaultAnswer "NetCardParameterList"
;
; do the inf
;
ifstr(i) $(!NTN_InstallMode) != "Update"
Shell $(ThisInfName) InstallOption $(!STF_LANGUAGE) $(InfOption) $(OemPath) "YES" "NO" "NO"
else
Shell $(ThisInfName) InstallOption $(!STF_LANGUAGE) $(InfOption) $(OemPath) "YES" "NO" "YES"
endif
; Reset the title string
; no ui if we are are in notify mode
ifstr(i) $(!NTN_NOTIFY_HWND) == ""
Set BillboardVisible = 1
ifstr(i) $(!NTN_InstallMode) == "Update"
Set-title *($(!NTN_TextToBeShown),$(#))$(MPostUpgrade)
else
Set-title *($(!NTN_TextToBeShown),$(#))$(MPostInstall)
endif
else
LibraryProcedure STATUS, $(!NCPA_HANDLE), SendProgressMessage, $(!PWM_SETPROGRESSPOS), $(!NTN_NOTIFY_HWND), "D", $(NTN_PGI), "D", $(#)
endif
Set NetInstallStatus = $($R0)
Ifint $($ShellCode) != $(!SHELL_CODE_OK)
Debug-Output "NETBOND.INF: INF "$(ThisInfName)" SHELL ERROR!"
Set NetInstallStatus = $($ShellCode)
Endif
;
; store the status for latter return
;
set lInfStatus = >($(lInfStatus), $(NetInstallStatus) )
;
; run the copy on succesful install of at least one component
;
Ifstr(i) $(NetInstallStatus) == STATUS_SUCCESSFUL
Set fRunCopy = TRUE
Endif
Ifstr(i) $(NetInstallStatus) == STATUS_REBIND
Set fRunCopy = TRUE
Endif
Ifstr(i) $(NetInstallStatus) == STATUS_NO_EFFECT
Set fRunCopy = TRUE
Endif
Ifstr(i) $(NetInstallStatus) == STATUS_REBOOT
Set fRunCopy = TRUE
Endif
skipthisinf = +
EndForListDo
; clear the status text, removes the guage and text
;
;LibraryProcedure STATUS, $(!NCPA_HANDLE), SendProgressMessage, $(!PWM_SETPROGRESSTEXT), $(!NTN_NOTIFY_HWND), "D", $(NTN_PGI), "D", "0"
;
; Run the copy operation, but only if needed
;
; note that the STF_NCPA_FLUSH_COPYLIST was an atiquated way of the inf
; to notify ncpa that the copy list was flushed.
;
ifstr(i) $(fRunCopy) == TRUE
Install InstallNetFiles
ifstr(i) $(STF_INSTALL_OUTCOME) != STF_SUCCESS
Shell "" SetStatusInReg NO "COPY:"$(STF_INSTALL_OUTCOME)":"$(lInfStatus)
goto netcopyescape
endif
endif
;
; The products are set to be copied, and the Registry is up to date.
;
netruninfescape = +
Ifint $(BillboardVisible) != 0
Shell "subroutn.inf" PopBillboard
Set BillboardVisible = 0
Endif
;
; return the status of each inf
;
Shell "" SetStatusInReg NO "INSTALL:STATUS_SUCCESSFUL:"$(lInfStatus)
netcopyescape = +
;
; error status is saved in registry
;
; set back old mode
ifstr(i) $(!NTN_InstallMode) == "Update"
set !NTN_InstallMode = $(OldInstallMode)
endif
return STATUS_SUCCESSFUL
;--------------------------------------------------------------------
;
; RemoveNetComponets
;
; Parameters
; !NTN_InfsToBeRun
; !NTN_OptionsToBeRun
; !NTN_TextToBeShown
; !NTN_RegBases
;
;--------------------------------------------------------------------
[RemoveNetComponents]
set UtilityInf = "Utility.inf"
set NcParamInf = "NCPARAM.INF"
set !STF_NETCANCELOVERIDE = "YES"
set !STF_NETDELETEOVERIDE = "YES"
Debug-Output "The Glue That Keeps Us Installing"
Debug-Output "NetBond.INF: INFs to be run: "$(!NTN_InfsToBeRun)
Debug-Output "NetBond.INF: Options to install: "$(!NTN_OptionsToBeRun)
Debug-Output "NetBond.INF: Billboards to be shown: "$(!NTN_TextToBeShown)
Debug-Output "NetBond.INF: RegBases to pass: "$(!NTN_RegBases)
Shell "" SetStatusInReg YES ""
Set lInfStatus = {}
; no ui if we are are in notify mode
read-syms MessageText$(!STF_LANGUAGE)
ifstr(i) $(!NTN_NOTIFY_HWND) != ""
read-syms NotifySyms
QueryListSize cInfsToBeRun $(!NTN_InfsToBeRun)
LibraryProcedure STATUS, $(!NCPA_HANDLE), SendProgressMessage, $(!PWM_SETPROGRESSSIZE), $(!NTN_NOTIFY_HWND), "D", $(!PGI_REMOVE), "D", $(cInfsToBeRun)
; sets the default text, displays the gauge and text
;
LibraryProcedure STATUS, $(!NCPA_HANDLE), SendProgressMessage, $(!PWM_SETPROGRESSTEXT), $(!NTN_NOTIFY_HWND), "D", $(!PGI_REMOVE), "D", "-1"
endif
;
; make sure the infs know we are removing them
;
set !NTN_InstallMode = deinstall
;
; Loop on list and shell the specific infs...
;
ForListDo $(!NTN_InfsToBeRun)
Set ThisInfName = $($)
Debug-Output "NETBOND.INF: Removing "$(ThisInfName)
; no ui if we are are in notify mode
ifstr(i) $(!NTN_NOTIFY_HWND) == ""
Shell "subroutn.inf" PushBillboard NETSTATUSDLG $(MPreRemove1)*($(!NTN_TextToBeShown),$(#))$(MPreRemove2)
Set BillboardVisible = 1
else
LibraryProcedure STATUS, $(!NCPA_HANDLE), SendProgressMessage, $(!PWM_SETPROGRESSTEXT), $(!NTN_NOTIFY_HWND), "D", $(!PGI_REMOVE), "A", *($(!NTN_TextToBeShown),$(#))
endif
Set InfOption = *($(!NTN_OptionsToBeRun),$(#))
Set OemPath = $(!STF_SRCDIR)
;
; make sure the reg base is set for this item to remove
;
Set !NTN_RegBase = *($(!NTN_RegBases),$(#))
;
; do the inf
;
Shell $(ThisInfName) InstallOption $(!STF_LANGUAGE) $(InfOption) $(OemPath) "YES" "NO" "NO"
; Reset the title string
; no ui if we are are in notify mode
ifstr(i) $(!NTN_NOTIFY_HWND) == ""
Set-title *($(!NTN_TextToBeShown),$(#))$(MPostRemove)
else
LibraryProcedure STATUS, $(!NCPA_HANDLE), SendProgressMessage, $(!PWM_SETPROGRESSPOS), $(!NTN_NOTIFY_HWND), "D", $(!PGI_REMOVE), "D", $(#)
endif
Set NetInstallStatus = $($R0)
Ifint $($ShellCode) != $(!SHELL_CODE_OK)
Debug-Output "NETBOND.INF: INF "$(ThisInfName)" SHELL ERROR!"
Set NetInstallStatus = $($ShellCode)
Endif
;
; store the status for latter return
;
set lInfStatus = >($(lInfStatus), $(NetInstallStatus) )
EndForListDo
;
; The products are set to be copied, and the Registry is up to date.
;
netruninfescape = +
Ifint $(BillboardVisible) != 0
Shell "subroutn.inf" PopBillboard
Set BillboardVisible = 0
Endif
; clear the status text, removes the gauge and text
;
;LibraryProcedure STATUS, $(!NCPA_HANDLE), SendProgressMessage, $(!PWM_SETPROGRESSTEXT), $(!NTN_NOTIFY_HWND), "D", $(!PGI_REMOVE), "D", "0"
;
; return the status of each inf
;
Shell "" SetStatusInReg NO "REMOVE:STATUS_SUCCESSFUL:"$(lInfStatus)
netcopyescape = +
;
; error status is saved in registry
;
return STATUS_SUCCESSFUL
;-----------------------------------------------------------------------
;
; ROUTINE: OemHaveDisk
;
; DESCRIPTION:
;
; INPUTS:
;
; OUTPUTS:
;
; NOTES:
;
;------------------------------------------------------------------------
[OemHaveDisk]
Shell "" SetStatusInReg YES ""
shell "Other.inf" GetNewOEMMultiOption $(!STF_LANGUAGE) {} $(!NTN_NETTYPE) "A:"
Debug-Output "Status:"$($R0)" OemList:"$($R1)" OptionChoice"$($R2)" ChosenText"$($R3)" Diskette:"$($R4)
Ifstr(i) $($R0) == STATUS_SUCCESSFUL
shell "" SetStatusInReg NO *(*($($R1),1),1)","$($R4)","$($R2)","$($R3)
else
shell "" SetStatusInReg NO $($R0)
endif
Return $($R0)
;-----------------------------------------------------------------------
;
; Install sections...
;
;------------------------------------------------------------------------
[InstallNetFiles]
set !STF_NCPA_FLUSH_COPYLIST = TRUE
CopyFilesInCopyList
exit
;***********************************************************************************************
;
; UpgradeNetwork - Upgrade all the network components.
;
; From Here down is taken directly from the NtLanman.Inp file for upgrade support,
; it has been modified so that bindings will be done outside this inf after this
; call
;
;***********************************************************************************************
;
;[UpgradeNetwork]
; set !STF_NETCANCELOVERIDE = "YES"
; set !STF_NETDELETEOVERIDE = "YES"
; Shell "" SetStatusInReg YES ""
; ifstr(i) $(!NTN_NOTIFY_HWND) != ""
; read-syms NotifySyms
;LibraryProcedure STATUS, $(!NCPA_HANDLE), SendProgressMessage, $(!PWM_SETPROGRESSSIZE), $(!NTN_NOTIFY_HWND), "D", $(!PGI_UPDATE), "D", $(cSectionsToRun)
; sets the default text, displays the gauge and text
;
; LibraryProcedure STATUS, $(!NCPA_HANDLE), SendProgressMessage, $(!PWM_SETPROGRESSTEXT), $(!NTN_NOTIFY_HWND), "D", $(!PGI_UPDATE), "D", "-1"
; endif
;
; Enable network card first
;
; Shell "" EnableNetworkComponents
;
; Update network components that do not have an inf
;
; Shell "" UpdateSpecificItems
;
; For each inf files upgrade
;
; Shell "" UpdateEachInf
;
; Change the card number from 0X to X
;
; LibraryProcedure STATUS, $(!NCPA_HANDLE), UpgradeCardNum
;
; Update SNA stuff
;
; LibraryProcedure STATUS, $(!NCPA_HANDLE), UpgradeSNA
;
; Remove some old inf files
;
; Shell "" RemoveOldInfFile "NWWKSTA", "NetService", "oemnsv", "oemnsvnw.inf"
; LibraryProcedure Status1, $(!LIBHANDLE), DelFile, $(!STF_WINDOWSSYSPATH)"\oemnxpsn.inf"
;
; fix mac services files
;
; ifstr(i) $(!STF_PRODUCT) != "WINNT"
; LibraryProcedure Status1, $(!LIBHANDLE), DelFile, $(!STF_WINDOWSSYSPATH)"\oemnxpsm.inf"
; else
; LibraryProcedure Status1, $(!LIBHANDLE), DelFile, $(!STF_WINDOWSSYSPATH)"\oemnsvsm.inf"
; endif
; return
;******************************************************************************
;
; UpdatesSpecificItems - update specific network compents that is not handled
; by a specific INF
;
;******************************************************************************
;[UpdateSpecificItems]
; set MAXIMUM_ALLOWED = 33554432
;
; update AFD
;
; Shell "Utility.inf" UpgradeAFD
;
; Fix NDIS problems, these were in builds around 1116.
;
; set NDISService = "SYSTEM\CurrentControlSet\Services\NDIS"
; OpenRegKey $(!REG_H_LOCAL) "" $(NDISService) $(MAXIMUM_ALLOWED) KeyNDIS
; ifstr(i) $(KeyNDIS) != ""
; DeleteRegValue $(KeyNDIS) "ImagePath"
; DeleteRegValue $(KeyNDIS) "ObjectName"
; CloseRegKey $(KeyNDIS)
; endif
;
; Warn user of upgrade needed for Directory Service Manager for NetWare Administrative Tools
;
; LibraryProcedure FilePresent, $(!LIBHANDLE), CheckFileExistance $(!STF_WINDOWSSYSPATH)\swclnt.dll
; ifstr(i) $(FilePresent) == "YES"
; read-syms UpgradeSWTOOLSTitle
; read-syms UpgradeWarnings
; read-syms WarningDlg
; ui start "Warning"
; endif
; return
;***********************************************************************************************
;
; EnableNetworkComponents - Enable all the network components.
;
;***********************************************************************************************
;[EnableNetworkComponents]
; set MAXIMUM_ALLOWED = 33554432
; set NcpaName = "Software\Microsoft\Ncpa\CurrentVersion"
; OpenRegKey $(!REG_H_LOCAL) "" $(NcpaName) $(MAXIMUM_ALLOWED) KeyNcpa
; ifstr(i) $(KeyNcpa) != ""
; GetRegValue $(KeyNcpa),"DisableList", DisableListInfo
; set DisableList = *($(DisableListInfo),4)
; ForListDo $(DisableList)
;
; Enable each network component
;
; set ServiceName = "System\CurrentControlSet\Services\"$($)
; OpenRegKey $(!REG_H_LOCAL) "" $(ServiceName) $(MAXIMUM_ALLOWED) KeyService
; ifstr(i) $(KeyService) != ""
; GetRegValue $(KeyService),"OldStart", OldStartInfo
; set OldStart = *($(OldStartInfo),4)
; SetRegValue $(KeyService) {Start,$(NoTitle),*($(OldStartInfo),3),*($(OldStartInfo),4)}
; LibraryProcedure Result, $(!LIBHANDLE), SetupChangeServiceStart, $($), $(OldStart)
;
; Remove Old Start Value
;
; DeleteRegValue $(KeyService) "OldStart"
; CloseRegKey $(KeyService)
; endif
; EndForListDo
; DeleteRegValue $(KeyNcpa) "DisableList"
; CloseRegKey $(KeyNcpa)
; endif
; return
;***********************************************************************************************
;
; UpdateEachInf - Search the register for all the network components. Then
; update each one of them.
;
;***********************************************************************************************
;[UpdateEachInf]
; read-syms UpgradeDialog$(!STF_LANGUAGE)
; set WarningList = { "SWSRV", "NWSRV", "NWTOOLS" }
; set UnsupportedOptions = { "AM1500T", "AM1500T2", "AM1500T2" }
; set MAXIMUM_ALLOWED = 33554432
; set OptionList = {}
; set InfFileList = {}
; set ManufacturerList = { "Software\DigiBoard" , "Software\Microsoft" }
; ForListDo $(ManufacturerList)
; set SoftwareName = $($)
; OpenRegKey $(!REG_H_LOCAL) "" $(SoftwareName) $(MAXIMUM_ALLOWED) KeySoftware
; ifstr(i) $(KeySoftware) != ""
; EnumRegKey $(KeySoftware) SoftwareList
; ForListDo $(SoftwareList)
;
; Find all the network component
;
; set ComponentName = $(SoftwareName)"\"*($($),1)
; OpenRegKey $(!REG_H_LOCAL) "" $(ComponentName) $(MAXIMUM_ALLOWED) KeyComponent
; ifstr(i) $(KeyComponent) != ""
; set NetRulesName = $(ComponentName)"\CurrentVersion\NetRules"
; OpenRegKey $(!REG_H_LOCAL) "" $(NetRulesName) $(MAXIMUM_ALLOWED) KeyNetRules
; ifstr(i) $(KeyNetRules) != ""
;
; Put the inf option and file into the list
;
; GetRegValue $(KeyNetRules),"InfName", InfNameInfo
; GetRegValue $(KeyNetRules),"InfOption", InfOptionInfo
; set ComponentInfName = *($(InfNameInfo),4)
; set ComponentInfOption = *($(InfOptionInfo),4)
; retrieve the componet title
; set CurrentVerName = $(ComponentName)"\CurrentVersion"
; OpenRegKey $(!REG_H_LOCAL) "" $(CurrentVerName) $(MAXIMUM_ALLOWED) KeyCurrentVer
; GetRegValue $(KeyCurrentVer),"Title", InfTitleInfo
; CloseRegKey $(KeyCurrentVer)
; set ComponentTitle = *($(InfTitleInfo),4)
;
; let the user know of orphaned software
;
; ifcontains(i) $(ComponentInfOption) in $(UnsupportedOptions)
; read-syms UpgradeUnsupported
; read-syms WarningDlg
; ui start "Warning"
; endif
;
; Directory Service Manager for NetWare or
; File and Print Services for NetWare special cases
;
; ifcontains(i) $(ComponentInfOption) in $(WarningList)
; read-syms Upgrade$(ComponentInfOption)Title
; read-syms UpgradeWarnings
; read-syms WarningDlg
; ui start "Warning"
; endif
;
; Handle special case for NWCWorkstation and MCSXNS
;
; ifstr(i) $(ComponentInfOption) == "NWWKSTA"
; ifstr(i) $(ComponentInfName) != "oemnsvnw.inf"
; LibraryProcedure Status1, $(!LIBHANDLE), DelFile, $(!STF_WINDOWSSYSPATH)"\"$(ComponentInfName)
; set ComponentInfName = "oemnsvnw.inf"
; SetRegValue $(KeyNetRules) {InfName,$(NoTitle),$(!REG_VT_SZ),"oemnsvnw.inf"}
; endif
; endif
; ifstr(i) $(ComponentInfOption) == "SNMP"
; set CurrentVersionKey = $(ComponentName)"\CurrentVersion"
; OpenRegKey $(!REG_H_LOCAL) "" $(CurrentVersionKey) $(MAXIMUM_ALLOWED) CurrentVersion
; set SoftwareType = "SoftwareType"
; set SoftwareTypeValue = "service"
; SetRegValue $(CurrentVersion) {$(SoftwareType),$(NoTitle),$(!REG_VT_SZ),$(SoftwareTypeValue)}
; CloseRegKey $(CurrentVersion)
; set ComponentInfName = "oemnsvsn.inf"
; SetRegValue $(KeyNetRules) {InfName,$(NoTitle),$(!REG_VT_SZ),$(ComponentInfName)}
; endif
; fix atalk file inf name
; ifstr(i) $(ComponentInfOption) == "ATALK"
; ifstr(i) $(!STF_PRODUCT) != "WINNT"
; set NewAtalkInf = "oemnsvsm.inf"
; else
; set NewAtalkInf = "oemnxpsm.inf"
; endif
; ifstr(i) $(ComponentInfName) != $(NewAtalkInf)
; set ComponentInfName = $(NewAtalkInf)
; SetRegValue $(KeyNetRules) {InfName,$(NoTitle),$(!REG_VT_SZ),$(ComponentInfName)}
; endif
; endif
; fix Services For Mac inf name
; ifstr(i) $(ComponentInfOption) == "SFM"
; ifstr(i) $(ComponentInfName) != "oemnsvsm.inf"
; set ComponentInfName = "oemnsvsm.inf"
; SetRegValue $(KeyNetRules) {InfName,$(NoTitle),$(!REG_VT_SZ),$(ComponentInfName)}
; endif
; endif
; fix Services For Mac inf name
; ifstr(i) $(ComponentInfOption) == "MACPRINT"
; ifstr(i) $(ComponentInfName) != "oemnsvsm.inf"
; set ComponentInfName = "oemnsvsm.inf"
; SetRegValue $(KeyNetRules) {InfName,$(NoTitle),$(!REG_VT_SZ),$(ComponentInfName)}
; endif
; endif
; fix Services For Mac inf name
; ifstr(i) $(ComponentInfOption) == "AFPSVC"
; ifstr(i) $(ComponentInfName) != "oemnsvsm.inf"
; set ComponentInfName = "oemnsvsm.inf"
; SetRegValue $(KeyNetRules) {InfName,$(NoTitle),$(!REG_VT_SZ),$(ComponentInfName)}
; endif
; endif
; ifstr(i) $(ComponentInfOption) == "NWLINK"
; set ComponentInfOption = "NWLNKIPX"
; SetRegValue $(KeyNetRules) {InfOption,$(NoTitle),$(!REG_VT_SZ),"NWLNKIPX"}
; endif
; ifstr(i) $(ComponentInfOption) == "BLOODHOUND"
; ifstr(i) $(ComponentInfName) != "oemnsvbh.inf"
; LibraryProcedure Status1, $(!LIBHANDLE), DelFile, $(!STF_WINDOWSSYSPATH)"\"$(ComponentInfName)
; set ComponentInfName = "oemnsvbh.inf"
; SetRegValue $(KeyNetRules) {InfName,$(NoTitle),$(!REG_VT_SZ),"oemnsvbh.inf"}
; endif
; set ComponentInfOption = "NETMON"
; SetRegValue $(KeyNetRules) {InfOption,$(NoTitle),$(!REG_VT_SZ),"NETMON"}
; endif
; ifstr(i) $(ComponentInfOption) == "PCNTN3"
;
; remove the third party inf file
;
; LibraryProcedure Status1, $(!LIBHANDLE), DelFile, $(!STF_WINDOWSSYSPATH)"\"$(ComponentInfName)
; set ComponentInfOption = "AMDPCI"
; set ComponentInfName = "oemnadap.inf"
; endif
; ifstr(i) $(ComponentInfOption) == "MCSXNS"
; goto skipxns
; endif
; ifstr(i) $(ComponentInfOption) == "Ubnb"
; goto skipxns
; endif
; Shell $(ComponentInfName) GetSignature
; Ifstr(i) $($ShellCode) != $(!SHELL_CODE_OK)
; goto skipxns
; endif
; ifstr(i) $($R0) != "MICROSOFT_FILE"
; goto skipxns
; endif
; ifcontains(i) $(ComponentInfName) NOT-IN $(InfFileList)
; ifstr(i) $(InfFileList) == {}
; set InfFileList = {$(ComponentInfName)}
; set OptionList = {$(ComponentInfOption)}
; set TitleList = {$(ComponentTitle)}
; else
; set InfFileList = >($(InfFileList),$(ComponentInfName))
; set OptionList = >($(OptionList),$(ComponentInfOption))
; set TitleList = >($(TitleList),$(ComponentTitle))
; endif
; endif
;skipxns = +
; CloseRegKey $(KeyNetRules)
; endif
; CloseRegKey $(KeyComponent)
; endif
; EndForListDo
; CloseRegKey $(KeySoftware)
; endif
; EndForListDo
; Upgrade all the component in the option list
;
; debug-output $(InfFileList)
; debug-output $(OptionList)
; debug-output $(TitleList)
; set OldInstallMode = $(!NTN_InstallMode)
; set !NTN_InstallMode = "Update"
; set AddCopy = YES
; set DoCopy = YES
; set DoConfig = YES
; ifstr(i) $(!NTN_NOTIFY_HWND) != ""
; QueryListSize cInfsToBeRun $(InfFileList)
; LibraryProcedure STATUS, $(!NCPA_HANDLE), SendProgressMessage, $(!PWM_SETPROGRESSSIZE), $(!NTN_NOTIFY_HWND), "D", $(!PGI_UPDATE), "D", $(cInfsToBeRun)
; sets the default text, displays the gauge and text
;
; LibraryProcedure STATUS, $(!NCPA_HANDLE), SendProgressMessage, $(!PWM_SETPROGRESSTEXT), $(!NTN_NOTIFY_HWND), "D", $(!PGI_UPDATE), "D", "-1"
; endif
; ForListDo $(InfFileList)
; debug-output $($)
; debug-output *($(OptionList), $(#))
; ifstr(i) $(!NTN_NOTIFY_HWND) != ""
; LibraryProcedure STATUS, $(!NCPA_HANDLE), SendProgressMessage, $(!PWM_SETPROGRESSTEXT), $(!NTN_NOTIFY_HWND), "D", $(!PGI_UPDATE), "A", *($(TitleList), $(#))
; endif
; Shell $($) "InstallOption" +
; $(!STF_LANGUAGE) *($(OptionList), $(#)) +
; $(!STF_SRCDIR) $(AddCopy) $(DoCopy) $(DoConfig)
; Ifstr(i) $($ShellCode) != $(!SHELL_CODE_OK)
; Debug-Output "NCPASHEL.INF: SHELL ERROR: "$($ShellCode)
; Endif
; ifstr(i) $(!NTN_NOTIFY_HWND) != ""
; LibraryProcedure STATUS, $(!NCPA_HANDLE), SendProgressMessage, $(!PWM_SETPROGRESSPOS), $(!NTN_NOTIFY_HWND), "D", $(PGI_UPDATE), "D", $(#)
; endif
; EndForListDo
; set !NTN_InstallMode = $(OldInstallMode)
; install "Install-UpdateFiles"
; return
;***********************************************************************************************
;
; RemoveoldInfFile - remove old inf file
; Entry: $0 - Option name (ie NWWKSTA)
; $1 - Inf file type (ie, NetService)
; $2 - inf prefix (ie oemnsv)
; $3 - the new inf file to keep (ie oemnsvnw.inf)
;
;***********************************************************************************************
;[OEMFiles]
; OemFiles = {} ? $(!LIBHANDLE) FindFileInstances $(!STF_WINDOWSSYSPATH)"\"$(Prefix)"*.inf"
;[RemoveOldInfFile]
; set OptionName = $($0)
; set OptionType = $($1)
; set Prefix = $($2)
; set CurrentInf = $($3)
;
; First get all the filenames
;
; set OemOptionList = {}
; set InfToDelete = {}
; read-syms OEMFiles
; detect OEMFiles
;
; Get the option from each file
;
; ForListDo $(OemFiles)
; ifstr(i) $($) != $(CurrentInf)
; set OemFileName = $(!STF_WINDOWSSYSPATH)"\"$($)
; shell "other.inf", GetOptionsFromINF $(!STF_LANGUAGE) $(OptionType) $(OemFileName)
; ifstr(i) $($R0) == STATUS_SUCCESSFUL
; ifcontains(i) $(OptionName) in $($R1)
; set InfToDelete = >($(InfToDelete), $($))
; endif
; endif
; endif
; EndForListDo
; debug-output $(InfToDelete)
;
; del all the old files
;
; ForListDo $(InfToDelete)
; LibraryProcedure Status1, $(!LIBHANDLE), DelFile, $(!STF_WINDOWSSYSPATH)"\"$($)
; EndForListDo
; return
;***********************************************************************************************
;
; Install-UpdateFiles - Copy all the new network components files.
;
;***********************************************************************************************
;[Install-UpdateFiles]
; set !STF_NCPA_FLUSH_COPYLIST = TRUE
; CopyFilesInCopyList
; exit