Categoría: Programación

$computers= Get-Content C:\sql.txt
$list = @()
Foreach ($computername in $computers)
{
    If(Test-Connection $computername -Quiet)
    {
        write-host "$computername - $IP - OK" -ForegroundColor GREEN
        Try
            {
            $IP = [System.Net.Dns]::GetHostEntry($computername).AddressList | %{$_.IPAddressToString}
            $IP | %{$HostName = [System.Net.Dns]::GetHostEntry($_).HostName}
            }
        Catch
        {
            write-error "NO se puede resolver el IP o DNS."
        }
        $compStatus = New-Object PSObject -Property @{
            Equipo = $computername
            Status = $true
            DNS = $HostName
            IP = $IP
    }
        $list += $compStatus
    }
    Else
    {
        write-host "$computername - $IP - NO_OK" -ForegroundColor RED
        $IP = $null
        $HostName = $null
        $compStatus = New-Object PSObject -Property @{
            Equipo = $computername
            Status = $false
            DNS = $null
            IP = $null
        }
    $list += $compStatus
    }
}
$list | Export-Csv c:\prueba2.csv -NoTypeInformation

$lsFecha = Get-Date
$lsDias = "69"
$lsDirectorio = "E:\directoriodeborrado"
$lsFechaBorrado = $lsFecha.AddDays(-$lsDias)

$Files = get-childitem $lsDirectorio -recurse -force | Where {!$_.PSIsContainer} | Where {$_.LastWriteTime -le "$lsFechaBorrado"}

foreach ($File in $Files)
{IF ($Files -ne $NULL)
{write-host "Borrado File $File.FullName" -foregroundcolor "Red" ; Remove-Item $File.FullName -recurse -force}
}
ls $lsDirectorio -r -fo | ? {$_.psIsContainer} sort fullName -des | ? {!(ls $_.fullName -fo)} | ri

#send-mailmessage -to "mie-email@midominio.com" -from "servidorqueenvia@midominio.com" -subject "Fin eliminación directorios con mas de 3 dias BACKUP" -body "Fin eliminación directorios con mas de 3 dias BACKUP" -SmtpServer mimailserver.midominio.com