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

Todas as Respostas

• 

  

  0

  Entrar para Votar

   

  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

  Responder

  |

  Citação

  Moderador
• 

  

  0

  Entrar para Votar

  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

   

  • Marcado como Resposta Fábio JrModerator quinta-feira, 8 de dezembro de 2011 15:07

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

  Responder

  |

  Citação
• 

  

  0

  Entrar para Votar

  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

  Responder

  |

  Citação
• 

  

  0

  Entrar para Votar

  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

  Responder

  |

  Citação