Reference Guide

'*** 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)
'*** Establish a connection to the dcim\sysman namespace
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate," &_
"AuthenticationLevel=pktprivacy}\\" & strComputerName & "\" &_
strNameSpace)
Set ColSystem=objWMIService.execquery ("Select * from " & strClassName)
For each objInstance in ColSystem
if (objInstance.CreationClassName = strKeyValueChassis) Then
strMessage = "Asset Tag: "
strMessage = strMessage & objInstance.Properties_.Item("Tag").Value
strMessage = strMessage & vbCRLF & "Service Tag: "
strMessage = strMessage & objInstance.Properties_.Item("ElementName").Value
End if
Next
'*** Retrieve all instances of DCIM_BIOSElement (there should only be 1 instance).
Set ColSystem=objWMIService.execquery ("Select * from " & strClassNameBIOS)
For each objInstance in ColSystem
strMessage = strMessage & vbCRLF & "BIOS Version: "
strMessage = strMessage & objInstance.Properties_.Item("Version").Value
Next
'*** Display the results
WScript.Echo strMessage
369