Модератор: BV
У тебя стоит басик-то?
' Для работы надо подключить MS WMI Scripting Library
Dim cpuSet As SWbemObjectSet
Dim cpu As SWbemObject
Set cpuSet = GetObject("winmgmts:{impersonationLevel=impersonate}"). _
InstancesOf("Win32_Processor")
For Each cpu In cpuSet
Print cpu.Name
Next cpu
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 6