Computer Information using WMI Scripting

A few years ago, I worked at the OIT Help Desk at Central Michigan University.  While there, I was asked to write a little utility that would pull information about the machine out of the system.  In order to do so, I learned VBScript and the WMI library that comes with Windows.  WMI is really handy for projects like this because it allows you to pull machine specific information in an easy way.  For instance, let’s say I want to get the machine name:

Option Explicit
Dim objWMIService, objComputer, colComputer
Dim strLogonUser, strComputer

strComputer = “.”

Set objWMIService = GetObject(“winmgmts:” _
& “{impersonationLevel=impersonate}!\\” _
& strComputer & “\root\cimv2”)
Set colComputer = objWMIService.ExecQuery _
(“Select * from Win32_ComputerSystem”)

For Each objComputer in colComputer
Wscript.Echo “System Name: ” & objComputer.Name _
& vbCr & “Total RAM ” & objComputer.TotalPhysicalMemory
Next

WScript.Quit

Easy as pie.  The only problem is that you have to have a loop in there.   Even with only 1 computer.

Author: Jack Slingerland

I'm a software engineer working and living in Raleigh, NC. I work in Python, Django, Node.js, React+Flux, AngularJS, and PHP. I like to work out with Kettlebells, run, and spend my free time with my wife, cat, and dog.

Leave a Reply

Your email address will not be published. Required fields are marked *