none
criação de script que lista informação da placa mae RRS feed

  • Pergunta

  • Pessoal,

    Estava precisando de um script para pegar o nome da placa mae das estações via rede. um parque de 3.000 maquinas.

    Alguem ai pode dar uma dica???

     

    terça-feira, 5 de setembro de 2006 14:40

Respostas

  • Ola Bruno,

    Experimente o script abaixo.

    Instruções:

    Crie um arquivo chamado listacomputadores.txt e copie no disco c: da máquina onde vc for executar o script. Este arquivo deverá ter apenas o nome de cada máquina, uma máquina por linha.

    Será gerado o arquivo placamae.txt no disco C:

    '************* inicio do script *******************************

    Const ForReading = 1, ForWriting=2, ForAppending =8
    Set OFS = CreateObject("Scripting.FileSystemObject")
    Set inputf = ofs.opentextfile("c:\listacomputadores.txt",ForReading,false)
    Set outputf = ofs.opentextfile("c:\placamae.txt",ForWriting,True)
    outputf.writeline("Computador;Fabricante;Modelo;Nome;Versão")
    Do Until inputf.atendofstream
     strComputer = inputf.readline
     Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
     Set colItems = objWMIService.ExecQuery( _
         "SELECT * FROM Win32_BaseBoard",,48)
     For Each objItem in colItems
      outputf.writeline strcomputer &";"& objItem.Manufacturer &";"& _
        objItem.Model &";"& objItem.Name &";"& objItem.Version
     Next
    Loop
    outputf.close
    inputf.close
    Set ofs=Nothing

    '*********************** fim do script ****************************

    []'s

    não esqueça de classificar este post

     

    terça-feira, 5 de setembro de 2006 17:14

Todas as Respostas

  •  

    Bruno,

    Com a classe w32_MotherboardDevice vc consegue algumas informações, achei pouco mas talvez já resolva o seu caso. O seu parque de máquinas tem uma concentração maior de algum fabricante? Pois por exemplo se você tiver na maioria máquinas da DELL talvez exista uma classe wmi da Dell que consiga maiores informações (talvez necessite a instalação da classe).

    Script gerado com o Scriptomatic v2.0

    --------------

    On Error Resume Next

    Const wbemFlagReturnImmediately = &h10
    Const wbemFlagForwardOnly = &h20

    arrComputers = Array("seumicro")
    For Each strComputer In arrComputers
       WScript.Echo
       WScript.Echo "=========================================="
       WScript.Echo "Computer: " & strComputer
       WScript.Echo "=========================================="

       Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
       Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_MotherboardDevice", "WQL", _
                                              wbemFlagReturnImmediately + wbemFlagForwardOnly)

       For Each objItem In colItems
          WScript.Echo "Availability: " & objItem.Availability
          WScript.Echo "Caption: " & objItem.Caption
          WScript.Echo "ConfigManagerErrorCode: " & objItem.ConfigManagerErrorCode
          WScript.Echo "ConfigManagerUserConfig: " & objItem.ConfigManagerUserConfig
          WScript.Echo "CreationClassName: " & objItem.CreationClassName
          WScript.Echo "Description: " & objItem.Description
          WScript.Echo "DeviceID: " & objItem.DeviceID
          WScript.Echo "ErrorCleared: " & objItem.ErrorCleared
          WScript.Echo "ErrorDescription: " & objItem.ErrorDescription
          WScript.Echo "InstallDate: " & WMIDateStringToDate(objItem.InstallDate)
          WScript.Echo "LastErrorCode: " & objItem.LastErrorCode
          WScript.Echo "Name: " & objItem.Name
          WScript.Echo "PNPDeviceID: " & objItem.PNPDeviceID
          strPowerManagementCapabilities = Join(objItem.PowerManagementCapabilities, ",")
             WScript.Echo "PowerManagementCapabilities: " & strPowerManagementCapabilities
          WScript.Echo "PowerManagementSupported: " & objItem.PowerManagementSupported
          WScript.Echo "PrimaryBusType: " & objItem.PrimaryBusType
          WScript.Echo "RevisionNumber: " & objItem.RevisionNumber
          WScript.Echo "SecondaryBusType: " & objItem.SecondaryBusType
          WScript.Echo "Status: " & objItem.Status
          WScript.Echo "StatusInfo: " & objItem.StatusInfo
          WScript.Echo "SystemCreationClassName: " & objItem.SystemCreationClassName
          WScript.Echo "SystemName: " & objItem.SystemName
          WScript.Echo
       Next
    Next


    Function WMIDateStringToDate(dtmDate)
    WScript.Echo dtm:
     WMIDateStringToDate = CDate(Mid(dtmDate, 5, 2) & "/" & _
     Mid(dtmDate, 7, 2) & "/" & Left(dtmDate, 4) _
     & " " & Mid (dtmDate, 9, 2) & ":" & Mid(dtmDate, 11, 2) & ":" & Mid(dtmDate,13, 2))
    End Function

    ---------


    terça-feira, 5 de setembro de 2006 16:58
    Moderador
  • Ola Bruno,

    Experimente o script abaixo.

    Instruções:

    Crie um arquivo chamado listacomputadores.txt e copie no disco c: da máquina onde vc for executar o script. Este arquivo deverá ter apenas o nome de cada máquina, uma máquina por linha.

    Será gerado o arquivo placamae.txt no disco C:

    '************* inicio do script *******************************

    Const ForReading = 1, ForWriting=2, ForAppending =8
    Set OFS = CreateObject("Scripting.FileSystemObject")
    Set inputf = ofs.opentextfile("c:\listacomputadores.txt",ForReading,false)
    Set outputf = ofs.opentextfile("c:\placamae.txt",ForWriting,True)
    outputf.writeline("Computador;Fabricante;Modelo;Nome;Versão")
    Do Until inputf.atendofstream
     strComputer = inputf.readline
     Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
     Set colItems = objWMIService.ExecQuery( _
         "SELECT * FROM Win32_BaseBoard",,48)
     For Each objItem in colItems
      outputf.writeline strcomputer &";"& objItem.Manufacturer &";"& _
        objItem.Model &";"& objItem.Name &";"& objItem.Version
     Next
    Loop
    outputf.close
    inputf.close
    Set ofs=Nothing

    '*********************** fim do script ****************************

    []'s

    não esqueça de classificar este post

     

    terça-feira, 5 de setembro de 2006 17:14
  • Eu acho q esse do Scriptomatic v2.0 eu ja usei!!! não to lembrado do condigo fonte.

    As maquinas são procomp, novadata, itautec. o parque de maquinas é bem destino.

    Vou fazer o teste do script e aviso aki se funcionou!!!

    Abraços!!!

    sábado, 16 de setembro de 2006 12:25
  • Cara valeu d+++

    Esse me serviu... mas tem algumas placa mae q nao tem todas as informações.... mas ta valendo

    Agradeço desde ja!!!!

    Abraços!!!

     

    Bruno

    segunda-feira, 18 de setembro de 2006 11:54