كيفية تغيير ال Dns من خلال الفيجوال بيسك

On Error Resume Next
' Mohamed Nagy
' m_nagy2010@yahoo.com
sDNS1 = "208.67.222.222"	
sDNS2 = "208.67.220.220"	

sIPAddress = "192.168.1.3"	   
sSubnetMask = "255.255.255.0"
sGateway = "192.168.1.1"

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

For Each objNetAdapter In colNetAdapters
arrDNSServers = Array(sDNS1, sDNS2)
objNetAdapter.SetDNSServerSearchOrder (arrDNSServers)
Next

arrIPAddress = Array(sIPAddress)
arrSubnetMask = Array(sSubnetMask)
arrGateway = Array(sGateway)
arrGatewaymetric = Array(1)

For Each objNetAdapter In colNetAdapters
errEnable = objNetAdapter.EnableStatic(arrIPAddress, arrSubnetMask)
errGateways = objNetAdapter.SetGateways(arrGateway, arrGatewaymetric)

If errEnable = 0 Then

sMsg = "IP address has changed to: " & sIPAddress & vbCrLf
sMsg = sMsg & "Subnet has changed to: " & sSubnetMask & vbCrLf
sMsg = sMsg & "Gateway has changed to: " & sGateway & vbCrLf & vbCrLf
sMsg = sMsg & "DNS 1 has changed to: " & sDNS1 & vbCrLf
sMsg = sMsg & "DNS 2 has changed to: " & sDNS2 & vbCrLf

WScript.Echo sMsg
Else
WScript.Echo "The IP address could not be changed."
End If
Next


End Sub

وكذلك ارفقت لك مثال يمكنك تحميله

______ip_and_DNS.rar

رائع أخي العزيز ....

كنت بحاجة غلى هذا الكود ....