DehaForum - Yazılım ve Programlama Topluluğu Programlama Visual Basic Vbscript İle Dns Değiştirme
Vbscript İle Dns Değiştirme
nesrincavadzade
Vbscript İle Dns Değiştirme
0
179
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Konuyu Okuyanlar:1 Ziyaretçi
Şuan Offine!
Şuan Offine!
nesrincavadzade Çalışkan Üye
*
Yeni Üye
  • Konular6
  • Mesajlar6
  • Rep puanı 0
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.


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  vBscript Uac İsteği nesrincavadzade 0 180 07-05-2020, Saat: 22:21
Son Yorum: nesrincavadzade
  Vbscript Kayıt Defterine Yazma nesrincavadzade 0 133 07-05-2020, Saat: 22:19
Son Yorum: nesrincavadzade
  Vbscript Kayıt Defterinde Okuma nesrincavadzade 0 178 07-05-2020, Saat: 22:18
Son Yorum: nesrincavadzade

Hızlı Menü: