Monday, February 06, 2012
   
Text Size

Display Computer Manufacturer, Model and Name

PDFPrintE-mail

Last Updated on Saturday, 22 August 2009 23:22 Written by Administrator Saturday, 22 August 2009 23:18

To display your computers Manufacturer, Model and Name:

On Error Resume Next

Dim strComputer


strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)
For Each objItem in colItems
    Wscript.Echo "Manufacturer: " & objItem.Manufacturer
    Wscript.Echo "Model: " & objItem.Model
    Wscript.Echo "Name: " & objItem.Name
Next

 

Please Note: Append to Template.vbs to run this script.