Reference Guide

'*** Retrieve the instance of DCIM_BIOSEnumeration class
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate," &_
AuthenticationLevel=pktprivacy}\\" & strComputerName & "\" &_
strNameSpace)
'*** Set up the output file
set txtfile = fso.Createtextfile("BIOS_Output.csv", true)
Set ColSystem=objWMIService.execquery ("Select * from " & strClassName)
outString = ""
For each objInstance in ColSystem
'*** Check every instance
iTKVal = objInstance.Properties_.Item("CurrentValue").Value(0)
'*** Auto On Hour and Auto On Minutes don't have PossibleValues and PossibleValuesDescription
properties
if (objInstance.AttributeName <> strSpecialTK1) and (objInstance.AttributeName
<> strSpecialTK2) Then
For Each element in objInstance.Properties_.Item("PossibleValues").Value
if (objInstance.Properties_.Item("PossibleValues").Value(ArrayItem) = iTKVal)
Then
outString = outString & objInstance.AttributeName & ", " &
(objInstance.Properties_.Item
("PossibleValuesDescription").Value(ArrayItem)) & VbCrLf
end if
ArrayItem = ArrayItem + 1
Next
else
'*** Auto On Hour and Auto On Minutes token copy the current value directly
outString = outString & objInstance.AttributeName & ", " &iTKVal & VbCrLf
end if
ArrayItem = 0
Next
txtfile.WriteLine outString
'*** Close the file
txtfile.close
353