VPF::Вычислить Serial Материнки - Форум программистов

$дмитрий

Дата 8.9.2006, 20:16 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1037
Регистрация: 19.6.2004

Репутация: нет
Всего: 45

задача: вычислить идентификационный номер материнской платы пользователя

кто чем сможет помочь, интересует ВСЕ по этой теме

$дмитрий

Дата 10.9.2006, 00:47 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1037
Регистрация: 19.6.2004

Репутация: нет
Всего: 45

неужели никто не знает? smile

AztEK

Дата 16.9.2006, 20:48 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 723
Регистрация: 4.1.2005

Репутация: нет
Всего: 18

Через веб?????????????????????

--------------------

Linux is like wigwam -- no windows, no gates, apache inside.

LesnoyChelovek

Дата 16.9.2006, 21:32 (ссылка)

(нет голосов)

Загрузка ...

странник Интернета

Профиль
Группа: Участник
Сообщений: 346
Регистрация: 27.2.2006
Где: Русь

Репутация: нет
Всего: 10

Через Веб в принципе нереально.

--------------------

Делай добро и бросай его в воду... оно не утонет.. добром к тебе вернеться.
http://picasaweb.google.com/LesnoyChelovek/Photo

Sun

Дата 20.9.2006, 16:17 (ссылка)

(нет голосов)

Загрузка ...

Account removed

Профиль
Группа: Экс. модератор
Сообщений: 1611
Регистрация: 14.8.2002

Репутация: нет
Всего: 48

Код


Public Function MBSerialNumber() As String

'RETRIEVES SERIAL NUMBER OF MOTHERBOARD
'IF THERE IS MORE THAN ONE MOTHERBOARD, THE SERIAL
'NUMBERS WILL BE DELIMITED BY COMMAS

'YOU MUST HAVE WMI INSTALLED AND A REFERENCE TO
'Microsoft WMI Scripting Library IS REQUIRED

Dim objs As Object

Dim obj As Object
Dim WMI As Object
Dim sAns As String


Set WMI = GetObject("WinMgmts:")
Set objs = WMI.InstancesOf("Win32_BaseBoard")
For Each obj In objs
  sAns = sAns & obj.SerialNumber
 If sAns < objs.Count Then sAns = sAns & ","
Next
MBSerialNumber = sAns
End Function

http://www.freevbcode.com/ShowCode.asp?ID=2664

Можно попробовать выполнить на клиенте через встроенный в страницу VBScript, но нужно чтобы в броузере были установлены соотвествующи раззрешения на запуск таких приложений.

--------------------

Account removed

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Продвижение и оптимизация сайтов \| Следующая тема »