NumberOfCores.fsx

#r "System.Management"
open System.Management

do
    use ma = new ManagementObjectSearcher("Select * from Win32_Processor")

    for item in ma.Get() do
        try
            printfn "%A" item.["NumberOfCores"]
        with _ -> ()

do
    use ma = new ManagementObjectSearcher("Select * from Win32_ComputerSystem")

    for item in ma.Get() do
        try
            printfn "%A" item.["NumberOfLogicalProcessors"]
        with _ -> ()