Уникальный идентификатор ПК

Форумы Между деломУникальный идентификатор ПК ← Ctrl12Ctrl →

Этот топик читают: Гость

Ответов: 176

Рейтинг: 12

#16: 2006-11-20 16:21:08 ЛС | профиль | цитата

tsdima писал(а):

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

set oCollection = GetObject("winmgmts:{impersonationLevel=impersonate}\.
ootcimv2").ExecQuery("select * from Win32_Processor")
For Each item In oCollection
  s = ""
  For Each x In item.Properties_
    s = s & x.Name & " = " & x.Value & vbNewLine
  Next
  MsgBox s
Next

Работает.
А можно как нибудь строчку ProcessorId, которая в окошке в поток вывести?

карма: 0

Время верстки: %cr_time% Текущее время: %time%

Ответов: 2125

Рейтинг: 159

#17: 2006-11-20 16:26:18 ЛС | профиль | цитата

Можно:
code_612

Однако, у меня процессор не поддерживает эту фичу, и ProcessorID сначала было пустое, но через некоторое количество экспериментов с WMI оно присвоилось какому-то значению. После рестарта службы WMI, как и положено - очистилось. Так что - не всегда это истинное значение, возвращаемое командой cpuid.

карма: 1

файлы: 1

code_612.txt [544B] [422]

Ответов: 176

Рейтинг: 12

#18: 2006-11-20 16:29:43 ЛС | профиль | цитата

Спасибо!

карма: 0

Время верстки: %cr_time% Текущее время: %time%

Ответов: 2125

Рейтинг: 159

#19: 2006-11-20 16:31:19 ЛС | профиль | цитата

Блин, пора уже компонент WMI делать

карма: 1

Ответов: 176

Рейтинг: 12

#20: 2006-11-20 16:50:15 ЛС | профиль | цитата

А как узнать серийник HDD

карма: 0

Время верстки: %cr_time% Текущее время: %time%

Ответов: 2125

Рейтинг: 159

#21: 2006-11-20 18:27:32 ЛС | профиль | цитата

set oCollection = GetObject("winmgmts:{impersonationLevel=impersonate}\.
ootcimv2").ExecQuery("select * from Win32_LogicalDisk where DriveType=3")
For Each item In oCollection
  s = ""
  For Each x In item.Properties_
    s = s & x.Name & " = " & x.Value & vbNewLine
  Next
  MsgBox s
Next

VolumeSerialNumber
После форматирования, конечно, изменится

карма: 1

Гость

Ответов: 17029

Рейтинг: 0

#22: 2006-11-21 03:06:28 правка | ЛС | профиль | цитата

Редактировалось 1 раз(а), последний 2017-03-02 09:26:28

карма: 0

Ответов: 345

Рейтинг: 1

#23: 2006-11-21 03:13:01 ЛС | профиль | цитата

Вот так можно узнать в Upload есть diskinfo вот код code_619

карма: 0

файлы: 1

code_619.txt [5.5KB] [332]

Ответов: 48

Рейтинг: 0

#24: 2006-11-21 08:08:07 ЛС | профиль | цитата

Люди! Пора бы уже самим WMI изучить! Вот инструмент
http://www.microsoft.com/downloads/details.aspx?FamilyID=6430f853-1120-48db-8cc5-f2abdc3ed314&DisplayLang=en

а вот справка
http://www.askit.ru/progr_admin/progr_admin_m14.htm

карма: 0

Главный модератор

Ответов: 2999

Рейтинг: 396

#25: 2006-11-21 08:55:36 ЛС | профиль | цитата

tsdima писал(а):

Блин, пора уже компонент WMI делать

А чем не устраивает доступ к нему через VBJScript?

карма: 6

Дорогу осилит идущий. Install/Update HiAsm.NET

Ответов: 2125

Рейтинг: 159

#26: 2006-11-21 10:52:16 ЛС | профиль | цитата

Меня всё устраивает, я этим WMI даже и не пользуюсь, а вот пользователям было-бы проще имя таблицы из комбо выбирать, да и свойства тоже.

карма: 1

Форумы Между деломУникальный идентификатор ПК ← Ctrl12Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)