set sh=WScript.CreateObject("WScript.Shell")
Set WsShell = CreateObject("WScript.Shell")
sh.run "Telnet 192.168.178.1",2
eventuell ip ändern
WScript.Sleep 1000
sh.SendKeys"passwort"&vbcr
Passwort ändern, oder Zeile
WScript.Sleep 1000
sh.SendKeys "/bin/led-ctrl festnetz_aufgebaut"&vbcr
WScript.Sleep 500
sh.SendKeys "/bin/led-ctrl festnetz_abgebaut"&vbcr
WScript.Sleep 500
sh.SendKeys "/bin/led-ctrl festnetz_aufgebaut"&vbcr
WScript.Sleep 500
sh.SendKeys "/bin/led-ctrl festnetz_abgebaut"&vbcr
sh.SendKeys "exit"&vbcr
MSG = WsShell.Popup("Drucker an/aus", 1,"")
sh.run "tskill telnet",0
Seite 1
löschen

fitea.org