Редактировалось 2 раз(а), последний 2021-05-22 09:01:30

VBScript подойдет?

sComputer = "."

set oWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\" & sComputer & " ootcimv2")
set oCollection = oWMIService.ExecQuery("Select * from Win32_ComputerSystemProduct")
For Each item In oCollection
msgbox item.Name & vbCrLf & item.IdentifyingNumber & vbCrLf & item.UUID
Next

Добавь компонент VBJScript и туда этот текст закатай

И что не вышло ничего хорошего выила ошибку

ну я не адаптировал к hiasm

берешь блокнот
вставляешь туда все это

называешь файл PCinfo.vbs

Windows его распознает как VBScript (голубенький такой значек станет) и запускай его смело!

Работает?

[size=-2]------ Добавлено в 15:14
чтоб работало надо в процедуру этот скрипт вставить

sub doWork

тра-та-та (тело скрипта)

end sub

и точку входа в компонент VBJScript сделать doWork

[size=-2]------ Добавлено в 15:15
имейте ввиду, что это не Visual Basic, a Visual Basic Script - немного разные вещи

А вот фиг! В W2K не работает, коллекция-то - пустая!

Выдайт окошко с буковками FFFFFFFFFFF-FFFFFF-FFFF-FFFFFFFF

а пример можно ато что-то не выходит
code_609

очень странно! ну не знаю что тогда тебе предложить

а вот так пой дет code_610

Лично у меня все работает
code_611

Я же предупреждал, что компонент VBJScript

Оригинально. Но всётаки лучше считать с самого железа, а не с реестра. Я думаю, что в разных версиях винды пути могут отличаться.


Работает, но результат? Выдайт только окошко с одними буковками FFFFFFFF-FFFF-FFFF-FFFF-FFFFFFFFFFFF

ну что я могу сказать... это в WinXP точно должно работать - это WMI сервис

он запущен у тебя?

Наверное не запущен. Поковырялся в винде. Запустить не смог.

Вот так можно посмотреть все свойства всех процессоров, доступные через WMI

ну хоть у кого-то работает?