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

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

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

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

см. MSDN

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

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

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

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

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

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

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

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

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

:ooh:

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

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

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