'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'

' FineBuild2InstallSQL.vbs

' Copyright FineBuild Team © 2008 - 2019. Distributed under Ms-Pl License

'

' Purpose: SQL Server Install

'

' Author: Ed Vassie

'

' Date: 30 Jun 2008

'

' Change History

' Version Author Date Description

' 2.2 Ed Vassie 18 Jun 2010 Initial version for SQL Server 2008 R2

' 2.1 Ed Vassie 17 Nov 2009 Upgraded to support Cluster install

' 2.0 Ed Vassie 30 Jun 2008 Initial SQL Server 2008 version for FineBuild v2.0

'

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Option Explicit

Dim SQLBuild : Set SQLBuild = New FineBuild

Class FineBuild

Dim colFolders, colPrcEnvVars, colUsrEnvVars, colVol

Dim intIndex

Dim objCluster, objCmd, objConfig, objDrive, objFile, objFolder, objFSO, objInParam, objOCFile, objOutParam, objShell, objVol, objWMI, objWMIReg

Dim strAction, strActionSQLDB, strActionSQLAS, strActionSQLIS, strActionSQLRS, strActionSQLTools, strActionClusInst, strAllowUpgradeForRSSharePointMode, strAnyKey, strASProviderMSOlap, strAsServerMode, strAsSvcStartuptype, strAGTSvcStartuptype

Dim strSqlBrowserStartup, strDRUCltStartupType, strDRUCtlrStartupType, strIsSvcStartuptype, strSQLSvcStartuptype, strRole

Dim strCatalogInstance, strCatalogServer, strCatalogServerName, strCLSIdSQL, strCLSIdSQLSetup, strCLSIdVS, strCmd, strCmdPS, strCmdRS, strCmdSQL, strCompatFlags

Dim strClusStorage, strClusSubnet, strClusterAction, strClusterHost, strClusterName, strClusterNameAS, strClusterNameIS, strClusterNamePE, strClusterNamePM, strClusterNameRS, strClusterGroupAS, strClusterGroupFS, strClusterGroupRS, strClusterGroupSQL, strClusterNameSQL, strClusterIPV4RS, strClusterIPV4SQL, strClusterIPV6RS, strClusterIPV6SQL, strClusterOptions, strClusterReport, strAgtDomaingroup, strASDomainGroup, strFTSDomainGroup, strSQLAdminAccounts, strSQLDomainGroup, strSSASAdminAccounts, strClusterNameDTC, strClusterNetworkDTC, strClusterGroupDTC, strClusIPAddress, strClusIPV4Network, strClusIPV6Network, strClusIPVersion, strFailoverClusterDisks, strFailoverClusterGroup, strFailoverClusterIPAddresses, strFailoverClusterNetworkName, strFailoverClusterRollOwnership, strLabDTC

Dim strDomain, strDTCClusterRes, strDTCMultiInstance

Dim strEdition, strEdType, strEnu, strErrorReporting, strFeatureList, strFirewallStatus, strFeatures, strFileArc, strFilePerm, strFSInstLevel, strFSLevel, strFSShareName, strFolderName, strHKLMFB, strHKLMSQL, strHTTP

Dim strIAcceptLicenseTerms, strInstance, strInstDTCClusterRes, strInstAgent, strInstAnal, strInstLog, strInstNode, strInstPE, strInstPM, strInstSQL, strInstAS, strInstASSQL, strInstIS, strInstRegAS, strInstRegSQL, strInstRS, strInstRSDir, strInstRSSQL, strIsInstallDBA, strISMasterPort, strISMasterStartupType, strISMasterThumbprint, strISWorkerCert, strISWorkerMaster, strISWorkerStartupType

Dim strManagementServer, strManagementServerRes, strManagementServerName, strManagementInstance, strMenuSQL, strMenuSQL2005Flag, strMode

Dim strNativeOS, strNTAuthAccount, strNTAuthOSName, strNTService

Dim strOCFeature, strOCFile, strOSLevel, strOSName, strOSType, strOSVersion

Dim strPath, strPathAddComp, strPathAlt, strPathFB, strPathFBScripts, strPathLog, strPathNew, strPathNLS, strPathOld, strPathSSMS, strPathSys, strPathTemp, strPathVS

Dim strPBEngSvcAccount, strPBEngSvcPassword, strPBEngSvcStartup, strPBDMSSvcAccount, strPBDMSSvcPassword, strPBDMSSvcStartup, strPBPortRange, strPBScaleout, strPID, strProcArc, strProgCacls

Dim strResSuffixAS, strResSuffixDB, strRsFxVersion, strRSDBName, strRSActualMode, strRSInstallMode, strRSShpInstallMode, strRSSQLLocal, strRSSvcStartupType, strRSVersionNum

Dim strReboot, strRegSSIS, strRegSSISSetup, strRegTools

Dim strServInst, strServName, strSetupAnalytics, strSetupPolyBase, strSetupPolyBaseCluster, strSetupPowerBI, strSetupPS2, strSetupPython, strSetupRServer, strSetupSSMS, strSetupDTCCluster, strSetupDTCClusterStatus, strSetupDTCNetAccess, strSetupDTCNetAccessStatus, strSetupSSISCluster

Dim strSetupSlipstream, strSetupStreamInsight, strSecurityMode, strServer, strSetupFlag, strSQLBinRoot, strSQLExe, strSQLLanguage, strSQLLog, strSQLMedia, strSQLMediaBase, strSQLMediaOrig, strSQLVersion, strSQLVersionFull, strSQLVersionNum

Dim strPCUSource, strCUSource, strPathSQLSP, strPathSQLSPOrig, strPathTools, strSQLSharedMR, strSQLMediaArc, strSQLMediaPCU, strSQLSupportMsi, strSQMReporting, strSPLevel, strSPCULevel, strStopAt, strTCPPortDTC, strtempdbFile, strtempdbLogFile, strType

Dim strSetupBOL, strSetupBIDS, strSetupBPE, strSetupDTCCID, strSetupIIS, strSetupISMaster, strSetupISWorker, strSetupMDS, strSetupNet3, strSetupNet4, strSetupShares, strSetupSQLAS, strSetupSQLASCluster, strSetupSQLDB, strSetupSQLDBCluster, strSetupSQLDBAG, strSetupSQLRS, strSetupSQLRSCluster, strSetupSQLDBRepl, strSetupSQLDBFS, strSetupSQLDBFT, strSetupSQLIS, strSetupSQLNS, strSetupSQLTools, strSetupSP, strSetupSPCU, strSetupSQLBC

Dim strSKUUpgrade, strStatusAssumed, strStatusKB933789

Dim strVersionInst, strVersionNet2, strVersionNet3, strVersionNet4, strVersionPS

Dim strDirBackup, strDirBackupAS, strDirBPE, strDirData, strDirDataAS, strDirDataFS, strDirDataFT, strDirDataIS, strDirDRU, strDirSysDB, strDirLog, strDirLogAS, strDirLogTemp, strDirProg, strDirProgX86, strDirTemp, strDirTempAS, strVolProg, strDirSys, strWaitLong, strWaitShort, strWinDir, strWOWX86

Dim strCollationAS, strCollationSQL, strSetupStdAccounts, strGroupDBA, strGroupDBANonSA, strGroupDistComUsers, strGroupUsers, strListDir, strListFirstOpts, strListOpts, strLocalAdmin, strUserFeatures, strUserOptions

Dim strSetupDQ, strSetupDQC, strSetupDRUCtlr, strSetupDRUClt, strCTLRSvcAccount, strCTLRSvcPassword

Dim strExpVersion, strExpressOptions, strExtSvcAccount, strExtSvcPassword, strEnableRANU, strUpgradeOptions, strFTUpgradeOption, strRSDBAccount, strRSDBPassword, strUseSysDB

Dim strSqlAccount, strAgtAccount, strAsAccount, strDRUCtlrAccount, strDRUCltAccount, strFarmAccount, strFTAccount, strIsAccount, strIsMasterAccount, strIsWorkerAccount, strRsAccount, strSqlBrowserAccount, strAsSysadmin, strSqlSysadmin, strFarmAdminIPort, strPassPhrase

Dim strSqlPassword, strAgtPassword, strAsPassword, strDRUCtlrPassword, strDRUCltPassword, strFarmPassword, strFTPassword, strIsPassword, strIsMasterPassword, strIsWorkerPassword, strRsPassword, strSqlBrowserPassword, strsaPwd, strAdminPassword

Dim strUpdateSource, strUseFreeSSMS, strUserAccount, strUserDNSDomain, strUserName

Dim strVolBackup, strVolBackupAS, strVolBPE, strVolDBA, strVolData, strVolDataAS, strVolDataFS, strVolDataFT, strVolDTC, strVolLabel, strVolList, strVolLog, strVolLogAS, strVolLogTemp, strVolTemp, strVolTempAS, strVolSys, strVolSysDB

Private Sub Class_Initialize

' Perform FineBuild processing

err.Clear

Call Initialisation()

Select Case True

Case err.Number <> 0

' Nothing

Case strProcessId >= "2Z"

' Nothing

Case Else

Call Process_Install()

End Select

End Sub

Private Sub Class_Terminate

' Error handling and termination

Select Case True

Case strPathFB = "%SQLFBFOLDER%"

' Nothing

Case strProcessId > "2Z"

' Nothing

Case err.Number = 0

Call objShell.Popup("SQL Server Install complete", 2, "SQL Server Base Install" ,64)

Case err.Number = 3010 And err.Description = "Reboot required"

Call FBLog("***** Reboot in progress *****")

Case Else

Call FBLog("***** Error has occurred *****")

If strProcessIdLabel <> "" Then

Call FBLog(" Process : " & strProcessIdLabel & ": " & strProcessIdDesc)

End If

If err.Number <> "" Then

Call FBLog(" Error code : " & err.Number)

End If

If err.Source <> "" Then

Call FBLog(" Source : " & err.Source)

End If

If err.Description <> "" Then

Call FBLog(" Description: " & err.Description)

End If

If strDebugDesc <> "" And strDebugDesc <> err.Description Then

Call FBLog(" Last Action: " & strDebugDesc)

End If

If strDebugMsg1 <> "" Then

Call FBLog(" " & strDebugMsg1)

End If

If strDebugMsg2 <> "" Then

Call FBLog(" " & strDebugMsg2)

End If

Call FBLog(" SQL Server Base Install failed")

End Select

Wscript.quit(err.Number)

End Sub

Sub Initialisation ()

' Perform initialisation procesing

Set objShell = WScript.CreateObject ("Wscript.Shell")

strPathFB = objShell.ExpandEnvironmentStrings("%SQLFBFOLDER%")

Include "FBManageBuildfile.vbs"

Include "FBManageLog.vbs"

Include "FBManageBoot.vbs"

Include "FBManageCluster.vbs"

Include "FBManageInstall.vbs"

Include "FBManageService.vbs"

Include "FBUtils.vbs"

Call SetProcessIdCode("FB2I")

Set objConfig = CreateObject("Microsoft.XMLDOM")

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate,(Security)}!\\.\root\cimv2")

Set objWMIReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

Set colPrcEnvVars = objShell.Environment("Process")

Set colUsrEnvVars = objShell.Environment("User")

strInstance = GetBuildfileValue("Instance")

strHKLMFB = GetBuildfileValue("HKLMFB")

strHKLMSQL = GetBuildfileValue("HKLMSQL")

strAction = GetBuildfileValue("Action")

strActionSQLAS = GetBuildfileValue("ActionSQLAS")

strActionSQLDB = GetBuildfileValue("ActionSQLDB")

strActionSQLIS = GetBuildfileValue("ActionSQLIS")

strActionSQLRS = GetBuildfileValue("ActionSQLRS")

strActionSQLTools = GetBuildfileValue("ActionSQLTools")

strActionClusInst = GetBuildfileValue("ActionClusInst")

strAdminPassword = GetBuildfileValue("AdminPassword")

strAgtDomainGroup = GetBuildfileValue("AgtDomainGroup")

strAgtAccount = GetBuildfileValue("AgtAccount")

strAgtPassword = GetBuildfileValue("AgtPassword")

strAgtSvcStartupType = GetBuildfileValue("AgtSvcStartupType")

strAllowUpgradeForRSSharePointMode = GetBuildfileValue("AllowUpgradeForRSSharePointMode")

strAnykey = GetBuildfileValue("Anykey")

strASDomainGroup = GetBuildfileValue("ASDomainGroup")

strAsAccount = GetBuildfileValue("AsAccount")

strAsPassword = GetBuildfileValue("AsPassword")

strAsServerMode = GetBuildfileValue("ASServerMode")

strAsSvcStartupType = GetBuildfileValue("AsSvcStartupType")

strCatalogInstance = GetBuildfileValue("CatalogInstance")

strCatalogServer = GetBuildfileValue("CatalogServer")

strCatalogServerName = GetBuildfileValue("CatalogServerName")

strCLSIdSQL = GetBuildfileValue("CLSIdSQL")

strCLSIdSQLSetup = GetBuildfileValue("CLSIdSQLSetup")

strCLSIdVS = GetBuildfileValue("CLSIdVS")

strClusStorage = GetBuildfileValue("ClusStorage")

strClusSubnet = GetBuildfileValue("ClusSubnet")

strClusterAction = GetBuildfileValue("ClusterAction")

strClusterHost = GetBuildfileValue("ClusterHost")

strClusterName = GetBuildfileValue("ClusterName")

strClusterNameAS = GetBuildfileValue("ClusterNameAS")

strClusterNameDTC = GetBuildfileValue("ClusterNameDTC")

strClusterNetworkDTC = GetBuildfileValue("ClusterNetworkDTC")

strClusterNameIS = GetBuildfileValue("ClusterNameIS")

strClusterNamePE = GetBuildfileValue("ClusterNamePE")

strClusterNamePM = GetBuildfileValue("ClusterNamePM")

strClusterNameRS = GetBuildfileValue("ClusterNameRS")

strClusterGroupAS = GetBuildfileValue("ClusterGroupAS")

strClusterGroupFS = GetBuildfileValue("ClusterGroupFS")

strClusterGroupRS = GetBuildfileValue("ClusterGroupRS")

strClusterGroupDTC = GetBuildfileValue("ClusterGroupDTC")

strClusterGroupSQL = GetBuildfileValue("ClusterGroupSQL")

strClusterNameSQL = GetBuildfileValue("ClusterNameSQL")

strClusterReport = GetBuildfileValue("ClusterReport")

strClusIPAddress = GetBuildfileValue("ClusIPAddress")

strClusIPV4Network = GetBuildfileValue("ClusIPV4Network")

strClusIPV6Network = GetBuildfileValue("ClusIPV6Network")

strClusIPVersion = GetBuildfileValue("ClusIPVersion")

strCmdPS = GetBuildfileValue("CmdPS")

strCmdRS = GetBuildfileValue("CmdRS")

strCmdSQL = GetBuildfileValue("CmdSQL")

strCompatFlags = GetBuildfileValue("CompatFlags")

strDirBPE = GetBuildfileValue("DirBPE")

strDirProg = GetBuildfileValue("DirProg")

strDirProgX86 = GetBuildfileValue("DirProgX86")

strDirBackupAS = GetBuildfileValue("DirBackupAS")

strDirDataAS = GetBuildfileValue("DirDataAS")

strDirLogAS = GetBuildfileValue("DirLogAS")

strDirTempAS = GetBuildfileValue("DirTempAS")

strDirBackup = GetBuildfileValue("DirBackup")

strDirData = GetBuildfileValue("DirData")

strDirDataFS = GetBuildfileValue("DirDataFS")

strDirDataFT = GetBuildfileValue("DirDataFT")

strDirDataIS = GetBuildfileValue("DirDataIS")

strDirDRU = GetBuildfileValue("DirDRU")

strDirLog = GetBuildfileValue("DirLog")

strDirLogTemp = GetBuildfileValue("DirLogTemp")

strDirTemp = GetBuildfileValue("DirTemp")

strDirSys = GetBuildfileValue("DirSys")

strDirSysDB = GetBuildfileValue("DirSysDB")

strDRUCtlrAccount = GetBuildfileValue("DRUCtlrAccount")

strDRUCtlrPassword = GetBuildfileValue("DRUCtlrPassword")

strDRUCtlrStartuptype = GetBuildfileValue("DRUCtlrStartupType")

strDRUCltAccount = GetBuildfileValue("DRUCltAccount")

strDRUCltPassword = GetBuildfileValue("DRUCltPassword")

strDRUCltStartupType = GetBuildfileValue("DRUCltStartupType")

strDomain = GetBuildfileValue("Domain")

strDTCClusterRes = GetBuildfileValue("DTCClusterRes")

strDTCMultiInstance = GetBuildfileValue("DTCMultiInstance")

strEdition = GetBuildfileValue("AuditEdition")

strEdType = GetBuildfileValue("EdType")

strEnableRANU = GetBuildfileValue("EnableRANU")

strEnu = GetBuildfileValue("Enu")

strErrorReporting = GetBuildfileValue("ErrorReporting")

strExpVersion = GetBuildfileValue("ExpVersion")

strExtSvcAccount = GetBuildfileValue("ExtSvcAccount")

strExtSvcPassword = GetBuildfileValue("ExtSvcPassword")

strFailoverClusterRollOwnership = GetBuildfileValue("FailoverClusterRollOwnership")

strFarmAccount = GetBuildfileValue("FarmAccount")

strFarmPassword = GetBuildfileValue("FarmPassword")

strFarmAdminIPort = GetBuildfileValue("FarmAdminIPort")

strFeatureList = ""

strFileArc = GetBuildfileValue("FileArc")

strFilePerm = GetBuildfileValue("FilePerm")

strFirewallStatus = GetBuildfileValue("FirewallStatus")

strFSInstLevel = GetBuildfileValue("FSInstLevel")

strFSLevel = GetBuildfileValue("FSLevel")

strFSShareName = GetBuildfileValue("FSShareName")

strFTSDomainGroup = GetBuildfileValue("FTSDomainGroup")

strFTAccount = GetBuildfileValue("FtAccount")

strFTPassword = GetBuildfileValue("FtPassword")

strFTUpgradeOption = GetBuildfileValue("FTUpgradeOption")

strGroupDBA = GetBuildfileValue("GroupDBA")

strGroupDBANonSA = GetBuildfileValue("GroupDBANonSA")

strGroupDistComUsers = GetBuildfileValue("GroupDistComUsers")

strGroupUsers = GetBuildfileValue("GroupUsers")

strHTTP = GetBuildfileValue("HTTP")

strIAcceptLicenseTerms = GetBuildfileValue("IAcceptLicenseTerms")

strInstDTCClusterRes = GetBuildfileValue("InstDTCClusterRes")

strInstAnal = GetBuildfileValue("InstAnal")

strInstLog = GetBuildfileValue("InstLog")

strInstNode = GetBuildfileValue("InstNode")

strInstAgent = GetBuildfileValue("InstAgent")

strInstAS = GetBuildfileValue("InstAS")

strInstASSQL = GetBuildfileValue("InstASSQL")

strInstIS = GetBuildfileValue("InstIS")

strInstPE = GetBuildfileValue("InstPE")

strInstPM = GetBuildfileValue("InstPM")

strInstRegAS = GetBuildfileValue("InstRegAS")

strInstRegSQL = GetBuildfileValue("InstRegSQL")

strInstRS = GetBuildfileValue("InstRS")

strInstRSDir = GetBuildfileValue("InstRSDir")

strInstRSSQL = GetBuildfileValue("InstRSSQL")

strInstSQL = GetBuildfileValue("InstSQL")

strIsInstallDBA = GetBuildfileValue("IsInstallDBA")

strIsAccount = GetBuildfileValue("IsAccount")

strIsPassword = GetBuildfileValue("IsPassword")

strIsSvcStartupType = GetBuildfileValue("IsSvcStartupType")

strIsMasterAccount = GetBuildfileValue("IsMasterAccount")

strIsMasterPassword = GetBuildfileValue("IsMasterPassword")

strIsMasterPort = GetBuildfileValue("IsMasterPort")

strIsMasterStartupType = GetBuildfileValue("IsMasterStartupType")

strIsMasterThumbprint = GetBuildfileValue("IsMasterThumbprint")

strIsWorkerAccount = GetBuildfileValue("IsWorkerAccount")

strIsWorkerPassword = GetBuildfileValue("IsWorkerPassword")

strIsWorkerCert = GetBuildfileValue("IsWorkerCert")

strIsWorkerMaster = GetBuildfileValue("IsWorkerMaster")

strIsWorkerStartupType = GetBuildfileValue("IsWorkerStartupType")

strLabDTC = GetBuildfileValue("LabDTC")

strLocalAdmin = GetBuildfileValue("LocalAdmin")

strManagementServer = GetBuildfileValue("ManagementServer")

strManagementServerName = GetBuildfileValue("ManagementServerName")

strManagementInstance = GetBuildfileValue("ManagementInstance")

strManagementServerRes = GetBuildfileValue("ManagementServerRes")

strMenuSQL = GetBuildfileValue("MenuSQL")

strMenuSQL2005Flag = GetBuildfileValue("MenuSQL2005Flag")

strMode = GetBuildfileValue("Mode")

strNativeOS = GetBuildfileValue("NativeOS")

strNTAuthAccount = GetBuildfileValue("NTAuthAccount")

strNTAuthOSName = GetBuildfileValue("NTAuthOSName")

strNTService = GetBuildfileValue("NTService")

strOSLevel = GetBuildfileValue("OSLevel")

strOSName = GetBuildfileValue("OSName")

strOSType = GetBuildfileValue("OSType")

strOSVersion = GetBuildfileValue("OSVersion")

strPassphrase = GetBuildfileValue("Passphrase")

strPathSSMS = GetBuildfileValue("PathSSMS")

strPathSys = GetBuildfileValue("PathSys")

strPathTemp = GetBuildfileValue("PathTemp")

strPCUSource = GetBuildFileValue("PCUSource")

strCUSource = GetBuildFileValue("CUSource")

strPathAddComp = FormatFolder("PathAddComp")

strPathFBScripts = FormatFolder("PathFBScripts")

strPathSQLSP = FormatFolder("PathSQLSP")

strPathSQLSPOrig = GetBuildfileValue("PathSQLSPOrig")

strPathVS = GetBuildfileValue("PathVS")

strPBEngSvcAccount = GetBuildfileValue("PBEngSvcAccount")

strPBEngSvcPassword = GetBuildfileValue("PBEngSvcPassword")

strPBEngSvcStartup = GetBuildfileValue("PBEngSvcStartup")

strPBDMSSvcAccount = GetBuildfileValue("PBDMSSvcAccount")

strPBDMSSvcPassword = GetBuildfileValue("PBDMSSvcPassword")

strPBDMSSvcStartup = GetBuildfileValue("PBDMSSvcStartup")

strPBPortrange = GetBuildfileValue("PBPortRange")

strPBScaleout = GetBuildfileValue("PBScaleout")

strPID = GetBuildfileValue("PID")

strProcArc = GetBuildfileValue("ProcArc")

strSetupSQLDBAG = GetBuildfileValue("SetupSQLDBAG")

strProgCacls = GetBuildfileValue("ProgCacls")

strReboot = GetBuildfileValue("RebootStatus")

strRegSSIS = GetBuildfileValue("RegSSIS")

strRegSSISSetup = GetBuildfileValue("RegSSISSetup")

strRegTools = GetBuildfileValue("RegTools")

strResSuffixAS = GetBuildfileValue("ResSuffixAS")

strResSuffixDB = GetBuildfileValue("ResSuffixDB")

strRole = GetBuildfileValue("Role")

strRsFxVersion = GetBuildfileValue("RsFxVersion")

strRsAccount = GetBuildfileValue("RsAccount")

strRsPassword = GetBuildfileValue("RsPassword")

strRsSvcStartupType = GetBuildfileValue("RsSvcStartupType")

strRSDBName = GetBuildfileValue("RSDBName")

strRSDBAccount = GetBuildfileValue("RSUpgradeDatabaseAccount")

strRSDBPassword = GetBuildfileValue("RSUpgradePassword")

strRSInstallMode = GetBuildfileValue("RSInstallMode")

strRSShpInstallMode = GetBuildfileValue("RSShpInstallMode")

strRSVersionNum = GetBuildfileValue("RSVersionNum")

strsaPwd = GetBuildfileValue("saPwd")

strServName = GetBuildfileValue("ServName")

strSetupAnalytics = GetBuildfileValue("SetupAnalytics")

strSetupBol = GetBuildfileValue("SetupBOL")

strSetupBIDS = GetBuildfileValue("SetupBIDS")

strSetupBPE = GetBuildfileValue("SetupBPE")

strSetupDQ = GetBuildfileValue("SetupDQ")

strSetupDQC = GetBuildfileValue("SetupDQC")

strSetupDTCCID = GetBuildfileValue("SetupDTCCID")

strSetupDRUCtlr = GetBuildfileValue("SetupDRUCtlr")

strSetupDRUClt = GetBuildfileValue("SetupDRUClt")

strSetupDTCCluster = GetBuildfileValue("SetupDTCCluster")

strSetupDTCClusterStatus = GetBuildfileValue("SetupDTCClusterStatus")

strSetupDTCNetAccess = GetBuildfileValue("SetupDTCNetAccess")

strSetupDTCNetAccessStatus = GetBuildfileValue("SetupDTCNetAccessStatus")

strSetupIIS = GetBuildfileValue("SetupIIS")

strSetupISMaster = GetBuildfileValue("SetupISMaster")

strSetupISWorker = GetBuildfileValue("SetupISWorker")

strSetupMDS = GetBuildfileValue("SetupMDS")

strSetupNet3 = GetBuildfileValue("SetupNet3")

strSetupNet4 = GetBuildfileValue("SetupNet4")

strSetupPolyBase = GetBuildfileValue("SetupPolyBase")

strSetupPolyBaseCluster = GetBuildfileValue("SetupPolyBaseCluster")

strSetupPowerBI = GetBuildfileValue("SetupPowerBI")

strSetupPS2 = GetBuildfileValue("SetupPS2")

strSetupPython = GetBuildfileValue("SetupPython")

strSetupRServer = GetBuildfileValue("SetupRServer")

strSetupShares = GetBuildfileValue("SetupShares")

strSetupSlipstream = GetBuildfileValue("SetupSlipstream")

strSetupSSISCluster = GetBuildfileValue("SetupSSISCluster")

strSetupSSMS = GetBuildfileValue("SetupSSMS")

strSetupSP = GetBuildfileValue("SetupSP")

strSetupSPCU = GetBuildfileValue("SetupSPCU")

strSetupSQLAS = GetBuildfileValue("SetupSQLAS")

strSetupSQLASCluster = GetBuildfileValue("SetupSQLASCluster")

strSetupSQLBC = GetBuildfileValue("SetupSQLBC")

strSetupSQLDB = GetBuildfileValue("SetupSQLDB")

strSetupSQLDBCluster = GetBuildfileValue("SetupSQLDBCluster")

strSetupSQLDBRepl = GetBuildfileValue("SetupSQLDBRepl")

strSetupSQLDBFS = GetBuildfileValue("SetupSQLDBFS")

strSetupSQLDBFT = GetBuildfileValue("SetupSQLDBFT")

strSetupSQLIS = GetBuildfileValue("SetupSQLIS")

strSetupSQLNS = GetBuildfileValue("SetupSQLNS")

strSetupSQLRS = GetBuildfileValue("SetupSQLRS")

strSetupSQLRSCluster = GetBuildfileValue("SetupSQLRSCluster")

strSetupSQLTools = GetBuildfileValue("SetupSQLTools")

strSetupStdAccounts = GetBuildfileValue("SetupStdAccounts")

strSetupStreamInsight = GetBuildfileValue("SetupStreamInsight")

strServer = GetBuildfileValue("AuditServer")

strServInst = GetBuildfileValue("ServInst")

strSKUUpgrade = GetBuildfileValue("SKUUpgrade")

strSPLevel = GetBuildfileValue("SPLevel")

strSPCULevel = GetBuildfileValue("SPCULevel")

strSQLDomainGroup = GetBuildfileValue("SQLDomainGroup")

strSqlAccount = GetBuildfileValue("SqlAccount")

strSqlPassword = GetBuildfileValue("SqlPassword")

strSqlAdminAccounts = GetBuildfileValue("SQLAdminAccounts")

strSqlSvcStartupType = GetBuildfileValue("SqlSvcStartupType")

strSqlBrowserAccount = GetBuildfileValue("SqlBrowserAccount")

strSqlBrowserPassword = GetBuildfileValue("SqlBrowserPassword")

strSqlBrowserStartup = GetBuildfileValue("SqlBrowserStartup")

strSQLExe = GetBuildfileValue("SQLExe")

strSQLLanguage = GetBuildfileValue("SQLLanguage")

strSQLMedia = FormatFolder("PathSQLMedia")

strSQLMediaBase = FormatFolder("PathSQLMediaBase")

strSQLMediaOrig = GetBuildfileValue("PathSQLMediaOrig")

strSQLMediaArc = GetBuildfileValue("SQLMediaArc")

strSQLSharedMR = GetBuildfileValue("SQLSharedMR")

strSQLVersion = GetBuildfileValue("AuditVersion")

strSQLVersionNum = GetBuildfileValue("SQLVersionNum")

strTCPPortDTC = GetBuildfileValue("TCPPortDTC")

strSQLSupportMsi = GetBuildfileValue("SQLSupportMsi")

strSQMReporting = GetBuildfileValue("SQMReporting")

strSSASAdminAccounts = GetBuildfileValue("SSASAdminAccounts")

strStatusAssumed = GetBuildFileValue("StatusAssumed")

strStopAt = GetBuildFileValue("StopAt")

strtempdbFile = GetBuildfileValue("tempdbFile")

strtempdbLogFile = GetBuildfileValue("tempdbLogFile")

strType = GetBuildfileValue("Type")

strUseFreeSSMS = GetBuildfileValue("UseFreeSSMS")

strUserAccount = GetBuildfileValue("UserAccount")

strUserDNSDomain = GetBuildfileValue("UserDNSDomain")

strUserFeatures = GetBuildfileValue("Features")

strUserName = GetBuildfileValue("AuditUser")

strUserOptions = GetBuildfileValue("Options")

strUseSysDB = GetBuildfileValue("UseSysDB")

strUpdateSource = FormatFolder("UpdateSource")

strVersionNet3 = GetBuildfileValue("VersionNet3")

strVersionNet4 = GetBuildfileValue("VersionNet4")

strVolBackup = GetBuildfileValue("VolBackup")

strVolBackupAS = GetBuildfileValue("VolBackupAS")

strVolBPE = GetBuildfileValue("VolBPE")

strVolData = GetBuildfileValue("VolData")

strVolDataAS = GetBuildfileValue("VolDataAS")

strVolDataFS = GetBuildfileValue("VolDataFS")

strVolDataFT = GetBuildfileValue("VolDataFT")

strVolDBA = GetBuildfileValue("VolDBA")

strVolDTC = GetBuildfileValue("VolDTC")

strVolLog = GetBuildfileValue("VolLog")

strVolLogAS = GetBuildfileValue("VolLogAS")

strVolLogTemp = GetBuildfileValue("VolLogTemp")

strVolProg = GetBuildfileValue("VolProg")

strVolTemp = GetBuildfileValue("VolTemp")

strVolTempAS = GetBuildfileValue("VolTempAS")

strVolSys = GetBuildfileValue("VolSys")

strVolSysDB = GetBuildfileValue("VolSysDB")

strWaitLong = GetBuildfileValue("WaitLong")

strWaitShort = GetBuildfileValue("WaitShort")

strWinDir = GetBuildfileValue("WinDir")

strWOWX86 = GetBuildfileValue("WOWX86")

strPath = "SOFTWARE\Microsoft\Updates\Windows Server 2003\SP3\KB933789\"

objWMIReg.GetStringValue strHKLM,strPath,"Description",strStatusKB933789

strPath = strPathSys & "msiexec.exe"

strVersionInst = objFSO.GetFileVersion(strPath)

strPath = "SOFTWARE\Microsoft\NET Framework Setup\NDP\v2.0.50727\"

objWMIReg.GetStringValue strHKLM,strPath,"Version",strVersionNet2

strPath = "SOFTWARE\Microsoft\PowerShell\1\PowerShellEngine\"

objWMIReg.GetStringValue strHKLM,strPath,"PowerShellVersion",strVersionPS

If strClusterAction <> "" Then

Set objCluster = CreateObject("MSCluster.Cluster")

objCluster.Open ""

End If

End Sub

Sub Process_Install()

Call SetProcessId("2", strSQLVersion & " Install processing (FineBuild2InstallSQL.vbs)")

Call SetUpdate("ON")

Select Case True

Case err.Number <> 0

' Nothing

Case strProcessId >= "2AZ"

' Nothing

Case Else

Call SetupPreSQLTasks()

End Select

Select Case True

Case err.Number <> 0

' Nothing

Case strProcessId > "2BZ"

' Nothing

Case Else

Call SetupSQLInstall()

End Select

Select Case True

Case err.Number <> 0

' Nothing

Case strProcessId >= "2CZ"

' Nothing

Case Else

Call SetupPostSQLTasks()

End Select

Call SetUpdate("OFF")

Call SetProcessId("2Z", " SQL Install processing" & strStatusComplete)

Call ProcessEnd("")

End Sub

Sub SetupPreSQLTasks()

Call SetProcessId("2A", "Pre-requisite processing")

Select Case True

Case err.Number <> 0

' Nothing

Case strProcessId > "2AAZ"

' Nothing

Case Else

Call SetupWindowsPreReqs()

End Select

Select Case True

Case err.Number <> 0

' Nothing

Case strProcessId > "2AB"

' Nothing

Case strSetupSlipstream <> "YES"

' Nothing

Case Else

Call SetupSlipstream()

End Select

Select Case True

Case err.Number <> 0

' Nothing

Case strProcessId > "2ACZ"

' Nothing

Case Else

Call SetupMSDTC()

End Select

Select Case True

Case err.Number <> 0

' Nothing

Case strProcessId > "2AD"

' Nothing

Case GetBuildfileValue("SetupJRE") <> "YES"

' Nothing

Case Else

Call SetupJRE()

End Select

Select Case True

Case err.Number <> 0

' Nothing

Case strProcessId > "2AE"

' Nothing

Case strSetupNet3 = "YES"

Call SetBuildFileValue("SetupNet20Status", strStatusBypassed & ", .Net 3.5 will be installed")

Case strVersionNet2 >= "1"

' Nothing

Case strSQLVersion > "SQL2005"

' Nothing

Case Else

Call SetupNet20()

End Select

Select Case True

Case err.Number <> 0

' Nothing

Case strProcessId > "2AF"

' Nothing

Case strSetupNet3 <> "YES"

' Nothing

Case strVersionNet3 >= "3.5.30729.01"

Call SetBuildFileValue("SetupNet3Status", strStatusPreConfig)

Case Else

Call SetupNet35SP1()

End Select

Select Case True

Case err.Number <> 0

' Nothing

Case strProcessId > "2AG"

' Nothing

Case strSetupIIS <> "YES"

' Nothing

Case Else

Call SetupIIS()

End Select

Select Case True

Case err.Number <> 0

' Nothing

Case strProcessId > "2AH"

' Nothing

Case GetBuildfileValue("SetupMSI45") <> "YES"

' Nothing

Case strVersionInst >= "4.5.6001.22159"

Call SetBuildFileValue("SetupMSI45Status", strStatusPreConfig)

Case Else

Call SetupInstaller45()

End Select

Select Case True

Case err.Number <> 0

' Nothing

Case strProcessId > "2AI"

' Nothing

Case GetBuildfileValue("SetupPS1") <> "YES"

' Nothing

Case strSetupPS2 = "YES"

Call SetBuildfileValue("SetupPS1Status", strStatusBypassed & ", PS2 will be installed")

Case strVersionPS >= "1.0"

Call SetBuildFileValue("SetupPS1Status", strStatusPreConfig)

Case Else

Call SetupPowershellV1()

End Select

Select Case True

Case err.Number <> 0

' Nothing

Case strProcessId > "2AJ"

' Nothing

Case strSetupPS2 <> "YES"

' Nothing

Case strVersionPS >= "2.0"

Call SetBuildFileValue("SetupPS2Status", strStatusPreConfig)

Case Else

Call SetupPowershellV2()

End Select

Select Case True

Case err.Number <> 0

' Nothing

Case strProcessId > "2AN"

' Nothing

Case GetBuildfileValue("SetupKB956250") <> "YES"

' Nothing

Case Else

Call SetupKB956250()

End Select

Select Case True

Case err.Number <> 0

' Nothing

Case strProcessId > "2AO"

' Nothing

Case strSetupNet4 <> "YES"

' Nothing

Case strVersionNet4 >= "4"

Call SetBuildFileValue("SetupNet4Status", strStatusPreConfig)

Case Else

Call SetupNet40()

End Select

' ProcessId 2AP available for reuse

Select Case True

Case err.Number <> 0

' Nothing

Case strProcessId > "2AQ"

' Nothing

Case GetBuildfileValue("SetupNet4x") <> "YES"

' Nothing

Case Not strVersionNet4 >= "4"

Call SetBuildFileValue("SetupNet4xStatus", strStatusBypassed)

Case Else

Call SetupNet4x()

End Select

Select Case True

Case err.Number <> 0

' Nothing

Case strProcessId > "2AR"

' Nothing

Case (strSetupDRUCtlr <> "YES") And (strSetupDRUClt <> "YES")

' Nothing

Case Else

Call SetupDRU()

End Select

Select Case True

Case err.Number <> 0

' Nothing

Case strProcessId > "2ASZ"

' Nothing

Case GetBuildfileValue("SetupRSAT") <> "YES"

' Nothing

Case strOSVersion < "6.0"

Call SetBuildFileValue("SetupNet20Status", strStatusBypassed)

Case Else

Call SetupRSAT()

End Select

Select Case True

Case err.Number <> 0

' Nothing

Case strProcessId > "2AT"

' Nothing

Case GetBuildfileValue("SetupPSRemote") <> "YES"

' Nothing

Case strVersionPS = ""

Call SetBuildFileValue("SetupPSRemoteStatus", strStatusBypassed)

Case Else

Call SetupPSRemote()

End Select

Call SetProcessId("2AZ", " Pre-requisite processing" & strStatusComplete)

Call ProcessEnd("")

End Sub

Sub SetupWindowsPreReqs()

Call SetProcessId("2AA", "Setup Windows Pre-Reqs")

Select Case True

Case err.Number <> 0

' Nothing

Case strProcessId > "2AAA"

' Nothing

Case Else

Call SetupCOMPreReqs()

End Select

Select Case True

Case err.Number <> 0

' Nothing

Case strProcessId > "2AABZ"

' Nothing

Case strOSVersion >= "6.0"

' Nothing

Case Else

Call SetupWin2003PreReqs()

End Select

Select Case True

Case err.Number <> 0

' Nothing

Case strProcessId > "2AACZ"

' Nothing

Case strOSVersion < "6.0"

' Nothing

Case strOSVersion >= "6.1"

' Nothing

Case Else

Call SetupWin2008PreReqs()

End Select

Select Case True

Case err.Number <> 0

' Nothing

Case strProcessId > "2AADZ"

' Nothing

Case strOSVersion < "6.1"

' Nothing

Case strOSVersion >= "6.2"

' Nothing

Case Else

Call SetupWin2008R2PreReqs()

End Select

Select Case True

Case err.Number <> 0

' Nothing

Case strProcessId > "2AAEZ"

' Nothing

Case strOSVersion < "6.2"

' Nothing

Case strOSVersion >= "6.3"

' Nothing

Case Else

Call SetupWin2012PreReqs()

End Select

Select Case True

Case err.Number <> 0

' Nothing

Case strProcessId > "2AAFZ"

' Nothing

Case strOSVersion < "6.3"

' Nothing

Case strOSVersion >= "6.3A"

' Nothing

Case Else

Call SetupWin2012R2PreReqs()

End Select

Call SetProcessId("2AAZ", " Setup Windows Pre-Reqs" & strStatusComplete)

Call ProcessEnd("")

End Sub

Sub SetupCOMPreReqs()

Call SetProcessId("2AAA", "Setup COM PreReqs")

Dim strCLSIdNetCon, strCLSIdRunBroker

strCLSIdNetCon = GetBuildfileValue("CLSIdNetCon")

strCLSIdRunBroker = GetBuildfileValue("CLSIdRunBroker")

Select Case True

Case strOSVersion >= "6.0"

' Nothing

Case strCLSIdNetCon = ""

' Nothing

Case Else

Call SetDCOMSecurity("AppID\{" & strCLSIdNetCon & "}\")

End Select

Select Case True

Case strOSVersion <= "6.1"

' Nothing

Case strCLSIdRunBroker = ""

' Nothing

Case Else

Call SetDCOMSecurity("AppID\{" & strCLSIdRunBroker & "}\")

End Select

Call ProcessEnd(strStatusComplete)

End Sub

Sub SetupWin2003PreReqs()

Call SetProcessId("2AAB", "Setup Windows 2003 Pre-Reqs")

Select Case True

Case err.Number <> 0

' Nothing

Case strProcessId > "2AABA"

' Nothing

Case GetBuildfileValue("SetupKB925336") <> "YES"

' Nothing

Case Else

Call SetupKB925336()

End Select

Select Case True

Case err.Number <> 0

' Nothing

Case strProcessId > "2AABB"

' Nothing

Case GetBuildfileValue("SetupKB933789") <> "YES"

' Nothing

Case Else

Call SetupKB933789()

End Select

Select Case True

Case err.Number <> 0

' Nothing

Case strProcessId > "2AABC"

' Nothing

Case GetBuildfileValue("SetupKB937444") <> "YES"

' Nothing

Case Else

Call SetupKB937444()

End Select

Call SetProcessId("2AABZ", " Setup Windows 2003 Pre-Reqs" & strStatusComplete)

Call ProcessEnd("")

End Sub

Sub SetupWin2008PreReqs()

Call SetProcessId("2AAC", "Setup Windows 2008 Pre-Reqs")

Call SetProcessId("2AACZ", " Setup Windows 2008 Pre-Reqs" & strStatusComplete)

Call ProcessEnd("")

End Sub

Sub SetupWin2008R2PreReqs()

Call SetProcessId("2AAD", "Setup Windows 2008R2 Pre-Reqs")

Select Case True

Case err.Number <> 0

' Nothing

Case strProcessId > "2AADA"

' Nothing

Case GetBuildfileValue("SetupKB4019990") <> "YES"

' Nothing

Case Else

Call SetupKB4019990("2AADA")

End Select

Call SetProcessId("2AADZ", " Setup Windows 2008 Pre-Reqs" & strStatusComplete)

Call ProcessEnd("")

End Sub

Sub SetupWin2012PreReqs()

Call SetProcessId("2AAE", "Setup Windows 2012 Pre-Reqs")

Select Case True

Case err.Number <> 0

' Nothing

Case strProcessId > "2AAEA"

' Nothing

Case GetBuildfileValue("SetupKB4019990") <> "YES"

' Nothing

Case Else

Call SetupKB4019990("2AAEA")

End Select

Call SetProcessId("2AAEZ", " Setup Windows 2008 Pre-Reqs" & strStatusComplete)

Call ProcessEnd("")

End Sub

Sub SetupKB4019990(strProcess)

Call SetProcessId(strProcess, "Install Windows 2008R2 & Windows 2012 KB4019990 D3DCompiler Fix")

Dim objInstParm

Dim strKB4019990msi

Select Case True

Case (strOSVersion = "6.1") And (strProcArc = "X86") ' Windows 2008R2 X86

strKB4019990msi = "Windows6.1-KB4019990-x86.msu"

Case strOSVersion = "6.1" ' Windows 2008R2 X64

strKB4019990msi = "Windows6.1-KB4019990-x64.msu"

Case Else ' Windows 2012

strKB4019990msi = "Windows8-RT-KB4019990-x64.msu"

End Select

' Call SetXMLParm(objInstParm, "PreConKey", "SOFTWARE\Microsoft\Windows\CurrentVersion\Component Based Servicing\PackageDetect\Microsoft-Windows-Common-Foundation-Package~31bf3856ad364e35~" & LCase(strProcArc) & "~~0.0.0.0\Package_for_KB2919355~31bf3856ad364e35~" & LCase(strProcArc) & "~~6.3.1.14") ' Yes, it does use the KB2919355 PreCon

' Call SetXMLParm(objInstParm, "PreConType", "DWORD")

Call RunInstall("KB4019990", strKB4019990msi, objInstParm)

Call ProcessEnd("")

End Sub

Sub SetupWin2012R2PreReqs()

Call SetProcessId("2AAF", "Setup Windows 2012 R2 Pre-Reqs")

Select Case True

Case err.Number <> 0

' Nothing

Case strProcessId > "2AAFA"

' Nothing

Case GetBuildfileValue("SetupKB2919442") <> "YES"

' Nothing

Case Else

Call SetupKB2919442()

End Select

Select Case True

Case err.Number <> 0

' Nothing

Case strProcessId > "2AAFB"

' Nothing

Case GetBuildfileValue("SetupKB2919355") <> "YES"

' Nothing

Case Else

Call SetupKB2919355()

End Select

Select Case True

Case err.Number <> 0

' Nothing

Case strProcessId > "2AAFC"

' Nothing

Case GetBuildfileValue("SetupKB3090973") <> "YES"

' Nothing

Case Else

Call SetupKB3090973()

End Select

Call SetProcessId("2AAFZ", " Setup Windows 2012 R2 Pre-Reqs" & strStatusComplete)

Call ProcessEnd("")

End Sub

Sub SetupKB925336()

Call SetProcessId("2AABA", "Install Windows 2003 KB925336 Installer Fix")

Dim objInstParm

Call SetXMLParm(objInstParm, "PreConKey", "SOFTWARE\Microsoft\Updates\Windows Server 2003\SP3\KB925336\Description")

Call RunInstall("KB925336", GetBuildfileValue("KB925336exe"), objInstParm)

Call ProcessEnd("")

End Sub

Sub SetupKB933789()

Call SetProcessId("2AABB", "Install Windows 2003 KB933789 Permissions Fix")

Dim objInstParm

Call SetXMLParm(objInstParm, "PreConKey", "SOFTWARE\Microsoft\Updates\Windows Server 2003\SP3\KB933789\Description")

Call RunInstall("KB933789", GetBuildfileValue("KB933789exe"), objInstParm)

strPath = "SOFTWARE\Microsoft\Updates\Windows Server 2003\SP3\KB933789\"

objWMIReg.GetStringValue strHKLM,strPath,"Description",strStatusKB933789

Call ProcessEnd("")