none
Script para gerar OUTPUT RRS feed

  • Pergunta

  • Senhores,

     

    escrevi o script abaixo para executar um comando nos meus servidores usando o prompt.

    O script está funcionando, porém não consigo gerar um output dos resultados.

    Não é necessário utilizar um arquivo txt para gerar esse output, usando WScript.Echo para mim já está ótimo.

     

    ----------------------------------------------------------------------------------------

    Const ForReading = 1
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objTextFile = objFSO.OpenTextFile _
        ("c:\input.txt", ForReading)

      Do Until objTextFile.AtEndOfStream
       strComputer = objTextFile.Readline

       Set objShell = WScript.CreateObject("WScript.Shell")
       objShell.Run "cmd /c ipconfig /all "

    Loop

     

    ----------------------------------------------------------------------------------------

     

    Muito Obrigado

    Anderson

     

     

    quinta-feira, 29 de janeiro de 2009 19:25

Respostas

  • Olá,

     

    Qual informação você precisa do comando ipconfig /all???

     

    O script abaixo escreve o endereço IP. Se você precisar de outra configuração. Avise.

     

    strComputer = "."
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

    Set objLogFile = objFSO.OpenTextFile("c:\input.txt", 8, True, 0)

    Set IPConfigSet = objWMIService.ExecQuery _
        ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
     
    For Each IPConfig in IPConfigSet
        If Not IsNull(IPConfig.IPAddress) Then
            For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
                WScript.Echo IPConfig.IPAddress(i)
            objLogFile.WriteLine "IP : "  & ipconfig.IPAddress(i)
            Next
        End If
    Next
    objLogFile.Close

     

     

    Crie o arquivo input.txt primeiro.

    Poste os resultados

    Até mais,

    Jesiel

    Obs.: Se útil, classifique

    • Marcado como Resposta Richard Juhasz sexta-feira, 13 de abril de 2012 17:14
    sexta-feira, 30 de janeiro de 2009 19:03