WakeupOnLan über VPN möglich?

[Bernie137]

So, noch fix das Script:

Code: Alles auswählen

'===================== Funktion zum Senden von Befehlen ======================='
function send(key)
  Dim wshShell
  Set wshShell=CreateObject("Wscript.Shell")
  wshShell.SendKeys key',,True
  wshShell.SendKeys "{ENTER}", True
  WScript.Sleep 100
end function

'===================== Hauptprogramm =========================================='
Dim login, password
login = "admin2"
password = "einpasswort"
ipaddress = "192.168.31.1"

'Telnetsitzung starten ...'
Dim wshShell
Set wshShell=CreateObject("Wscript.Shell")
wshShell.Run "telnet "&ipaddress,,False
WScript.Sleep 100
send login
send password
'Telnetsitzung gestartet

  send "beginscript"
  send "lang English"
  send "flash 0"
  send "cd /2/8/10/2"
  send "del  DENY_SERVER_INTERNET"
  send "cd /"
  send "flash 1"

  send "exit"
  send "{ENTER}"
  WScript.Sleep 300

'Telnetsitzung beenden'
send "quit"
send "{ENTER}"
send "{ENTER}"

Einfach rauskopieren und in eine Datei "script.vbs" packen. Diese Befehle bitte nur im LAN oder VPN Tunnel absetzen, nicht im Internet. Beim "Send" Teil musst halt die WOL Befehle hinpacken.

vg Heiko