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
