Reference Guide

'**********************************************************************
Option Explicit
'*** Declare variables
Dim strNameSpace
Dim strComputerName
Dim strClassName
Dim strClassNameBIOS
Dim strKeyValueChassis
Dim objInstance
Dim ColSystem
Dim objWMIService
Dim strMessage
'*** Check that the right executable was used to run the script and that all parameters were passed
If (LCase(Right(WScript.FullName, 11)) = "wscript.exe" ) Or _
(Wscript.Arguments.Count < 1) Then
Call Usage()
WScript.Quit
End If
'*** Initialize variables
strNameSpace = "root/dcim/sysman"
strComputerName = WScript.Arguments(0)
strClassName = "DCIM_Chassis"
strClassNameBIOS = "DCIM_BIOSElement"
strKeyValueChassis = "DCIM_Chassis"
'*** Retrieve the instance of DCIM_Chassis class (there should only be 1 instance)
418