المشاركة الأصلية كتبت بواسطة taha_khader
السلام عليكم
نفترض انك ترغب بوضع ايبى ثابت لك لجهاز ما دون ان يكون لك dhcp سيرفر
يمكنك ذلك بدون ان تقوم من مكانك عن طريق Script Code
واضافته عن طريق الجروب بوليسى الى الخاص المراد له ذلك
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strIPAddress = Array("192.168.1.141")
strSubnetMask = Array("255.255.255.0")
strGateway = Array("192.168.1.100")
strGatewayMetric = Array(1)
For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
If errEnable = 0 Then
WScript.Echo "The IP address has been changed."
Else
WScript.Echo "The IP address could not be changed."
End If
Next
لاحظ ان الايبى ادرس هنا هو 192.168.1.141
و قناع الشبكه هو 2550255.255.0
و الجت واى هو 192.168.1.100
و يمكن تغيرهم الى ما تحب
يفضل لك اضافه dhcp سيرفر لتوفير الوقت لك
المفضلات