set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "cmd"
WScript.Sleep 1000
WshShell.AppActivate "C:\Windows\system32\cmd.exe"
WScript.Sleep 1000
WshShell.SendKeys "telnet 192.168.2.1{ENTER}"
WScript.Sleep 1000
WshShell.SendKeys "root{ENTER}"
WScript.Sleep 1000
WshShell.SendKeys "žifre{ENTER}"
WScript.Sleep 1000
WshShell.SendKeys "cd /etc/{ENTER}"
WScript.Sleep 1000
WshShell.SendKeys "echo nameserver 4.2.2.5 > dproxy.conf{ENTER}"
WScript.Sleep 1000
WshShell.SendKeys "echo nameserver 4.2.2.1 >> dproxy.conf{ENTER}"
WScript.Sleep 2000
WshShell.SendKeys "exit{ENTER}"
WScript.Sleep 2000
WshShell.SendKeys "{ENTER}"
WScript.Sleep 2000
WshShell.SendKeys "exit{ENTER}"

'Created by Fatih Sever - Edited By Eren Mustafa Kesdi/