none
Varredura na rede RRS feed

  • Pergunta

  • PessoALL, já vi nesse fórum algum tópico relacionado com um script que varre toda rede em busca de software instalado, ips, etc... em cada máquina e joga a saída para o word.

    Alguém pode me ajudar?/

    quarta-feira, 20 de julho de 2011 02:11

Respostas

  • Script escrito por VINICIUS CANTO XAVIER

     

    strComputer = "."

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

    Set colSoftware = objWMIService.ExecQuery _
        ("SELECT * FROM Win32_Product")  

    If colSoftware.Count > 0 Then

        Set objFSO = CreateObject("Scripting.FileSystemObject")
        Set objTextFile = objFSO.CreateTextFile( _
            "c:\SoftwareList.txt", True)

        For Each objSoftware in colSoftware
            objTextFile.WriteLine objSoftware.Caption & vbtab & _
            objSoftware.InstallDate
        Next

        objTextFile.Close

    Else
        WScript.Echo "Cannot retrieve software from this computer."

    End If

    • Marcado como Resposta Richard Juhasz sexta-feira, 29 de julho de 2011 19:36
    segunda-feira, 25 de julho de 2011 13:30

Todas as Respostas

  • Script escrito por VINICIUS CANTO XAVIER

     

    strComputer = "."

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

    Set colSoftware = objWMIService.ExecQuery _
        ("SELECT * FROM Win32_Product")  

    If colSoftware.Count > 0 Then

        Set objFSO = CreateObject("Scripting.FileSystemObject")
        Set objTextFile = objFSO.CreateTextFile( _
            "c:\SoftwareList.txt", True)

        For Each objSoftware in colSoftware
            objTextFile.WriteLine objSoftware.Caption & vbtab & _
            objSoftware.InstallDate
        Next

        objTextFile.Close

    Else
        WScript.Echo "Cannot retrieve software from this computer."

    End If

    • Marcado como Resposta Richard Juhasz sexta-feira, 29 de julho de 2011 19:36
    segunda-feira, 25 de julho de 2011 13:30
  • Script escrito por Vinicius CAnto Xavier...


    strComputer = "."

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

    Set colSoftware = objWMIService.ExecQuery _
    ("SELECT * FROM Win32_Product")

    If colSoftware.Count > 0 Then

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objTextFile = objFSO.CreateTextFile( _
    "c:\SoftwareList.txt", True)

    For Each objSoftware in colSoftware
    objTextFile.WriteLine objSoftware.Caption & vbtab & _
    objSoftware.InstallDate
    Next

    objTextFile.Close

    Else
    WScript.Echo "Cannot retrieve software from this computer."

    End If
    segunda-feira, 25 de julho de 2011 13:35