able/windows-nt
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity
windows-nt/Source/XPSP1/NT/base/ntsetup/inf/beta/cairo.inf

1139 lines
38 KiB
INI
Raw Normal View History

Add source files
2020-09-26 03:20:57 -05:00
;
; Cairo.INF
;
;
; Temporary INF file where all Cairo-specific setup commands live.
;
;
[DoCairoInitialization]
set InitializationStatus = STATUS_SUCCESSFUL
;
; CAIRO BUGBUG: Initialize Cairo SCM
;
; Set PushDebugLevel = !G:DebugOutputControl
; set !G:DebugOutputControl = DebugCairoSteps
ifstr(i) $(!STF_PRODUCT) != "WINNT"
shell "cairo.inf" GetDrive
ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
Debug-Output "NTCAIRO.INF: Failed to get OFS drive"
read-syms FatalError20$(!STF_LANGUAGE)
shell "subroutn.inf" SetupMessage $(!STF_LANGUAGE) "FATAL" $(Fatal)
; goto setupnotdone
set InitializationStatus = STATUS_FAILED
Return $(InitializationStatus)
Endif
Debug-Output "CAIRO.INF: Starting RecOM/OFS"
;
; CAIRO BUGBUG: variable made public
;
Set !ObjDrive = $($R1)
shell "cairo.inf" RegSetEnvVar "CairoDrv" $(!ObjDrive)
Debug-Output "NTCAIRO.INF: ObjDrive = "$(!ObjDrive)
;
; Remove the label from the drive so that format.com won't ask for it
;
Debug-Output "NTCAIRO.INF: running label.exe"
RunProgram RC "" "" $(!STF_WINDOWSSYSPATH)"\cmd.exe" /c $(!STF_WINDOWSSYSPATH)"\cmd.exe" /c $(!STF_WINDOWSSYSPATH)"\remlabel.cmd" $(!ObjDrive)
Debug-Output "NTCAIRO.INF: label returned "$(RC)
Shell "subroutn.inf" PushBillboard NETSTATUSDLG "Running format on "$(!ObjDrive)
RunProgram RC "" "" $(!STF_WINDOWSSYSPATH)"\format.com" $(!ObjDrive) /fs:ofs /q
Debug-Output "NTCAIRO.INF: Format returned "$(RC)
Install Install-Create-Cairo-Dir
Debug-Output "NTCAIRO.INF: Created directory "$(!ObjDrive)"\cairo"
LoadLibrary "x" $(!STF_CWDDIR)setupdll.dll TMPHANDLE
LibraryProcedure STATUS, $(TMPHANDLE), Delnode $(!ObjDrive)"\cairo\ds"
FreeLibrary $(TMPHANDLE)
Shell "subroutn.inf" PopBillboard
Debug-Output "NTCAIRO.INF: Setting OLE to autostart"
; Moved to somewhere else
; shell "registry.inf" ModifyServicesEntry "OLE" $(!SERVICE_AUTO_START)
; shell "registry.inf" ModifyServicesEntry "CiFilter" $(!SERVICE_AUTO_START)
; set !G:DebugOutputControl = PushDebugLevel
else
Set !ObjDrive = $(!STF_NTDRIVE)
Debug-Output "NTCAIRO.INF: ObjDrive = "$(!ObjDrive)
shell "cairo.inf" RegSetEnvVar "CairoDrv" $(!ObjDrive)
endif
Debug-Output "NTCAIRO.INF: Initializing Cairo file"
ifstr(i) $(!STF_NTPATH) == ""
Debug-Output "!STF_NTPATH is NULL? "$(!STF_NTPATH)
ifstr(i) $(!STF_WINDOWSPATH) == ""
Debug-Output "WINDOWSPATH is NULL, too? "$(!STF_WINDOWSPATH)
Else
set CairoInstFile = $(!STF_WINDOWSPATH)"\CairoStd.ini"
Endif
Else
set CairoInstFile = $(!STF_WINDOWSPATH)"\CairoStd.ini"
Endif
Debug-Output "NTCAIRO.INF: CairoInstFile set to: "$(CairoInstFile)
shell "cairo.inf" UpdateCairoIniFile $(CairoInstFile) "Key" "Value"
Debug-Output "NTCAIRO.INF: UpdateCairoInitFile returned "$($R0)
shell "cairo.inf" UpdateCairoIniFile $(CairoInstFile) "ObjDrive" $(!ObjDrive)
Return $(InitializationStatus)
[GetCairoParams]
set GetCairoParamsStatus = STATUS_FAILED
; set PushDebugLevel = !G:DebugOutputControl
; set !G:DebugOutputControl = DebugCairoSteps
Debug-Output "NTCAIRO.INF: Getting uplevel password"
; shell "cairo.inf" GetDomainPassword
; ifstr(i) $($R0) == "STATUS_SUCCESSFUL"
; Set CairoDomainPassword = $($R1)
; else-ifstr(i) $($R0) == "STATUS_USE_DOWNLEVEL"
; Set CairoDomainPassword = $(!STF_PASSWORD)
; else
; goto SetupNotDone
; Endif
Set !CairoDomainPassword = $(!STF_USERNAME)
Debug-Output "NTCAIRO.INF: uplevel PW ="$(!CairoDomainPassword)
Debug-Output "NTCAIRO.INF: Get Installation type"
shell "cairo.inf" GetCairoInstallType
ifstr(i) $($R0) == "STATUS_SUCCESSFUL"
set !STF_DOMAIN_ROLE = $($R1)
ifstr(i) $(!STF_PRODUCT) != "WINNT"
ifstr(i) $(!STF_DOMAIN_ROLE) == "DC"
set !STF_PRODUCT = "LANMANNT"
else
set !STF_PRODUCT = "SERVERNT"
endif
endif
else
goto endGetCairoParams
Endif
ifstr(i) $(!STF_DOMAIN_ROLE) == "DC"
;
; Get DC type
shell "cairo.inf" GetDCType
ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
goto endGetCairoParams
endif
ifstr $($R1) == ""
goto endGetCairoParams
else
;
; CAIRO BUGBUG: Variable made public
;
set !DCType = $($R1)
endif
Debug-Output "NTCAIRO.INF: DC type is "$(!DCType)"."
Endif
ifstr(i) $(!STF_DOMAIN_ROLE) != STANDALONE
Debug-Output "NTCAIRO.INF: Not standalone, so setting up domain"
;
; CAIRO BUGBUG: variable made global
;
Set !AccountFile = $(!STF_WINDOWSSYSPATH)"\accounts.inf"
Debug-Output "NTCAIRO.INF: Account file "$(!AccountFile)
; shell $(!AccountFile) setup $(!STF_USERNAME)
shell "cairo.inf" GetCairoDomainAndOuLists
; ifint $($ShellCode) != $(!SHELL_CODE_OK)
; shell "cairo.inf" MsgBox "File: "$(!AccountFile)" is missing."+
; "User's DomainName must be entered manually"
; else-ifstr(i) $($R0) != STATUS_SUCCESSFUL
; shell "cairo.inf" MsgBox "Error: "+$($R0)" Accessing: "+$(!AccountFile)+
; "User's DomainName must be entered manually"
; else
;
; CAIRO BUGBUG: variable made public
;
set !CairoDomainList = $($R1)
set !CairoOuList = $($R2)
Debug-Output "NTCAIRO.INF: CairoDomainList = "$(!CairoDomainList)
Debug-Output "NTCAIRO.INF: CairoOuList = "$(!CairoOuList)
; endif
shell "cairo.inf" GetCairoDomainPath $(!CairoDomainList) $(!CairoOuList)
ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
goto endGetCairoParams
endif
;
; CAIRO BUGBUG: variable made public
;
set !CairoDomainName = $($R1)
set !CairoOuName = $($R2)
Debug-Output "NTCAIRO.INF: CairoDomainName = "$(!CairoDomainName)
Debug-Output "NTCAIRO.INF: CairoOuName = "$(!CairoOuName)
ifstr $(!CairoDomainName) == ""
shell "cairo.inf" ErrMsg "Network domain not set! Aborting setup."
goto endGetCairoParams
endif
; Debug-Output "NTCAIRO.INF: setting workgroup from "$(CairoDomainName)
; RunProgram RC "" "" $(!STF_WINDOWSSYSPATH)"\SetDom.exe" $(CairoDomainName)
Endif
; set !G:DebugOutputControl = PushDebugLevel
set GetCairoParamsStatus = STATUS_SUCCESSFUL
endGetCairoParams = +
; Return $(GetCairoParamsStatus)
;[DoCairoSetup]
read-syms GeneralConstants
; read-syms BaseGeneralConstants
;
;
;
; LoadLibrary "x" $(!STF_CWDDIR)\ncpa.cpl NCPAHANDLE
; LibraryProcedure NCPA_RESULT $(NCPAHANDLE), CPlSetup $(!STF_HWND),+
; STARTSVC, "OLE"
; FreeLibrary $(NCPAHANDLE)
set DoCairoSetupStatus = STATUS_FAILED
; set PushDebugLevel = !G:DebugOutputControl
; set !G:DebugOutputControl = DebugCairoSteps
Debug-Output "NTCAIRO.INF: Disabling Netlogon"
LoadLibrary "x" $(!STF_CWDDIR)setupdll.dll TMPHANDLE
LibraryProcedure DontCare, $(TMPHANDLE), SetupChangeServiceConfig, NetLogon,+
$(SERVICE_NO_CHANGE), 3, $(SERVICE_NO_CHANGE), "", "", "", "", "", ""
FreeLibrary $(TMPHANDLE)
Debug-Output "NTCAIRO.INF: Initializing Cairo file"
ifstr(i) $(!STF_NTPATH) == ""
Debug-Output "!STF_NTPATH is NULL? "$(!STF_NTPATH)
ifstr(i) $(!STF_WINDOWSPATH) == ""
Debug-Output "WINDOWSPATH is NULL, too? "$(!STF_WINDOWSPATH)
Else
set CairoInstFile = $(!STF_WINDOWSPATH)"\CairoStd.ini"
Endif
Else
set CairoInstFile = $(!STF_WINDOWSPATH)"\CairoStd.ini"
Endif
Debug-Output "NTCAIRO.INF: CairoInstFile set to: "$(CairoInstFile)
; shell "cairo.inf" UpdateCairoIniFile $(CairoInstFile) "Key" "Value"
; Debug-Output "NTCAIRO.INF: UpdateCairoInitFile returned "$($R0)
shell "cairo.inf" UpdateCairoIniFile $(CairoInstFile) "InstallType" $(!STF_DOMAIN_ROLE)
shell "cairo.inf" UpdateCairoIniFile $(CairoInstFile) "UserName" $(!STF_USERNAME)
shell "cairo.inf" UpdateCairoIniFile $(CairoInstFile) "DomainPassword" $(!CairoDomainPassword)
shell "cairo.inf" UpdateCairoIniFile $(CairoInstFile) "MachineName" $(!STF_COMPUTERNAME)
shell "cairo.inf" UpdateCairoIniFile $(CairoInstFile) "MachinePassword" $(!STF_COMPUTERNAME)
shell "cairo.inf" UpdateCairoIniFile $(CairoInstFile) "MachineAddress" $(!STF_COMPUTERNAME)
; shell "cairo.inf" UpdateCairoIniFile $(CairoInstFile) "ObjDrive" $(!ObjDrive)
shell "cairo.inf" UpdateCairoIniFile $(CairoInstFile) "InstallDir" "Cairo"
shell "cairo.inf" UpdateCairoIniFile $(CairoInstFile) "DownlevelPassword" $(!STF_PASSWORD)
shell "cairo.inf" UpdateCairoIniFile $(CairoInstFile) "DownlevelDomain" $(!STF_NTDOMAIN)
Debug-Output "NTCAIRO.INF: Setup Installtype, Username, etc."
ifstr(i) $(!STF_DOMAIN_ROLE) != STANDALONE
shell "cairo.inf" UpdateCairoIniFile $(CairoInstFile) "CairoDomainName" $(!CairoDomainName)
shell "cairo.inf" UpdateCairoIniFile $(CairoInstFile) "OuName" $(!CairoOuName)
Endif
ifstr $(!STF_DOMAIN_ROLE) == "DC"
shell "cairo.inf" UpdateCairoIniFile $(CairoInstFile) "AdminGroupName" "AdminGroup"
shell "cairo.inf" UpdateCairoIniFile $(CairoInstFile) "BackupGroupName" "BackupGroup"
shell "cairo.inf" UpdateCairoIniFile $(CairoInstFile) "DCType" $(!DCType)
endif
Debug-Output "NTCAIRO.INF: running cairostd.exe"
Shell "subroutn.inf" PushBillboard NETSTATUSDLG "Setting up base cairo "
RunProgram RC "" "" $(!STF_WINDOWSSYSPATH)"\cairostd.exe" $(CairoInstFile)
Shell "subroutn.inf" PopBillboard
Debug-Output "cairostd.exe returned "$(RC)
ifint $(RC) != 0
shell "cairo.inf" MsgBox "Standalone returned "$(RC).
goto CairoSetupNotDone
endif
; RunProgram RC "" "" $(!STF_WINDOWSSYSPATH)"\credini.exe" -u $(!STF_USERNAME) -p ""$(!STF_PASSWORD)""
;
; ifstr(i) $(!STF_DOMAIN_ROLE) == STANDALONE
; set Status = STATUS_SUCCESS
; goto CairoSetupOuttaHere
; EndIf
set DoReplicatedDC = 0
ifstr(i) $(!STF_DOMAIN_ROLE) == SERVER
set DoJoinDom = 1
set DoMakeDc = 0
Endif
ifstr(i) $(!STF_DOMAIN_ROLE) == WORKSTATION
set DoJoinDom = 1
set DoMakeDc = 0
EndIf
ifstr(i) $(!STF_DOMAIN_ROLE) == DC
ifcontains(i) $(!DCType) in {FirstDC}
set DoJoinDom = 0
set DoMakeDc = 1
Else
; should be one of {ReplicaDC}
set DoJoinDom = 1
set DoMakeDc = 1
set DoReplicatedDC = 1
Endif
Endif
ifint $(DoJoinDom) == 1
Debug-Output "NTCAIRO.INF: Trying to join domain "$(!CairoDomainName)
Shell "subroutn.inf" PushBillboard NETSTATUSDLG "Setting up a Workstation...."
RunProgram RC "" "" $(!STF_WINDOWSSYSPATH)"\joindom.exe" $(CairoInstFile)
shell "subroutn.inf" PopBillboard
ifint $(RC) != 0
ifint $(RC) == 8
shell "cairo.inf" MsgBox "Workstation Setup Failed. "+
"This machine has no account on the DC. "+
"Standalone Cairo is installed, but you will need to "+
"run joindom once you have an account."
else
shell "cairo.inf" MsgBox "Standalone Cairo is installed, "+
"but Workstation Setup failed. joindom returned "$(RC).
endif
goto CairoSetupDone
endif
Endif
ifint $(DoMakeDc) == 1
Debug-Output "NTCAIRO.INF: Running makedc (run for cover)"
Shell "subroutn.inf" PushBillboard NETSTATUSDLG "Setting up a DC..."
RunProgram RC "" "" $(!STF_WINDOWSSYSPATH)"\makedc.exe" $(CairoInstFile)
Shell "subroutn.inf" PopBillboard
ifint $(RC) != 0
shell "cairo.inf" MsgBox "MakeDC failed with error "$(RC)
goto CairoSetupOuttaHere
Endif
; ifstr(i) $(!STF_DOMAIN_ROLE) == "DC"
; RunProgram RC "" "" $(!STF_WINDOWSSYSPATH)"\SetDom.exe" -sid $(CairoDomainName)
; endif
ifint $(DoReplicatedDC) == 0
Shell "subroutn.inf" PushBillboard NETSTATUSDLG "Creating account objects..."
; RunProgram RC "" "" $(!STF_WINDOWSSYSPATH)"\dsmgr.exe" -file $(!AccountFile)
Shell "subroutn.inf" PopBillboard
ifint $(RC) != 0
shell "cairo.inf" MsgBox "DSMgr failed with error "$(RC)
goto CairoSetupOuttaHere
Endif
ifstr(i) $(!CairoDomainName) == "\msft"
RunProgram RC "" "" $(!STF_WINDOWSSYSPATH)"\cmd.exe" /c $(!STF_WINDOWSSYSPATH)\mountdl.cmd
Endif
Endif
; Create the global catalog
;
; SKIP creating the Global Catalog until the new summary catalog
; support catches up
;
; Shell "subroutn.inf" PushBillboard NETSTATUSDLG "Creating global catalog..."
;
; RunProgram RC "" "" $(!STF_WINDOWSSYSPATH)"\gcconfig.exe" -configure
; Shell "subroutn.inf" PopBillboard
;
; We don't carre about error condition. gcconfig.exe will take care of it
;
; ifint $(RC) != 0
; shell "cairo.inf" MsgBox "GCConfig failed with error "$(RC)
; goto CairoSetupOuttaHere
; Endif
Endif
CairoSetupDone = +
;
; setup alert system service
;
shell "cairo.inf" DoAlertSystemSetup
CairoSetupOuttaHere = +
set DoCairoSetupStatus = STATUS_SUCCESSFUL
Return $(DoCairoSetupStatus)
; goto $(retaddr)
CairoSetupNotDone = +
Return $(DoCairoSetupStatus)
[DoCairoSetup]
Return STATUS_SUCCESSFUL
[Install-Create-Cairo-Dir]
set STF_VITAL = ""
CreateDir $(!ObjDrive)"\cairo"
exit
[GeneralConstants]
Exit_Code = 0
BillboardVisible = 0
;
; Return codes; Exit_Code is set to one of these
;
ExitCodeOk = 0
ExitCodeCancel = 1
ExitCodeFatal = 2
;
; Program flow control variables.
;
retaddr = ""
callresult = 0
from = ""
to = ""
;
; Location of netcard product information
;
NetworkCardKeyName = $(!NTN_SoftwareBase)"\Microsoft\Windows NT\CurrentVersion\NetworkCards"
KeyNull = ""
MAXIMUM_ALLOWED = 33554432
SERVICE_NO_CHANGE = 4294967295
KeyInfo = {}
NoTitle = 0
UtilityInf = "UTILITY.INF"
NcParamInf = "NCPARAM.INF"
RasAutoInstall = 0
ComputerNameKeyName = "SYSTEM\CurrentControlSet\Control\ComputerName"
[OfsVars]
OfsChoiceList = {} ? $(!SETUPHANDLE) GetHardDriveLetters
OfsChoiceFSList = {} ? $(!SETUPHANDLE) GetHardDriveFileSystems
OfsChoiceSizeList = <> ? $(!SETUPHANDLE) GetHardDriveTotalSpace
[RegistryConstants]
MaskAllAccess = 33554432
NoTitle = 0
RegLastError = $(!REG_ERROR_SUCCESS)
[RegisterOle2Files]
Shell "subroutn.inf" PushBillboard NETSTATUSDLG "Running REGINI on Cairo .reg files ..."
Set RegFileList = ^(RegIniFiles,1)
ForListDo $(RegFileList)
Set RegFiles = $(RegFiles)" "$(!STF_WINDOWSPATH)"\dump\"*($(RegFileList), $(#))
EndForListDo
Debug-Output "NTCAIRO.INF: Reg file list is "$(RegFiles)
; RunProgram RC "" "" $(!STF_WINDOWSSYSPATH)"\cmd.exe" /c for %i in (%SystemRoot%\dump\*.reg) do regini %i >> %systemroot%\cairoreg.out
RunProgram RC "" "" $(!STF_WINDOWSPATH)"\idw\regini.exe" $(RegFiles)
Debug-Output "NTCAIRO.INF: Regini returned "$(RC)
Shell "subroutn.inf" PopBillboard
Return 0
[GetCairoInstallType]
CairoInstallType =+
set Status = STATUS_FAILED
ifstr(i) $(!STF_PRODUCT) == Winnt
read-syms GCITWK$(!STF_LANGUAGE)
else
read-syms GCITAS$(!STF_LANGUAGE)
endif
ui start "Diskette"
ifstr(i) $(DLGEVENT) == "CONTINUE"
ui pop 1
ifstr(i) $(ListItemsOut) == ""
set Status = STATUS_USERCANCEL
else
set CairoOptionChosenText = $(ListItemsOut)
set Status = STATUS_SUCCESSFUL
goto verify_CairoOption
endif
else-ifstr(i) $(DLGEVENT) == "BACK"
ui pop 1
set Status = STATUS_USERCANCEL
goto finish_CairoOption
else
ui pop 1
set Status = STATUS_FAILED
goto finish_CairoOption
endif
verify_CairoOption = +
read-syms VerifyInstallDlg$(!STF_LANGUAGE)
ui start "VerifyName"
ifstr(i) $(DLGEVENT) == "CONTINUE"
set Status = STATUS_SUCCESSFUL
ui pop 1
goto finish_CairoOption
else-ifstr(i) $(DLGEVENT) == "BACK"
ui pop 1
goto CairoInstallType
else-ifstr(i) $(DLGEVENT) == "EXIT"
shell "subroutn.inf" QueryUserQuit $(!STF_LANGUAGE)
ifstr(i) $($R1) == "OK"
set Status = STATUS_USERQUIT
ui pop 1
goto finish_CairoOption
else
goto verify_CairoOption
endif
else
ui pop 1
goto finish_CairoOption
endif
finish_CairoOption = +
Return $(Status) $(CairoOptionChosenText)
;$(CairoOptionChosen)
[GetPrimaryUser]
set Status = STATUS_FAILED
set Password = ""
set Username = ""
set NtDomain = "REDMOND"
primuser= +
read-syms PrimaryUserDlg$(!STF_LANGUAGE)
EndWait
ui start "GetUser"
ifstr(i) $(DLGEVENT) == "CONTINUE"
ifstr(i) *($(EditTextOut), 1) == ""
read-syms NonFatalError15$(!STF_LANGUAGE)
shell "subroutn.inf" SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(NonFatal)
set ReInit = NO
goto primuser
endif
set Name = *($(EditTextOut), 1)
ifstr(i) $(STATUS) == NO
read-syms NonFatalError14$(!STF_LANGUAGE)
shell "subroutn.inf" SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(NonFatal)
set ReInit = NO
goto primuser
endif
set Username = *($(EditTextOut), 1)
set NtDomain = *($(EditTextOut), 2)
ifstr *($(EditTextOut), 3) == *($(EditTextOut), 4)
ifstr(i) *($(EditTextOut), 3) == ""
read-syms Warning3$(!STF_LANGUAGE)
shell "subroutn.inf" SetupMessage $(!STF_LANGUAGE) "WARNING" $(Warning)
ifstr(i) $($R0) != STATUS_SUCCESSFUL
else
ifstr(i) $($R1) == "OK"
else
set ReInit = NO
goto primuser
endif
endif
endif
set Password = *($(EditTextOut), 3)
ui pop 1
set Status = STATUS_SUCCESSFUL
goto finish_primuser
else
read-syms NonFatalError10$(!STF_LANGUAGE)
shell "subroutn.inf" SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(NonFatal)
set DefEditCtl = 1
set ReInit = YES
goto primuser
endif
else-ifstr(i) $(DLGEVENT) == "BACK"
read-syms Warning2$(!STF_LANGUAGE)
shell "subroutn.inf" SetupMessage $(!STF_LANGUAGE) "WARNING" $(Warning)
ifstr(i) $($R0) != STATUS_SUCCESSFUL
ui pop 1
set Status = STATUS_USERCANCEL
goto finish_primuser
endif
ifstr(i) $($R1) == "OK"
set Status = STATUS_USERCANCEL
ui pop 1
goto finish_primuser
else
set ReInit = NO
goto primuser
endif
else
ui pop 1
goto finish_primuser
endif
finish_primuser = +
StartWait
Return $(Status) $(Username) $(Password) $(NtDomain)
[GCITENG]
DlgType = List
DlgTemplate = "OEMSINGLESEL"
Caption = "Select Cairo Install Option"
DlgText = "Choose Install Type. When in doubt choose "+
"Cairo Standalone option."
Continue = "OK"
Cancel = "Cancel"
Help = "Help"
CairoOptions = {DC, Server, Standalone, Workstation}
ListItemsIn = $(CairoOptions)
ListItemsOut = "Workstation"
[GCITWKENG]
DlgType = List
DlgTemplate = "OEMSINGLESEL"
Caption = "Select Cairo Install Option"
DlgText = "Choose Install Type. When in doubt choose "+
"Cairo Standalone option."
Continue = "OK"
Cancel = "Cancel"
Help = "Help"
CairoOptions = {Standalone, Workstation}
ListItemsIn = $(CairoOptions)
ListItemsOut = "Workstation"
[GCITASENG]
DlgType = List
DlgTemplate = "OEMSINGLESEL"
Caption = "Select Cairo Install Option"
DlgText = "Choose Install Type. When in doubt choose "+
"Cairo Standalone option."
Continue = "OK"
Cancel = "Cancel"
Help = "Help"
CairoOptions = {DC, Server}
ListItemsIn = $(CairoOptions)
ListItemsOut = "DC"
[VerifyInstallDlgENG]
Caption = "Cairo Setup"
DlgText = "Please verify that the install type is correct."$(!LF)$(!LF)+
"Don't install a DC unless you are positive."$(!LF)$(!LF)+
"If you would like to change it, choose Change. "+
"Otherwise choose Continue."
Static1Label = "Install Type:"
Static1Text = $(CairoOptionChosenText)
Continue = "Continue"
Cancel = "&Change"
Help = "&Help"
Exit = "E&xit Setup"
DlgType = "Info"
DlgTemplate = "VERIFY_COMPUTER_NAME"
HelpContext = $(!IDH_DB_COMPUTERNAMEV_INS)
;-----------------------------------------------------------------------
; ROUTINE: DoAlertSystemSetup
;
; DESCRIPTION: Call Alert System Service Config routine
;
; INPUTS: none
;
; OUTPUTS: $R0: STATUS_SUCCESSFUL |
; STATUS_FAILED
;
; NOTES: this will call AlertSys.Dll and request further setup from it.
; only during fresh install (NOT YET BUT SOON)
;
; A temporary fix was made to modify the AlertSystem so that it does
; not autostart during GUI mode since it's only dependant, OLE, will not start
; since it's implied dependant (EventLog) is not started so OLE terminates.
; So during GUI mode we then set the AlertSystem to to autostart.
; When 3.51 ships, OLE will then have a dependant of the event log
; and then this temporary change can be undone.
;
;
;------------------------------------------------------------------------
[DoAlertSystemSetup]
;
; initialize vars
;
set Status = STATUS_SUCCESSFUL
set CFG_HANDLE = ""
set NCPA_HANDLE = ""
;
; set AlertSystem to autostart since OLE was not autostart but is now
;
shell "registry.inf" ModifyServicesEntry "AlertSystem" $(!SERVICE_AUTO_START)
;
; only do this on fresh install
;
ifstr(i) $(!STF_NTUPGRADE) != YES
;
; start the AlertSystem service
;
LoadLibrary "x" $(!STF_CWDDIR)\ncpa.cpl NCPA_HANDLE
; but first start the event log, since OLE will not but it does require it
; LibraryProcedure NCPA_RESULT $(NCPA_HANDLE), CPlSetup $(!STF_HWND), STARTSVC, EventLog
; Set STATUS = *($(NCPA_RESULT),1)
; ifstr(i) $(STATUS) != "0"
; Debug-Output "Cairo.INF: [DoAlertSystemSetup] EventLog failed to start"
; endif
;
; now start the alertsystem
;
LibraryProcedure NCPA_RESULT $(NCPA_HANDLE), CPlSetup $(!STF_HWND), STARTSVC, AlertSystem
Set STATUS = *($(NCPA_RESULT),1)
ifstr(i) $(STATUS) != "0"
Debug-Output "Cairo.INF: [DoAlertSystemSetup] AlertSystem failed to start"
endif
FreeLibrary $(NCPA_HANDLE)
;
; call alert config routine
;
LoadLibrary "x" $(!STF_CWDDIR)\AlertSys.dll CFG_HANDLE
LibraryProcedure Result $(CFG_HANDLE) SetupAlertSystem
ifstr(i) *($(Result),1) != SUCCESS
Status = STATUS_FAILED
Debug-Output "Cairo.INF: [DoAlertSystemSetup] "*($(Result),2)
Endif
FreeLibrary $(CFG_HANDLE)
Endif
Return $(Status)
;-----------------------------------------------------------------------
; ROUTINE: GetDrive
;
; DESCRIPTION: Get the drive letter of the object storage location
;
; INPUTS: none
;
; OUTPUTS: $R0: STATUS_SUCCESSFUL |
; STATUS_FAILED |
; STATUS_USERQUIT
; $R1: the drive letter.
;------------------------------------------------------------------------
[GetDrive]
set Status = STATUS_FAILED
LoadLibrary "x" $(!STF_CWDDIR)setupdll.dll !SETUPHANDLE
read-syms OfsVars
detect OfsVars
FreeLibrary $(!SETUPHANDLE)
Set DriveDisplayList = {}
; Choose an existing OFS drive, or the last in the list
ForListDo $(OfsChoiceList)
Set DriveDisplayList = >($(DriveDisplayList), *($(OfsChoiceList), $(#))" "*($(OfsChoiceFSList), $(#))" "*($(OfsChoiceSizeList), $(#))" MB")
ifstr(i) *($(OfsChoiceFSList), $(#)) == "OFS"
set OfsDefaultChoice = *($(DriveDisplayList), $(#))
else-ifstr(i) $(OfsDefaultChoice) == ""
set OfsDefaultChoice = *($(DriveDisplayList), $(#))
endif
EndForListDo
display_getdrive_dlg = +
read-syms OfsDriveDlg
ui start "Diskette"
ifstr(i) $(DLGEVENT) == "CONTINUE"
ui pop 1
ifstr(i) $(ListItemsOut) == ""
set Status = STATUS_USERCANCEL
else
set DrvIndex = ~($(DriveDisplayList), $(ListItemsOut))
set OfsDriveChosen = *($(OfsChoiceList), $(DrvIndex))
set Status = STATUS_SUCCESSFUL
endif
goto finish_getdrive
else-ifstr(i) $(DLGEVENT) == "BACK"
read-syms NonFatalError16$(!STF_LANGUAGE)
shell "subroutn.inf" SetupMessage $(!STF_LANGUAGE) "NONFATAL" $(NonFatal)
goto display_getdrive_dlg
; ui pop 1
; set Status = STATUS_USERCANCEL
; goto finish_getdrive
else
ui pop 1
set Status = STATUS_FAILED
goto finish_getdrive
endif
finish_getdrive = +
Return $(Status) $(OfsDriveChosen)
[RegSetEnvVar]
read-syms RegistryConstants
set Status = STATUS_FAILED
; Get the registry handle to the environment string storage.
set KeyName = "System\CurrentControlSet\Control\Session Manager\Environment"
OpenRegKey $(!REG_H_LOCAL) "" $(KeyName) $(MaskAllAccess) KeyHandle
ifint $(RegLastError) != $(!REG_ERROR_SUCCESS)
shell "cairo.inf" ErrMsg "Could not get registy key handle for the "+
"Environment. Error = "$(RegLastError)
Return $(Status)
endif
; Set the environment variable.
set ValueInfo = {$($0), $(NoTitle), $(!REG_VT_EXPAND_SZ), $($1)}
SetRegValue $(KeyHandle) $(ValueInfo)
ifint $(RegLastError) != $(!REG_ERROR_SUCCESS)
shell "cairo.inf" ErrMsg "Couldn't set "$($0)" variable! Error = "+
$(RegLastError)
goto CloseReg
endif
; Read the env var setting just to be sure it was set correctly.
GetRegValue $(KeyHandle) $($0) Value
ifint $(RegLastError) != $(!REG_ERROR_SUCCESS)
shell "cairo.inf" ErrMsg "Couldn't read the "$($0)" value! Error = "+
$(RegLastError)
goto CloseReg
endif
ifstr(i) *($(Value), 4) != $($1)
shell "cairo.inf" ErrMsg "Environment variable "$($0)" not set "+
"correctly."
goto CloseReg
endif
set Status = STATUS_SUCCESSFUL
CloseReg =+
CloseRegKey $(KeyHandle)
Return $(Status)
[ErrMsg]
read-syms ErrMsgDlg$(!STF_LANGUAGE)
ui start "InfoMsg"
Return
[ErrMsgDlgENG]
DlgType = "MessageBox"
STF_MB_TITLE = "Cairo Setup Error"
STF_MB_TEXT = $($0)
STF_MB_ICON = 3
STF_MB_TYPE = 1
STF_MB_DEF = 1
[MsgBox]
read-syms MsgBoxDlg$(!STF_LANGUAGE)
ui start "InfoMsg"
Return
[MsgBoxDlgENG]
DlgType = "MessageBox"
STF_MB_TITLE = "Cairo Setup Message"
STF_MB_TEXT = $($0)
STF_MB_ICON = 5
STF_MB_TYPE = 1
STF_MB_DEF = 1
;-----------------------------------------------------------------------
; ROUTINE: GetCairoDomainPath
;
; DESCRIPTION: Get the user's network domain name.
;
; INPUTS: The global var CairoDomainPath
;
; OUTPUTS: $R0: STATUS_SUCCESSFUL |
; STATUS_FAILED |
; STATUS_USERQUIT
; $R1: the domain name.
;------------------------------------------------------------------------
[GetCairoDomainPath]
set Status = STATUS_FAILED
read-syms CairoDomainDlg$(!STF_LANGUAGE)
CairoDomainDlg =+
ui start "QueryDomain"
ifstr(i) $(DLGEVENT) == "CONTINUE"
set Value = $(Combo1Out)
ui pop 1
ifstr $(Value) == ""
shell "" ErrMsg "Empty domain name! Please enter a domain name."
goto CairoDomainDlg
endif
install CheckIsInvalidName
shell "" DbgMsg "IsInvalidName = "$(IsInvalidName)
ifstr(i) $(IsInvalidName) == YES
shell "" ErrMsg "Invalid domain name entered. Please reenter."
goto CairoDomainDlg
endif
set Value = $(Combo2Out)
ifstr $(Value) == ""
shell "" ErrMsg "Empty Ou name! Please enter an Ou name."
goto CairoDomainDlg
endif
install CheckIsInvalidName
shell "" DbgMsg "IsInvalidName = "$(IsInvalidName)
ifstr(i) $(IsInvalidName) == YES
shell "" ErrMsg "Invalid domain name entered. Please reenter."
goto CairoDomainDlg
endif
set Value1 = $(Combo1Out)
set Value2 = $(Combo2Out)
set Status = STATUS_SUCCESSFUL
else-ifstr(i) $(DLGEVENT) == "EXIT"
shell "" QueryUserQuit
ifstr(i) $($R0) == "OK"
ui pop 1
set Status = STATUS_USERQUIT
else
goto CairoDomainDlg
endif
endif
return $(Status) $(Value1) $(Value2)
[CairoDomainDlgENG]
Caption = "Enter Cairo Domain Name and Ou Name"
Continue = "&Continue"
Cancel = "&Cancel"
Help = "Helpless"
Combo1Label = "&Domain Name:"
Combo2Label = "&Ou Name:"
DlgType = "MultiCombo"
DlgTemplate = "M_SYSTEM_CAIRO"
Combo1List = $(!CairoDomainList)
Combo2List = $(!CairoOuList)
ComboListItemsIn = { Combo1List, Combo2List }
ComboListItemsOut = { Combo1Out, Combo2Out }
Combo1Out = *( $(Combo1List), 1 )
Combo2Out = *( $(Combo2List), 1 )
DlgText = "Please enter the path of your cairo domain, and Ou name. "+
"Then press Continue."
; Edit1Label = "&Domain Name:"
; EditTextLim = 50
; EditTextIn = $(!CairoDomainName)
;-----------------------------------------------------------------------
; ROUTINE: UpdateCairoIniFile
;
; DESCRIPTION: Writes out interesting information into a .ini file
;
; INPUTS: $0: Name of ini file
;
; $1: Key name
;
; $2: Key value
;
; OUTPUTS: $R0: STATUS_SUCCESSFUL on completion
;------------------------------------------------------------------------
[UpdateCairoIniFile]
set Status = STATUS_SUCCESSFUL
install FirstPassUpdIni
return $(Status)
[FirstPassUpdIni]
CreateIniKeyValue $($0), "FirstPass" , $($1), $($2), O, V
exit
;-----------------------------------------------------------------------
; ROUTINE: GetDomainPassword
;
; DESCRIPTION: Get the user's network domain password.
;
; INPUTS: None
;
; OUTPUTS: $R0: STATUS_SUCCESSFUL |
; STATUS_FAILED |
; STATUS_USERQUIT
; $R1: the domain password.
;------------------------------------------------------------------------
[GetDomainPassword]
set Status = STATUS_FAILED
read-syms DPasswordDlg$(!STF_LANGUAGE)
PwDlg =+
ui start "QueryPassword"
ifstr(i) $(DLGEVENT) == "CONTINUE"
ifstr *($(EditTextOut), 1) == *($(EditTextOut), 2)
set Value = *($(EditTextOut), 1)
ui pop 1
; Check name validity if non-null. Null is allowed.
ifstr $(Value) != ""
install CheckIsInvalidName
ifstr(i) $(IsInvalidName) == YES
shell "" ErrMsg "Invalid Cairo password entered. Please reenter."
goto PwDlg
endif
endif
set DPassword = $(Value)
set Status = STATUS_SUCCESSFUL
else
ui pop 1
shell "" MsgBox "The entered passwords don't match! "+
"Please reenter them again."
goto PwDlg
endif
else-ifstr(i) $(DLGEVENT) == "EXIT"
shell "" QueryUserQuit
ifstr(i) $($R0) == "OK"
ui pop 1
set Status = STATUS_USERQUIT
else
goto PwDlg
endif
else-ifstr(i) $(DLGEVENT) == "HELP"
set Status = STATUS_USE_DOWNLEVEL
endif
return $(Status) $(DPassword)
[DPasswordDlgENG]
DlgType = "MultiEdit"
DlgTemplate = "QUERY_PASSWORD"
Caption = "Enter Cairo Password"
DlgText = "Please enter the password that is valid for Cairo Domain."+
"For now it is same as your user name (email name). "+
"Confirm Password field. Then press Continue."
Edit1Label = "&Password:"
Edit2Label = "&Confirm Password:"
Continue = "&Continue"
Help = "&Use Downlevel"
Exit = "E&xit Setup"
EditTextLim = {15, 15}
EditTextIn = {"", ""}
;-----------------------------------------------------------------------
; ROUTINE: GetDCType
;
; DESCRIPTION: Get the type of cairo DC
;
; INPUTS: none
;
; OUTPUTS: $R0: STATUS_SUCCESSFUL |
; STATUS_FAILED |
; STATUS_USERQUIT
; $R1: the DC type
;------------------------------------------------------------------------
[GetDCType]
gDCType =+
set Status = STATUS_FAILED
read-syms GDCT$(!STF_LANGUAGE)
ui start "Diskette"
ifstr(i) $(DLGEVENT) == "CONTINUE"
ui pop 1
ifstr(i) $(ListItemsOut) == ""
set Status = STATUS_USERCANCEL
else
set CairoOptionChosenText = $(ListItemsOut)
set CairoOptionChosen = *($($0), ~($(ListItemsIn), $(ListItemsOut)))
shell "" YNQueryBox "DC Type:"$(!LF)" "$(CairoOptionChosenText)$(!LF)+
"Is this correct?" 1
ifstr(i) $($R0) == "no"
goto gDCType
endif
ifstr(i) $($R0) == STATUS_USERQUIT
set Status = STATUS_USER
else
set Status = STATUS_SUCCESSFUL
endif
endif
goto finish_DCOption
else-ifstr(i) $(DLGEVENT) == "BACK"
ui pop 1
set Status = STATUS_USERCANCEL
goto finish_DCOption
else
ui pop 1
set Status = STATUS_FAILED
goto finish_DCOption
endif
finish_DCOption = +
Return $(Status) $(CairoOptionChosenText)
;$(CairoOptionChosen)
[GDCTENG]
DlgType = List
DlgTemplate = "OEMSINGLESEL"
Caption = "Select DC Type"
DlgText = "Choose DC Type. When in doubt choose "+
"FirstDC option."
Continue = "OK"
Cancel = "Cancel"
Help = "Help"
CairoOptions = {FirstDC, ReplicaDC}
ListItemsIn = $(CairoOptions)
ListItemsOut = "FirstDC"
[OfsDriveDlg]
Caption = "Select Cairo Object Drive"
DlgText = "WARNING: The drive you select will be formatted for OFS"
Continue = "&Format"
Cancel = "Cancel"
Help = "&Help"
DlgType = List
DlgTemplate = "OEMSINGLESEL"
HelpContext = $(!IDH_DB_SEARCHDRIVE_INS)
ListItemsIn = $(DriveDisplayList)
ListItemsOut = $(OfsDefaultChoice)
[AlertSystemENG]
AlertServDisplayName = "Alert System"
[PrimaryUserDlgENG]
Caption = "Primary User Information"
DlgText = "Please enter the Primary User's name and the user's "+
"NT domain and password here. The username must be 20 "+
"characters or less and the password must be 14 characters "+
"or less. Reenter the password in the Confirm Password "+
"field. "
Edit1Label = "&Username:"
GroupLabel = "NT Credentials"
Edit2Label = "&NT Domain:"
Edit3Label = "&NT Password:"
Edit4Label = "&Confirm NT Password:"
Continue = "Continue"
Cancel = "Cancel"
Help = "&Help"
Exit = "E&xit Setup"
DlgType = "MultiEdit"
DlgTemplate = "PRIMARY_USER_SETUP"
HelpContext = $(!IDH_DB_ACCOUNTSETUP_INS)
EditTextLim = {20, 20, 14, 14}
EditTextIn = {$(Username), $(NtDomain), "", ""}
[FatalError20ENG]
Fatal = "Failed to get OFS Drive."
[NonFatalError10ENG]
NonFatal = "The Password and the Confirm Password fields are different. "+
"Please enter both fields again."
[NonFatalError14ENG]
NonFatal = "Usernames may not start or end with a space, "+
"and the following characters are not allowed:"$(!LF)+
"/ \ [ ] "" : ; | < > + = , ? *"
[NonFatalError15ENG]
NonFatal = "You must enter a Username to set up a local account"
[NonFatalError16ENG]
NonFatal = "You must select a drive to contiue the installation." +
"If you select an existing OFS drive, but do not want reformat " +
"the drive, then you should cancel the format utility when it asks " +
"you to confirm the operation."
[Warning2ENG]
Warning = "No local account will be set up."
[Warning3ENG]
Warning = "No password has been entered. Choose OK to leave the "+
"password blank, or Cancel if you want to enter a password."
[RegIniFiles]
ofs.reg
dsys.reg
account.reg
dfs.reg
dfsprov.reg
dsobjs.reg
samp32.reg
repl.reg
sc.reg
sysmgmt.reg
cxxflt.reg
[GetCairoDomainAndOuLists]
read-syms header
return STATUS_SUCCESSFUL $(validdomains) $(validous)
[header]
; this is where file constants go
version = 2
domainprefix =
validdomains = { \msft, \swat }
validous = { redmond\bsd\dev, redmond\bsd\test, redmond\bsd\progman, redmond\bsd\admin, redmond\bsd\usered, redmond\bsd\marketing, redmond\bsd\misc, redmond\bsd\stress, redmond\bsd, redmond\bsd\cairo, redmond }
validgroups = { DomainAdmins, DomainUsers, Dsys, Ofs, Net, Base, Shell, RpcOle, ACT }
Reference in a new issue Copy permalink