主页 / 问题 / 766429
Accepted
Eugen Eray
Asked:2020-01-04 17:48:57 +0000 UTC2020-01-04 17:48:57 +0000 UTC

找出处理器内核的数量 VBScript

  • 772

下午好！VBS 中是否有一个函数（或方法）可以让我查看处理器内核的数量？也就是说：您需要一个代码来确定处理器内核的数量。也就是说physicalCoreAmount，它应该等于处理器内核的数量。我之前在谷歌上搜索过，但要么有问题，要么答案还是直接来自中生代。谢谢您的帮助！

Option Explicit 

Dim runBatch, coreAmount, physicalCoreAmount
Rem physicalCoreAmount – должно равняться кол-ву ядер процессора
Set runBatch = CreateObject(WSCript.shell)

Do
coreAmount = inputBox("Укажите кол-во ядер (Set your amount of cores)", "Укажите колличество ядер")
If coreAmount = "" then
  msgbox "Введите количество ядер!",vbOkOnly + vbCritical,"Ошибка"
Else If not IsNumeric(coreAmount) then
  msgbox "Введите числовое значение!",vbOkOnly + vbCritical,"Ошибка"
Else If InStr(1, coreAmount, ".", vbTextCompare) > 0 or InStr(1, coreAmount, ",", vbTextCompare) > 0  then
  msgbox "Введите числовое значение без точки или запятой!",vbOkOnly + vbCritical,"Ошибка"
Else If coreAmount > physicalCoreAmount then
  msgbox "Введите верное количество ядер. Не более" + physicalCoreAmount + ".",vbOkOnly + vbCritical,"Ошибка"
Else
  exit do   
Loop
windows

1 个回答

  1. Best Answer

    Windows 有一个您可以访问的管理子系统（有时甚至没有管理员权限）。此代码枚举所有处理器（可能有多个，尤其是在服务器机器上）并总结其中的内核数：

    On Error Resume Next

Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20

Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Processor", "WQL", _
                                      wbemFlagReturnImmediately + wbemFlagForwardOnly)

coreCount = 0
For Each objItem In colItems
    coreCount = coreCount + objItem.NumberOfCores
Next

WScript.Echo "Всего ядер: " & coreCount
    • 2

相关问题