Display Computer Manufacturer, Model and Name

Search

hits.

Login

purpleender

Rep

44052

Newmarket

Bumder

Andrew

Gonna get High till the day I die! Reality is an illusion that occurs due to lack of resin.

FIFA Street 5/13/2012 660 1000 25 34 73%
F1 2010™ 5/13/2012 390 1000 22 50 44%
Angry Birds 5/12/2012 30 200 4 20 20%
RISK Factions 9/15/2011 125 200 7 12 58%
Skate 3 5/8/2012 110 1500 6 68 8%

Display Computer Manufacturer, Model and Name

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.