vagrant-uplift 0.2.1902.18

data/lib/scripts/vagrant/uplift.vagrant.dc12/tests/dc.dsc.Tests.ps1

@@ -0,0 +1,165 @@
+# avoiding: Attempting to perform the InitializeDefaultDrives operation on the ‘ActiveDirectory’ provider failed.
+# https://mikefrobbins.com/2011/02/17/managed-service-accounts/
+
+try {
+    Import-Module ActiveDirectory -ErrorAction SilentlyContinue
+
+} catch {
+    try {
+        Import-Module ActiveDirectory
+    } catch {
+
+    }
+}
+
+
+Describe 'Domain Controller' {
+
+    Context "Network" {
+
+        It 'ipconfig like "192.168.*.*"' {
+             ((Get-NetIpAddress) `
+                | where-object { $_.IPAddress -like "192.168.*.*" })   `
+                | Should Not Be $null
+        }
+
+    }
+
+    Context "Features" {
+        It 'AD-Domain-Services' {
+            (Get-WindowsFeature AD-Domain-Services).InstallState | Should BeLike "Installed"
+        }
+
+        It 'DNS' {
+            (Get-WindowsFeature DNS).InstallState | Should BeLike "Installed"
+        }
+
+    }
+
+    Context "Services" {
+
+        It 'DNS Server' {
+            (Get-Service "DNS Server").Status | Should BeLike "Running"
+        }
+
+        It 'Active Directory Domain Services' {
+            (Get-Service "Active Directory Domain Services").Status | Should BeLike "Running"
+        }
+
+        It 'Active Directory Web Services' {
+            (Get-Service "Active Directory Web Services").Status | Should BeLike "Running"
+        }
+
+    }
+
+    Context "AD Module warm up" {
+
+        # warning up AD
+        # looks like it would always fails for the first run
+        # https://social.msdn.microsoft.com/Forums/en-US/60fed6d1-e5ab-4a0f-8c45-c08eccf29cb7/custom-script-extension-importmodule-attempting-to-perform-the-initializedefaultdrives-operation?forum=azurescripting
+        BeforeAll {
+            try {
+                Import-Module ActiveDirectory
+
+            } catch {
+
+            }
+
+            try {
+                props = get-ADComputer $env:computername -properties *
+
+            } catch {
+
+            }
+
+            try {
+                $user = Get-ADUser "vagrant"
+
+            } catch {
+
+            }
+
+        }
+
+        It 'AD module warn up' {
+
+            try {
+                Import-Module ActiveDirectory
+
+            } catch {
+
+            }
+
+            try {
+                props = get-ADComputer $env:computername -properties *
+
+            } catch {
+
+            }
+
+            try {
+                $user = Get-ADUser "vagrant"
+
+            } catch {
+
+            }
+        }
+
+    }
+
+
+    Context "Users" {
+
+        # warning up AD
+        # looks like it would always fails for the first run
+        # https://social.msdn.microsoft.com/Forums/en-US/60fed6d1-e5ab-4a0f-8c45-c08eccf29cb7/custom-script-extension-importmodule-attempting-to-perform-the-initializedefaultdrives-operation?forum=azurescripting
+        BeforeAll {
+            try {
+                Import-Module ActiveDirectory
+
+            } catch {
+
+            }
+
+            try {
+                props = get-ADComputer $env:computername -properties *
+
+            } catch {
+
+            }
+
+            try {
+                $user = Get-ADUser "vagrant"
+
+            } catch {
+
+            }
+
+        }
+    }
+
+    Context "Domain Controller" {
+
+        # It 'PrimaryGroupID: 516' {
+
+        #     Import-Module ActiveDirectory
+        #     $props = get-ADComputer $env:computername -properties *
+        #     $id =  $props.PrimaryGroupID
+
+        #     $id | Should Be 516
+        # }
+
+        It 'domain: *.local' {
+
+            $env:USERDNSDOMAIN | Should BeLike "*.local"
+        }
+
+        It 'vm name: *.local' {
+            $name = (Get-WmiObject win32_computersystem).DNSHostName+"."+(Get-WmiObject win32_computersystem).Domain
+
+            $name | Should BeLike "*.local"
+        }
+
+    }
+
+}

data/lib/scripts/vagrant/uplift.vagrant.dcjoin/dc.join.dsc.ps1

@@ -0,0 +1,125 @@
+# fail on errors and include uplift helpers
+$ErrorActionPreference = "Stop"
+
+Import-Module Uplift.Core
+
+Write-UpliftMessage "Running windows SOE config..."
+Write-UpliftEnv
+
+$computerName = $env:computername
+
+$domainName =               Get-UpliftEnvVariable "UPLF_DC_DOMAIN_NAME"
+$domainJoinUserName =       Get-UpliftEnvVariable "UPLF_DC_JOIN_USER_NAME"
+$domainJoinUserPassword =   Get-UpliftEnvVariable "UPLF_DC_JOIN_USER_PASSWORD"
+$domainIpAddr =             Get-UpliftEnvVariable "UPLF_DC_DOMAIN_HOST_IP"
+
+Write-UpliftMessage "Joining computer [$computerName] to domain [$domainName] under user [$domainJoinUserName]"
+Write-UpliftMessage "Running as :[$($env:UserDomain)/$($env:UserName)] on $($env:ComputerName)"
+
+$securePassword = ConvertTo-SecureString $domainJoinUserPassword -AsPlainText -Force
+$domainJoinUserCreds = New-Object System.Management.Automation.PSCredential($domainJoinUserName, $securePassword)
+
+# helpers
+Write-UpliftMessage "Importing ActiveDirectory module..."
+Import-Module ActiveDirectory
+
+function Helper-RemoveADComputer
+{
+    Param(
+        [Parameter(Mandatory=$True)]
+        $computerName,
+        
+        [Parameter(Mandatory=$True)]
+        $domainJoinUserCreds,
+
+        [Parameter(Mandatory=$True)]
+        $domainIpAddr 
+    )
+
+    $computer = $null
+
+    
+
+    try {
+        Write-UpliftMessage "Fetching computer from Active Directory: $computerName"
+
+        $computer = get-adcomputer $computerName `
+                        -ErrorAction SilentlyContinue `
+                        -Credential $domainJoinUserCreds `
+                        -Server $domainIpAddr
+    } catch {
+
+        Write-UpliftMessage "There was an error while fetching computer from Active Directory:[$computerName]"
+        Write-UpliftMessage "Mostlikely, computer $computerName has never been added to Active Directory yet"
+
+        Write-UpliftMessage $_
+        Write-UpliftMessage $_.Exception
+
+        $computer = $null
+    }
+
+    if($null -ne $computer ) {
+        Write-UpliftMessage "Removing computer from Active Directory: $computerName"
+        
+        Remove-ADComputer -identity $computerName `
+                            -Confirm:$false  `
+                            -Credential $domainJoinUserCreds `
+                            -Server $domainIpAddr
+
+        Write-UpliftMessage "Removed computer from Active Directory: $computerName"
+
+    } else {
+        Write-UpliftMessage "No need to remove computer $computerName from Active Directory"
+    }
+}
+
+Write-UpliftMessage "Joining current computer to domain..."
+
+if((Get-CimInstance -Class Win32_ComputerSystem).PartOfDomain) {
+    Write-UpliftMessage "This computer, $computerName, is already part of domain. No domain join or reboot is required"
+}
+else {
+
+    Write-UpliftMessage "ipconfig /flushdns"
+    ipconfig /flushdns 
+
+    Write-UpliftMessage "pinging dc: $domainIpAddr"
+    ping $domainIpAddr
+
+    # TODO, add error handling if dc isn't pingable
+
+    Write-UpliftMessage "Deleting old computer from the domain..."
+    Helper-RemoveADComputer $computerName $domainJoinUserCreds $domainIpAddr
+
+    Write-UpliftMessage "Joining computer to the domain..."
+
+    try {
+        if($computerName -ne $env:computername) {
+            Write-UpliftMessage "Joining computer with name [$($env:computername)] as [$computerName] to domain:[$domainName]"
+
+            Add-Computer -DomainName $domainName `
+                        -NewName $computerName `
+                        -Credential $domainJoinUserCreds
+        } else {
+            Write-UpliftMessage "Joining computer [$computerName] to domain [$domainName]"
+            
+            Add-Computer -DomainName $domainName `
+                        -Credential $domainJoinUserCreds
+        } 
+    } catch {
+        $errorMessage = $_.ToString()
+
+        Write-UpliftMessage "Error while adding ccomputer [$computerName] to domain [$domainName]"
+        Write-UpliftMessage $errorMessage 
+        
+        if($errorMessage.Contains("0x21c4") -eq $true) {
+            Write-UpliftMessage "!!! - Mostlikely, this image wasn't sysprep-ed: DC and client VMs have the same SID and won't even be joined. Run provision with syspreped image to join VMs to domain."
+        }
+
+        throw $_
+    }
+
+    Write-UpliftMessage "Joining completed, a reboot is required"
+}
+
+exit 0

data/lib/scripts/vagrant/uplift.vagrant.dcjoin/dc.join.hostname.ps1

@@ -0,0 +1,13 @@
+# fail on errors and include uplift helpers
+$ErrorActionPreference = "Stop"
+
+Import-Module Uplift.Core
+
+$fullComputerName = ( Get-CimInstance win32_computersystem ).DNSHostName `
+                    + "." `
+                    + (Get-CimInstance win32_computersystem).Domain
+
+Write-UpliftMessage "`thost name: $(hostname)"
+Write-UpliftMessage "`tfull name: $fullComputerName"
+
+exit 0

data/lib/scripts/vagrant/uplift.vagrant.dcjoin/tests/dc.join.dsc.Tests.ps1

@@ -0,0 +1,12 @@
+Describe 'Domain Controller' {
+
+    Context "Domain membership" {
+
+        It 'Should be part of domain' {
+            (Get-CimInstance -Class Win32_ComputerSystem).PartOfDomain `
+                | Should Be $true
+        }
+
+    }
+
+}

data/lib/scripts/vagrant/uplift.vagrant.sharepoint/shared/sp.helpers.ps1

@@ -0,0 +1,155 @@
+
+function global:Import-UpAssembly {
+
+    Param(
+        [Parameter(Mandatory=$True)]
+        [String]$assemblyName
+    )
+
+    $assembly = [System.Reflection.Assembly]::LoadWithPartialName($assemblyName)
+
+    if ($null -eq $assembly) {
+        $errorMessage = "Cannot load assembly by its name: $assemblyName"
+
+        Write-UpliftMessage $errorMessage
+        throw $errorMessage
+    } else {
+        $errorMessage = "Loaded assembly by name: $assemblyName"
+    }
+}
+
+function global:Import-UpAssemblies {
+
+    Param(
+        [Parameter(Mandatory=$True)]
+        [String[]]$assemblyNames
+    )
+
+    foreach($assemblyName in $assemblyNames) {
+        Import-UpAssembly $assemblyName
+    }
+}
+
+function global:Get-UpSPConfigDbDNS($majorVersion) {
+
+    if($null -eq $majorVersion) {
+        $majorVersion = "15"
+    }
+
+    $regPath = "HKLM:\SOFTWARE\Microsoft\Shared Tools\Web Server Extensions\$majorVersion.0\Secure\ConfigDB"
+    $item = Get-ItemProperty  $regPath -ErrorAction SilentlyContinue
+
+    if($null -eq $item) {
+        return $null
+    }
+
+    return $item.dsn
+}
+
+function global:Invoke-UpSqlQuery($server, $query) {
+    Write-UpliftMessage "Annoying SQL server [$server] with query [$query]"
+
+    $connection = New-Object "System.Data.SqlClient.SqlConnection" `
+                -ArgumentList  @("Server = $server; Database = master; Integrated Security = True;")
+
+
+    $connection.Open()
+
+    $sqlCommand = New-Object "System.Data.SqlClient.SqlCommand" -ArgumentList @($query, $connection);
+    $sqlCommand.ExecuteNonQuery() | Out-Null
+
+    $connection.Close()
+}
+
+function global:Invoke-UpSqlReaderQuery($server, $query) {
+    Write-UpliftMessage "Annoying SQL server [$server] with query [$query]"
+
+    $result = @()
+
+    $connection = New-Object "System.Data.SqlClient.SqlConnection" `
+                -ArgumentList  @("Server = $server; Database = master; Integrated Security = True;")
+
+
+    #$sqlCommandText = $query;
+    $connection.Open()
+
+    $sqlCommand = New-Object "System.Data.SqlClient.SqlCommand" -ArgumentList @($query, $connection);
+    $reader = $sqlCommand.ExecuteReader()
+
+    while( $reader.Read() -eq $true) {
+        $result += $reader.GetValue(0)
+        #Write-UpliftMessage "Result: [$($reader.GetValue(0))]"
+    }
+
+    $connection.Close()
+
+    return $result
+}
+
+function global:Remove-UpSqlDb($name) {
+    $sqlCommandText = "DROP DATABASE $name";
+    $sqlCommand = New-Object System.DateSqlCommand -arguments ($sqlCommandText, $connection);
+    $sqlCommand.ExecuteNonQuery();
+}
+
+function global:Confirm-UpSPInstalled {
+    # assuming SharePoint 2013 by default
+    $configDbDns = Get-UpSPConfigDbDNS 15
+
+    # checking if SharePoint 2016 is here
+    if($null -eq $configDbDns) {
+        $configDbDns = Get-UpSPConfigDbDNS 16
+    }
+
+    Write-UpliftMessage "Detected config Db DNS:[$configDbDns]"
+    $isSharePointInstalled = ($null -ne $configDbDns)
+
+    return $isSharePointInstalled
+}
+
+function global:Initialize-UpSPSqlServer {
+    Param(
+        [Parameter(Mandatory=$True)]
+        [String]$spSqlServerName,
+
+        [Parameter(Mandatory=$True)]
+        [String]$spSqlDbPrefix
+    )
+
+    Write-UpliftMessage "Preparing SQL Server [$spSqlServerName] for SharePoint deployment. DBs prefix: $spSqlDbPrefix"
+
+    # prepare SQL Server for SharePoint deployment
+    $isSharePointInstalled = Confirm-UpSPInstalled
+
+    if($isSharePointInstalled) {
+        Write-UpliftMessage "Detected that SharePoint is already installed. No need to create Farm or Join to farm"
+    } else {
+        Remove-UpSPSqldatabases $spSqlServerName $spSqlDbPrefix
+    }
+}
+
+function global:Remove-UpSPSqldatabases {
+
+    Param(
+        [Parameter(Mandatory=$True)]
+        [String]$spSqlServerName,
+
+        [Parameter(Mandatory=$True)]
+        [String]$spSqlDbPrefix
+    )
+
+    Import-UpAssemblies @(
+        "System.Data"
+    )
+
+    Write-UpliftMessage "`t - cleaning up SQL databases with prefix: $spSqlDbPrefix"
+
+    $dbs = Invoke-UpSqlReaderQuery $spSqlServerName "select name from dbo.sysdatabases"
+
+    foreach($dbName in $dbs) {
+        if($dbName.ToLower().StartsWith($spSqlDbPrefix.ToLower()) -eq $true) {
+            Invoke-UpSqlQuery $spSqlServerName "alter database [$dbName] set single_user with rollback immediate"
+            Invoke-UpSqlQuery $spSqlServerName "drop database [$dbName]"
+        }
+    }
+}