Gonsystem: PS.AD. Active-Directory-Health

miércoles, 13 de abril de 2016

PS.AD. Active-Directory-Health

Navegando por Internet he encontrado un script muy interesante, su resultado nos puede dar cierta tranquilidad si nos proponemos verlo cada mañana. Este script hace un grupo de pruebas en las que nos da la salud de los servicios más importantes de nuestro Directorio Activo.

Si ejecutamos el script veremos lo siguiente por pantalla:

Recibiremos un email tipo:

Lo mejor es planificar una tarea diaria o semanal que nos envíe de manera automática esta información, algunos de los parámetros que tenemos que tener en cuenta son:

La pega que le veo a este script es que tiene que ejecutarse con un usuario administrador. He intentado hacer lo más seguro posible este usuario con los siguiente consejos: uno sería poner la contraseña de 30 dígitos (números, mayúsculas, símbolos, etc...) de longitud y he añadido alguna cosa más como:

Que nadie pueda cambiar su contraseña.

Que solo pueda hacer logon en mis DCs en unas franjas horarias limitadas, esto lo hago porque también uso este usuario para otras tareas, pero si solo se va a usar para este script lo mejor es poner los hosts donde va a usarse, en otras ocasiones para securizar este tipo de usuarios pongo un host que no existe, por ejemplo "PC_borrar", con lo que la tarea se ejecuta pero evitas que el usuario pueda hacer logon en alguna máquina que no sea la que nos interesa.

Por último he modificado los permisos NTFS del fichero limitándolo a el usuario que he configurado como el único que tenga acceso de escritura y ejecución.

Código:

#############################################################################
# Author: Vikas Sukhija
# Reviewer:
# Date: 12/25/2014
# Satus: Ping,Netlogon,NTDS,DNS,DCdiag Test(Replication,sysvol,Services)
# Update: Added Advertising
# Description: AD Health Status
#############################################################################
###########################Define Variables##################################

$reportpath = ".\ADReport.htm"

if((test-path $reportpath) -like $false)
{
new-item $reportpath -type file
}
$smtphost = "11.11.11.11"
$from = "AD_Health_Status@wbcndc01.local"
$email1 = "SISTEMAS@midomioes"
$timeout = "60"

###############################HTml Report Content############################
$report = $reportpath

Clear-Content $report
Add-Content $report "<html>"
Add-Content $report "<head>"
Add-Content $report "<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>"
Add-Content $report '<title>AD Status Report</title>'
add-content $report '<STYLE TYPE="text/css">'
add-content $report ""
add-content $report "</style>"
Add-Content $report "</head>"
Add-Content $report "<body>"
add-content $report "<table width='100%'>"
add-content $report "<tr bgcolor='Lavender'>"
add-content $report "<td colspan='7' height='25' align='center'>"
add-content $report "MiDominio.Local - Active Directory Health Check"
add-content $report "</td>"
add-content $report "</tr>"
add-content $report "</table>"

add-content $report "<table width='100%'>"
Add-Content $report "<tr bgcolor='IndianRed'>"
Add-Content $report "<td width='5%' align='center'>Identity</td>"
Add-Content $report "<td width='10%' align='center'>PingSTatus</td>"
Add-Content $report "<td width='10%' align='center'>NetlogonService</td>"
Add-Content $report "<td width='10%' align='center'>NTDSService</td>"
Add-Content $report "<td width='10%' align='center'>DNSServiceStatus</td>"
Add-Content $report "<td width='10%' align='center'>NetlogonsTest</td>"
Add-Content $report "<td width='10%' align='center'>ReplicationTest</td>"
Add-Content $report "<td width='10%' align='center'>ServicesTest</td>"
Add-Content $report "<td width='10%' align='center'>AdvertisingTest</td>"
Add-Content $report "<td width='10%' align='center'>FSMOCheckTest</td>"

Add-Content $report "</tr>"

#####################################Get ALL DC Servers#################################
$getForest = [system.directoryservices.activedirectory.Forest]::GetCurrentForest()

$DCServers = $getForest.domains | ForEach-Object {$_.DomainControllers} | ForEach-Object {$_.Name}

################Ping Test######

foreach ($DC in $DCServers){
$Identity = $DC
Add-Content $report "<tr>"
if ( Test-Connection -ComputerName $DC -Count 1 -ErrorAction SilentlyContinue ) {
Write-Host $DC `t $DC `t Ping Success -ForegroundColor Green

Add-Content $report "<td bgcolor= 'GainsBoro' align=center> $Identity</td>"
Add-Content $report "<td bgcolor= 'Aquamarine' align=center> Success</td>"

##############Netlogon Service Status################
$serviceStatus = start-job -scriptblock {get-service -ComputerName $($args[0]) -Name "Netlogon" -ErrorAction SilentlyContinue} -ArgumentList $DC
wait-job $serviceStatus -timeout $timeout
if($serviceStatus.state -like "Running")
{
Write-Host $DC `t Netlogon Service TimeOut -ForegroundColor Yellow
Add-Content $report "<td bgcolor= 'Yellow' align=center>NetlogonTimeout</td>"
stop-job $serviceStatus
}
else
{
$serviceStatus1 = Receive-job $serviceStatus
if ($serviceStatus1.status -eq "Running") {
Write-Host $DC `t $serviceStatus1.name `t $serviceStatus1.status -ForegroundColor Green
$svcName = $serviceStatus1.name
$svcState = $serviceStatus1.status
Add-Content $report "<td bgcolor= 'Aquamarine' align=center>$svcState</td>"
}
else
{
Write-Host $DC `t $serviceStatus1.name `t $serviceStatus1.status -ForegroundColor Red
$svcName = $serviceStatus1.name
$svcState = $serviceStatus1.status
Add-Content $report "<td bgcolor= 'Red' align=center>$svcState</td>"
}
}
######################################################
##############NTDS Service Status################
$serviceStatus = start-job -scriptblock {get-service -ComputerName $($args[0]) -Name "NTDS" -ErrorAction SilentlyContinue} -ArgumentList $DC
wait-job $serviceStatus -timeout $timeout
if($serviceStatus.state -like "Running")
{
Write-Host $DC `t NTDS Service TimeOut -ForegroundColor Yellow
Add-Content $report "<td bgcolor= 'Yellow' align=center>NTDSTimeout</td>"
stop-job $serviceStatus
}
else
{
$serviceStatus1 = Receive-job $serviceStatus
if ($serviceStatus1.status -eq "Running") {
Write-Host $DC `t $serviceStatus1.name `t $serviceStatus1.status -ForegroundColor Green
$svcName = $serviceStatus1.name
$svcState = $serviceStatus1.status
Add-Content $report "<td bgcolor= 'Aquamarine' align=center>$svcState</td>"
}
else
{
Write-Host $DC `t $serviceStatus1.name `t $serviceStatus1.status -ForegroundColor Red
$svcName = $serviceStatus1.name
$svcState = $serviceStatus1.status
Add-Content $report "<td bgcolor= 'Red' align=center>$svcState</td>"
}
}
######################################################
##############DNS Service Status################
$serviceStatus = start-job -scriptblock {get-service -ComputerName $($args[0]) -Name "DNS" -ErrorAction SilentlyContinue} -ArgumentList $DC
wait-job $serviceStatus -timeout $timeout
if($serviceStatus.state -like "Running")
{
Write-Host $DC `t DNS Server Service TimeOut -ForegroundColor Yellow
Add-Content $report "<td bgcolor= 'Yellow' align=center>DNSTimeout</td>"
stop-job $serviceStatus
}
else
{
$serviceStatus1 = Receive-job $serviceStatus
if ($serviceStatus1.status -eq "Running") {
Write-Host $DC `t $serviceStatus1.name `t $serviceStatus1.status -ForegroundColor Green
$svcName = $serviceStatus1.name
$svcState = $serviceStatus1.status
Add-Content $report "<td bgcolor= 'Aquamarine' align=center>$svcState</td>"
}
else
{
Write-Host $DC `t $serviceStatus1.name `t $serviceStatus1.status -ForegroundColor Red
$svcName = $serviceStatus1.name
$svcState = $serviceStatus1.status
Add-Content $report "<td bgcolor= 'Red' align=center>$svcState</td>"
}
}
######################################################

####################Netlogons status##################
add-type -AssemblyName microsoft.visualbasic
$cmp = "microsoft.visualbasic.strings" -as [type]
$sysvol = start-job -scriptblock {dcdiag /test:netlogons /s:$($args[0])} -ArgumentList $DC
wait-job $sysvol -timeout $timeout
if($sysvol.state -like "Running")
{
Write-Host $DC `t Netlogons Test TimeOut -ForegroundColor Yellow
Add-Content $report "<td bgcolor= 'Yellow' align=center>NetlogonsTimeout</td>"
stop-job $sysvol
}
else
{
$sysvol1 = Receive-job $sysvol
if($cmp::instr($sysvol1, "passed test NetLogons"))
{
Write-Host $DC `t Netlogons Test passed -ForegroundColor Green
Add-Content $report "<td bgcolor= 'Aquamarine' align=center>NetlogonsPassed</td>"
}
else
{
Write-Host $DC `t Netlogons Test Failed -ForegroundColor Red
Add-Content $report "<td bgcolor= 'Red' align=center>NetlogonsFail</td>"
}
}
########################################################
####################Replications status##################
add-type -AssemblyName microsoft.visualbasic
$cmp = "microsoft.visualbasic.strings" -as [type]
$sysvol = start-job -scriptblock {dcdiag /test:Replications /s:$($args[0])} -ArgumentList $DC
wait-job $sysvol -timeout $timeout
if($sysvol.state -like "Running")
{
Write-Host $DC `t Replications Test TimeOut -ForegroundColor Yellow
Add-Content $report "<td bgcolor= 'Yellow' align=center>ReplicationsTimeout</td>"
stop-job $sysvol
}
else
{
$sysvol1 = Receive-job $sysvol
if($cmp::instr($sysvol1, "passed test Replications"))
{
Write-Host $DC `t Replications Test passed -ForegroundColor Green
Add-Content $report "<td bgcolor= 'Aquamarine' align=center>ReplicationsPassed</td>"
}
else
{
Write-Host $DC `t Replications Test Failed -ForegroundColor Red
Add-Content $report "<td bgcolor= 'Red' align=center>ReplicationsFail</td>"
}
}
########################################################
####################Services status##################
add-type -AssemblyName microsoft.visualbasic
$cmp = "microsoft.visualbasic.strings" -as [type]
$sysvol = start-job -scriptblock {dcdiag /test:Services /s:$($args[0])} -ArgumentList $DC
wait-job $sysvol -timeout $timeout
if($sysvol.state -like "Running")
{
Write-Host $DC `t Services Test TimeOut -ForegroundColor Yellow
Add-Content $report "<td bgcolor= 'Yellow' align=center>ServicesTimeout</td>"
stop-job $sysvol
}
else
{
$sysvol1 = Receive-job $sysvol
if($cmp::instr($sysvol1, "passed test Services"))
{
Write-Host $DC `t Services Test passed -ForegroundColor Green
Add-Content $report "<td bgcolor= 'Aquamarine' align=center>ServicesPassed</td>"
}
else
{
Write-Host $DC `t Services Test Failed -ForegroundColor Red
Add-Content $report "<td bgcolor= 'Red' align=center>ServicesFail</td>"
}
}
########################################################
####################Advertising status##################
add-type -AssemblyName microsoft.visualbasic
$cmp = "microsoft.visualbasic.strings" -as [type]
$sysvol = start-job -scriptblock {dcdiag /test:Advertising /s:$($args[0])} -ArgumentList $DC
wait-job $sysvol -timeout $timeout
if($sysvol.state -like "Running")
{
Write-Host $DC `t Advertising Test TimeOut -ForegroundColor Yellow
Add-Content $report "<td bgcolor= 'Yellow' align=center>AdvertisingTimeout</td>"
stop-job $sysvol
}
else
{
$sysvol1 = Receive-job $sysvol
if($cmp::instr($sysvol1, "passed test Advertising"))
{
Write-Host $DC `t Advertising Test passed -ForegroundColor Green
Add-Content $report "<td bgcolor= 'Aquamarine' align=center>AdvertisingPassed</td>"
}
else
{
Write-Host $DC `t Advertising Test Failed -ForegroundColor Red
Add-Content $report "<td bgcolor= 'Red' align=center>AdvertisingFail</td>"
}
}
########################################################
####################FSMOCheck status##################
add-type -AssemblyName microsoft.visualbasic
$cmp = "microsoft.visualbasic.strings" -as [type]
$sysvol = start-job -scriptblock {dcdiag /test:FSMOCheck /s:$($args[0])} -ArgumentList $DC
wait-job $sysvol -timeout $timeout
if($sysvol.state -like "Running")
{
Write-Host $DC `t FSMOCheck Test TimeOut -ForegroundColor Yellow
Add-Content $report "<td bgcolor= 'Yellow' align=center>FSMOCheckTimeout</td>"
stop-job $sysvol
}
else
{
$sysvol1 = Receive-job $sysvol
if($cmp::instr($sysvol1, "passed test FsmoCheck"))
{
Write-Host $DC `t FSMOCheck Test passed -ForegroundColor Green
Add-Content $report "<td bgcolor= 'Aquamarine' align=center>FSMOCheckPassed</td>"
}
else
{
Write-Host $DC `t FSMOCheck Test Failed -ForegroundColor Red
Add-Content $report "<td bgcolor= 'Red' align=center>FSMOCheckFail</td>"
}
}
########################################################

}
else
{
Write-Host $DC `t $DC `t Ping Fail -ForegroundColor Red
Add-Content $report "<td bgcolor= 'GainsBoro' align=center> $Identity</td>"
Add-Content $report "<td bgcolor= 'Red' align=center> Ping Fail</td>"
Add-Content $report "<td bgcolor= 'Red' align=center> Ping Fail</td>"
Add-Content $report "<td bgcolor= 'Red' align=center> Ping Fail</td>"
Add-Content $report "<td bgcolor= 'Red' align=center> Ping Fail</td>"
Add-Content $report "<td bgcolor= 'Red' align=center> Ping Fail</td>"
Add-Content $report "<td bgcolor= 'Red' align=center> Ping Fail</td>"
Add-Content $report "<td bgcolor= 'Red' align=center> Ping Fail</td>"
Add-Content $report "<td bgcolor= 'Red' align=center> Ping Fail</td>"
Add-Content $report "<td bgcolor= 'Red' align=center> Ping Fail</td>"
}

}

Add-Content $report "</tr>"
############################################Close HTMl Tables###########################

Add-content $report "</table>"
Add-Content $report "</body>"
Add-Content $report "</html>"

########################################################################################
#############################################Send Email#################################

$subject = "MiDominio.Local. Active Directory Health Monitor"
$body = Get-Content ".\ADreport.htm"
$smtp= New-Object System.Net.Mail.SmtpClient $smtphost
$msg = New-Object System.Net.Mail.MailMessage
$msg.To.Add($email1)
$msg.from = $from
$msg.subject = $subject
$msg.body = $body
$msg.isBodyhtml = $true
$smtp.send($msg)

########################################################################################

########################################################################################

Guardarlo con extension .PS1

Los campos a modificar son fáciles de localizar, como nuestro servidor smtp, email de destino y algún título del report.

Descargado de: https://gallery.technet.microsoft.com/scriptcenter/Active-Directory-Health-709336cd

No hay comentarios:

Publicar un comentario