stokel1
Goto Top

Win2003 Server - Client IP Zuweisung nur mit Gültiger MAC Adresse

Ich hab mir mal einen Win 2003 Server aufgesetzt. Funzt auch alles Super.
Nun wollte ich aber nicht jeden X-Beliebigen Client die Möglichkeit geben sich anmelden
zu können. Kann ich von vorherein denn schon mal MAC Adressen nur den Zugang gewähren
die ich Einrichte ??? Die sollen dann auch eine feste IP zugewiesen bekommen.

Wäre nett wenn mich da mal jemand unterstützen könnte, Danke !!!

Content-ID: 19588

Url: https://administrator.de/forum/win2003-server-client-ip-zuweisung-nur-mit-gueltiger-mac-adresse-19588.html

Ausgedruckt am: 25.12.2024 um 05:12 Uhr

gemini
gemini 20.11.2005 um 16:28:13 Uhr
Goto Top
Hi Stokel1,

könnte etwa so aussehen:
Option Explicit
Dim objFSO, objWshNetwork, objFile, objWMIService, objAdapter
Dim strComputer, strFile, strMAC, strText, strLine, strIPAddress, strSubnetmask
Dim errEnable, colAdapters
Const ForReading = 1, ForWriting = 2, ForAppending = 8

strFile = "C:\_IPbyMAC\MAC.txt"  
strComputer = "."  

Set objWMIService = GetObject("winmgmts:" _  
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")  
Set colAdapters = objWMIService.ExecQuery _
    ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")  

For Each objAdapter in colAdapters
   strMAC = objAdapter.MACAddress
Next

Set objFSO = Wscript.CreateObject("Scripting.FileSystemObject")  

If objFSO.FileExists(strFile) Then
Set objFile = objFSO.OpenTextFile(strFile, ForReading)
Do Until objFile.AtEndOfStream
strLine = objFile.ReadLine
If Left(strLine,17) = strMAC Then
strIPAddress = Array(Right(strLine,15))
strSubnetMask = Array("255.255.255.0")  
For Each objAdapter in colAdapters
errEnable = objAdapter.EnableStatic(strIPAddress, strSubnetMask)
If Not errEnable = 0 Then
WScript.Echo "The IP address could not be changed."  
End If
Next
End If
Loop
objFile.Close
End If

Den Pfad für strFile musst du natürlich noch anpassen, sinnvollerweise ist das dann ein UNC-Pfad.
strFile MUSS diesen Aufbau haben:
00:5A:22:92:2B:90,192.168.001.238
00:50:22:92:2B:90,192.168.001.254

Die Subnetmask wird auf 255.255.255.0 gesetzt.

Ist natürlich nur schnell hingehauen, ohne Fehlerbehandlung und auch nicht optimiert.

Was natürlich auch möglich wäre, ist die Festlegung der MACs an den Ports des Switch.

Gruß
gemini