• Home
  • 0.0.0.0/0
    • FreeBSD on Ubiquiti EdgeRouter Pro 8
    • FreeBSD Build Items
  • **void
    • Data Organization Functions
    • IPv4 Functions
    • Solarwinds SWQL Examples
  • InfoCEF
    • crunch-bang
    • TCL QuickSheet
    • Configlets
      • Internet Ingress Transit Access-List
  • About

protocolSyntax

~ We put the 'P' in the Internet

protocolSyntax

Category Archives: TCL

Cisco Auto-Provisioning Lab

26 Thursday Apr 2018

Posted by C. M. Stephan in Cisco, Networking, Shell Scripting, TCL, Uncategorized

≈ Leave a comment

So I have had need to quickly build a provisioning server for a lab to auto provision devices as they come online. This is the basic steps to accommodate this. Note there are far more complex and secure methods to utilizing something similar in production. Feel free to use this as a learning tool, but understand in a production environment, this is not recommended as critical pieces of information would be sent in clear text.

Continue reading →

Advertisement

INMARSAT BGAN Service Automation

28 Thursday Jan 2016

Posted by C. M. Stephan in BGAN, Control, Messaging, and Testing, Dynamic Multipoint Virtual Private Network (DMVPN), RootAdmin, Serial Tunneling (STUN), TCL, Telnet, Uncategorized

≈ 2 Comments

Tags

Hughes 9502

We are currently working on a project to implement DMVPN (IWAN) over BGAN. This is the process I went through to discover how to send AT commands from our Cisco IOS Router to the BGAN unit.

Continue reading →

Using TCL to provide WoL Services from a Cisco Router

29 Wednesday Jul 2015

Posted by C. M. Stephan in Cisco, CodeProject, Networking, TCL

≈ 5 Comments

This exceptional bit of code provided by Jónatan Þór Jónasson is a masterpiece. It provides the ability to send Wake On Lan commands out the local interfaces of a router to WakeUp a device. You will need a device that supports UDP Sockets, so you have to be running 15.0+ firmware.

Found this at ipSpace by Ivan Pepelnjak

ROUTER# tclsh
ROUTER(tclsh)#

proc WakeOnLan {broadcastAddr macAddr} {
     set net [binary format H* [join [split $macAddr -:] ""]]
     set pkt [binary format c* {0xff 0xff 0xff 0xff 0xff 0xff}]

     for {set i 0} {$i < 16} {incr i} {
        append pkt $net
     }

     # Open UDP and Send the Magic Paket.
     set udpSock [udp_open]
     fconfigure $udpSock -translation binary \
          -remote [list $broadcastAddr 4580] \
          -broadcast 1
     puts $udpSock $pkt
     flush $udpSock;
     close $udpSock
}

ROUTER(tclsh)# WakeOnLan 255.255.255.255 000f13cd80a1

Find:

Categories

Application BGAN Bug / Known Problem Cisco CodeProject Control, Messaging, and Testing Development Dynamic Multipoint Virtual Private Network (DMVPN) Internet Services Networking Protocol RootAdmin Routing Security Serial Tunneling (STUN) Shell Scripting System Control and Data Aquisition (SCADA) TCL TCP/IP Telnet Transport Control Protocol (TCP) Uncategorized VB Virtualization Web World Wide Web

Tags

Automation business CIP Cisco Domain Name google Hughes 9502 IACS internet ISA-99 keywords marketing meta NERC NERCCIP nofollow pipe Programming PuTTY QoS realist approach SCADA Search Engine Optimization Security Seeding SEO shadow site short url StuxNet SYSLOG TCP technology Telepresence tftpd32 Timeout TinyUrl Web Windows Media Services Winsock

Blog at WordPress.com.

Privacy & Cookies: This site uses cookies. By continuing to use this website, you agree to their use.
To find out more, including how to control cookies, see here: Cookie Policy
  • Follow Following
    • protocolSyntax
    • Already have a WordPress.com account? Log in now.
    • protocolSyntax
    • Customize
    • Follow Following
    • Sign up
    • Log in
    • Report this content
    • View site in Reader
    • Manage subscriptions
    • Collapse this bar