1
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 !!!
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 !!!
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 19588
Url: https://administrator.de/contentid/19588
Printed on: April 24, 2024 at 06:04 o'clock
1 Comment
Hi Stokel1,
könnte etwa so aussehen:
Den Pfad für strFile musst du natürlich noch anpassen, sinnvollerweise ist das dann ein UNC-Pfad.
strFile MUSS diesen Aufbau haben:
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
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 IfDen 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.254Die 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
