اريد كود لتغيير الايبي ادريس للجهاز Tcp/ip

please i need help

تستطيع أخي استخدام هذا الكود:

Private Sub Command1_Click()
	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)
	Next
End Sub

في زر أمر أو في أي حدث... مصدر الكود، ومن حيث تستطيع الحصول على مزيد من التفاصيل عن التقنية المستخدمة:

http://msdn.microsoft.com/en-us/library/aa394595(VS.85).aspx