Sign in
Microsoft.com
 
Microsoft
 
 
 

locked
not needed RRS feed

 > 

  • Question

  • Question
    Sign in to vote
    0
    Sign in to vote

    not needed

    • Edited by Gaffa-R Thursday, February 8, 2018 2:54 PM
    • Moved by Bill_Stewart Monday, March 12, 2018 9:33 PM Unanswerable drive-by question
    Wednesday, February 7, 2018 4:19 PM

All replies

  • Question
    Sign in to vote
    0
    Sign in to vote

    What is your error?

    Lenovo consumer machines may not have the WMI support installed.  You may be using the wrong namespace.

    \_(ツ)_/

    Wednesday, February 7, 2018 8:14 PM
  • Question
    Sign in to vote
    0
    Sign in to vote

    First remove this: "On  Error Resume Next ".  Next look at the full error message.

    \_(ツ)_/

    Thursday, February 8, 2018 12:34 PM
  • Question
    Sign in to vote
    0
    Sign in to vote

    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

    \_(ツ)_/

    Thursday, February 8, 2018 12:38 PM