elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Los 10 CVE más críticos (peligrosos) de 2020


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  Resolucion de IP y DNS - Powershell
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Resolucion de IP y DNS - Powershell  (Leído 3,158 veces)
efer27

Desconectado Desconectado

Mensajes: 27


Ver Perfil
Resolucion de IP y DNS - Powershell
« en: 31 Marzo 2013, 03:15 am »

Hola, alguien me pueda ayudar. el problema es el siguiente que una no puedo resolverlo estoy un poco estancado.
Tengo que realizar un script que me resuleva el PING y DNS y toso esto escrtibirlo en un CSV. tengo hasta al momento el codigo pero aun no puedo armarlo dando tantas vueltas ya me quede un poco bloqueado. a ver si alguien mepuede ayudar gracias por todo.


Saludos

Código:
Clear
$log = "C:\log.log"
$output = @()
## Validar si el equipo hace PING
$PingMachines = Get-Content "C:\sql.txt"

ForEach($MachineName In $PingMachines){

    $PingStatus = Get-WmiObject Win32_PingStatus -Filter "Address = '$MachineName'" | Select-Object StatusCode
    #$tmp = New-Object Psobject -Property @{Name = $MachineName; Status = $PingStatus.StatusCode}
If ($PingStatus.StatusCode -eq 0){
$output += = "$machines - OK"
    }
Else{
    $output += = "$machines - NO_OK"
        }

## Validar si el equipo resuelve el DNS

$result = $null
    $currentEAP = $ErrorActionPreference
    $ErrorActionPreference = "silentlycontinue"
    $result = [System.Net.Dns]::GetHostbyName($MachineName)
    $ErrorActionPreference = $currentEAP
     
If($Result){
    $output += [string]$Result.HostName
}
Else{
    $output += = "$machines - No HostNameFound"
    }
 }
$output | Export-csv c:\export.csv -NoTypeInformation



En línea

efer27

Desconectado Desconectado

Mensajes: 27


Ver Perfil
Re: Resolucion de IP y DNS - Powershell
« Respuesta #1 en: 4 Abril 2013, 16:51 pm »

Solucion :

Si alguien esta interesado

Código:

$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



En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[PowerShell] WMI Query Language (eBook)
Scripting
Novlucker 0 3,466 Último mensaje 28 Abril 2011, 21:40 pm
por Novlucker
¿PowerShell o MSDos?
Scripting
HIRONAKAMURA 2 3,412 Último mensaje 24 Septiembre 2012, 03:42 am
por HIRONAKAMURA
Modificar nombre de las interfaces de red en windows via CMD o PowerShell
Redes
Daxx13 2 2,752 Último mensaje 2 Diciembre 2013, 18:06 pm
por Daxx13
[PS] Necesito mover ficheros de más de 2 días con PowerShell
Scripting
guercab 0 2,283 Último mensaje 17 Diciembre 2013, 21:06 pm
por guercab
[RESUELTO][PowerShell] Ejecución de código PowerShell dentro de archivo Batch
Scripting
reconFito 2 2,915 Último mensaje 23 Abril 2024, 07:06 am
por reconFito
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines