strComputer = "." Set objWMIService = GetObject("winmgmts://" & strComputer & "/root/WMI") ' Obtain an instance of the the class ' using a key property value. Set objShare = objWMIService.Get("Lenovo_SetBiosPassword.InstanceName='ACPI/PNP0C14/1_0'")
' Obtain an InParameters object specific ' to the method. Set objInParam = objShare.Methods_("SetBiosPassword"). _ inParameters.SpawnInstance_()
' Add the input parameters. objInParam.Properties_.Item("Parameter") = "test"
' Execute the method and obtain the return status. ' The OutParameters object in objOutParams ' is created by the provider. Set objOutParams = objWMIService.ExecMethod("Lenovo_SetBiosPassword.InstanceName='ACPI/PNP0C14/1_0'", "SetBiosPassword", objInParam)
