Script de redémarrage des points d’accès D-Link

Script à sauvegarder avec extension « .vbs » et à planifier selon vos besoins.

Pré-requis : client Telnet installé sur le serveur Windows.

Le script fait une pause de 3 secondes entre chaque action (sleep 3000). Le « titldé » défini la fin d’instruction. Remplacer simplement les valeurs entre « <> » par les vôtres.

Il faut que l’accès Telnet soit activé. Script testé sur des ponts d’accès D-Link DWL-3600AP et DWL-8610AP. Fonctionne logiquement avec bon nombre de matériels en accès Telnet.

Option explicit
Dim oShell
set oShell= Wscript.CreateObject("WScript.Shell")
oShell.Run "telnet"
WScript.Sleep 3000
oShell.Sendkeys "open <IP_HARDWARE>~"
WScript.Sleep 3000
oShell.Sendkeys "<LOGIN>~"
WScript.Sleep 3000
oShell.Sendkeys "<MOT_DE_PASSE>~"
WScript.Sleep 3000
oShell.Sendkeys "reboot~"
WScript.Sleep 3000
oShell.Sendkeys "~"
WScript.Sleep 3000
oShell.Sendkeys "quit~"
Wscript.Quit