Find out the manufacturer of your computer
On some computers does not come or deleted information such as make/model of your computer. With that you lose time when you need this information.
To resolve this problem, see the Script which tells the manufacturer, model and description from your computer.
To create this script follow the step listed below:
1. open Notepad
2. copy the code below, then paste into Notepad:
'==========================================================================
' LANGUAGE: VBScript '
' NAME: Info-PC version: 1.0
' AUTHOR: TIPS THAT FUNFA
' DATE: 12/22/2012
by: http://dicasquefunfa.com.br
'==========================================================================
strComputer = "."
Set objWMIService = GetObject ("winmgmts:" _
& "{impersonationLevel = impersonate}! \" & strComputer & "\root\cimv2")
Set objWMIService = colSoftware. _ ExecQuery
("Select * from Win32_ComputerSystem")
For Each objSoftware in colSoftware
WScript.echo "------------manufacturing Details-----------" & vbCrLf & _
"" & vbCrLf & _
"Computer manufacturer:" & objSoftware & vbCrLf & _ .manufacturer
"Type:" & objSoftware & vbCrLf & _ .model
"Description:" & objSoftware & vbCrLf & _ Description.
"Number of processors:" & objSoftware & vbCrLf & _ NumberOfProcessors.
"Type of system execution:" & objSoftware & vbCrLf SystemType.
Next
3. Save with the extension.VBS
Ready, that way whenever you need will have a practical and quick information for your computer.
To resolve this problem, see the Script which tells the manufacturer, model and description from your computer.
To create this script follow the step listed below:
1. open Notepad
2. copy the code below, then paste into Notepad:
'==========================================================================
' LANGUAGE: VBScript '
' NAME: Info-PC version: 1.0
' AUTHOR: TIPS THAT FUNFA
' DATE: 12/22/2012
by: http://dicasquefunfa.com.br
'==========================================================================
strComputer = "."
Set objWMIService = GetObject ("winmgmts:" _
& "{impersonationLevel = impersonate}! \" & strComputer & "\root\cimv2")
Set objWMIService = colSoftware. _ ExecQuery
("Select * from Win32_ComputerSystem")
For Each objSoftware in colSoftware
WScript.echo "------------manufacturing Details-----------" & vbCrLf & _
"" & vbCrLf & _
"Computer manufacturer:" & objSoftware & vbCrLf & _ .manufacturer
"Type:" & objSoftware & vbCrLf & _ .model
"Description:" & objSoftware & vbCrLf & _ Description.
"Number of processors:" & objSoftware & vbCrLf & _ NumberOfProcessors.
"Type of system execution:" & objSoftware & vbCrLf SystemType.
Next
3. Save with the extension.VBS
Ready, that way whenever you need will have a practical and quick information for your computer.
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.