Get Dell Hardware Info from WMI

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Get Dell Hardware Info from WMI

Logged in as: Guest

arrSession:exec spGetSession 2,16,51066

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> Get Dell Hardware Info from WMI
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Get Dell Hardware Info from WMI - 8/22/2007 10:29:08 PM

turranx

Posts: 38
Score: 0
Joined: 2/7/2006
Status: offline

I struggled for quite a while trying to figure out how to extract hardware information from my Dell servers. Searching the Dell Forums revealed that a lot of people were looking to do the same thing. Answers were far and few between; when they did come, forum patrons were pushed towards using OpenManage Command Line Interface (of which I can't really get excited about).

After a couple hours with my nose inside WMI, I present to you my solution:

Sub Get_Dell_Hardware (ByVal strComputer)
   On Error Resume Next
   Dim objInstance, colInstances, objProperty
   Dim i, strTemp, intStartPosition, intEndPosition

Set colInstances = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
                       strComputer & "\root\cimv2\dell:" & _
                       "Dell_CMDeviceApplication").Instances_
                       
   For Each objInstance In colInstances
       WScript.Echo String(60,"=")
       For Each objProperty In objInstance.Properties_
           intStartPosition = 0
           intEndPosition = 0
           strTemp = ""
           If objProperty.Name = "Antecedent" Then
               intStartPosition = InStr(objProperty.Value, "name=") + 6
               intEndPosition =   InStr(intStartPosition,objProperty.Value,Chr(34),1)-intStartPosition
               strTemp = mid(objProperty.Value, _
                               intStartPosition, _
                               intEndPosition)
               WScript.Echo "Device: " & strTemp
           End If
           
           intStartPosition = 0
           intEndPosition = 0
           strTemp = ""
           If objProperty.Name = "Dependent" Then
               intStartPosition = InStr(objProperty.Value, "name=") + 6
               intEndPosition =   InStr(intStartPosition,objProperty.Value,Chr(34),1)-intStartPosition
               strTemp = mid(objProperty.Value, _
                               intStartPosition, _
                               intEndPosition)
               WScript.Echo vbTab & "Subcomponent Device: " & strTemp
           End If 
           
           intStartPosition = 0
           intEndPosition = 0
           strTemp = ""
           If objProperty.Name = "Dependent" Then
               intStartPosition = InStr(objProperty.Value, "version=") + 9
               intEndPosition =   InStr(intStartPosition,objProperty.Value,Chr(34),1)-intStartPosition
               strTemp = mid(objProperty.Value, _
                               intStartPosition, _
                               intEndPosition)
               If InStr(objProperty.Value, "FRMW") > 0 Then
                   WScript.Echo vbTab & "Firmware Version: " & strTemp
               Elseif InStr(objProperty.Value, "DRVR") > 0 Then
                   WScript.Echo vbTab & "Driver Version: " & strTemp
               Elseif InStr(objProperty.Value, "APP") > 0 Then
                   WScript.Echo vbTab & "Application Version: " & strTemp
               Elseif InStr(objProperty.Value, "BIOS") > 0 Then
                   WScript.Echo vbTab & "BIOS Version: " & strTemp
               Else
                   WScript.Echo vbTab & "Data Not Found"
               End If
           End If    
           'WScript.Echo vbTab & objProperty.Value
       Next
   Next
End Sub

Big thanks to Marcin Policht who showed me how to program with WMI in ways Microsoft couldn't show me. http://www.serverwatch.com/tutorials/article.php/1548421

This was tested against a PowerEdge 1750 Server running Windows Server 2003 SP2 x86. OpenManage Server Administrator 5.1.0 was installed. The script was run from a Windows Vista Ultimate x32 workstation. Both machines are in the same domain. I used my Domain Admin account to run the script.

I received no errors during the running of the code, but you might have an extra line break or other formatting error to fix before it will run right on your workstation. If you have comments, questions, or think you found a bug, lemee know here.

_____________________________

Microsoft Windows 2000 Scripting Guide - The best book for newbie scripters
http://www.myspace.com/Evil__Overlord

Post #: 1

RE: Get Dell Hardware Info from WMI - 8/22/2007 10:30:03 PM

turranx

Posts: 38
Score: 0
Joined: 2/7/2006
Status: offline

And here is the output of the Sub:

-Your Computer Name Here-
============================================================
Device: OpenManage Server Administrator
Subcomponent Device: OpenManage Server Administrator
Application Version: 5.1.0
============================================================
Device: BIOS
Subcomponent Device: BIOS
BIOS Version: A11
============================================================
Device: RAGE XL PCI Family (Microsoft Corporation)
Subcomponent Device: RAGE XL PCI Family (Microsoft Corporation) Driver
Driver Version: 5.10.2600.6014
============================================================
Device: DELL PERC 3/DC & PERC 3/DCL RAID Controller
Subcomponent Device: DELL PERC 3/DC & PERC 3/DCL RAID Controller Driver
Driver Version: 6.46.2.32
============================================================
Device: Dell PERC 3/Di RAID Controller
Subcomponent Device: Dell PERC 3/Di RAID Controller Driver
Driver Version: 2.8.0.6085
============================================================
Device: RAID Controller Component Device
Subcomponent Device: RAID Controller Component Device Driver
Driver Version: 6.35.2.32
============================================================
Device: PCI standard host CPU bridge
Subcomponent Device: PCI standard host CPU bridge Driver
Driver Version: 5.2.3790.0
============================================================
So forth and so on...

_____________________________

Microsoft Windows 2000 Scripting Guide - The best book for newbie scripters
http://www.myspace.com/Evil__Overlord

(in reply to turranx)

Post #: 2

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> Post a VBScript >> Get Dell Hardware Info from WMI

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts