Scriptdatei per Windows Batch einlesen

[mulix]

Servus Lancommer,
gibt es eigentlich ne Möglichkeit die lcs Scripte auch per Windows Batch (.bat) oder PowerShell über das Lanconfig einzulesen?
Hintergrund ist das ich einfach per Mausklick änderungen an den Lancom Geräten vornehmen möchte. Es wäre auch immer nur die gleichen Typen (1781A bzw. L-321agn)
So könnte man z.B. auch auf einem Server Zeitgesteuert die Geräte Administrieren. Oder Nachts z.B. die WLAN-Leistung reduzieren.

Grüße
Michael

[Bernie137]

Moin,

ich habe da seinerzeit mal 2 VBS Scripte angefertigt, damit in einer Schule der Lehrer das Surfen selbst An- und Ausstellen kann. Sicherheitstechnisch darf man da nicht drüber nachdenken. Das Login/Passwort steht ja im Klartext in der Datei und wird unsicher per telnet übertragen. Also wenn überhaupt, dann bitte nur im LAN und auf eigene Gefahr verwenden!

Internet AN:

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 = "Hanswurst"
password = "Strenggeheim"
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}"

Internet AUS:

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 = "Hanswurst"
password = "Strenggeheim"
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 "tab 1 2 3 4 7 8 9 10 11 12 14 13"
  send "add DENY_SERVER_INTERNET TCP {%}A10.7.1.2-10.7.1.2 " &"""{%}S21,80,443,591,8008,8080 {%}A10.10.0.1""" &" ""{%}Lcds0 {%}D {%}N"" " &"0 2 0 0 0 0 " &"""Internetzugang PC-Kabinett"""
  send "cd /"
  send "flash 1"

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

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

Kopieren und als *.vbs Datei speichern. Einen passenden Konfig-Zugang (Login/Passwort) für den Router/AP muss noch angepasst werden.

vg Bernie

[Bernie137]

Nachtrag:
Und das Konsolen Programm telent muss verfügbar sein. Im aktuellen Windows Versionen muss man dass erst nachinstallieren.

[mme]

Bei einem ähnlichen Fall wie dem mit der Schule habe ich gute Erfahrungen gemacht mit der Erstellung eines benutzerdefinierten Rollout-Assistenten (http://www.lancom-forum.de/aktuelle-lan ... 13834.html). Sicherheitstechnisch hat man dann die Vorteile, dass man https benutzen kann und dass man ein Benutzerkonto im Router erstellen kann, das nur Zugriff auf den Assistenten gewährt.

[5624]

Mit plink, SSH und einem Public Key sollte es auch sicher möglich sein.

[mulix]

Danke für die Tipps, da es eine reine Windows Umgebung ist, denke ich das die Telnetlösung wohl am einfachsten umzusetzen ist. Ein Script auf dem Desktop und gut ist.

Grüße
Mulix