Descubra o Fabricante do seu computador
Em alguns computadores não vem ou apagou as informações como marca/modelo do seu computador. Com isso você perde tempo quando precisar dessas informações.
Para resolver esse problema de forma pratica, veja o Script que informa o fabricante, modelo e descrição do seu computador.
Para criar esse script siga o passo mencionados logo abaixo:
1. Abra o Bloco de Notas
2. Copie o código abaixo e em seguida cole no Bloco de Notas:
'==========================================================================
' LINGUAGEM: VBScript'
' NAME: Info-PC VERSÃO: 1.0
' AUTHOR: DICAS QUE FUNFA
' DATE : 22/12/2012
' by: http://dicasquefunfa.com.br
'==========================================================================
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colSoftware = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")
For Each objSoftware in colSoftware
Wscript.Echo "------------ Detalhes de Fabricação -----------"& vbCrLf &_
""& vbCrLf &_
"Fabricante do computador: " & objSoftware.Manufacturer & vbCrLf & _
"Modelo: " & objSoftware.Model & vbCrLf & _
"Descricao: " & objSoftware.Description & vbCrLf & _
"Numero de Processadores: " & objSoftware.NumberOfProcessors & vbCrLf & _
"Tipo de Sistema em execucao: " & objSoftware.SystemType & vbCrLf
Next
3. Salve com a extensão .VBS
Pronto, dessa forma sempre que você precisar vai ter de forma pratica e rápido as informações do seu computador.
Para resolver esse problema de forma pratica, veja o Script que informa o fabricante, modelo e descrição do seu computador.
1. Abra o Bloco de Notas
2. Copie o código abaixo e em seguida cole no Bloco de Notas:
'==========================================================================
' LINGUAGEM: VBScript'
' NAME: Info-PC VERSÃO: 1.0
' AUTHOR: DICAS QUE FUNFA
' DATE : 22/12/2012
' by: http://dicasquefunfa.com.br
'==========================================================================
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colSoftware = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")
For Each objSoftware in colSoftware
Wscript.Echo "------------ Detalhes de Fabricação -----------"& vbCrLf &_
""& vbCrLf &_
"Fabricante do computador: " & objSoftware.Manufacturer & vbCrLf & _
"Modelo: " & objSoftware.Model & vbCrLf & _
"Descricao: " & objSoftware.Description & vbCrLf & _
"Numero de Processadores: " & objSoftware.NumberOfProcessors & vbCrLf & _
"Tipo de Sistema em execucao: " & objSoftware.SystemType & vbCrLf
Next
3. Salve com a extensão .VBS
Pronto, dessa forma sempre que você precisar vai ter de forma pratica e rápido as informações do seu computador.
Comentários
Postar um comentário
ATENÇÃO: Seu comentário é muito importante para nós e esperamos que você compartilhe suas opiniões e sugestões abaixo. No entanto, lembramos que é de inteira responsabilidade dos usuários seguir as dicas postadas no Blog DicasQueFunfa. Pedimos que evite comentários ofensivos, ilegais ou prejudiciais, pois esses não serão tolerados e serão removidos. Agradecemos sua colaboração e esperamos que suas contribuições enriqueçam ainda mais nosso conteúdo.