This is what your code should look like and how you are supposed to post code:
Set objWMIService = GetObject("WinMgmts:{ImpersonationLevel=Impersonate}!\\" & strComputer & "\root\wmi")
Set colItems = objWMIService.ExecQuery("Select * from Lenovo_BiosSetting")
For Each objItem in colItems
If Len(objItem.CurrentSetting) > 0 Then
Setting = ObjItem.CurrentSetting
StrItem = Left(ObjItem.CurrentSetting,InStr(ObjItem.CurrentSetting, “,”)-1)
StrValue = Mid(ObjItem.CurrentSetting,InStr(ObjItem.CurrentSetting, “,”)-1)
WScript.Echo StrItem + " = " + StrValue
End If
Next
\_(ツ)_/