Mybro DV235T Protection VBscript

Set Kasenukesu = CreateObject("WScript.Shell")

Kasenukesu.run"cmd"
WScript.Sleep 1000

Kasenukesu.Sendkeys"echo off{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"telnet 192.168.15.1{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"mt7109{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"wimax{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"sncfg dset ADMIN_NAME PrinceLelouch{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"sncfg dset ADMIN_PASSWD '$1$k2I9hJe4$suCV7e/9t.SC/j8JHc0Xs.'{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"sncfg dset GUEST_NAME Prince{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"sncfg dset GUEST_PASSWD '$1$k2I9hJe4$suCV7e/9t.SC/j8JHc0Xs.'{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"sncfg dset POWERUSER_NAME Lelouch{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"sncfg dset POWERUSER_PASSWD '$1$k2I9hJe4$suCV7e/9t.SC/j8JHc0Xs.'{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"sncfg dset WLAN_SSID1 PrinceLelouch{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"sncfg dset WLAN_WPAPSK1 PrinceLelouch{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"sncfg dset HTTPD_ENABLE 0{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"sncfg dset HTTPSD_ENABLE 1{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"sncfg dset MGMT_WEB_WAN 0{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"sncfg dset TELNETD_ENABLE 0{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"sncfg dset MGMT_TELNET_WAN 0{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"sncfg dset MGMT_TELNET_LAN 1{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"sncfg dset SSHD_ENABLE 0{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"sncfg dset MGMT_SSH_WAN 0{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"sncfg dset MGMT_SSH_LAN 1{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"sncfg dset TR_ENABLE 0{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"sncfg dset TR_BOOTSTRAP 0{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"sncfg dset TR_INFORM_ENABLE 0{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"sncfg dset NETFILTER_ALG_FTP 0{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"sncfg dset NETFILTER_ALG_H323 0{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"sncfg dset NETFILTER_ALG_IPSEC 0{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"sncfg dset NETFILTER_ALG_L2TP 0{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"sncfg dset NETFILTER_ALG_PPTP 0{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"sncfg dset NETFILTER_ALG_RTSP 0{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"sncfg dset NETFILTER_ALG_SIP 0{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"sncfg dset NETFILTER_DDOS_SYNFLOOD 1{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"sncfg dset NETFILTER_DDOS_UDPFLOOD 1{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"sncfg dset NETFILTER_DDOS_ICMPFLOOD 1{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"sncfg dset NETFILTER_DDOS_PORTSCAN 1{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"sncfg dset NETFILTER_DDOS_LANDATTACK 1{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"sncfg dset NETFILTER_DDOS_IPSPOOF 1{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"sncfg dset NETFILTER_DDOS_ICMPREDIRECT 1{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"sncfg dset NETFILTER_DDOS_PINGOFDEATH 1{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"sncfg dset NETFILTER_DDOS_PINGFROMWAN 1{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"sncfg dset WLAN_WifiEnable 1{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"sncfg dset WLAN_BssidNum 1{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"sncfg dset WLAN_WirelessMode 0{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"sncfg dset WLAN_Channel 0{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"sncfg dset WLAN_AutoChannelSelect 1{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"sncfg dset WLAN_AuthMode WPA2PSK{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"sncfg dset WLAN_EncrypType TKIP{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"sncfg dset WLAN_AUTO_SecurityMode WPAPSK{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"sncfg dset WLAN_AUTO_AuthMode WPAPSK{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"sncfg dset WLAN_AUTO_EncrypType TKIP{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"sncfg dset WLAN_HideSSID 0{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"sncfg dset WLAN_AUTO_MODE 0{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"sncfg commit{Enter}"
WScript.Sleep 1000

Kasenukesu.SendKeys"/factoryreset.sh{Enter}"
WScript.Sleep 1000