// Allied Telesis series, 181023
TELNET
timeout 600								// ^CAEg 600b.
1:
recv 30 exit 71
unless "login:" goto 1
sendname								// OCp[U𑗂.
2:
recv 30 exit 71
unless "Password:" goto 2
sendpassword							// pX[h𑗂.
3:
recv 30 exit 72
unless ">" goto 3
send "enable\r"							// EXEC[hɐ؂ւ.
4:
recv 30 exit 74
unless "#" goto 4
ifpoesdevcmd goto 20					// ݒ擾(|[gw)̏ꍇ20ɕ.
ifpoeshubcmd goto 30					// ݒ擾(S|[g)̏ꍇ30ɕ.

/--- ON/OFF/REBOOT䏈 ---/
10:
send "configure terminal\r"				// O[oRtBO[hֈڂ.
11:		
recv 30 exit 80
unless "(config)#" goto 11
send "interface port1.0."				// C^tF[X[hֈڂ,
sendpoeport								// Ώۂ̃|[gԍ𑗂,
send "\r"								// sŏI.
12:
recv 30 exit 81
unless "(config-if)#" goto 12
ifpoeoncmd goto 14						// ON14ɕ.
send "no power-inline enable\r"			// POEdR}h𑗂.
ifpoeoffcmd goto 15						// OFF15ɕ.
13:
recv 30 exit 82
unless "(config-if)#" goto 13
waitpoereboot							// u[g܂ł̃EFCgԂ҂.
14:
send "power-inline enable\r"			// POEdLR}h𑗂.
15:
recv 30 exit 83
unless "(config-if)#" goto 15
send "exit\r"							// O[oRtBO[h֖߂.
16:		
recv 30 exit 84
unless "(config)#" goto 16
send "exit\r"							// EXEC[h֖߂.
17:
recv 30 exit 85
unless "#" goto 17
goto 40									// I.

//--- ԕ\(|[g) ---/
20:										// (EXEC[ĥ܂)
send "show power-in interface port1.0."	// |[gݒQƃR}h𑗂,
sendpoeport								// Ώۂ̃|[gԍ𑗂,
send "\r"								// sŏI.
21:
recv 30 exit 90
save_data								// M|[gݒf[^ޔ.
22:
if "#" goto 40							// "#"܂,
goto 21									// s̉͂JԂ.

//--- ԕ\(S|[g) ---/
30:										// (EXEC[ĥ܂)
send "show power-in interface\r"		// |[gݒQƃR}h𑗂.
31:
recv 30 exit 91
save_data								// M|[gݒf[^ޔ.
unless "More" goto 32					// "More"󂯂,
send "\r"								// CR𑗂đ\.
goto 31
32:
if "#" goto 40							// "#"܂,
goto 31									// s̉͂JԂ.

/--- Exit ---/
40:
send "logout\r"							// CLI甲.
41:
recv 30 exit 92
exit									// XNvgI.
