larsen45 Juniormester
01. oktober 2017 - 13:45 Der er 2 kommentarer og
1 løsning

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

Hej søger hjælp til en simple måde at trække ip adresser ud af en txt fil i notepad.
Og overfører til cmd prompt, hvor der kan laves et ping med hver ip adresse.
Og når de er kørt, gemme resultat i en ny txt fil på computeren.
jakobdo Ekspert
01. oktober 2017 - 18:09 #1
bvirk Forsker
01. oktober 2017 - 22:48 #2
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>
larsen45 Juniormester
12. februar 2018 - 09:23 #3
Mange tak for hjælpen
Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links

Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester





Premium
Wingmen Solutions fortsætter den stejle vækstkurve trods corona: Hæver overskuddet med 120 procent
Wingmen Solutions fastholder de eksplosive vækstrater trods corona-pandemien. Det viser selskabets nye regnskab, hvor overskuddet er mere end fordoblet. "Det er fantastisk, at vi er kommet igennen et år med corona på den her måde," lyder det fra topchef Kåre Christensen.
Computerworld
Stein Bagger gør comeback i ny branche: "De lignede et mafiahold, førte sig frem som nyrige og plaprede løs om urealistiske drømme"
Stein Bagger har skiftet navn og fører sig nu frem i store biler i en helt ny branche, skriver en dansk avis.
CIO
Podcast: Her er seks gode råd om ledelse og digitalisering fra danske top-CIO'er
The Digital Edge: Vi har talt med 17 af Danmarks dygtigste digitale ledere - og samlet deres seks bedste råd om digitalisering og ledelse. Få alle rådene på 26 minutter i denne episode af podcasten The Digital Edge.
Job & Karriere
Se Waoos forklaring: Derfor har selskabet fyret topchef Jørgen Stensgaard med omgående virkning
Waaos bestyrelse opsiger fiberselskabets topchef, Jørgen Stensgaard, der fratræder med omgående virkning. Se hele forklaringen fra Waao her.
White paper
Overser du muligheder for at optimere din Dynamics-investering?
Der er omfattende og ofte oversete muligheder for at understøtte centrale forretningsprocesser med Dynamics 365 Finance & Operations. For eksempel i form af fuld EDI-integration, som optimerer logistik og forsyning. Eller ved at automatisere håndteringen af konsignation eller centrale processer vedrørende elektronisk dokumentflow og dropshipping. Læs mere i dette whitepaper, der også går i dybden med fire konkrete cases.