Получение MAC адресса в javascript
Нельзя так сдалеть. И правильно. )
Это оптимальный вариант.
А вообще-то WMI тебе в помощь.
MAC:
[html]
Private Sub SpecificationsNet()
Dim strComputer As String
Dim objWMIService As Object, colBIOS As Object, objBIOS As Object
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colBIOS = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapter")
For Each objBIOS In colBIOS
Debug.Print "Name adapter: " & objBIOS.name
Debug.Print "MAC-adress: " & objBIOS.MACAddress
Next
Set objWMIService = NothingEnd Sub[/html]
IP:
[html]
Sub Ip()
Dim i As Integer
Dim strComputer As String
Dim objWMIService As Object
Dim IPConfigSet As Object
Dim IPConfig As Object
strComputer = "."
Set objWMIService = GetObject( _
"winmgmts:\\" & strComputer & "\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery _
("Select IPAddress from Win32_NetworkAdapterConfiguration ")
For Each IPConfig In IPConfigSet
If Not IsNull(IPConfig.IPAddress) Then
For i = LBound(IPConfig.IPAddress) _
To UBound(IPConfig.IPAddress)
Debug.Print IPConfig.IPAddress(i)
Next
End If
Next
End Sub[/html]
USERNAME:
[html]
Sub UserName()
Dim strComputer As String
Dim objWMIService As Object
Dim objComputer As Object
Dim colComputer As Object
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colComputer = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")
For Each objComputer In colComputer
Debug.Print "User Name = " & objComputer.UserName _
& vbNewLine & "Computer Name = " & objComputer.Name
Next
End Sub[/html]
Но проблема в кроссбраузерности :)
Вся эта хрень будет работать только под известным браузером в известной системе (еще и не факт что будет работать вообще).
Тем не менее игнорировать пользователей Firefox, Opera, Safari все же не стоит т.к. их количество близко к 30% в зависимости от страны.
Автор топика, нужно уникально идентифицировать простого пользователя или любого, т.е. без исключений и потенциальных злоумышленников? Если первое, то куки, все там предельно просто, сессию вести за браузером. Если второе - то абсолютно никак. Ну, разве что, если выдавать логин и пароль уникальные, требовать регистрацию.
ARP :)
вот как плохо не знать матчасть:
1. автор не знал про куки
2. автор исходил из ошибочного предположения, что по MAC адресу можно однозначно идентифицировать ПК. иначе говоря, что MAC - уникален
Ээээ.... а что, разве у нас для инета разрешены ARP-ы? Сидят себе юзеры на NAT-ом, какие через него ARP-ы то.... Приемлемо только для интранет ресурса.