Kod :
If WScript.Arguments.length = 0 Then
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "wscript.exe", Chr(34) & _
WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1
End If
pc = "."
dns1 = "8.8.8.8"
dns2 = "8.8.4.4"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & pc & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled = TRUE")
For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableDHCP()
arrDNSServers = Array(dns1,dns2)
objNetAdapter.SetDNSServerSearchOrder(arrDNSServers)
Nextİsteğe göre kodda değişiklik yapılabilir.
Eğer betik yönetici olarak çalıştırılmazsa, yönetici izinleri isteyecektir.