strComputer = "."
Set objWMIService = GetObject("winmgmts:" & strComputer & "rootWMI")
' Obtain an instance of the the class
' using a key property value.
Set objShare = objWMIService.Get("Lenovo_SetBiosPassword.InstanceName='ACPIPNP0C141_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='ACPIPNP0C141_0'", "SetBiosPassword", objInParam)

' List OutParams
Wscript.Echo "Out Parameters: "
Wscript.echo "Return: " & objOutParams.Return