none
Script que lista Ip's de todos o escopos do DHCP RRS feed

  • Pergunta

  • Bom dia

    Preciso de Script que liste todos os Ip's e nomes de máquinas que tem em um servidor DHCP, gere um TXT com essas informações e depois jogue o TXT e uma uma pasta que esta na rede.

    Obrigado!!

    quarta-feira, 6 de março de 2013 06:23

Respostas

  • Michel,

    Tente este .BAT

    @echo off
    del lista.txt /q
    
    for /f "tokens=1 delims= " %%A IN ('netsh dhcp server show scope ^| findstr "Active"') do CALL :ESCOPO %%A
    
    
    :ESCOPO
    
    	netsh dhcp server scope %1 show clients 1 >>lista.txt
    
    	goto :EOF

    Ele vai criar um arquivo lista.txt na mesma pasta do .bat


    Fábio de Paula Junior


    • Editado Fábio JrModerator sexta-feira, 15 de março de 2013 12:14 Faltou um parametro no segundo netsh (1), sem esse parametro não sai o nome
    • Sugerido como Resposta Fábio JrModerator segunda-feira, 18 de março de 2013 16:54
    • Marcado como Resposta Fábio JrModerator quarta-feira, 20 de março de 2013 10:56
    sexta-feira, 15 de março de 2013 12:03
    Moderador

Todas as Respostas

  • Tentou alguma opção do comando NETSH?


    Fábio de Paula Junior

    quarta-feira, 6 de março de 2013 13:39
    Moderador
  • Tenta este aqui:

    strDHCPServer = "\\servidor1" Set objRegExp=New RegExp objRegExp.Global=True objRegExp.Pattern= "= (\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})\.\r\n" Set objShell = CreateObject("WScript.Shell") Set objQuerySession = objShell.Exec("netsh dhcp server " & strDHCPServer & " show mibinfo") strOutput = objQuerySession.StdOut.ReadAll Set o=objRegExp.Execute(strOutput) Ate...

    Favor marcar se respondido. For i=0 To o.Count-1 sMsg = sMsg & vbcrlf & o(i).SubMatches(0) & ": " & vbcrlf Set oScriptExec = objShell.Exec("netsh dhcp server " & strDHCPServer & " scope " & o(i).SubMatches(0) & " show clients 1") Do Until oScriptExec.StdOut.AtEndOfStream strTemp = oScriptExec.StdOut.ReadLine sMsg = sMsg & strTemp & vbcrlf Loop Next ' aqui estou mostrando a mensagem, mas vc pode enviar para um arquivo. WScript.Echo sMsg

    Favor marcar se respondido.


    Warley


    • Editado Warley Eric segunda-feira, 11 de março de 2013 12:40
    • Sugerido como Resposta Fábio JrModerator terça-feira, 12 de março de 2013 14:09
    • Marcado como Resposta Fábio JrModerator quinta-feira, 14 de março de 2013 16:19
    • Não Marcado como Resposta Michel Toffolo sexta-feira, 15 de março de 2013 05:03
    segunda-feira, 11 de março de 2013 12:40
  • Michel,

    O script não funcionou?


    Fábio de Paula Junior

    sexta-feira, 15 de março de 2013 11:41
    Moderador
  • Michel,

    Tente este .BAT

    @echo off
    del lista.txt /q
    
    for /f "tokens=1 delims= " %%A IN ('netsh dhcp server show scope ^| findstr "Active"') do CALL :ESCOPO %%A
    
    
    :ESCOPO
    
    	netsh dhcp server scope %1 show clients 1 >>lista.txt
    
    	goto :EOF

    Ele vai criar um arquivo lista.txt na mesma pasta do .bat


    Fábio de Paula Junior


    • Editado Fábio JrModerator sexta-feira, 15 de março de 2013 12:14 Faltou um parametro no segundo netsh (1), sem esse parametro não sai o nome
    • Sugerido como Resposta Fábio JrModerator segunda-feira, 18 de março de 2013 16:54
    • Marcado como Resposta Fábio JrModerator quarta-feira, 20 de março de 2013 10:56
    sexta-feira, 15 de março de 2013 12:03
    Moderador