vbscript indsæt ip adresser fra txt fil og kør i cmd

Læs en fil med vbscript: https://stackoverflow.com/questions/15533214/how-do-i-read-a-file-line-by-line-in-vb-script

Her er der kode til at pinge en ip: https://www.experts-exchange.com/questions/26662721/VBS-to-ping-an-IP-and-display-the-results.html

Så kan du selv klippe og klistre.. :)

Ved at indpakke vbscript i en .wsf fil får man konstanter og objekt identifiers forærende. Skal kaldes med cscript.

<?xml version="1.0" standalone="yes" ?>
<job id="pinglog">
    <object id="pFSO" progid="Scripting.FileSystemObject"/>
    <object id="pShell" progid="WScript.Shell"/>
    <reference object="Scripting.FileSystemObject"/>
   
    <script language="VBScript">  <![CDATA[
        dim line,bWaitOnReturn
        bWaitOnReturn=true
        'set bWaitOnReturn=true for waiting on each cmd window to finish
       
        if WScript.Arguments.Count < 2 then
            WScript.StdOut.WriteLine "pinglog infile outfile"
        else
            with pFSO.OpenTextFile(WScript.Arguments(0),forReading)
                while not .AtEndOfStream
                    pShell.run "cmd /C ping " & .ReadLine & " >>" & WScript.Arguments(1),,bWaitOnReturn
                wend
            end with
        end if
    ]]> </script>
</job>

Mange tak for hjælpen