WMI: VBscript to show the model of a computer

dirk adamsky — Thu, 04 Feb 2010 11:25:21 +0000

Let’s continue the with another short WMI script.
This script shows the model of your computer
Default computer is the local machine.
When the dot is replaced by another machine name the script works against that machine.
With some additions the script can be used for a simple inventory of the pc’s in your network.

There are some conditions that must be met:

the script must be run with administrative credentials
the firewall of the remote machine needs the following ports opened for WMI: TCP 135, TCP 4168 and
UDP 9256

Follow the next steps to make and run the script (admin rights needed):

open your favorite text editor (mine is notepad++)
copy and paste the script into the editor (delete the line numbers)
save the script (for example c:tempmodel.vbs)
open a command prompt
go to “c:temp”
give “cscript model.vbs” (without quotes) and enter

The script:

' Name : model.vbs
' Description : script to show the model of a computer
' Author : dirk adamsky - deludi bv
' Version : 1.00
' Date : 04-02-2010
' Level : beginner

strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\" & strComputer & "rootcimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Computersystem")
For Each Item In colItems
	Wscript.Echo strComputer & " " & Item.Model
Next
Set objMemory = Nothing
Set objWMIService = Nothing

As said earlier: when you have questions/problems please give a reply.

Best regards,

Dirk Adamsky – Deludi BV

vbscriptblog.com » model

WMI: VBscript to show the model of a computer