November 2017 - laakie.nl

This is a way to display all computer objects in Active Directory of the type “Server”. If the server is reachable, then display the name in green, otherwise red.

Get-ADComputer -filter 'OperatingSystem -like "*Server*"' -SearchBase 'dc=laakie,dc=local' | 
ForEach-Object {
  $rtn = Test-Connection -CN $_.dnshostname -Count 1 -BufferSize 16 -Quiet
  IF($rtn -match 'True') {write-host -ForegroundColor green $_.dnshostname}
  ELSE { Write-host -ForegroundColor red $_.dnshostname }
}

Get-ADComputer -filter 'OperatingSystem -like "*Server*"' -SearchBase 'dc=laakie,dc=local' |

ForEach-Object {

$rtn = Test-Connection -CN $_.dnshostname -Count 1 -BufferSize 16 -Quiet

IF($rtn -match 'True') {write-host -ForegroundColor green $_.dnshostname}

ELSE { Write-host -ForegroundColor red $_.dnshostname }

}

If for some reason the Bitlocker key of your hard drive is missing in Active Directory, then you can execute the following commands to still backup the Bitlocker key.

# Select the drive that is encrypted with bitlocker
$drive = Get-BitLockerVolume | ?{$_.KeyProtector | ?{$_.KeyProtectorType -eq 'RecoveryPassword'}} | Select-Object -f 1

# Get the bitlocker key from the selected drive
$key = $drive | Select-Object -exp KeyProtector | ?{$_.KeyProtectorType -eq 'RecoveryPassword'} | Select-Object -f 1

# Write the bitlocker key to the Active Directory
Backup-BitLockerKeyProtector $drive.MountPoint $key.KeyProtectorId

# Show message on screen when running manually
Write-Host "Backing up drive $drive, key $($key.KeyProtectorId), password $($key.RecoveryPassword)"

# Select the drive that is encrypted with bitlocker

$drive = Get-BitLockerVolume | ?{$_.KeyProtector | ?{$_.KeyProtectorType -eq 'RecoveryPassword'}} | Select-Object -f 1

# Get the bitlocker key from the selected drive

$key = $drive | Select-Object -exp KeyProtector | ?{$_.KeyProtectorType -eq 'RecoveryPassword'} | Select-Object -f 1

# Write the bitlocker key to the Active Directory

Backup-BitLockerKeyProtector $drive.MountPoint $key.KeyProtectorId

# Show message on screen when running manually

Write-Host "Backing up drive $drive, key $($key.KeyProtectorId), password $($key.RecoveryPassword)"

Month: November 2017

Show Active Directory colored computerlist

Backup Bitlocker key to Active Directory