Usuário com melhor resposta
criação de script que lista informação da placa mae

Pergunta
-
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
- Marcado como Resposta Fábio JrModerator quinta-feira, 8 de dezembro de 2011 15:07
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 = &h20arrComputers = 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---------
-
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
-
-