HELP: DV 235T Di maaccess gui at telnet pag admin gagamitin

[yasoumastura]

Pa help po ako mga sir

Pinalitan ko lang poung IP address ng 10.1.1.254 tapos nilagay ko po ung mac ko sa program after ko irun tong script
Then after po diko makalog in sa 10.1.1.254 using admin/admin invalid password/username daw po pano ifix to mga sir? T.T

<job>
<script language="jscript">
var add=[12,2,17,5,16,31,28,10,16,20,22,1];
var subst={58:122,59:121,60:120,61:119,62:118,63:117,64:116,91:115,92:114,93:113,94:112,45:111,96:110};

function generatePassword(input){
var inputMac=input.replace(/:/g,"").toUpperCase();
var macPassword="";
if((inputMac.search(/^[A-F0-9]{12}$/)==-1) || (inputMac =="000000000000")){
return macPassword="invalid"}
else{
var b;
var a;
var c="";
for(b=0;b<12;b++){
a=inputMac.charCodeAt(b)+add;
if(subst[a]){
a=subst[a]
}
c+=String.fromCharCode(a)
}
return macPassword="2008"+c+"";
}
};
function doMath(hexValue1,hexValue2) {
var outHex;
var stringHex1 = parseInt(hexValue1,16);
var stringHex2 = parseInt(hexValue2,16);
var number = stringHex1;
var number2 = stringHex2;
var hexaddansv = eval(number) + eval(number2);
outHex = (hexaddansv);
return outHex = Number(hexaddansv).toString(16);
}
</script>

<script language="vbscript">
'Dim out


Dim telnetUserName, telnetPassword, telnetHost,sMac,genPassOut,sM,colun1,colun2,colun3,colun4,colun5,sPath,telip
Set BMT = CreateObject("WScript.Shell")


'telip = InputBox( vbCr & vbLf & "Supported device:" & vbCr & vbLf & " SMART Version for globe WITH Original Firmware" & vbCr & vbLf & "When Telnet windows open it SHOULD be active!!" & vbCr & vbLf & "" & vbCr & vbLf & "" & "" & vbCr & vbLf & "Please enter Your modem Ip Address!" & "" & vbCr & vbLf & "" & "EX. 192.168.15.1, 10.1.1.254" , "WIMAX MAC Changer [Script by: BMT]")

'If TypeName(telip) = "Empty" Then
' MsgBox vbCr & vbLf & " Operation Canceled! ",16,"Goodbye... [Script by: BMT] "
' WScript.Quit
'End If



'===Server settings===

telnetUserName = "mt7109"
telnetPassword = "wimax"
telnetHost = "10.1.1.254"

'===End server settings===

'connectToHost(telnetHost)

If Ping(telnetHost) Then
connectToHost(telnetHost)
Else
MsgBox vbCr & vbLf & "Failed to connect! Please check your WIMAX IP!!! and TRY AGAIN...",16,"Status Window [Script by: BMT] "
WScript.Quit
End If

'Function check Host if reachable
Function Ping(Target)
Dim results

On Error Resume Next

Set shell = CreateObject("WScript.Shell")

' Send 1 echo request, waiting 2 seconds for result
Set exec = shell.Exec("ping -n 1 -w 2000 " & Target)
results = LCase(exec.StdOut.ReadAll)

Ping = (InStr(results, "reply from") > 0)
End Function

Function getBaseMacFourtOctetSixTTm(macFull)
Dim mac,baseMac
mac = macFull
baseMacValue = Mid(mac,1,12)
getBaseMacFourtOctetSixTTm =baseMacValue
'inputMacBase.value = baseMac
Set mac = Nothing
Set baseMac = Nothing
End Function 'end getbaseMac

''open path

''Begin IncrementMAC by One
Function IncrementMacbyOne (lanMAc)
Dim mac, lastHex, lastHexRange,inc,incTest,newMac,genMethodString
mac = lanMAc
fullNewMAc = "30:87:30:C6:83:18"
''LogContents.value = "Generating MAC started..."
intNumberofMAc = CLng(Trim(1))
inc = 1
genMethodString = "Increment"
howManyMac = 0
getNewBaseMac = UCase(getBaseMacFourtOctetSixTTm(mac))
Do
myCurrenMacFifthHex = Mid(mac,13,2)
myCurrenMacSixthHex = Mid(mac,16,2)
fifthAndSixthMac = myCurrenMacFifthHex & myCurrenMacSixthHex
howManyMac = howManyMac + 1
incTest = doMath(fifthAndSixthMac,inc)
newMac = incTest
If incTest < "0000" Then
''DisplayLogMacGenScan genMethodString & " is out of range... Try use INCREMENT method."
Exit do
End If
If Len(incTest) = 3 Then
newMac = "0" & newMac
ElseIf Len(incTest) = 2 Then
newMac = "00" & newMac
ElseIf Len(incTest) = 1 Then
newMac = "000" & newMac
ElseIf Len(incTest) >4 Then
''DisplayLogMacGenScan genMethodString & " is out of range... Try use DECREMENT method."
Exit Do
End If
newMacFifth = Mid(newMac,1,2)
newMacSixth = Mid(newMac,3,2)
newMac = newMacFifth &":"& newMacSixth
fullNewMAc = getNewBaseMac & UCase(newMac)
mac = fullNewMAc
Loop While howManyMac <> intNumberofMAc
IncrementMacbyOne = fullNewMAc
End Function
''End IncrementMAC by one

'Ask MAc and Connect to telnet
Sub connectToHost(hostAddress)
Do
sMac = InputBox( vbCr & vbLf & "Supported device:" & vbCr & vbLf & " SMART Version for globe WITH Original Firmware" & vbCr & vbLf & "When Telnet windows open it SHOULD be active!!" & vbCr & vbLf & "" & vbCr & vbLf & "" & "" & vbCr & vbLf & "" & "" & vbCr & vbLf & "" & "" & vbCr & vbLf & "" & "Please enter a VALID MAC Address! EX. 00:11:22:33:44:55" , "WIMAX MAC Changer [Script by: BMT]")

If TypeName(sMac) = "Empty" Then
MsgBox vbCr & vbLf & " Operation Canceled! ",16,"Goodbye... [Script by: BMT] "
WScript.Quit
End If

lowerS = LCase(sMac)
start1 = Mid(lowerS, 1, 2)

wanMacEntry = Replace(sMac ,":","")
Dim WshShell, strCurDir, strCurDir1
Dim arrFileLines()
Dim macgen

Loop While (passWord="invalid")

If start1 = "34" then

Set WshShell = CreateObject("WScript.Shell")
strCurDir = WshShell.CurrentDirectory
Set WshShell = Nothing
Set fso = CreateObject("Scripting.FileSystemObject")
Set objOutputFile = fso.CreateTextFile(strCurDir & "\macgen.bat",True)
objOutputFile.Write "genpass 1122 " & wanMacEntry & " > macgenss.txt"
objOutputFile.Close

set shell = createobject("wscript.shell")
shell.Run "macgen.bat"
Set shell = Nothing
WScript.Sleep 4000

i = 0
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("macgenss.txt", 1)
Do Until objFile.AtEndOfStream
Redim Preserve arrFileLines(i)
arrFileLines(i) = objFile.ReadLine
i = i + 1
Loop
objFile.Close
For l = Ubound(arrFileLines) to LBound(arrFileLines) Step -1
macgen = arrFileLines(l)
Next

macgen = (Right(macgen,16))

End If
If start1 = "c8" then
Set WshShell = CreateObject("WScript.Shell")
strCurDir = WshShell.CurrentDirectory
Set WshShell = Nothing
Set fso = CreateObject("Scripting.FileSystemObject")
Set objOutputFile = fso.CreateTextFile(strCurDir & "\macgen.bat",True)
objOutputFile.Write "genpass 1122 " & wanMacEntry & " > macgenss.txt"
objOutputFile.Close

set shell = createobject("wscript.shell")
shell.Run "macgen.bat"
Set shell = Nothing
WScript.Sleep 4000

i = 0
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("macgenss.txt", 1)
Do Until objFile.AtEndOfStream
Redim Preserve arrFileLines(i)
arrFileLines(i) = objFile.ReadLine
i = i + 1
Loop
objFile.Close
For l = Ubound(arrFileLines) to LBound(arrFileLines) Step -1
macgen = arrFileLines(l)
Next

macgen = (Right(macgen,16))
End If
If start1 = "e8" then

Set WshShell = CreateObject("WScript.Shell")
strCurDir = WshShell.CurrentDirectory
Set WshShell = Nothing
Set fso = CreateObject("Scripting.FileSystemObject")
Set objOutputFile = fso.CreateTextFile(strCurDir & "\macgen.bat",True)
objOutputFile.Write "genpass 1122 " & wanMacEntry & " > macgenss.txt"
objOutputFile.Close

set shell = createobject("wscript.shell")
shell.Run "macgen.bat"
Set shell = Nothing
WScript.Sleep 4000

i = 0
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("macgenss.txt", 1)
Do Until objFile.AtEndOfStream
Redim Preserve arrFileLines(i)
arrFileLines(i) = objFile.ReadLine
i = i + 1
Loop
objFile.Close
For l = Ubound(arrFileLines) to LBound(arrFileLines) Step -1
macgen = arrFileLines(l)
Next

macgen = (Right(macgen,16))

End If
If start1 = "0c" then

Set WshShell = CreateObject("WScript.Shell")
strCurDir = WshShell.CurrentDirectory
Set WshShell = Nothing
Set fso = CreateObject("Scripting.FileSystemObject")
Set objOutputFile = fso.CreateTextFile(strCurDir & "\macgen.bat",True)
objOutputFile.Write "genpass 1122 " & wanMacEntry & " > macgenss.txt"
objOutputFile.Close

set shell = createobject("wscript.shell")
shell.Run "macgen.bat"
Set shell = Nothing
WScript.Sleep 4000

i = 0
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("macgenss.txt", 1)
Do Until objFile.AtEndOfStream
Redim Preserve arrFileLines(i)
arrFileLines(i) = objFile.ReadLine
i = i + 1
Loop
objFile.Close
For l = Ubound(arrFileLines) to LBound(arrFileLines) Step -1
macgen = arrFileLines(l)
Next

macgen = (Right(macgen,16))

End If

lngLen = Len(sMac)
colun1 = Mid(sMac, 3, 1)
colun2 = Mid(sMac, 6, 1)
colun3 = Mid(sMac, 9, 1)
colun4 = Mid(sMac, 12, 1)
colun5 = Mid(sMac, 15, 1)

If colun1 <> ":" And colun2 <> ":" And colun3 <> ":" And colun4 <> ":" And colun5 <> ":" then
MsgBox "Please Enter valid MAC Address! WITH ( ",16,"Status Window [Script by: BMT] "
WScript.quit
End If

If lngLen <> 17 then
MsgBox "Please Enter valid MAC Address! Your mac is more than 17 character",16,"Status Window [Script by: BMT] "
WScript.quit
End If


If Len(Trim(sMac)) = 0 Then
MsgBox "Please Enter valid MAC Address!!!!",16,"Status Window [Script by: BMT] "
WScript.quit
End If

MsgBox "Bawal po galawin ang mouse after mong iclick itong :OK:",16,"Status Window [Script by: BMT] "

currentMacAddOne = IncrementMacbyOne(sMac)
passWord =generatePassword(sMac)



BMT.run "Telnet " & hostAddress
WScript.Sleep 2000

BMT.SendKeys telnetUserName
BMT.SendKeys("{Enter}")
WScript.Sleep 2000

BMT.SendKeys telnetPassword
BMT.SendKeys("{Enter}")
WScript.Sleep 2000

BMT.SendKeys"sncfg dset ADMIN_NAME admin"
BMT.SendKeys("{Enter}")
WScript.Sleep 1000

BMT.SendKeys"sncfg dset ADMIN_PASSWD '$1$k2I9hJe4$OkHKF43oTmjvv3zJtrEZ4.'"
BMT.SendKeys("{Enter}")
WScript.sleep 1000

BMT.SendKeys"sncfg dset WMX_IGNORE_CERT 1"
BMT.SendKeys("{Enter}")
WScript.Sleep 1000

BMT.SendKeys"sncfg dset WAN_MAC_ENCRY " & wanMacEntry
BMT.SendKeys("{Enter}")
WScript.Sleep 100

BMT.SendKeys"clear"
BMT.SendKeys("{Enter}")
WScript.Sleep 100

BMT.SendKeys"sncfg dset WAN_MAC " & sMac
BMT.SendKeys("{Enter}")
WScript.Sleep 100

BMT.SendKeys"clear"
BMT.SendKeys("{Enter}")
WScript.Sleep 100

BMT.SendKeys"sncfg dset LAN_MAC " & currentMacAddOne
BMT.SendKeys("{Enter}")
WScript.Sleep 100

BMT.SendKeys"clear"
BMT.SendKeys("{Enter}")
WScript.Sleep 100

BMT.SendKeys"sncfg dset WMX_ANONYMOUS_ID " & wanMacEntry & "@globelines.com.ph"
BMT.SendKeys("{Enter}")
WScript.Sleep 100

BMT.SendKeys"clear"
BMT.SendKeys("{Enter}")
WScript.Sleep 100

If start1 = "0c" then
BMT.SendKeys"sncfg dset WMX_USER_NAME " & macgen & "@globelines.com.ph"
BMT.SendKeys("{Enter}")
WScript.Sleep 100

BMT.SendKeys"clear"
BMT.SendKeys("{Enter}")
WScript.Sleep 100

BMT.SendKeys"sncfg dset WMX_PASSW " & macgen
BMT.SendKeys("{Enter}")
WScript.Sleep 100

BMT.SendKeys"clear"
BMT.SendKeys("{Enter}")
WScript.Sleep 100

BMT.SendKeys"sncfg dset WMX_FREQ_LIST 2507500,2602000,2612000,2638000,2622000,2505000,2510000"
BMT.SendKeys("{Enter}")
WScript.Sleep 400

BMT.SendKeys"clear"
BMT.SendKeys("{Enter}")
WScript.Sleep 100

BMT.SendKeys"sncfg dset MGMT_WEB_WAN 0"
BMT.SendKeys("{Enter}")
WScript.Sleep 1000

BMT.SendKeys"clear"
BMT.SendKeys("{Enter}")
WScript.Sleep 100

BMT.SendKeys"sncfg dset MGMT_TELNET_WAN 0"
BMT.SendKeys("{Enter}")
WScript.Sleep 1000

BMT.SendKeys"clear"
BMT.SendKeys("{Enter}")
WScript.Sleep 100

BMT.SendKeys"sncfg dset MGMT_Telnet_WAN 0"
BMT.SendKeys("{Enter}")
WScript.Sleep 1000

BMT.SendKeys"clear"
BMT.SendKeys("{Enter}")
WScript.Sleep 100

BMT.SendKeys"sncfg commit"
BMT.SendKeys("{Enter}")
WScript.Sleep 1000

BMT.SendKeys"clear"
BMT.SendKeys("{Enter}")
WScript.Sleep 100

BMT.SendKeys"/factoryreset.sh"
BMT.SendKeys("{Enter}")
WScript.Sleep 2000

MsgBox vbCr & vbLf & " O ayan pwede mo ng irestart ang Modem mo... Common sense na lang kung paano... ",16,"Goodbye... [Script by: BMT] "
WScript.quit
end if

If start1 = "e8" then
BMT.SendKeys"sncfg dset WMX_USER_NAME " & macgen & "@globelines.com.ph"
BMT.SendKeys("{Enter}")
WScript.Sleep 100

BMT.SendKeys"clear"
BMT.SendKeys("{Enter}")
WScript.Sleep 100

BMT.SendKeys"sncfg dset WMX_PASSW " & macgen
BMT.SendKeys("{Enter}")
WScript.Sleep 100

BMT.SendKeys"sncfg dset WMX_FREQ_LIST 2507500,2602000,2612000,2638000,2622000,2505000,2510000"
BMT.SendKeys("{Enter}")
WScript.Sleep 400

BMT.SendKeys"clear"
BMT.SendKeys("{Enter}")
WScript.Sleep 100

BMT.SendKeys"sncfg dset MGMT_WEB_WAN 0"
BMT.SendKeys("{Enter}")
WScript.Sleep 1000

BMT.SendKeys"clear"
BMT.SendKeys("{Enter}")
WScript.Sleep 100

BMT.SendKeys"sncfg dset MGMT_TELNET_WAN 0"
BMT.SendKeys("{Enter}")
WScript.Sleep 1000

BMT.SendKeys"clear"
BMT.SendKeys("{Enter}")
WScript.Sleep 100

BMT.SendKeys"sncfg dset MGMT_Telnet_WAN 0"
BMT.SendKeys("{Enter}")
WScript.Sleep 1000

BMT.SendKeys"clear"
BMT.SendKeys("{Enter}")
WScript.Sleep 100

BMT.SendKeys"sncfg commit"
BMT.SendKeys("{Enter}")
WScript.Sleep 1000

BMT.SendKeys"clear"
BMT.SendKeys("{Enter}")
WScript.Sleep 100

BMT.SendKeys"/factoryreset.sh"
BMT.SendKeys("{Enter}")
WScript.Sleep 2000

MsgBox vbCr & vbLf & " O ayan pwede mo ng irestart ang Modem mo... Common sense na lang kung paano... ",16,"Goodbye... [Script by: BMT] "
WScript.quit
end if


If start1 = "c8" then
BMT.SendKeys"sncfg dset WMX_USER_NAME " & macgen & "@globelines.com.ph"
BMT.SendKeys("{Enter}")
WScript.Sleep 100

BMT.SendKeys"clear"
BMT.SendKeys("{Enter}")
WScript.Sleep 100

BMT.SendKeys"sncfg dset WMX_PASSW " & macgen
BMT.SendKeys("{Enter}")
WScript.Sleep 100

BMT.SendKeys"sncfg dset WMX_FREQ_LIST 2507500,2602000,2612000,2638000,2622000,2505000,2510000"
BMT.SendKeys("{Enter}")
WScript.Sleep 400

BMT.SendKeys"clear"
BMT.SendKeys("{Enter}")
WScript.Sleep 100

BMT.SendKeys"sncfg dset MGMT_WEB_WAN 0"
BMT.SendKeys("{Enter}")
WScript.Sleep 1000

BMT.SendKeys"clear"
BMT.SendKeys("{Enter}")
WScript.Sleep 100

BMT.SendKeys"sncfg dset MGMT_TELNET_WAN 0"
BMT.SendKeys("{Enter}")
WScript.Sleep 1000

BMT.SendKeys"clear"
BMT.SendKeys("{Enter}")
WScript.Sleep 100

BMT.SendKeys"sncfg dset MGMT_Telnet_WAN 0"
BMT.SendKeys("{Enter}")
WScript.Sleep 1000

BMT.SendKeys"clear"
BMT.SendKeys("{Enter}")
WScript.Sleep 100

BMT.SendKeys"sncfg commit"
BMT.SendKeys("{Enter}")
WScript.Sleep 1000

BMT.SendKeys"clear"
BMT.SendKeys("{Enter}")
WScript.Sleep 100

BMT.SendKeys"/factoryreset.sh"
BMT.SendKeys("{Enter}")
WScript.Sleep 1000

MsgBox vbCr & vbLf & " O ayan pwede mo ng irestart ang Modem mo... Common sense na lang kung paano... ",16,"Goodbye... [Script by: BMT] "
WScript.quit
end if

If start1 = "34" then
BMT.SendKeys"sncfg dset WMX_USER_NAME " & macgen & "@globelines.com.ph"
BMT.SendKeys("{Enter}")
WScript.Sleep 100

BMT.SendKeys"clear"
BMT.SendKeys("{Enter}")
WScript.Sleep 100

BMT.SendKeys"sncfg dset WMX_PASSW " & macgen
BMT.SendKeys("{Enter}")
WScript.Sleep 100

BMT.SendKeys"sncfg dset WMX_FREQ_LIST 2507500,2602000,2612000,2638000,2622000,2505000,2510000"
BMT.SendKeys("{Enter}")
WScript.Sleep 400

BMT.SendKeys"clear"
BMT.SendKeys("{Enter}")
WScript.Sleep 100

BMT.SendKeys"sncfg dset MGMT_WEB_WAN 0"
BMT.SendKeys("{Enter}")
WScript.Sleep 1000

BMT.SendKeys"clear"
BMT.SendKeys("{Enter}")
WScript.Sleep 100

BMT.SendKeys"sncfg dset MGMT_TELNET_WAN 0"
BMT.SendKeys("{Enter}")
WScript.Sleep 1000

BMT.SendKeys"clear"
BMT.SendKeys("{Enter}")
WScript.Sleep 100

BMT.SendKeys"sncfg dset MGMT_Telnet_WAN 0"
BMT.SendKeys("{Enter}")
WScript.Sleep 1000

BMT.SendKeys"clear"
BMT.SendKeys("{Enter}")
WScript.Sleep 100

BMT.SendKeys"sncfg commit"
BMT.SendKeys("{Enter}")
WScript.Sleep 1000

BMT.SendKeys"clear"
BMT.SendKeys("{Enter}")
WScript.Sleep 100

BMT.SendKeys"/factoryreset.sh"
BMT.SendKeys("{Enter}")
WScript.Sleep 2000

MsgBox vbCr & vbLf & " O ayan pwede mo ng irestart ang Modem mo... Common sense na lang kung paano... ",16,"Goodbye... [Script by: BMT] "
WScript.quit
end if

BMT.SendKeys"sncfg dset WMX_USER_NAME " & passWord & "@globelines.com.ph"
BMT.SendKeys("{Enter}")
WScript.Sleep 100

BMT.SendKeys"clear"
BMT.SendKeys("{Enter}")
WScript.Sleep 100

BMT.SendKeys"sncfg dset WMX_PASSW " & passWord
BMT.SendKeys("{Enter}")
WScript.Sleep 100

BMT.SendKeys"sncfg dset WMX_FREQ_LIST 2507500,2602000,2612000,2638000,2622000,2505000,2510000"
BMT.SendKeys("{Enter}")
WScript.Sleep 400

BMT.SendKeys"clear"
BMT.SendKeys("{Enter}")
WScript.Sleep 100

BMT.SendKeys"sncfg dset MGMT_WEB_WAN 0"
BMT.SendKeys("{Enter}")
WScript.Sleep 1000

BMT.SendKeys"clear"
BMT.SendKeys("{Enter}")
WScript.Sleep 100

BMT.SendKeys"sncfg dset MGMT_TELNET_WAN 0"
BMT.SendKeys("{Enter}")
WScript.Sleep 1000

BMT.SendKeys"clear"
BMT.SendKeys("{Enter}")
WScript.Sleep 100

BMT.SendKeys"sncfg dset MGMT_Telnet_WAN 0"
BMT.SendKeys("{Enter}")
WScript.Sleep 1000

BMT.SendKeys"clear"
BMT.SendKeys("{Enter}")
WScript.Sleep 100

BMT.SendKeys"sncfg commit"
BMT.SendKeys("{Enter}")
WScript.Sleep 1000

BMT.SendKeys"clear"
BMT.SendKeys("{Enter}")
WScript.Sleep 100

BMT.SendKeys"/factoryreset.sh"
BMT.SendKeys("{Enter}")
WScript.Sleep 2000
MsgBox vbCr & vbLf & " O ayan pwede mo ng irestart ang Modem mo... Common sense na lang kung paano... ",16,"Goodbye... [Script by: BMT] "
WScript.quit

end sub

</script>

</job>