Подскажите пожалуста, как узнать MAC address

[Lord Skill]

Подскажите пожалуста, как узнать MAC Address (программно) машины, если машина не подключина к сети.

нужно для всех WINDOWS nachinaja s 98
i na Visual Basic ili OCX component

есть такая функция в Iphlpapi.dll - GetAdaptersInfo

см. MSDN

[r99]

найти пакетный драйвер под ДОС для данной сетевой карты и запустить в ДОСЕ
с соответствующими опциями - MAC адрес и проявится

[Lord Skill]

может я не так точно выразился - но вообшем мне надо зашитить прогу так чтоб она работала только на одном компе - и написать ее надо на Visual Basic

[nice]

Lord Skill
Достаточно сетевушку переставить, и на другом компе тоже будет работать, а можно прошивку перезаписать и одна и та же прога будет работать на 2-ух сетевых и более.
Хочешь привизать используй или BIOS или HDD:
GetVolumeInformation вернет серийный номер ндд

[Lord Skill]

GetVolumeInformation ету функцию к какому компоненту прикрепить?

[Supervisor]

Win98
В коммандной строке набрать winipcfg

WinXP
В коммандной строке набрать ipconfig /all

[Lord Skill]

appz_news
да ето ясно - но мне надо так чтобы программно из ВБ сверять - подходит ли етот МАК или ХДД или нет и чтоб прога работала только с одним компом!!!
то есть надо вычислить программно!!

[Supervisor]

Посмотри тут:
h__p://www.codenet.ru/progr/inet/mac_addr.php
h__p://www.sources.ru/cpp/faqs/1.htm

[Lord Skill]

appz_news
спасибо
...но первая ссылка - там всегда нули выдает
а вторая по C++



Добавлено через 7 минут:
а у меня в свойствах LAN написано :
NetBIOS over Tcpip : Disabled

[Supervisor]

h__p://www.sources.ru/vb/vb_determining_mac_address.shtml

[Lord Skill]

Первоначальное сообщение от nice
Lord Skill
Достаточно сетевушку переставить, и на другом компе тоже будет работать, а можно прошивку перезаписать и одна и та же прога будет работать на 2-ух сетевых и более.
Хочешь привизать используй или BIOS или HDD:
GetVolumeInformation вернет серийный номер ндд

a mozhet byt' ty podelishsja tem kak pereproshit' setevuhu?

Привет!
Вот тебе готовая прога на ВЭБЭ, которая определяет платформу, имя тома и серийный номерок НГМД.
Пользуйся на здоровие!!!

Option Explicit
Dim LfRet As String
Dim Kod As String

Private Sub Command1_Click()
Dim D$
txt_Resume = ""
D$ = "c:\"
Kod = PDisk(D$)
MsgBox Kod
End Sub


Public Function PDisk(D$)
LfRet = Chr(10) & Chr(13)

Dim Serial As Long, VName As String, FSName As String 'Create buffers
VName = String$(255, Chr$(0))
FSName = String$(255, Chr$(0))
'получаем информацию о диске
GetVolumeInformation D$, VName, 255, Serial, 0, 0, FSName, 255
'Strip the extra chr$(0)'s
VName = Left$(VName, InStr(1, VName, Chr$(0)) - 1)
FSName = Left$(FSName, InStr(1, FSName, Chr$(0)) - 1)

PDisk = LfRet & "Имя диска " & VName _
& LfRet & "Файловая система " & FSName _
& LfRet & "Серийный номер диска " & Trim(Str$(Serial))

End Function

не забудь декларировать в отдельном модуле :

Declare Function GetVolumeInformation Lib "Kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long

С уважением, Lavalit