none
Script verificar ping e diretório RRS feed

  • Pergunta

  • Galera boa tarde,
    Me ajuda aqui por favor, peguei esse power shell de teste de ping na net e funciona perfeitamente.
    Só preciso incluir mais uma validação, quando o ping é verdadeiro precisa verificar se o caminho existe, por exemplo Test-Path -Path "C:\Intel". Também preciso incluir usuário e senha para conectar no computador.
    Aonde incluo no código abaixo?

    $path = ".\results.xls"

    $objExcel = new-object -comobject excel.application 

    if (Test-Path $path) 

    $objWorkbook = $objExcel.WorkBooks.Open($path) 
    $objWorksheet = $objWorkbook.Worksheets.Item(1) 
    }

    else { 
    $objWorkbook = $objExcel.Workbooks.Add() 
    $objWorksheet = $objWorkbook.Worksheets.Item(1)
    }

    $objExcel.Visible = $True

    #########Add Header####

    $objWorksheet.Cells.Item(1, 1) = "MachineName"
    $objWorksheet.Cells.Item(1, 2) = "Result"

    $machines = gc .\machinelist.txt
    $count = $machines.count

    $row=2

    $machines | foreach-object{
    $ping=$null
    $machine = $_
    $ping = Test-Connection $machine -Count 1 -ea silentlycontinue

    if($ping){

    $objWorksheet.Cells.Item($row,1) = $machine
    $objWorksheet.Cells.Item($row,2) = "ativo"

    $row++}
    else {

    $objWorksheet.Cells.Item($row,1) = $machine
    $objWorksheet.Cells.Item($row,2) = "DOWN"

    $row++}
    }

    # Format the excel
     
    # To wrap the text           
    $d = $objWorksheet.UsedRange 
    $null = $d.EntireColumn.AutoFit()

    ##to set column width and cell alignment
    $objWorksheet.Columns.Item(1).columnWidth = 24
    $objWorksheet.Columns.Item(2).columnWidth = 24
    $objWorksheet.Columns.HorizontalAlignment = -4131
    $objWorksheet.rows.item(1).Font.Bold = $True 

    ##to apply filter
    $headerRange = $objWorksheet.Range("a1","n1")
    $headerRange.AutoFilter() | Out-Null
    quarta-feira, 5 de julho de 2017 19:30