Computer uit zet ook je nas uit !

[Gido]

Soms hoeft mijn NAS helemaal niet te draaien, zeker niet als ik enkele uren / dagen van huis ben (of hij moet iets downloaden voor me) Ik heb wat zitten spelen vanavond, hier een scriptje (ik zelf heb het verwerkt ik een policy van Windows 7 PRO maar je kan er ook gewoon dubbel op klikken).

Download eerst Kitty http://www.9bis.net/kitty/?page=Download en plaats deze in de Windows directory (niet System32 dat vind Kitty niet zo lekker) maar gewoon bijvoorbeeld C:Windows

Zorg dat de NAS op telnet reageert dus Telnet aanzetten en copieer de code, de volgende regels even aanpassen :

strNASip = "192.168.0.50" <- hier je eigenst NAS IP
strNASpassword = "password" <- hier je NAS password

Save het bestand als bijvoorbeeld afsluiten.vbs dubbel klik daarna op afsluiten.vbs en maak een keuze. Ik heb dit opgenomen in een policy met andere woorden mijn afsluit knop van Windows vervangen door dit scriptje.

Code: [Selecteer]

' Synology and computer shutdown (c) 2011 Gido - v1.0 - Tested on DS411+II
 
Set objShell = CreateObject("Wscript.Shell")
Set wshShell = WScript.CreateObject ("WSCript.shell")
strShutdown = "shutdown -s -t 0 -f"


strNASip = "192.168.0.50" ' NAS ip address
strNASlogin = "root" ' NAS login name ( root )
REM strNASpassword = "password" ' NAS password

Continue = MsgBox ("U gaat de computer afsluiten, wilt u ook de NAS uitzetten",vbYesNoCancel + vbQuestion, "NAS ook uitzetten?")

If Continue = vbNo then  

' Only shutdown computer
objShell.Run strShutdown

Else if Continue = vbYes then  

' Computer and NAS shutdown
wshshell.run "%windir%kitty.exe "  & strNASip & " -l " & " " & strNASlogin & "n" & strNASpassword & " -telnet " & "-cmd syno_poweroff_task|poweroff", 1, True

'Shutdown the computer
objShell.Run strShutdown

Else
' Do nothing

 End If
End If

Gido.

PS. opstart script op basis van WOL met "wait until finish and mount" doen we op de volgende vrije avond.