Add files via upload

Author: EdVassie

Build Scripts/FBConfigBuild.vbs

@@ -20,8 +20,10 @@ Dim FBManageCluster: Set FBManageCluster = New FBManageClusterClass
 Class FBManageClusterClass
   Dim colNodes, colResources
   Dim objCluster, objNode, objShell, objRE, objResource, objWMI, objWMIClus, objWMIDNS, objWMIReg
-  Dim strClusIPV4Address, strClusIPV4Mask, strClusIPV4Network, strClusIPV6Address, strClusIPV6Mask, strClusIPV6Network, strClusStorage, strClusterHost, strClusterName, strCmd, strCSVRoot
-  Dim strFailoverClusterDisks, strHKLM, strOSVersion, strPath, strPathNew, strPreferredOwner, strServer, strSQLVersion, strUserDNSDomain, strUserDNSServer, strWaitLong, strWaitShort
+  Dim strClusIPV4Address, strClusIPV4Mask, strClusIPV4Network, strClusIPV6Address, strClusIPV6Mask, strClusIPV6Network
+  Dim strClusterNetworkAO, strClusStorage, strClusterHost, strClusterName, strCmd, strCSVRoot
+  Dim strFailoverClusterDisks, strHKLM, strOSVersion, strPath, strPathNew, strPreferredOwner
+  Dim strServer, strSQLVersion, strUserDNSDomain, strUserDNSServer, strWaitLong, strWaitShort
   Dim intIndex
 
 
@@ -43,6 +45,7 @@ Private Sub Class_Initialize
   strClusIPV6Address  = GetBuildfileValue("ClusIPV6Address")
   strClusIPV6Mask     = GetBuildfileValue("ClusIPV6Mask")
   strClusIPV6Network  = GetBuildfileValue("ClusIPV6Network")
+  strClusterNetworkAO = GetBuildfileValue("ClusterNetworkAO")
   strClusStorage    = GetBuildfileValue("ClusStorage")
   strClusterHost    = GetBuildfileValue("ClusterHost")
   strClusterName    = GetBuildfileValue("ClusterName")
@@ -51,6 +54,7 @@ Private Sub Class_Initialize
   strPreferredOwner = GetBuildfileValue("PreferredOwner")
   strServer         = GetBuildfileValue("AuditServer")
   strSQLVersion     = GetBuildfileValue("SQLVersion")
+  strCSVRoot        = GetBuildfileValue("CSVRoot")
   strWaitLong       = GetBuildfileValue("WaitLong")
   strWaitShort      = GetBuildfileValue("WaitShort")
 
@@ -962,6 +966,12 @@ Sub SetClusNetworkProps(strClusterNetwork, strClusterAction)
         Call Util_RunExec(strCmd, "", strResponseYes, 0)
         strCmd      = "CLUSTER """ & strClusterName & """ RESOURCE """ & strClusterNetwork & """ /PRIV RequireKerberos=1:DWORD "
         Call Util_RunExec(strCmd, "", strResponseYes, 0)
+        If strClusterNetwork = strClusterNetworkAO Then
+          strCmd    = "CLUSTER """ & strClusterName & """ RESOURCE """ & strClusterNetwork & """ /PRIV RegisterAllProvidersIP = 0"
+          Call Util_RunExec(strCmd, "", strResponseYes, 5024)
+          strCmd    = "CLUSTER """ & strClusterName & """ RESOURCE """ & strClusterNetwork & """ /PRIV HostRecordTTL = 300"
+          Call Util_RunExec(strCmd, "", strResponseYes, 5024)
+        End If
         If strOSVersion >= "6" Then
           strCmd    = "CLUSTER """ & strClusterName & """ RESOURCE """ & strClusterNetwork & """ /PRIV DeleteVcoOnResCleanup=1:DWORD "
           Call Util_RunExec(strCmd, "", strResponseYes, 0)
@@ -977,6 +987,28 @@ Sub SetClusNetworkProps(strClusterNetwork, strClusterAction)
 End Sub
 
 
+Sub SetClusterCmd()
+  Call DebugLog("SetClusterCmd:")
+  Dim strStatusComplete
+
+  strStatusComplete = GetBuildfileValue("StatusComplete")
+  Select Case True
+    Case GetBuildfileValue("SetupClusterCmdStatus") = strStatusComplete
+      ' Nothing
+    Case strOSVersion < "6.2" 
+      ' Nothing
+    Case Else
+      strCmd        = strCmdPS & " -Command Install-WindowsFeature -Name RSAT-Clustering-AutomationServer"
+      Call Util_RunExec(strCmd, "", "", 0)
+      strCmd        = strCmdPS & " -Command Install-WindowsFeature -Name RSAT-Clustering-CmdInterface"
+      Call Util_RunExec(strCmd, "", "", 0)
+  End Select
+
+  Call SetBuildfileValue("SetupClusterCmdStatus", strStatusComplete)
+
+End Sub
+
+
 Sub SetResourceOff(strResource, strResourceType)
   Call DebugLog("SetResourceOff: " & strResource)
   Dim strType
@@ -1144,6 +1176,10 @@ Sub SetClusNetworkProps(strClusterNetwork, strClusterAction)
   Call FBManageCluster.SetClusNetworkProps(strClusterNetwork, strClusterAction)
 End Sub
 
+Sub SetClusterCmd()
+  Call FBManageCluster.SetClusterCmd()
+End Sub
+
 Sub SetResourceOff(strResource, strResourceType)
   Call FBManageCluster.SetResourceOff(strResource, strResourceType)
 End Sub

Build Scripts/FBManageCluster.vbs

@@ -22,9 +22,10 @@ Dim objADOCmd, objADOConn, objExec, objFolder, objFSO, objFW, objFWRules, objRec
 Dim arrProfFolders, arrProfUsers
 Dim intIdx, intBuiltinDomLen, intNTAuthLen, intServerLen
 Dim strBuiltinDom, strClusterName, strCmd, strCmdSQL, strDirSystemDataBackup
-Dim strGroupDBA, strGroupDBANonSA, strGroupMSA, strHKLM, strHKU, strIsInstallDBA, strLocalAdmin
+Dim strGroupDBA, strGroupDBANonSA, strGroupMSA, strHKLM, strHKU, strIsInstallDBA, strKeyPassword, strLocalAdmin
 Dim strNTAuth, strOSVersion, strPath, strProfDir, strProgCacls, strProgReg
-Dim strServer, strSIDDistComUsers, strSSLCert, strSSLCertThumb, strUser, strUserAccount, strUserDNSDomain, strWaitShort
+Dim strServer, strSIDDistComUsers, strSSLCert, strSSLCertThumb, strSystemDataSharedPrimary
+Dim strTDECert, strUser, strUserAccount, strUserDNSDomain, strWaitShort
 
 
 Private Sub Class_Initialize
@@ -49,6 +50,7 @@ Private Sub Class_Initialize
   strGroupDBANonSA  = GetBuildfileValue("GroupDBANonSA")
   strGroupMSA       = GetBuildfileValue("GroupMSA")
   strIsInstallDBA   = GetBuildfileValue("IsInstallDBA")
+  strKeyPassword    = GetBuildfileValue("KeyPassword")
   strLocalAdmin     = GetBuildfileValue("LocalAdmin")
   strNTAuth         = GetBuildfileValue("NTAuth")
   strOSVersion      = GetBuildfileValue("OSVersion")
@@ -59,6 +61,8 @@ Private Sub Class_Initialize
   strSIDDistComUsers  = GetBuildfileValue("SIDDistComUsers")
   strSSLCert        = GetBuildfileValue("SSLCert")
   strSSLCertThumb   = GetBuildfileValue("SSLCertThumb")
+  strSystemDataSharedPrimary = GetBuildfileValue("SystemDataSharedPrimary")
+  strTDECert        = GetBuildfileValue("TDECert")
   strUserAccount    = GetBuildfileValue("UserAccount")
   strUserDNSDomain  = GetBuildfileValue("UserDNSDomain")
   strWaitShort      = GetBuildfileValue("WaitShort")
@@ -955,6 +959,34 @@ Sub SetSQLDBSSL(strSQLDBPath, strSQLDBAccount)
 End Sub
 
 
+Sub SetTDECert(strAction)
+  Call DebugLog("SetTDECert: " & strAction)
+
+  strPath           = FormatFolder(GetBuildfileValue("DirSystemDataSharedPrimary")) & "Cert" & strTDECert
+  Select Case True
+    Case strAction = "INSTALL" 
+      Call Util_ExecSQL(strCmdSQL & "-Q", """IF NOT EXISTS (SELECT 1 FROM sys.certificates WHERE name = '" & strTDECert & "') CREATE CERTIFICATE " & strTDECert & " WITH SUBJECT='" & Replace(strTDECert, "_", " ") & "', START_DATE='2000/01/01', EXPIRY_DATE='2999/12/31';""", 0)
+      Call DeleteFile(strPath & ".snk")
+      Call DeleteFile(strPath & ".pvk")
+      Call Util_ExecSQL(strCmdSQL & "-Q", """BACKUP CERTIFICATE " & strTDECert & " TO FILE='" & strPath & ".snk' WITH PRIVATE KEY (FILE='" & strPath & ".pvk', ENCRYPTION BY PASSWORD='" & strKeyPassword & "');""", 0)
+    Case Else
+      Call Util_ExecSQL(strCmdSQL & "-Q", """CREATE CERTIFICATE " & strTDECert & " FROM FILE='" & strPath & ".snk' WITH PRIVATE KEY (FILE='" & strPath & ".pvk', ENCRYPTION BY PASSWORD='" & strKeyPassword & "');""", -1)
+  End Select
+
+End Sub
+
+
+Sub SetWinRMSSL()
+  Call DebugLog("SetWinRMSSL:")
+
+  strCmd            = "POWERSHELL Set-WSManInstance -ResourceURI winrm/config/Listener "
+  strCmd            = strCmd & "-SelectorSet @{Address='*';Transport='HTTPS'} "
+  strCmd            = strCmd & "-ValueSet @{CertificateThumbprint='" & strSSLCertThumb & "'} "
+  Call Util_RunExec(strCmd, "", "", -1)
+
+End Sub
+
+
 End Class
 
 
@@ -1032,4 +1064,12 @@ End Sub
 
 Sub SetSQLDBSSL(strSQLDBPath, strSQLDBAccount)
   Call FBManageSecurity.SetSQLDBSSL(strSQLDBPath, strSQLDBAccount)
+End Sub
+
+Sub SetTDECert(strAction)
+  Call FBManageSecurity.SetTDECert(strAction)
+End Sub
+
+Sub SetWinRMSSL()
+  Call FBManageSecurity.SetWinRMSSL()
 End Sub