none
VBS importar dados do CMD RRS feed

  • Pergunta

  • Bom dia

    Preciso que o IP mude de acordo com o que o usuário digite no cmd. Para isso criaria um arquivo bat, que solicitaria ao usuário a digitação do IP. Como fazer para esse VBS importar esse IP do CMD?

    Set WshShell = WScript.CreateObject("WScript.Shell")
    WshShell.Run "telnet ip",9
    WScript.Sleep 500
    WshShell.SendKeys "userc"
    WshShell.SendKeys "{ENTER}"
    WScript.Sleep 500
    WshShell.SendKeys "password"
    WshShell.SendKeys "{ENTER}"
    WScript.Sleep 500
    WshShell.SendKeys "cd /var/log"
    WshShell.SendKeys "{ENTER}"
    WshShell.SendKeys "tail -f trace.txt"
    WshShell.SendKeys "{ENTER}"
    [wp_ad_camp_4]

    segunda-feira, 5 de junho de 2017 11:52

Todas as Respostas

  • Ola Jocivan,

    Bom vc pode usar um Inputbox, onde ele obtem a informação do usuário seja clicando sobre o script ou usando a console com cscript..

    Set WshShell = WScript.CreateObject("WScript.Shell")
    ip = UserInput("Digite o ip:","Titulo da Janela")
    if ip = "" then wscript.quit
    
    WshShell.Run "telnet " & ip,9
    WScript.Sleep 500
    WshShell.SendKeys "userc"
    WshShell.SendKeys "{ENTER}"
    WScript.Sleep 500
    WshShell.SendKeys "password"
    WshShell.SendKeys "{ENTER}"
    WScript.Sleep 500
    WshShell.SendKeys "cd /var/log"
    WshShell.SendKeys "{ENTER}"
    WshShell.SendKeys "tail -f trace.txt"
    WshShell.SendKeys "{ENTER}"
    
    
    Function UserInput(sPergunta,sTitulo)
        If UCase( Right( WScript.FullName, 12 ) ) = "\CSCRIPT.EXE" Then
             WScript.StdOut.Write sPergunta & " "
            UserInput = WScript.StdIn.ReadLine
        Else
            UserInput = InputBox(sPergunta,sTitulo)
        End If
    End Function

    ou você pode usar uma bat e um vbscript como vc perguntou, a bat passando o comando para o vbs

    BAT

    @ECHO OFF
    set /p ip=Informe o IP: 
    cscript Script.vbs %ip%
    

    SCRIPT.VBS

    set args = WScript.Arguments
    select case args.Count
    case 0
        wscript.echo "Error: Necessário passar o argumento , Ex: ""cscript MyScript.vbs arg"""
    wscript.quit
    case 1
        ip = args(0)
    wscript.echo ip
    end select
    
    Set WshShell = WScript.CreateObject("WScript.Shell")
    WshShell.Run "telnet " & ip,9
    WScript.Sleep 500
    WshShell.SendKeys "userc"
    WshShell.SendKeys "{ENTER}"
    WScript.Sleep 500
    WshShell.SendKeys "password"
    WshShell.SendKeys "{ENTER}"
    WScript.Sleep 500
    WshShell.SendKeys "cd /var/log"
    WshShell.SendKeys "{ENTER}"
    WshShell.SendKeys "tail -f trace.txt"
    WshShell.SendKeys "{ENTER}"


    att, Aparecido Deveza



    terça-feira, 6 de junho de 2017 01:39