Inventario de Hardware

[Nandao]

Prezados,

Abaixo segue um script que informa as configuracoes de qualquer computador!!!

Desde o S.O ate processador...

Porem eu não consigo de jeito algum, fazer com que ele me traga o barramento da memória ram...

se alguém`poder ajudar..... :unsure:

Preciso que ele me informe todas as opcoes já existentes ( mais ) o barramento da memoria...

um grande abraco ..

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

Set colItems = objWMIService.ExecQuery( _

"SELECT * FROM Win32_ComputerSystem",,48)

For Each objItem in colItems

NomeComputador = objItem.Caption

Next

'----------------------------- Cria o arquivo

Dim fso, txtfile

Set fso = CreateObject("Scripting.FileSystemObject")

Set txtfile = fso.CreateTextFile("\\192.168.0.1\Relatorio Hardware\" & NomeComputador & ".html", True)

txtfile.Write ("<strong>Relatório de Hardware:</strong><br><br>")

txtfile.WriteBlankLines(3)

'--------------- Software

strComputer = "."

strProperties = "*"'"CSName, Caption, OSType, Version, OSProductSuite, BuildNumber, ProductType, OSLanguage, CSDVersion, InstallDate, RegisteredUser, Organization, SerialNumber, WindowsDirectory, SystemDirectory"

objClass = "Win32_OperatingSystem"

strQuery = "SELECT " & strProperties & " FROM " & objClass

Set colOS = objWMIService.ExecQuery(strQuery, , wbemFlagReturnImmediately + wbemFlagForwardOnly)

For Each objItem in colOS

txtfile.Write ("<inventario>")

'===================================================================================

txtfile.write ("<strong>Nome do Computador:</strong>")

txtfile.WriteBlankLines(1)

txtfile.write (objItem.CSName)

txtfile.WriteBlankLines(1)

txtfile.write ("<br><strong>Sistema Operacional:</strong>")

txtfile.WriteBlankLines(1)

txtfile.write (objItem.Caption)

txtfile.WriteBlankLines(1)

If SO_Type = 16 Then

SO_Name = "Microsoft Windows 95</strong><br>"

ElseIf SO_Type = 17 Then

SO_Name = "Microsoft Windows 98"

End If

If SO_ProdType = 1 Then

SO_ProdType = "Estação de Trabalho"

ElseIf SO_ProdType = 2 Then

SO_ProdType = "Controlador de Domínio"

ElseIf SO_ProdType = 3 Then

SO_ProdType = "Servidor"

End If

If SO_Language = 1033 Then

SO_Language = "Inglês - Estados Unidos"

ElseIf SO_Language = 1046 Then

SO_Language = "Português - Brasil"

Else

SO_Language = "Outro idioma"

End If

If SO_Suite = 1 Then

SO_Suite = "Small Business"

ElseIf SO_Suite = 2 Then

SO_Suite = "Enterprise"

ElseIf SO_Suite = 4 Then

SO_Suite = "Backoffice"

ElseIf SO_Suite = 8 Then

SO_Suite = "Communication Server"

ElseIf SO_Suite = 16 Then

SO_Suite = "Terminal Server"

ElseIf SO_Suite = 18 Then

SO_Suite = "Enterprise e Terminal Server"

ElseIf SO_Suite = 32 Then

SO_Suite = "Small Business (Restrito)"

ElseIf SO_Suite = 64 Then

SO_Suite = "Embedded NT"

ElseIf SO_Suite = 128 Then

SO_Suite = "Data Center"

ElseIf SO_Suite = 256 Then

SO_Suite = "Single User"

ElseIf SO_Suite = 512 Then

SO_Suite = "Personal"

ElseIf SO_Suite = 1024 Then

SO_Suite = "Blade"

End If

Next

'------------------------------------------------------ Usuario----

txtfile.WriteBlankLines(1)

txtfile.write ("<br><strong>Usuário:</strong>")

txtfile.WriteBlankLines(1)

objClass = "Win32_ComputerSystem"

strQuery = "SELECT " & strProperties & " FROM " & objClass

Set colSys = objWMIService.ExecQuery(strQuery, , wbemFlagReturnImmediately + wbemFlagForwardOnly)

For Each objItem in colSys

txtfile.write (objItem.UserName)

txtfile.WriteBlankLines(1)

Next

'-------------------------------Processador3

txtfile.write("<br><strong>Processador:</strong>")

txtfile.WriteBlankLines(1)

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

Set colItems = objWMIService.ExecQuery( _

"SELECT * FROM Win32_Processor",,48)

For Each objItem in colItems

'------------------------------------------------- Nome do processador

txtfile.write (objItem.name)

txtfile.WriteBlankLines(1)

'------------------------------------------------- Clock

txtfile.write ("<br><strong>Clock:</strong>")

txtfile.WriteBlankLines(1)

txtfile.write (objItem.CurrentClockSpeed & " MHZ")

txtfile.WriteBlankLines(1)

Next

'----------------------------------Memoria

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

Set colItems = objWMIService.ExecQuery( _

"SELECT * FROM Win32_physicalmemory",,48)

For Each objItem in colItems

'------------------------------------------------- Nome do Banco

'------------------------------------------------- Capacidade

txtfile.write ("<br><strong>Memórias:</strong>")

txtfile.WriteBlankLines(1)

txtfile.write (objItem.capacity/1048576)

txtfile.WriteBlankLines(1)

Next

'---------------------------------- hd

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

Set colItems = objWMIService.ExecQuery( _

"SELECT * FROM Win32_diskdrive",,48)

For Each objItem in colItems

'------------------------------------------------- modelo do disco

txtfile.write ("<br><strong>Modelo do Disco:</strong>")

txtfile.WriteBlankLines(1)

txtfile.write (objItem.caption)

txtfile.WriteBlankLines(1)

'----------------------------------------------------- Tamanho

txtfile.write ("<br><strong>Tamanho:</strong>")

txtfile.WriteBlankLines(1)

txtfile.write (int(objItem.size/1073741824) & " GB")

txtfile.WriteBlankLines(1)

Next

'------------------------------------------------- Nome do adaptador

strComputer = "."

strProperties = "Description, MACAddress, IPAddress, IPSubnet, DefaultIPGateway, DNSServerSearchOrder, DNSDomain, DNSDomainSuffixSearchOrder, DHCPEnabled, DHCPServer, WINSPrimaryServer, WINSSecondaryServer, ServiceName"

objClass = "Win32_NetworkAdapterConfiguration"

strQuery = "SELECT " & strProperties & " FROM " & objClass & " WHERE IPEnabled = True AND ServiceName <> 'AsyncMac' AND ServiceName <> 'VMnetx' AND ServiceName <> 'VMnetadapter' AND ServiceName <> 'Rasl2tp' AND ServiceName <> 'PptpMiniport' AND ServiceName <> 'Raspti' AND ServiceName <> 'NDISWan' AND ServiceName <> 'RasPppoe' AND ServiceName <> 'NdisIP' AND ServiceName <> ''"

Set colAdapters = objWMIService.ExecQuery(strQuery, , wbemFlagReturnImmediately + wbemFlagForwardOnly)

'--------------------------------------------------------rede

For Each objItem in colAdapters

'For Each objItem in colItems

txtfile.write ("<br><strong>Adaptador:</strong>")

txtfile.WriteBlankLines(1)

txtfile.write (objItem.Description)

txtfile.WriteBlankLines(1)

'------------------------------------------------- IP

'txtfile.write ("<br><strong>Sistema Operacional:</strong>")

txtfile.write ("<br><strong>Endereco de IP:</strong>")

txtfile.WriteBlankLines(1)

IP_Address = objItem.IPAddress

txtfile.write (IP_Address(i))

txtfile.WriteBlankLines(1)

'===========================================================================

Next