NASLite Network Attached Storage

please download the compiled script at the address below.
http://www.autoitscript.com/forum/index ... opic=29943

This is the script:

Run('telnet ' & IniRead("shutdown.ini", "NASLite", "ip", ""))
sleep(500)
Send(IniRead("shutdown.ini", "NASLite", "username", "") & '{Enter}')
Send(IniRead("shutdown.ini", "NASLite", "password", "") & '{Enter}')
Send("8{Enter}")
Send("y{Enter}")
sleep(7000)
ProcessClose("telnet.exe")
Exit

I used a vbs script to reboot or shutdown my NAS. This avoids using Auto-it or other 3rd party tools but I guess you will need Win2k or higher.

Copy the following into a file with a .vbs extension and double-click it to run it. (you may want to rename the server name on the TELNET line to suit your configuration)



Option Explicit
Dim objShell, ret, ret2
Set objShell = CreateObject("WScript.Shell")

ret = objShell.Popup ("Reboot the NASLite+ server",,"NASlite+ Reboot",36)

if ret = 7 then
ret2 = objShell.Popup ("Shutdown the NASLite+ server",,"NASlite+ Shutdown",36)
if ret2 = 7 then
wscript.quit
end if
end if


objShell.Run "TELNET NASLITE"
Wscript.Sleep 2500

objShell.SendKeys "admin~"
WScript.Sleep 1500
objShell.SendKeys "nas~"
WScript.Sleep 7000

if ret2 = 6 then
objShell.SendKeys "8~"
else
objShell.SendKeys "7~"
end if

WScript.Sleep 4000
objShell.SendKeys "y~"
WScript.Sleep 2000

WScript.Quit