# $language = "VBScript"
# $interface = "1.0"

Dim tavan,taban,rendim,kauntir
Dim sonuc
Dim tumsi

Sub setaddr
tumsi = "sysHfcMacAddrSet__3Hfccccccc(0x00"
do while kauntir<6
randomize
rendim = Int((tavan - taban + 1)*Rnd + taban)
sonuc= hex(rendim)
tumsi = tumsi + "," + "0x" + sonuc
kauntir = kauntir+1
loop
tumsi = tumsi + ")"
End Sub

Do while 1=1
crt.Screen.Synchronous = True
tavan = 255
taban = 17
kauntir = 1
setaddr()
crt.Screen.WaitForString "Version:"
Set shell = CreateObject("WScript.Shell")
shell.Run "netsh interface ip set address "Local Area Connection" static TFTPSERVERIPHERE 255.255.0.0 TFTPSERVERIPHERE 1"
crt.Screen.WaitForString "-> "
crt.Screen.Send "ts tScMain" & vbCr
crt.Screen.WaitForString "-> "
crt.Screen.Send tumsi & vbCr
crt.Screen.WaitForString "-> "
crt.Screen.Send "routeAdd "&Chr(34)&"TFTPSERVERIPHERE"&Chr(34)&", "&Chr(34)&"192.168.100.1"&Chr(34) & vbCr
crt.Screen.WaitForString "-> "
crt.Screen.Send "tr tScMain" & vbCr
crt.Screen.WaitForString "-> "
crt.Screen.Send "td tShell" & vbCr
crt.Screen.WaitForString "REGISTRATION SUCCESS"
shell.Run "netsh interface ip set address "Local Area Connection" source=dhcp"
crt.Screen.Synchronous = False
loop