You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
1224 lines
47 KiB
1224 lines
47 KiB
[Identification]
|
|
OptionType = NetService
|
|
[LanguagesSupported]
|
|
ENG
|
|
[Options]
|
|
NWWKSTA
|
|
[FileConstants]
|
|
UtilityInf = "UTILITY.INF"
|
|
subroutineinf = "SUBROUTN.INF"
|
|
SoftwareType = "service"
|
|
Exit_Code = 0
|
|
NetwareEventDLL = "%SystemRoot%\System32\nwevent.dll"
|
|
Manufacturer = "Microsoft"
|
|
ProductMajorVersion = "3"
|
|
ProductMinorVersion = "1"
|
|
ProductVersion = $(ProductMajorVersion)"."$(ProductMinorVersion)
|
|
ProductNWWKSTAName = "NWCWorkstation"
|
|
ProductNWWKSTAImagePath = "%SystemRoot%\System32\nwsvc.exe"
|
|
NetRuleNWWKSTAType = "nwWsta nwcWorkstation"
|
|
NetRuleNWWKSTAClass = {"nwcWorkstation basic"}
|
|
NetRuleNWWKSTABindable = {"nwcWorkstation nwlinkipxTransport non non 100"}
|
|
NetRuleNWWKSTAUse = $(SoftwareType)" no no"
|
|
NetRuleNWWKSTABindForm = """NwcWorkstation"" yes yes container"
|
|
ProductNWRDRName = "NwRdr"
|
|
ProductNWRDRImagePath = "\SystemRoot\System32\drivers\nwrdr.sys"
|
|
ProductProviderImagePath = "%SystemRoot%\System32\nwprovau.dll"
|
|
ProviderName = $(ProductNWWKSTAName)
|
|
ProductKeyName = $(!NTN_SoftwareBase)"\"$(Manufacturer)"\"$(Product$(Option)Name)"\CurrentVersion"
|
|
ParamKeyName = $(!NTN_ServiceBase)"\"$(Product$(Option)Name)"\Parameters"
|
|
LSAKeyName = "System\CurrentControlSet\Control\LSA"
|
|
[GeneralConstants]
|
|
from = ""
|
|
to = ""
|
|
ExitCodeOk = 0
|
|
ExitCodeCancel = 1
|
|
ExitCodeFatal = 2
|
|
KeyNull = ""
|
|
MAXIMUM_ALLOWED = 33554432
|
|
RegistryErrorIndex = NO_ERROR
|
|
KeyProduct = ""
|
|
KeyParameters = ""
|
|
TRUE = 1
|
|
FALSE = 0
|
|
NoTitle = 0
|
|
ExitState = "Active"
|
|
OldVersionExisted = $(FALSE)
|
|
DriverPath = $(!STF_NTPATH)\drivers
|
|
[date]
|
|
Now = {} ? $(!LIBHANDLE) GetSystemDate
|
|
|
|
[DetectDiskSpace]
|
|
VolumeList = {} ? $(!LIBHANDLE) GetHardDriveLetters
|
|
VolumeFreeList = {} ? $(!LIBHANDLE) GetHardDriveFreeSpace
|
|
VolumeFSList = {} ? $(!LIBHANDLE) GetHardDriveFileSystems
|
|
|
|
[DetectSystemMemory]
|
|
SystemMemory = "" ? $(!LIBHANDLE) GetMemorySize
|
|
|
|
[Identify]
|
|
read-syms Identification
|
|
set Status = STATUS_SUCCESSFUL
|
|
set Identifier = $(OptionType)
|
|
set Media = #("Source Media Descriptions", 1, 1)
|
|
Return $(Status) $(Identifier) $(Media)
|
|
[ReturnOptions]
|
|
set Status = STATUS_FAILED
|
|
set OptionList = {}
|
|
set OptionTextList = {}
|
|
set LanguageList = ^(LanguagesSupported, 1)
|
|
Ifcontains(i) $($0) in $(LanguageList)
|
|
goto returnoptions
|
|
else
|
|
set Status = STATUS_NOLANGUAGE
|
|
goto finish_ReturnOptions
|
|
endif
|
|
returnoptions = +
|
|
set OptionList = ^(Options, 1)
|
|
ifstr(i) $(!STF_PRODUCT) == "WINNT"
|
|
set OptionTextList = ^(OptionsWINNTText$($0), 1)
|
|
else
|
|
set OptionTextList = ^(OptionsLANMANNTText$($0), 1)
|
|
endif
|
|
set Status = STATUS_SUCCESSFUL
|
|
finish_ReturnOptions = +
|
|
Return $(Status) $(OptionList) $(OptionTextList)
|
|
[InstallOption]
|
|
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
|
|
Debug-Output "OEMNSVNW.INF: STF_CWDDIR is: "$(!STF_CWDDIR)
|
|
Debug-Output "OEMNSVNW.INF: STF_LANGUAGE is: "$(!STF_LANGUAGE)
|
|
set-subst LF = "\n"
|
|
set-subst CR = "\r"
|
|
ifstr(i) $(!STF_PRODUCT) == "WINNT"
|
|
read-syms Workstation$(!STF_LANGUAGE)
|
|
else
|
|
read-syms Gateway$(!STF_LANGUAGE)
|
|
endif
|
|
read-syms GeneralConstants
|
|
read-syms FileConstants
|
|
read-syms DialogConstants$(!STF_LANGUAGE)
|
|
ifstr(i) $(!NTN_Origination) == "NCPA"
|
|
set Continue = $(OK)
|
|
endif
|
|
read-syms FileConstants$(!STF_LANGUAGE)
|
|
detect date
|
|
detect DetectSystemMemory
|
|
detect DetectDiskSpace
|
|
set-title $(FunctionTitle)
|
|
set to = Begin
|
|
set from = Begin
|
|
set CommonStatus = STATUS_SUCCESSFUL
|
|
EndWait
|
|
Begin = +
|
|
Ifstr(i) $(!NTN_InstallMode) == deinstall
|
|
set OEM_ABANDON_OPTIONS = { $(ProductNWWKSTAName), +
|
|
$(ProductNWRDRName)}
|
|
set StartLabel = removeadapter
|
|
else-Ifstr(i) $(!NTN_InstallMode) == Update
|
|
set StartLabel = UpgradeSoftware
|
|
else-Ifstr(i) $(!NTN_InstallMode) == bind
|
|
set StartLabel = bindingadapter
|
|
else-Ifstr(i) $(!NTN_InstallMode) == configure
|
|
Shell $(UtilityInf),RegistryErrorString,CANNOT_CONFIGURE_SOFTWARE
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
Debug-Output "OEMNSVNW.INF: ShellCode error: cannot get an error string."
|
|
goto ShellCodeError
|
|
endif
|
|
set Error = $($R0)
|
|
set from = end
|
|
set to = end
|
|
goto nonfatalinfo
|
|
else
|
|
set StartLabel = installadapter
|
|
set OEM_ABANDON_OPTIONS = {}
|
|
endif
|
|
set DoWKSTA = FALSE
|
|
set DoRDR = FALSE
|
|
set DoNWLINK = FALSE
|
|
set DoMUP = FALSE
|
|
Ifstr(i) $(Option) == NWWKSTA
|
|
set DoWKSTA = TRUE
|
|
set DoRDR = TRUE
|
|
set DoNWLINK = TRUE
|
|
set DoMUP = TRUE
|
|
Else-ifstr(i) $(Option) == RDR
|
|
Set DoRDR = TRUE
|
|
Else
|
|
Debug-Output "OEMNSVWK.INF: Unrecognized option"
|
|
Endif
|
|
set from = $(fatal)
|
|
set to = $(fatal)
|
|
goto $(StartLabel)
|
|
installadapter = +
|
|
GetDriveInPath NtDrive $(!STF_WINDOWSSYSPATH)
|
|
Shell "" GetFilesSize
|
|
set RequiredSize = $($R0)
|
|
ForListDo $(VolumeList)
|
|
set CurrentVolume = *($(VolumeList), $(#))
|
|
set CurrentVolumeFree = *($(VolumeFreeList), $(#))
|
|
Ifstr(i) $(CurrentVolume) == $(NtDrive)
|
|
set-mul CurrentVolumeFree = $(CurrentVolumeFree) 1024
|
|
Ifint $(CurrentVolumeFree) < $(RequiredSize)
|
|
Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), "NONFATAL", $(NotEnoughSpace)
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
goto ShellCodeError
|
|
endif
|
|
goto end
|
|
else
|
|
goto AfterCheckSpace
|
|
endif
|
|
EndIf
|
|
EndForListDo
|
|
AfterCheckSpace = +
|
|
|
|
OpenRegKey $(!REG_H_LOCAL) "" $(!NTN_ServiceBase)"\NWLINKIPX" $(MAXIMUM_ALLOWED) BS_KeyServices
|
|
|
|
Ifstr $(BS_KeyServices) == $(KeyNull)
|
|
Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), "NONFATAL", $(InstallNWLINKFirst)
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
goto ShellCodeError
|
|
endif
|
|
goto end
|
|
endif
|
|
|
|
OpenRegKey $(!REG_H_LOCAL) "" $(ProductKeyName) $(MAXIMUM_ALLOWED) KeyProduct
|
|
Ifstr $(KeyProduct) != $(KeyNull)
|
|
CloseRegKey $(KeyProduct)
|
|
Shell $(UtilityInf), VerExistedDlg, $(Product$(Option)Title),+
|
|
$(ProductVersion)
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
Debug-Output "OEMNSVNW.INF: ShellCode error: cannot get an error string."
|
|
goto ShellCodeError
|
|
endif
|
|
goto end
|
|
endif
|
|
CloseRegKey $(KeyProduct)
|
|
|
|
;
|
|
; Make sure Mup exists
|
|
;
|
|
ifstr(i) $(DoMUP) == TRUE
|
|
;
|
|
; Check whether MUP exists or not.
|
|
; If exists, continue.
|
|
; Otherwise, popup a dialog and end
|
|
;
|
|
Debug-Output "OEMNSVNW.INF: check MUP registry"
|
|
|
|
OpenRegKey $(!REG_H_LOCAL) "" $(!NTN_ServiceBase)"\Mup" $(MAXIMUM_ALLOWED) MupKey
|
|
|
|
Ifstr $(MupKey) == $(KeyNull)
|
|
;
|
|
; Mup does not exist. So, end NWCS setup.
|
|
;
|
|
Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), "NONFATAL", $(InstallNTWKSTAFirst)
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
goto ShellCodeError
|
|
endif
|
|
goto end
|
|
endif
|
|
|
|
;
|
|
; It exists. So, continue.
|
|
;
|
|
CloseRegKey $(MupKey)
|
|
endif
|
|
|
|
;
|
|
; Check to make sure that NETWAREWORKSTATION is not there
|
|
;
|
|
OpenRegKey $(!REG_H_LOCAL) "" $(!NTN_ServiceBase)"\NetwareWorkstation" $(MAXIMUM_ALLOWED) BS_KeyServices
|
|
|
|
Ifstr $(BS_KeyServices) == $(KeyNull)
|
|
;
|
|
; Good. Let check the "Mark for deletion" service controller problem.
|
|
;
|
|
Shell $(UtilityInf), CreateService, +
|
|
"NetwareWorkstation", +
|
|
$(ProductNWWKSTADisplayName), +
|
|
$(ProductNWWKSTAImagePath), "autoserviceshare", "NetworkProvider", {}, "",+
|
|
$(NetwareEventDLL)
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
Debug-Output "OEMNSVNW.INF: ShellCode error"
|
|
goto ShellCodeError
|
|
endif
|
|
debug-output $($R0)
|
|
set RegistryErrorIndex = $($R0)
|
|
ifstr(i) $(RegistryErrorIndex) != NO_ERROR
|
|
;
|
|
; it is still there
|
|
;
|
|
Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), "NONFATAL", $(RemoveAndReboot)
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
goto ShellCodeError
|
|
endif
|
|
goto end
|
|
else
|
|
Shell $(UtilityInf) RemoveService "NetwareWorkstation" "YES"
|
|
endif
|
|
else
|
|
Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), "NONFATAL", $(RemoveAndReboot)
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
goto ShellCodeError
|
|
endif
|
|
CloseRegKey $(BS_KeyServices)
|
|
goto end
|
|
endif
|
|
|
|
|
|
goto nextstep
|
|
nextstep = +
|
|
StartWait
|
|
Ifstr(i) $(!NTN_InstallMode) == install
|
|
Ifint $(OldVersionExisted) == $(FALSE)
|
|
goto installproduct
|
|
endif
|
|
endif
|
|
goto writeparameters
|
|
installproduct = +
|
|
CloseRegKey $(ParamKeyName)
|
|
ifstr(i) $(!NTN_InstallMode) == "install"
|
|
Ifstr(i) $(DoCopy) == "YES"
|
|
Shell $(UtilityInf), DoAskSource, $(!STF_CWDDIR), $(SrcDir) YES
|
|
Ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
Goto ShellCodeError
|
|
Else-Ifstr(i) $($R0) == STATUS_FAILED
|
|
Shell $(UtilityInf) RegistryErrorString "ASK_SOURCE_FAIL"
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
goto ShellCodeError
|
|
endif
|
|
set Error = $($R0)
|
|
Goto fatal
|
|
Else-Ifstr(i) $($R0) == STATUS_USERCANCEL
|
|
Goto successful
|
|
Endif
|
|
Set SrcDir = $($R1)
|
|
Endif
|
|
install "Install-nwcfgdll"
|
|
ifstr(i) $(STF_INSTALL_OUTCOME) != STF_SUCCESS
|
|
Shell $(UtilityInf) RegistryErrorString "UNABLE_COPY_FILE"
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
goto ShellCodeError
|
|
endif
|
|
set Error = $($R0)
|
|
goto fatal
|
|
endif
|
|
endif
|
|
set OEM_ABANDON_ON = TRUE
|
|
LoadLibrary "nw" $(!STF_CWDDIR)\nwcfg.dll !NWCFG_HANDLE
|
|
Set FLibraryErrCtl = 1
|
|
;
|
|
; Check the version number
|
|
;
|
|
LibraryProcedure Result $(!NWCFG_HANDLE), GetKernelVersion
|
|
ifint *($(Result),3) < 528
|
|
Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), "NONFATAL", $(UpgradeFirst)
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
goto ShellCodeError
|
|
endif
|
|
goto end
|
|
FreeLibrary $(!NWCFG_HANDLE)
|
|
else-ifint *($(Result),3) > 529
|
|
Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), "NONFATAL", $(NotDaytona)
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
goto ShellCodeError
|
|
endif
|
|
goto end
|
|
FreeLibrary $(!NWCFG_HANDLE)
|
|
endif
|
|
|
|
ifstr(i) $(!NTN_InstallMode) == "install"
|
|
install "Install-Option"
|
|
ifstr(i) $(STF_INSTALL_OUTCOME) != STF_SUCCESS
|
|
Shell $(UtilityInf) RegistryErrorString "UNABLE_COPY_FILE"
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
goto ShellCodeError
|
|
endif
|
|
set Error = $($R0)
|
|
goto fatal
|
|
endif
|
|
endif
|
|
|
|
LibraryProcedure Result $(!NWCFG_HANDLE), SetFileSysChangeValue
|
|
LibraryProcedure Result $(!NWCFG_HANDLE), AddNetwarePrinterProvidor
|
|
Set FLibraryErrCtl = 0
|
|
;
|
|
; Change netware to the top provider
|
|
;
|
|
OpenRegKey $(!REG_H_LOCAL) "" "System\CurrentControlSet\Control\Print\Providers" $(MAXIMUM_ALLOWED) PrintProviderKey
|
|
Ifstr $(PrintProviderKey) != $(KeyNull)
|
|
GetRegValue $(PrintProviderKey),"Order",OrderInfo
|
|
set OrderList = *($(OrderInfo),4)
|
|
set NewOrderList = {$(ProductProviderName)}
|
|
ForListDo $(OrderList)
|
|
ifstr(i) $($) != $(ProductProviderName)
|
|
set NewOrderList = >($(NewOrderList),$($))
|
|
endif
|
|
EndForListDo
|
|
SetRegValue $(PrintProviderKey) {"Order",$(NoTitle),$(!REG_VT_MULTI_SZ),$(NewOrderList)}
|
|
CloseRegKey $(PrintProviderKey)
|
|
endif
|
|
|
|
;
|
|
; Set Authentication packages
|
|
;
|
|
|
|
OpenRegKey $(!REG_H_LOCAL) "" $(LSAKeyName) $(MAXIMUM_ALLOWED) LSAKey
|
|
Ifstr $(LSAKey) != $(KeyNull)
|
|
GetRegValue $(LSAKey),"Authentication Packages", PackagesInfo
|
|
set Packages = *($(PackagesInfo), 4)
|
|
ifcontains(i) "nwprovau" in $(Packages)
|
|
; don't do it
|
|
debug-output "Authentication Packages already exist."
|
|
else
|
|
ifstr(i) $(Packages) == ""
|
|
set Packages = {"nwprovau"}
|
|
else
|
|
set Packages = >($(Packages),"nwprovau")
|
|
endif
|
|
SetRegValue $(LSAKey) {"Authentication Packages",$(NoTitle),$(!REG_VT_MULTI_SZ),$(Packages)}
|
|
endif
|
|
CloseRegKey $(LSAKey)
|
|
endif
|
|
|
|
ifstr(i) $(DoWKSTA) == TRUE
|
|
Debug-Output "OEMNSVNW.INF: Install Workstation in registry."
|
|
Set OEM_ABANDON_OPTIONS = >($(OEM_ABANDON_OPTIONS), $(ProductNWWKSTAName))
|
|
Shell $(UtilityInf), AddSoftwareComponent, $(Manufacturer), +
|
|
$(ProductNWWKSTAName), +
|
|
$(ProductNWWKSTAName), +
|
|
$(ProductNWWKSTADisplayName), $(STF_CONTEXTINFNAME), +
|
|
$(ProductNWWKSTAImagePath), "autoserviceshare", "NetworkProvider", {}, "",+
|
|
$(NetwareEventDLL)
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
Debug-Output "OEMNSVNW.INF: ShellCode error"
|
|
goto ShellCodeError
|
|
endif
|
|
set RegistryErrorIndex = $($R0)
|
|
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
|
|
EndWait
|
|
Debug-Output "OEMNSVNW.INF: Registry error: add software components"
|
|
CloseRegKey $($R1)
|
|
CloseRegKey $($R2)
|
|
CloseRegKey $($R3)
|
|
CloseRegKey $($R4)
|
|
CloseRegKey $($R5)
|
|
goto fatalregistry
|
|
endif
|
|
Set SoftProductKey = $($R1)
|
|
Set SoftNetRuleKey = $($R2)
|
|
Set SoftServiceKey = $($R3)
|
|
Set SoftParameterKey = $($R4)
|
|
Set SoftLinkageKey = $($R5)
|
|
set NewValueList = {{SoftwareType,$(NoTitle),$(!REG_VT_SZ),$(SoftwareType)},+
|
|
{MajorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMajorVersion)},+
|
|
{MinorVersion,$(NoTitle),$(!REG_VT_DWORD),$(ProductMinorVersion)},+
|
|
{Title,$(NoTitle),$(!REG_VT_SZ),$(ProductNWWKSTATitle)},+
|
|
{Description,$(NoTitle),$(!REG_VT_SZ),$(ProductNWWKSTADescription)},+
|
|
{ServiceName,$(NoTitle),$(!REG_VT_SZ),$(ProductNWWKSTAName)},+
|
|
{InstallDate,$(NoTitle),$(!REG_VT_DWORD),*($(Now),1)}}
|
|
Shell $(UtilityInf), AddValueList, $(SoftProductKey), $(NewValueList)
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
Debug-Output "OEMNSVNW.INF: ShellCode error."
|
|
goto ShellCodeError
|
|
endif
|
|
set RegistryErrorIndex = $($R0)
|
|
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
|
|
EndWait
|
|
Debug-Output "OEMNSVNW.INF: registry error: add value list."
|
|
CloseRegKey $(SoftProductKey)
|
|
CloseRegKey $(SoftNetRuleKey)
|
|
CloseRegKey $(SoftServiceKey)
|
|
CloseRegKey $(SoftLinkageKey)
|
|
CloseRegKey $(SoftParameterKey)
|
|
goto fatalregistry
|
|
endif
|
|
set NewValueList = {{type,$(NoTitle),$(!REG_VT_SZ),$(NetRuleNWWKSTAType)},+
|
|
{class,$(NoTitle),$(!REG_VT_MULTI_SZ),$(NetRuleNWWKSTAClass)}, +
|
|
{use,$(NoTitle),$(!REG_VT_SZ),$(NetRuleNWWKSTAUse)}, +
|
|
{bindform,$(NoTitle),$(!REG_VT_SZ),$(NetRuleNWWKSTABindForm)}, +
|
|
{bindable,$(NoTitle),$(!REG_VT_MULTI_SZ),$(NetRuleNWWKSTABindable)}, +
|
|
{InfOption,$(NoTitle),$(!REG_VT_SZ),NWWKSTA}}
|
|
Shell $(UtilityInf), AddValueList, $(SoftNetRuleKey), $(NewValueList)
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
Debug-Output "OEMNSVNW.INF: ShellCode error."
|
|
goto ShellCodeError
|
|
endif
|
|
set RegistryErrorIndex = $($R0)
|
|
CloseRegKey $(SoftProductKey)
|
|
CloseRegKey $(SoftNetRuleKey)
|
|
CloseRegKey $(SoftServiceKey)
|
|
|
|
Shell "" AddParameterKey $(SoftParameterKey)
|
|
CloseRegKey $(SoftParameterKey)
|
|
|
|
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
|
|
CloseRegKey $(SoftLinkageKey)
|
|
EndWait
|
|
Debug-Output "OEMNSVNW.INF: Registry error: add value list."
|
|
goto fatalregistry
|
|
endif
|
|
set NewValueList = {{OtherDependencies,$(NoTitle),$(!REG_VT_MULTI_SZ),{"Mup"}}}
|
|
Shell $(UtilityInf), AddValueList, $(SoftLinkageKey), $(NewValueList)
|
|
CloseRegKey $(SoftLinkageKey)
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
Debug-Output "OEMNSVNW.INF: ShellCode error."
|
|
goto ShellCodeError
|
|
endif
|
|
set RegistryErrorIndex = $($R0)
|
|
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
|
|
EndWait
|
|
Debug-Output "OEMNSVNW.INF: registry error: add value list."
|
|
goto fatalregistry
|
|
endif
|
|
|
|
; Remove autoexec.nt statements
|
|
;
|
|
Set FLibraryErrCtl = 1
|
|
LibraryProcedure Result $(!NWCFG_HANDLE), RemoveSzFromFile, $(!STF_WINDOWSSYSPATH)"\autoexec.nt", "REM Install network redirector"$(LF)
|
|
LibraryProcedure Result $(!NWCFG_HANDLE), RemoveSzFromFile, $(!STF_WINDOWSSYSPATH)"\autoexec.nt", "lh %SystemRoot%\system32\nw16"$(LF)
|
|
LibraryProcedure Result $(!NWCFG_HANDLE), RemoveSzFromFile, $(!STF_WINDOWSSYSPATH)"\autoexec.nt", "lh %SystemRoot%\system32\vwipxspx"$(LF)
|
|
;
|
|
; Setup string in autoexec.nt
|
|
;
|
|
LibraryProcedure Result $(!NWCFG_HANDLE), AppendSzToFile, $(!STF_WINDOWSSYSPATH)"\autoexec.nt", "REM Install network redirector"$(CR)$(LF)
|
|
LibraryProcedure Result $(!NWCFG_HANDLE), AppendSzToFile, $(!STF_WINDOWSSYSPATH)"\autoexec.nt", "lh %SystemRoot%\system32\nw16"$(CR)$(LF)
|
|
LibraryProcedure Result $(!NWCFG_HANDLE), AppendSzToFile, $(!STF_WINDOWSSYSPATH)"\autoexec.nt", "lh %SystemRoot%\system32\vwipxspx"$(CR)$(LF)
|
|
Set FLibraryErrCtl = 0
|
|
endif
|
|
|
|
ifstr(i) $(DoNWLINK) == TRUE
|
|
;
|
|
; Increase the reference counter
|
|
;
|
|
Shell "utility.inf", IncrementRefCount, "Software\Microsoft\NWLINKIPX\CurrentVersion"
|
|
endif
|
|
|
|
ifstr(i) $(DoRDR) == TRUE
|
|
Debug-Output "OEMNSVNW.INF: Install Rdr registry"
|
|
Set OEM_ABANDON_OPTIONS = >($(OEM_ABANDON_OPTIONS), $(ProductNWRDRName))
|
|
Shell $(UtilityInf), CreateService, $(ProductNWRDRName), +
|
|
$(ProductNWRDRDisplayName), $(ProductNWRDRImagePath), +
|
|
"system", "Network", {}, "", +
|
|
$(NetwareEventDLL)
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
Debug-Output "OEMNSVNW.INF: ShellCode error"
|
|
goto ShellCodeError
|
|
endif
|
|
set RegistryErrorIndex = $($R0)
|
|
set NWRdrServiceKey = $($R1)
|
|
CloseRegKey $($R2)
|
|
CloseRegKey $($R3)
|
|
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
|
|
EndWait
|
|
Debug-Output "OEMNSVNW.INF: Registry error: add software components"
|
|
goto fatalregistry
|
|
endif
|
|
|
|
;
|
|
; Add performance monitoring info
|
|
;
|
|
CreateRegKey $(NWRdrServiceKey) {"Performance",$(NoTitle),GenericClass} "" +
|
|
$(MAXIMUM_ALLOWED) "" KeyPerformance
|
|
|
|
set NewValueList = {{Library,$(NoTitle),$(!REG_VT_SZ),"Perfnw.dll"},+
|
|
{Open,$(NoTitle),$(!REG_VT_SZ),"OpenNetWarePerformanceData"},+
|
|
{Collect,$(NoTitle),$(!REG_VT_SZ),"CollectNetWarePerformanceData"},+
|
|
{Close,$(NoTitle),$(!REG_VT_SZ),"CloseNetWarePerformanceData"}}
|
|
|
|
Shell $(UtilityInf), AddValueList, $(KeyPerformance), $(NewValueList)
|
|
|
|
set RegistryErrorIndex = $($R0)
|
|
|
|
CloseRegKey $(KeyPerformance)
|
|
CloseRegKey $(NWRdrServiceKey)
|
|
|
|
;
|
|
; Create performance help information
|
|
;
|
|
|
|
LibraryProcedure Result $(!NWCFG_HANDLE), GetKernelVersion
|
|
ifint *($(Result),3) < 529
|
|
Set FLibraryErrCtl = 1
|
|
LibraryProcedure STATUS $(!NWCFG_HANDLE), lodctr $(!STF_WINDOWSSYSPATH)\nwperf.ini
|
|
; Ignore the error code for now
|
|
Set FLibraryErrCtl = 0
|
|
else
|
|
StartDetachedProcess STATUS "" "" $(!STF_WINDOWSSYSPATH)"\lodctr.exe" "nwperf.ini"
|
|
ifstr(i) $(STATUS) == "ERROR"
|
|
debug-output "Cannot detached process"
|
|
endif
|
|
endif
|
|
|
|
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
|
|
EndWait
|
|
Debug-Output "OEMNSVNW.INF: Registry error: add performance information"
|
|
goto fatalregistry
|
|
endif
|
|
|
|
Debug-Output "OEMNSVNW.INF: Add NetworkProvider"
|
|
Shell $(UtilityInf), AddNetworkProvider, $(ProviderName), +
|
|
$(ProductProviderImagePath), $(ProductProviderName), "nwrdr"
|
|
set RegistryErrorIndex = $($R0)
|
|
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
|
|
EndWait
|
|
Debug-Output "OEMNSVNW.INF: Registry error: add software components"
|
|
goto fatalregistry
|
|
endif
|
|
|
|
;
|
|
; Put netware provider to the top of the order list
|
|
;
|
|
OpenRegKey $(!REG_H_LOCAL) "" "System\CurrentControlSet\Control\NetworkProvider\Order" $(MAXIMUM_ALLOWED) NetProviderKey
|
|
Ifstr $(NetProviderKey) != $(KeyNull)
|
|
GetRegValue $(NetProviderKey),"ProviderOrder",OrderInfo
|
|
set OrderList = *($(OrderInfo),4)
|
|
Split-String $(OrderList), ",", ProviderList
|
|
set NewOrderList = $(ProductNWWKSTAName)
|
|
ForListDo $(ProviderList)
|
|
ifstr(i) $($) != ","
|
|
ifstr(i) $($) != $(ProductNWWKSTAName)
|
|
set NewOrderList = $(NewOrderList)","$($)
|
|
endif
|
|
endif
|
|
EndForListDo
|
|
SetRegValue $(NetProviderKey) {"ProviderOrder",$(NoTitle),$(!REG_VT_SZ),$(NewOrderList)}
|
|
CloseRegKey $(NetProviderKey)
|
|
endif
|
|
|
|
Shell "" AddShortName
|
|
|
|
OpenRegKey $(!REG_H_LOCAL) "" $(!NTN_ServiceBase)"\"$(ProviderName)"\networkprovider" $(MAXIMUM_ALLOWED) ProviderKey
|
|
ifstr(i) $(ProviderKey) != ""
|
|
set NewValueList = {{Class,$(NoTitle),$(!REG_VT_DWORD),3}}
|
|
Shell $(UtilityInf) AddValueList $(ProviderKey) $(NewValueList)
|
|
endif
|
|
CloseRegKey $(ProviderKey)
|
|
|
|
LibraryProcedure Status1, $(!LIBHANDLE), CheckFileExistance, $(!STF_WINDOWSSYSPATH)"\novell.cpl"
|
|
ifstr(i) $(Status1) == "YES"
|
|
LibraryProcedure Status2, $(!LIBHANDLE), RenFile, $(!STF_WINDOWSSYSPATH)"\novell.cpl", $(!STF_WINDOWSSYSPATH)"\novell.bak"
|
|
endif
|
|
|
|
OpenRegKey $(!REG_H_LOCAL) "" "System\CurrentControlSet\Control\WOW" $(MAXIMUM_ALLOWED) WowKey
|
|
ifstr(i) $(WowKey) != ""
|
|
GetRegValue $(WowKey),"KnownDLLS", KnownDLLsInfo
|
|
Split-String *($(KnownDLLsInfo),4), " ", KnownDLLsList
|
|
Ifcontains(i) "netware.drv" not-in $(KnownDLLsList)
|
|
ifstr(i) *($(KnownDLLsInfo),4) == ""
|
|
set KnownDLLs = "netware.drv"
|
|
else
|
|
set KnownDLLs = *($(KnownDLLsInfo),4)" netware.drv"
|
|
endif
|
|
SetRegValue $(WowKey) {"KnownDLLS",$(NoTitle),$(!REG_VT_SZ),$(KnownDLLs)}
|
|
endif
|
|
CloseRegKey $(WowKey)
|
|
endif
|
|
|
|
OpenRegKey $(!REG_H_LOCAL) "" "System\CurrentControlSet\Services\LanmanServer\Parameters" $(MAXIMUM_ALLOWED) ServerParmKey
|
|
ifstr(i) $(ServerParmKey) != ""
|
|
SetRegValue $(ServerParmKey) {"EnableSharedNetDrives",$(NoTitle),$(!REG_VT_DWORD),1}
|
|
CloseRegKey $(ServerParmKey)
|
|
endif
|
|
endif
|
|
writeparameters = +
|
|
|
|
FreeLibrary $(!NWCFG_HANDLE)
|
|
|
|
EndWait
|
|
goto successful
|
|
ConfigureBrowser = +
|
|
goto successful
|
|
bindingadapter =+
|
|
set Error = "Binding: Sorry, not yet implemented."
|
|
goto fatal
|
|
removeadapter = +
|
|
OpenRegKey $(!REG_H_LOCAL) "" "System\CurrentControlSet\Control\WOW" $(MAXIMUM_ALLOWED) WowKey
|
|
ifstr(i) $(WowKey) != ""
|
|
GetRegValue $(WowKey),"KnownDLLS", KnownDLLsInfo
|
|
Split-String *($(KnownDLLsInfo),4), " ", KnownDLLsList
|
|
set KnownDLLs = ""
|
|
Ifcontains(i) "netware.drv" in $(KnownDLLsList)
|
|
ForListDo $(KnownDLLsList)
|
|
ifstr(i) $($) != " "
|
|
ifstr(i) $($) != "netware.drv"
|
|
ifstr(i) $(KnownDLLs) == ""
|
|
set KnownDLLs = $($)
|
|
else
|
|
set KnownDLLs = $(KnownDLLs)" "$($)
|
|
endif
|
|
endif
|
|
endif
|
|
EndForListDo
|
|
else
|
|
set KnownDLLs = *($(KnownDLLsInfo),4)
|
|
endif
|
|
SetRegValue $(WowKey) {"KnownDLLS",$(NoTitle),$(!REG_VT_SZ),$(KnownDLLs)}
|
|
CloseRegKey $(WowKey)
|
|
endif
|
|
OpenRegKey $(!REG_H_LOCAL) "" "System\CurrentControlSet\Services\LanmanServer\Parameters" $(MAXIMUM_ALLOWED) ServerParmKey
|
|
ifstr(i) $(ServerParmKey) != ""
|
|
SetRegValue $(ServerParmKey) {"EnableSharedNetDrives",$(NoTitle),$(!REG_VT_DWORD),0}
|
|
CloseRegKey $(ServerParmKey)
|
|
endif
|
|
|
|
LoadLibrary "nw" $(!STF_CWDDIR)\nwcfg.dll !NWCFG_HANDLE
|
|
Set FLibraryErrCtl = 1
|
|
LibraryProcedure Result $(!NWCFG_HANDLE), DeleteNetwarePrinterProvidor
|
|
LibraryProcedure Result $(!NWCFG_HANDLE), DeleteGatewayPassword
|
|
Set FLibraryErrCtl = 0
|
|
|
|
LibraryProcedure Result $(!NWCFG_HANDLE), GetKernelVersion
|
|
ifint *($(Result),3) < 529
|
|
Set FLibraryErrCtl = 1
|
|
LibraryProcedure STATUS $(!NWCFG_HANDLE), unlodctr nwrdr
|
|
; Ignore the error code for now
|
|
Set FLibraryErrCtl = 0
|
|
else
|
|
StartDetachedProcess STATUS "" "" $(!STF_WINDOWSSYSPATH)"\unlodctr.exe" "nwrdr"
|
|
ifstr(i) $(STATUS) == "ERROR"
|
|
debug-output "Cannot detached process"
|
|
endif
|
|
endif
|
|
|
|
;
|
|
; remove Authentication Packages
|
|
;
|
|
OpenRegKey $(!REG_H_LOCAL) "" $(LSAKeyName) $(MAXIMUM_ALLOWED) LSAKey
|
|
Ifstr $(LSAKey) != $(KeyNull)
|
|
GetRegValue $(LSAKey),"Authentication Packages", PackagesInfo
|
|
set Packages = *($(PackagesInfo), 4)
|
|
ifcontains(i) "nwprovau" not-in $(Packages)
|
|
; don't do it
|
|
; something wrong....
|
|
debug-output "Authentication Packages does not exist.."
|
|
else
|
|
set NewPackages = {}
|
|
ForListDo $(Packages)
|
|
ifstr(i) $($) != "nwprovau"
|
|
ifstr(i) $(NewPackages) == {}
|
|
set NewPackages = {$($)}
|
|
else
|
|
set NewPackages = >($(NewPackages),$($))
|
|
endif
|
|
endif
|
|
EndForListDo
|
|
SetRegValue $(LSAKey) {"Authentication Packages",$(NoTitle),$(!REG_VT_MULTI_SZ),$(NewPackages)}
|
|
endif
|
|
CloseRegKey $(LSAKey)
|
|
endif
|
|
|
|
ifcontains(i) $(ProductNWWKSTAName) in $(OEM_ABANDON_OPTIONS)
|
|
Shell $(UtilityInf), RemoveSoftwareComponent, $(Manufacturer), +
|
|
$(ProductNWWKSTAName)
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
Debug-Output "OEMNSVNW.INF: ShellCode error"
|
|
goto ShellCodeError
|
|
endif
|
|
set RegistryErrorIndex = $($R0)
|
|
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
|
|
goto fatalregistry
|
|
endif
|
|
endif
|
|
ForListDo {$(ProductNWRDRName)}
|
|
ifcontains(i) $($) in $(OEM_ABANDON_OPTIONS)
|
|
Shell $(UtilityInf), RemoveService, $($), "YES"
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
Debug-Output "OEMNSVNW.INF: ShellCode error"
|
|
goto ShellCodeError
|
|
endif
|
|
set RegistryErrorIndex = $($R0)
|
|
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
|
|
goto fatalregistry
|
|
endif
|
|
endif
|
|
EndForListDo
|
|
Shell "UTILITY.INF", DecrementRefCount, "Software\Microsoft\NWLINKIPX\CurrentVersion"
|
|
;
|
|
; Remove autoexec.nt statements
|
|
;
|
|
Set FLibraryErrCtl = 1
|
|
LibraryProcedure Result $(!NWCFG_HANDLE), RemoveSzFromFile, $(!STF_WINDOWSSYSPATH)"\autoexec.nt", "REM Install network redirector"$(LF)
|
|
LibraryProcedure Result $(!NWCFG_HANDLE), RemoveSzFromFile, $(!STF_WINDOWSSYSPATH)"\autoexec.nt", "lh %SystemRoot%\system32\nw16"$(LF)
|
|
LibraryProcedure Result $(!NWCFG_HANDLE), RemoveSzFromFile, $(!STF_WINDOWSSYSPATH)"\autoexec.nt", "lh %SystemRoot%\system32\vwipxspx"$(LF)
|
|
Set FLibraryErrCtl = 0
|
|
|
|
Shell $(UtilityInf) RemoveNetworkProvider $(ProviderName)
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
Debug-Output "OEMNSVNW.INF: ShellCode error"
|
|
goto ShellCodeError
|
|
endif
|
|
set RegistryErrorIndex = $($R0)
|
|
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
|
|
goto fatalregistry
|
|
endif
|
|
|
|
;
|
|
; Remove ShrotName
|
|
;
|
|
OpenRegKey $(!REG_H_LOCAL) "" "System\CurrentControlSet\Control\NetworkProvider\ShortName" $(MAXIMUM_ALLOWED) ShortNameKey
|
|
ifstr $(ShortNameKey) != $(KeyNull)
|
|
DeleteRegValue $(ShortNameKey) "NW"
|
|
else
|
|
;
|
|
; we must be able to open the provider key
|
|
;
|
|
debug-output "something wrong..."
|
|
endif
|
|
|
|
FreeLibrary $(!NWCFG_HANDLE)
|
|
|
|
Install "RestoreFiles"
|
|
|
|
Set FLibraryErrCtl = 1
|
|
LibraryProcedure Status1, $(!LIBHANDLE), DelFile, $(!STF_WINDOWSSYSPATH)"\nwc.bak"
|
|
LibraryProcedure Status1, $(!LIBHANDLE), DelFile, $(!STF_WINDOWSSYSPATH)"\nwapi32.bak"
|
|
LibraryProcedure Status1, $(!LIBHANDLE), RenFile, $(!STF_WINDOWSSYSPATH)"\nwc.cpl" $(!STF_WINDOWSSYSPATH)"\nwc.bak"
|
|
LibraryProcedure Status1, $(!LIBHANDLE), RenFile, $(!STF_WINDOWSSYSPATH)"\nwapi32.dll" $(!STF_WINDOWSSYSPATH)"\nwapi32.bak"
|
|
Set FLibraryErrCtl = 0
|
|
|
|
Shell "" RemoveBackupFiles
|
|
|
|
goto end
|
|
UpgradeSoftware = +
|
|
LoadLibrary "nw" $(!STF_CWDDIR)\nwcfg.dll !NWCFG_HANDLE
|
|
LibraryProcedure Result $(!NWCFG_HANDLE), GetKernelVersion
|
|
ifint *($(Result),3) > 528
|
|
Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), "NONFATAL", $(NotDaytona)
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
goto ShellCodeError
|
|
endif
|
|
goto end
|
|
endif
|
|
FreeLibrary $(!NWCFG_HANDLE)
|
|
|
|
|
|
OpenRegKey $(!REG_H_LOCAL) "" $(ProductKeyName)"\NetRules" $(MAXIMUM_ALLOWED) KeyNetRules
|
|
Ifstr $(KeyNetRules) != $(KeyNull)
|
|
GetRegValue $(KeyNetRules),"InfName", InfNameInfo
|
|
set !UG_Filename = *($(InfNameInfo), 4)
|
|
CloseRegKey $(KeyNetRules)
|
|
else
|
|
Split-String $(!NTN_Infname), "\", FilenameList
|
|
QueryListSize ListSize $(FilenameList)
|
|
set !UG_Filename = *($(FilenameList), $(ListSize))
|
|
endif
|
|
|
|
Install "Install-Update"
|
|
ifstr(i) $(STF_INSTALL_OUTCOME) != STF_SUCCESS
|
|
goto fatal
|
|
endif
|
|
|
|
set AddCopy = "YES"
|
|
set DoCopy = "YES"
|
|
install "Install-nwcfgdll"
|
|
ifstr(i) $(STF_INSTALL_OUTCOME) != STF_SUCCESS
|
|
goto fatal
|
|
endif
|
|
|
|
LoadLibrary "nw" $(!STF_CWDDIR)\nwcfg.dll !NWCFG_HANDLE
|
|
|
|
OpenRegKey $(!REG_H_LOCAL) "" $(ProductKeyName) $(MAXIMUM_ALLOWED) KeyProduct
|
|
|
|
Ifstr $(KeyProduct) != $(KeyNull)
|
|
CloseRegKey $(KeyProduct)
|
|
|
|
;
|
|
; Check whether we are update beta 1 or beta 2.
|
|
; Beta 2 will have a Performance key under \nwcworkstation\parameters
|
|
;
|
|
OpenRegKey $(!REG_H_LOCAL) "" $(!NTN_ServiceBase)"\Nwrdr\Performance" $(MAXIMUM_ALLOWED) KeyPerformance
|
|
|
|
Ifstr $(KeyPerformance) != $(KeyNull)
|
|
;
|
|
; We are upgrading beta 2. Do nothing
|
|
;
|
|
CloseRegKey $(KeyPerformance)
|
|
|
|
Set FLibraryErrCtl = 1
|
|
LibraryProcedure Result $(!NWCFG_HANDLE), DeleteGatewayPassword
|
|
Set FLibraryErrCtl = 0
|
|
|
|
LibraryProcedure Result $(!NWCFG_HANDLE), GetKernelVersion
|
|
ifint *($(Result),3) < 529
|
|
Set FLibraryErrCtl = 1
|
|
LibraryProcedure STATUS $(!NWCFG_HANDLE), unlodctr nwrdr
|
|
LibraryProcedure STATUS $(!NWCFG_HANDLE), lodctr $(!STF_WINDOWSSYSPATH)\nwperf.ini
|
|
Set FLibraryErrCtl = 0
|
|
endif
|
|
|
|
else
|
|
;
|
|
; We are upgrading beta 1. Do the followings:
|
|
; 1. Add SetFileSysChangeValue call out.
|
|
; 2. Add "vwipxspx" to autoexec.nt
|
|
; 3. Add Performance stuff
|
|
; 4. Add lodctr
|
|
; 5. Change the provider device name
|
|
; 6. rename novell.cpl
|
|
; 7. Add WOW's known DLL
|
|
; 8. Add EnableShareNetDrivers
|
|
; 9. Change name
|
|
; 10. Change class type
|
|
;
|
|
|
|
;
|
|
; Do 1. Add SetFileSysChangeValue
|
|
;
|
|
LibraryProcedure Result $(!NWCFG_HANDLE), SetFileSysChangeValue
|
|
|
|
; Do 2. Remove autoexec.nt statements
|
|
;
|
|
Set FLibraryErrCtl = 1
|
|
LibraryProcedure Result $(!NWCFG_HANDLE), RemoveSzFromFile, $(!STF_WINDOWSSYSPATH)"\autoexec.nt", "REM Install network redirector"$(LF)
|
|
LibraryProcedure Result $(!NWCFG_HANDLE), RemoveSzFromFile, $(!STF_WINDOWSSYSPATH)"\autoexec.nt", "lh %SystemRoot%\system32\nw16"$(LF)
|
|
LibraryProcedure Result $(!NWCFG_HANDLE), RemoveSzFromFile, $(!STF_WINDOWSSYSPATH)"\autoexec.nt", "lh %SystemRoot%\system32\vwipxspx"$(LF)
|
|
;
|
|
; Setup string in autoexec.nt
|
|
;
|
|
LibraryProcedure Result $(!NWCFG_HANDLE), AppendSzToFile, $(!STF_WINDOWSSYSPATH)"\autoexec.nt", "REM Install network redirector"$(CR)$(LF)
|
|
LibraryProcedure Result $(!NWCFG_HANDLE), AppendSzToFile, $(!STF_WINDOWSSYSPATH)"\autoexec.nt", "lh %SystemRoot%\system32\nw16"$(CR)$(LF)
|
|
LibraryProcedure Result $(!NWCFG_HANDLE), AppendSzToFile, $(!STF_WINDOWSSYSPATH)"\autoexec.nt", "lh %SystemRoot%\system32\vwipxspx"$(CR)$(LF)
|
|
Set FLibraryErrCtl = 0
|
|
|
|
;
|
|
; Do 3. Add performance stuff
|
|
;
|
|
OpenRegKey $(!REG_H_LOCAL) "" $(!NTN_ServiceBase)"\nwrdr" $(MAXIMUM_ALLOWED) KeyNwrdr
|
|
CreateRegKey $(KeyNwrdr) {"Performance",$(NoTitle),GenericClass} "" +
|
|
$(MAXIMUM_ALLOWED) "" KeyPerformance
|
|
|
|
set NewValueList = {{Library,$(NoTitle),$(!REG_VT_SZ),"Perfnw.dll"},+
|
|
{Open,$(NoTitle),$(!REG_VT_SZ),"OpenNetWarePerformanceData"},+
|
|
{Collect,$(NoTitle),$(!REG_VT_SZ),"CollectNetWarePerformanceData"},+
|
|
{Close,$(NoTitle),$(!REG_VT_SZ),"CloseNetWarePerformanceData"}}
|
|
|
|
Shell $(UtilityInf), AddValueList, $(KeyPerformance), $(NewValueList)
|
|
|
|
set RegistryErrorIndex = $($R0)
|
|
|
|
CloseRegKey $(KeyPerformance)
|
|
CloseRegKey $(KeyNwrdr)
|
|
|
|
;
|
|
; Do 4. Add lodctr
|
|
;
|
|
|
|
LibraryProcedure Result $(!NWCFG_HANDLE), GetKernelVersion
|
|
ifint *($(Result),3) < 529
|
|
Set FLibraryErrCtl = 1
|
|
LibraryProcedure STATUS $(!NWCFG_HANDLE), lodctr $(!STF_WINDOWSSYSPATH)\nwperf.ini
|
|
; Ignore the error code for now
|
|
Set FLibraryErrCtl = 0
|
|
endif
|
|
|
|
Ifstr(i) $(RegistryErrorIndex) != NO_ERROR
|
|
EndWait
|
|
Debug-Output "OEMNSVNW.INF: Registry error: add performance information"
|
|
goto fatalregistry
|
|
endif
|
|
|
|
;
|
|
; Do 6. rename novell.cpl
|
|
;
|
|
LibraryProcedure Status1, $(!LIBHANDLE), CheckFileExistance, $(!STF_WINDOWSSYSPATH)"\novell.cpl"
|
|
ifstr(i) $(Status1) == "YES"
|
|
LibraryProcedure Status2, $(!LIBHANDLE), RenFile, $(!STF_WINDOWSSYSPATH)"\novell.cpl", $(!STF_WINDOWSSYSPATH)"\novell.bak"
|
|
endif
|
|
|
|
;
|
|
; Do 7. Add WOW's known DLL
|
|
;
|
|
|
|
OpenRegKey $(!REG_H_LOCAL) "" "System\CurrentControlSet\Control\WOW" $(MAXIMUM_ALLOWED) WowKey
|
|
ifstr(i) $(WowKey) != ""
|
|
GetRegValue $(WowKey),"KnownDLLS", KnownDLLsInfo
|
|
Split-String *($(KnownDLLsInfo),4), " ", KnownDLLsList
|
|
Ifcontains(i) "netware.drv" not-in $(KnownDLLsList)
|
|
ifstr(i) *($(KnownDLLsInfo),4) == ""
|
|
set KnownDLLs = "netware.drv"
|
|
else
|
|
set KnownDLLs = *($(KnownDLLsInfo),4)" netware.drv"
|
|
endif
|
|
SetRegValue $(WowKey) {"KnownDLLS",$(NoTitle),$(!REG_VT_SZ),$(KnownDLLs)}
|
|
endif
|
|
CloseRegKey $(WowKey)
|
|
endif
|
|
endif
|
|
endif
|
|
|
|
;
|
|
; Do 5. Change the provider device name
|
|
;
|
|
OpenRegKey $(!REG_H_LOCAL) "" "System\CurrentControlSet\Services\NWCWorkstation\networkprovider" $(MAXIMUM_ALLOWED) ProviderKey
|
|
ifstr(i) $(ProviderKey) != ""
|
|
SetRegValue $(ProviderKey) {Devicename,$(NoTitle),$(!REG_VT_SZ),"\device\nwrdr"}
|
|
SetRegValue $(ProviderKey) {Name,$(NoTitle),$(!REG_VT_SZ),$(ProductProviderName)}
|
|
CloseRegKey $(ProviderKey)
|
|
endif
|
|
|
|
;
|
|
; Do 8. Add EnableShareNetDrivers
|
|
;
|
|
OpenRegKey $(!REG_H_LOCAL) "" "System\CurrentControlSet\Services\LanmanServer\Parameters" $(MAXIMUM_ALLOWED) ServerParmKey
|
|
ifstr(i) $(ServerParmKey) != ""
|
|
SetRegValue $(ServerParmKey) {"EnableSharedNetDrives",$(NoTitle),$(!REG_VT_DWORD),1}
|
|
CloseRegKey $(ServerParmKey)
|
|
endif
|
|
|
|
;
|
|
; do 9. Change name
|
|
;
|
|
OpenRegKey $(!REG_H_LOCAL) "" "Software\Microsoft\NWCWorkstation\CurrentVersion" $(MAXIMUM_ALLOWED) CurrentVersionKey
|
|
ifstr(i) $(CurrentVersionKey) != ""
|
|
SetRegValue $(CurrentVersionKey) {"Description",$(NoTitle),$(!REG_VT_SZ),$(NWType)}
|
|
SetRegValue $(CurrentVersionKey) {"Title",$(NoTitle),$(!REG_VT_SZ),$(NWType)}
|
|
CloseRegKey $(CurrentVersionKey)
|
|
endif
|
|
|
|
OpenRegKey $(!REG_H_LOCAL) "" "System\CurrentControlSet\Services\NWCWorkstation" $(MAXIMUM_ALLOWED) nwcKey
|
|
ifstr(i) $(nwcKey) != ""
|
|
SetRegValue $(nwcKey) {"DisplayName",$(NoTitle),$(!REG_VT_SZ),$(NWType)}
|
|
CloseRegKey $(nwcKey)
|
|
endif
|
|
|
|
Set FLibraryErrCtl = 1
|
|
OpenRegKey $(!REG_H_LOCAL) "" "System\CurrentControlSet\Control\Print\Providers" $(MAXIMUM_ALLOWED) PrintProviderKey
|
|
ifstr(i) $(PrintProviderKey) != ""
|
|
GetRegValue $(PrintProviderKey) "Order" OrderInfo
|
|
ifcontains(i) $(OldPrintProviderName) in *($(OrderInfo),4)
|
|
; spool is not started
|
|
|
|
DeleteRegKey $(PrintProviderKey) $(OldPrintProviderName)
|
|
OpenRegKey $(PrintProviderKey) "" $(ProductProviderName) $(MAXIMUM_ALLOWED) ProductProviderKey
|
|
ifstr $(ProductProviderKey) == $(KeyNull)
|
|
CreateRegKey $(PrintProviderKey) {$(ProductProviderName),$(NoTitle),GenericClass} "" $(MAXIMUM_ALLOWED) "" ProductProviderKey
|
|
endif
|
|
ifstr $(ProductProviderKey) != $(KeyNull)
|
|
SetRegValue $(ProductProviderKey) {"Name",$(NoTitle),$(!REG_VT_SZ),"nwprovau.dll"}
|
|
endif
|
|
|
|
;
|
|
; Change it to top provider
|
|
;
|
|
OpenRegKey $(!REG_H_LOCAL) "" "System\CurrentControlSet\Control\Print\Providers" $(MAXIMUM_ALLOWED) PrintProviderKey
|
|
Ifstr $(PrintProviderKey) != $(KeyNull)
|
|
GetRegValue $(PrintProviderKey),"Order",OrderInfo
|
|
set OrderList = *($(OrderInfo),4)
|
|
set NewOrderList = {$(ProductProviderName)}
|
|
ForListDo $(OrderList)
|
|
ifstr(i) $($) != $(OldPrintProviderName)
|
|
ifstr(i) $($) != $(ProductProviderName)
|
|
set NewOrderList = >($(NewOrderList),$($))
|
|
endif
|
|
endif
|
|
EndForListDo
|
|
SetRegValue $(PrintProviderKey) {"Order",$(NoTitle),$(!REG_VT_MULTI_SZ),$(NewOrderList)}
|
|
CloseRegKey $(PrintProviderKey)
|
|
endif
|
|
endif
|
|
endif
|
|
Set FLibraryErrCtl = 0
|
|
|
|
Shell "" AddShortName
|
|
|
|
FreeLibrary $(!NWCFG_HANDLE)
|
|
|
|
goto end
|
|
successful = +
|
|
goto end
|
|
warning = +
|
|
Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), "WARNING", $(Error)
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
goto ShellCodeError
|
|
endif
|
|
ifstr(i) $($R1) == "OK"
|
|
goto $(to)
|
|
else-ifstr(i) $($R1) == "CANCEL"
|
|
goto $(from)
|
|
else
|
|
goto end
|
|
endif
|
|
nonfatalinfo = +
|
|
Set CommonStatus = STATUS_USERCANCEL
|
|
Set Severity = STATUS
|
|
goto nonfatalmsg
|
|
nonfatal = +
|
|
Set Severity = NONFATAL
|
|
goto nonfatalmsg
|
|
nonfatalmsg = +
|
|
ifstr(i) $(Error) == ""
|
|
Set Severity = NONFATAL
|
|
Shell $(UtilityInf) RegistryErrorString "SETUP_FAIL"
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
goto ShellCodeError
|
|
endif
|
|
set Error = $($R0)
|
|
endif
|
|
Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), $(Severity), $(Error)
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
goto ShellCodeError
|
|
endif
|
|
ifstr(i) $($R1) == "OK"
|
|
goto $(from)
|
|
else
|
|
goto "end"
|
|
endif
|
|
fatalregistry = +
|
|
Shell $(UtilityInf) RegistryErrorString $(RegistryErrorIndex)
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
goto ShellCodeError
|
|
endif
|
|
set Error = $($R0)
|
|
goto fatal
|
|
fatal = +
|
|
ifstr(i) $(Error) == ""
|
|
Shell $(UtilityInf) RegistryErrorString "SETUP_FAIL"
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
goto ShellCodeError
|
|
endif
|
|
set Error = $($R0)
|
|
endif
|
|
Shell $(subroutineinf) SetupMessage, $(!STF_LANGUAGE), "FATAL", $(Error)
|
|
ifint $($ShellCode) != $(!SHELL_CODE_OK)
|
|
goto ShellCodeError
|
|
endif
|
|
goto setfailed
|
|
ShellCodeError = +
|
|
set DlgType = "MessageBox"
|
|
set STF_MB_TITLE = "Error: "$(FunctionTitle)
|
|
set STF_MB_TEXT = $(ShellCodeErrorText)
|
|
set STF_MB_TYPE = 1
|
|
set STF_MB_ICON = 3
|
|
set STF_MB_DEF = 1
|
|
ui start "Error Message"
|
|
goto setfailed
|
|
setfailed = +
|
|
set CommonStatus = STATUS_FAILED
|
|
ifstr(i) $(OEM_ABANDON_ON) == TRUE
|
|
set OEM_ABANDON_ON = FALSE
|
|
goto removeadapter
|
|
endif
|
|
goto end
|
|
end = +
|
|
goto term
|
|
term = +
|
|
Return $(CommonStatus)
|
|
[RestoreFiles]
|
|
AddSectionFilesToCopyList Restore-Oldexe $(!STF_WINDOWSSYSPATH) $(!STF_WINDOWSSYSPATH)
|
|
AddSectionFilesToCopyList Restore-Oldsys $(!STF_WINDOWSSYSPATH)\drivers $(!STF_WINDOWSSYSPATH)\drivers
|
|
set !STF_NCPA_FLUSH_COPYLIST = TRUE
|
|
CopyFilesInCopyList
|
|
Exit
|
|
[Install-nwcfgdll]
|
|
set STF_VITAL = ""
|
|
ifstr(i) $(AddCopy) == "YES"
|
|
AddSectionFilesToCopyList Files-nwcfgdll $(SrcDir) $(!STF_WINDOWSSYSPATH)
|
|
endif
|
|
ifstr(i) $(DoCopy) == "YES"
|
|
set !STF_NCPA_FLUSH_COPYLIST = TRUE
|
|
CopyFilesInCopyList
|
|
endif
|
|
Exit
|
|
[Install-Option]
|
|
set STF_VITAL = ""
|
|
ifstr(i) $(AddCopy) == "YES"
|
|
AddSectionFilesToCopyList Files-$(Option) $(SrcDir) $(!STF_WINDOWSSYSPATH)
|
|
AddSectionFilesToCopyList Files-Drivers $(SrcDir) $(!STF_WINDOWSSYSPATH)\drivers
|
|
ifstr(i) $(!STF_PRODUCT) == "WINNT"
|
|
AddSectionFilesToCopyList Files-WINNTHelp $(SrcDir) $(!STF_WINDOWSSYSPATH)
|
|
else
|
|
AddSectionFilesToCopyList Files-NTASHelp $(SrcDir) $(!STF_WINDOWSSYSPATH)
|
|
endif
|
|
endif
|
|
ifstr(i) $(DoCopy) == "YES"
|
|
set !STF_NCPA_FLUSH_COPYLIST = TRUE
|
|
CopyFilesInCopyList
|
|
endif
|
|
ifstr(i) $(DoConfig) == "YES"
|
|
endif
|
|
Exit
|
|
[Install-Update]
|
|
set STF_VITAL = ""
|
|
AddSectionFilesToCopyList Files-$(Option) $(SrcDir) $(!STF_WINDOWSSYSPATH)
|
|
AddSectionFilesToCopyList Files-Drivers $(SrcDir) $(!STF_WINDOWSSYSPATH)\drivers
|
|
AddSectionFilesToCopyList Files-Inf $(SrcDir) $(!STF_WINDOWSSYSPATH)
|
|
ifstr(i) $(!STF_PRODUCT) == "WINNT"
|
|
AddSectionFilesToCopyList Files-WINNTHelp $(SrcDir) $(!STF_WINDOWSSYSPATH)
|
|
else
|
|
AddSectionFilesToCopyList Files-NTASHelp $(SrcDir) $(!STF_WINDOWSSYSPATH)
|
|
endif
|
|
set !STF_NCPA_FLUSH_COPYLIST = TRUE
|
|
CopyFilesInCopyList
|
|
Exit
|
|
|
|
[AddShortName]
|
|
read-syms GeneralConstants
|
|
read-syms FileConstants
|
|
read-syms FileConstants$(!STF_LANGUAGE)
|
|
;
|
|
; Create Short name
|
|
;
|
|
OpenRegKey $(!REG_H_LOCAL) "" "System\CurrentControlSet\Control\NetworkProvider" $(MAXIMUM_ALLOWED) NetProviderKey
|
|
ifstr $(NetProviderKey) != $(KeyNull)
|
|
OpenRegKey $(NetProviderKey) "" "ShortName" $(MAXIMUM_ALLOWED) ShortNameKey
|
|
ifstr $(ShortNameKey) == $(KeyNull)
|
|
;
|
|
; Create short key if we cannot open it
|
|
;
|
|
CreateRegKey $(NetProviderKey) {"ShortName",$(NoTitle),GenericClass} "" $(MAXIMUM_ALLOWED) "" ShortNameKey
|
|
endif
|
|
ifstr $(ShortNameKey) != $(KeyNull)
|
|
SetRegValue $(ShortNameKey) {"NW",$(NoTitle),$(!REG_VT_SZ),$(ProductProviderName)}
|
|
endif
|
|
else
|
|
;
|
|
; we must be able to open the provider key
|
|
;
|
|
debug-output "something wrong..."
|
|
endif
|
|
|
|
return
|
|
|
|
[AddParameterKey]
|
|
read-syms GeneralConstants
|
|
set SoftParameterKey = $($0)
|
|
CreateRegKey $(SoftParameterKey) {"Logon",$(NoTitle),GenericClass} "" $(MAXIMUM_ALLOWED) "" LogonKey
|
|
CreateRegKey $(SoftParameterKey) {"Option",$(NoTitle),GenericClass} "" $(MAXIMUM_ALLOWED) "" OptionKey
|
|
|
|
Set FLibraryErrCtl = 1
|
|
;
|
|
; 2 is the equal to SetValue
|
|
;
|
|
LibraryProcedure Result $(!NWCFG_HANDLE), SetEverybodyPermission, $(OptionKey), 2
|
|
Set FLibraryErrCtl = 0
|
|
|
|
CloseRegKey $(LogonKey)
|
|
CloseRegKey $(OptionKey)
|
|
|
|
Return
|
|
|
|
[GetFilesSize]
|
|
set FileSizeList = >(^(Files-Drivers,3),^(Files-NWWKSTA,3))
|
|
set TotalSize = 0
|
|
ForListDo $(FileSizeList)
|
|
ForListDo $($)
|
|
Debug-Output $($)
|
|
Split-String $($) "=" SplitString
|
|
set Size = *($(SplitString),3)
|
|
set-add TotalSize = $(TotalSize) $(Size)
|
|
EndForListDo
|
|
EndForListDo
|
|
set-div SizeInK = $(TotalSize) 1024
|
|
return $(SizeInK)
|
|
|
|
[Files-Inf]
|
|
1, oemsetup.inf, SIZE=1000, RENAME=$(!UG_Filename)
|