none
Coleta de Informações RRS feed

  • Pergunta

  • Ba tche

    Boa noite

    Galera, estou atraz de um script que ao ser executado em uma estaçao, o mesmo gere um arquivo de log no qual o mesmo coloque o ip, mascara, gw, dns e wins, e se o ip é fixo ou dhcp, e no mesmo log ele grave os software e patchs instalado sobre o Windows, andei batendo a cabeça mais ba tche na consegui chegar em algo legal.
    Alguem tem algo assim pronto ou alguem pode me ajudar...

    Valeu galera.
    quinta-feira, 26 de novembro de 2009 01:06

Respostas

  • Olá,

    Verifique o link abaixo:

    http://social.technet.microsoft.com/Forums/pt-BR/scriptadminpt/thread/49d47477-cf16-4e1e-ba8d-9f3a1d6016b6


    Até mais,

    Jesiel

    Obs.: Se útil, classifique


    • Sugerido como Resposta Marcellus Bockorny quinta-feira, 26 de novembro de 2009 12:31
    • Marcado como Resposta Marcelo TI sexta-feira, 27 de novembro de 2009 00:50
    quinta-feira, 26 de novembro de 2009 10:59
  • Marcelo,
     
              Esse script é bem simple, veja se ajuda.

    @echo off
    echo ----------------------------------------------------------------------------->>%computername%.txt
    echo ----------------------INFORMACOES DE SISTEMA--------------------------------->>%computername%.txt
    echo ----------------------------------------------------------------------------->>%computername%.txt
    reg query HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall /s >app.txt
    find /I "Displayname" app.txt >>%computername%.txt
    del app.txt
    echo ----------------------------------------------------------------------------->>%computername%.txt
    echo ----------------------CONFIGURACAO DE REDE----------------------------------->>%computername%.txt
    echo ----------------------------------------------------------------------------->>%computername%.txt
    ipconfig /all >>%computername%.txt

    Leonardo Sousa
    • Marcado como Resposta Marcelo TI sexta-feira, 27 de novembro de 2009 00:49
    quinta-feira, 26 de novembro de 2009 12:39
  • Ba tche

    Boa noite

    Galera, estou atraz de um script que ao ser executado em uma estaçao, o mesmo gere um arquivo de log no qual o mesmo coloque o ip, mascara, gw, dns e wins, e se o ip é fixo ou dhcp, e no mesmo log ele grave os software e patchs instalado sobre o Windows, andei batendo a cabeça mais ba tche na consegui chegar em algo legal.
    Alguem tem algo assim pronto ou alguem pode me ajudar...

    Valeu galera.


    veja se Ajuda...

    Lembre-se de colocar a saida do Txt na rede.

    'Grava softwares, atualizações e dados do IP
    On Error Resume Next

    Strcomputer = "."
    Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

    'Obtem o IP que está em uso.

    Dim strProperties, CompNET, IPConfig, Ip, FSO, Arq, i
    strProperties = "Description, MACAddress, IPAddress, IPSubnet, DefaultIPGateway, DNSServerSearchOrder, DNSDomain, DNSDomainSuffixSearchOrder, DHCPEnabled, DHCPServer, WINSPrimaryServer, WINSSecondaryServer, ServiceName"
    Set CompNET = objwmiservice.execquery("SELECT * FROM Win32_NetworkAdapterConfiguration")
    For Each IPConfig In compnet
    If Not IsNull(IPConfig.IPAddress) Then
    For i = LBound(IPConfig.IPAddress) To UBound(IPConfig.IPAddress)
      Ip = IPConfig.IPAddress(i)
      Dhcp = IPConfig.DHCPServer
      Dns = IPConfig.DNSServerSearchOrder
     
    Next
    End If
    Next

    'Lista as atualizações
    Set CompHotFix = objwmiservice.execquery("Select * FROM Win32_QuickFixEngineering")

    For Each objUpd In CompHotFix

    HotFix = ObjUpd.HotFixID
    HotFixDescription = ObjUpd.Description
    HotFixInstallDate = ObjUpd.InstalledOn

    strhotFix = strHotFix + "Nome: " & HotFix & "  :  Descrição: " & HotFixDescription & "  :  Data Instalação: " & HotFixInstallDate &vbcrlf

    Next

    Set colSoftware = objWMIService.ExecQuery  ("Select * from Win32_Product")

    For Each objSoftware in colSoftware

     Nome = objSoftware.Name
     Versao = objSoftware.Version
     Data = MID(objSoftware.InstallDate,7,2) & "/" & MID(objSoftware.InstallDate,5,2) & "/" & MID(objSoftware.InstallDate,1,4)
        strSoftwares = strSoftwares + "Name: " & Nome & "  :  Versão: " & versao & "  :  Data Instalação: " & Data &vbcrlf
    Next

    'Incia gravação do LOG


    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set WshShell = WScript.CreateObject("WScript.Shell")
    strCompName = WshShell.ExpandEnvironmentStrings("%COMPUTERNAME%")

    'Cria o Arquivo

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set Arquivo = objFSO.CreateTextFile("c:\"&strCompName&".txt")

    arquivo.writeline "--------------------Dados Terminal  "&strCompname&"--------------------------"
    arquivo.writeline "Configurações de rede: "
    arquivo.writeline "IP :"&Ip
    arquivo.writeline "Dhcp:"&Dhcp
    arquivo.writeline "Dns:"&Dns
    arquivo.writeline ""
    arquivo.writeline ""
    arquivo.writeline "Atualizações:"
    arquivo.writeline strhotFix
    arquivo.writeline ""
    arquivo.writeline ""
    arquivo.writeline "Softwares: "
    arquivo.writeline strSoftwares
    arquivo.writeline ""
    arquivo.writeline ""
    arquivo.writeline "Log Finalizado em: "&Date()&"   --------------------------------------------"


    arquivo.close()

    []s,

     

     

     


    " Qm tem boca vai a roma, meu fogão tem 6 e não saiu da cozinha ainda"
    • Marcado como Resposta Marcelo TI sexta-feira, 27 de novembro de 2009 00:50
    quinta-feira, 26 de novembro de 2009 13:28

Todas as Respostas

  • Olá,

    Verifique o link abaixo:

    http://social.technet.microsoft.com/Forums/pt-BR/scriptadminpt/thread/49d47477-cf16-4e1e-ba8d-9f3a1d6016b6


    Até mais,

    Jesiel

    Obs.: Se útil, classifique


    • Sugerido como Resposta Marcellus Bockorny quinta-feira, 26 de novembro de 2009 12:31
    • Marcado como Resposta Marcelo TI sexta-feira, 27 de novembro de 2009 00:50
    quinta-feira, 26 de novembro de 2009 10:59
  • Ba tche

    Boa noite

    Galera, estou atraz de um script que ao ser executado em uma estaçao, o mesmo gere um arquivo de log no qual o mesmo coloque o ip, mascara, gw, dns e wins, e se o ip é fixo ou dhcp, e no mesmo log ele grave os software e patchs instalado sobre o Windows, andei batendo a cabeça mais ba tche na consegui chegar em algo legal.
    Alguem tem algo assim pronto ou alguem pode me ajudar...

    Valeu galera.

    Marcelo, bom dia.

    Caso precise trabalhar com scripts. Você pode utilizar o VbsEdit, ele tem um link de Snippets com as conexões a WMI e tudo mais. É bem interessante.
    Nesse caso seria apenas necessário vc direcionar a saida dos dados. Ao invés de wscript.echo (saida em tela) objalgumacoisa.writeline...

    []s,

    " Qm tem boca vai a roma, meu fogão tem 6 e não saiu da cozinha ainda"
    quinta-feira, 26 de novembro de 2009 12:33
  • Marcelo,
     
              Esse script é bem simple, veja se ajuda.

    @echo off
    echo ----------------------------------------------------------------------------->>%computername%.txt
    echo ----------------------INFORMACOES DE SISTEMA--------------------------------->>%computername%.txt
    echo ----------------------------------------------------------------------------->>%computername%.txt
    reg query HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall /s >app.txt
    find /I "Displayname" app.txt >>%computername%.txt
    del app.txt
    echo ----------------------------------------------------------------------------->>%computername%.txt
    echo ----------------------CONFIGURACAO DE REDE----------------------------------->>%computername%.txt
    echo ----------------------------------------------------------------------------->>%computername%.txt
    ipconfig /all >>%computername%.txt

    Leonardo Sousa
    • Marcado como Resposta Marcelo TI sexta-feira, 27 de novembro de 2009 00:49
    quinta-feira, 26 de novembro de 2009 12:39
  • Ba tche

    Boa noite

    Galera, estou atraz de um script que ao ser executado em uma estaçao, o mesmo gere um arquivo de log no qual o mesmo coloque o ip, mascara, gw, dns e wins, e se o ip é fixo ou dhcp, e no mesmo log ele grave os software e patchs instalado sobre o Windows, andei batendo a cabeça mais ba tche na consegui chegar em algo legal.
    Alguem tem algo assim pronto ou alguem pode me ajudar...

    Valeu galera.


    veja se Ajuda...

    Lembre-se de colocar a saida do Txt na rede.

    'Grava softwares, atualizações e dados do IP
    On Error Resume Next

    Strcomputer = "."
    Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

    'Obtem o IP que está em uso.

    Dim strProperties, CompNET, IPConfig, Ip, FSO, Arq, i
    strProperties = "Description, MACAddress, IPAddress, IPSubnet, DefaultIPGateway, DNSServerSearchOrder, DNSDomain, DNSDomainSuffixSearchOrder, DHCPEnabled, DHCPServer, WINSPrimaryServer, WINSSecondaryServer, ServiceName"
    Set CompNET = objwmiservice.execquery("SELECT * FROM Win32_NetworkAdapterConfiguration")
    For Each IPConfig In compnet
    If Not IsNull(IPConfig.IPAddress) Then
    For i = LBound(IPConfig.IPAddress) To UBound(IPConfig.IPAddress)
      Ip = IPConfig.IPAddress(i)
      Dhcp = IPConfig.DHCPServer
      Dns = IPConfig.DNSServerSearchOrder
     
    Next
    End If
    Next

    'Lista as atualizações
    Set CompHotFix = objwmiservice.execquery("Select * FROM Win32_QuickFixEngineering")

    For Each objUpd In CompHotFix

    HotFix = ObjUpd.HotFixID
    HotFixDescription = ObjUpd.Description
    HotFixInstallDate = ObjUpd.InstalledOn

    strhotFix = strHotFix + "Nome: " & HotFix & "  :  Descrição: " & HotFixDescription & "  :  Data Instalação: " & HotFixInstallDate &vbcrlf

    Next

    Set colSoftware = objWMIService.ExecQuery  ("Select * from Win32_Product")

    For Each objSoftware in colSoftware

     Nome = objSoftware.Name
     Versao = objSoftware.Version
     Data = MID(objSoftware.InstallDate,7,2) & "/" & MID(objSoftware.InstallDate,5,2) & "/" & MID(objSoftware.InstallDate,1,4)
        strSoftwares = strSoftwares + "Name: " & Nome & "  :  Versão: " & versao & "  :  Data Instalação: " & Data &vbcrlf
    Next

    'Incia gravação do LOG


    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set WshShell = WScript.CreateObject("WScript.Shell")
    strCompName = WshShell.ExpandEnvironmentStrings("%COMPUTERNAME%")

    'Cria o Arquivo

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set Arquivo = objFSO.CreateTextFile("c:\"&strCompName&".txt")

    arquivo.writeline "--------------------Dados Terminal  "&strCompname&"--------------------------"
    arquivo.writeline "Configurações de rede: "
    arquivo.writeline "IP :"&Ip
    arquivo.writeline "Dhcp:"&Dhcp
    arquivo.writeline "Dns:"&Dns
    arquivo.writeline ""
    arquivo.writeline ""
    arquivo.writeline "Atualizações:"
    arquivo.writeline strhotFix
    arquivo.writeline ""
    arquivo.writeline ""
    arquivo.writeline "Softwares: "
    arquivo.writeline strSoftwares
    arquivo.writeline ""
    arquivo.writeline ""
    arquivo.writeline "Log Finalizado em: "&Date()&"   --------------------------------------------"


    arquivo.close()

    []s,

     

     

     


    " Qm tem boca vai a roma, meu fogão tem 6 e não saiu da cozinha ainda"
    • Marcado como Resposta Marcelo TI sexta-feira, 27 de novembro de 2009 00:50
    quinta-feira, 26 de novembro de 2009 13:28
  • Boa noite Galera..

    Ba Jesiel, esse eu conhecia ele é famoso aqui na comunidade porem ele é completo de mais para o que estou necessitando, mais grande amigo, valeu pela força

    Leo

    O seu é bem simples e objetivo valeu tb pela força
    sexta-feira, 27 de novembro de 2009 00:49