On Error Resume Next
Const BcdOSLoaderInteger_NumberOfProcessors = &h25000061
Const Current = "{fa926493-6f1c-4193-a414-58f0b2456d1e}"
Dim  objStoreClass, objStore, objDefault, objElement
strComputer = "."

Set objStoreClass = GetObject("winmgmts:{(Backup,Restore)}\\" & _
 strComputer & "\root\wmi:BcdStore")

objStoreClass.OpenStore "", objStore
objStore.OpenObject Current, objDefault

if objDefault.GetElement (BcdOSLoaderInteger_NumberOfProcessors, objElement) Then
 Wscript.Echo "Processors: " & objElement.Integer
else
 Wscript.Echo "Error to execute GetElement"
End if

If Err.Number <> 0 Then
    WScript.Echo "Error: " & Err.Number
    WScript.Echo "Error (Hex): " & Hex(Err.Number)
    WScript.Echo "Source: " &  Err.Source
    WScript.Echo "Description: " &  Err.Description
    Err.Clear
End If