diff --git a/code/l2switch/resetvlans-tcl.txt b/code/l2switch/resetvlans-tcl.txt
new file mode 100644
index 0000000..2dd93d2
--- /dev/null
+++ b/code/l2switch/resetvlans-tcl.txt
@@ -0,0 +1,12 @@
+tclsh
+puts [ open "flash:resetvlans.tcl" w+ ] {
+foreach vlanItem [regexp -all -line -inline "^\[0-9\]+" [exec "show vlan brief"]] {
+if { ($vlanItem == 1) || (($vlanItem >= 1002) && ($vlanItem <= 1005)) } {
+  puts "Skipping VLAN $vlanItem"
+} else {
+  puts "Removing VLAN $vlanItem"
+  ios_config "no vlan $vlanItem"
+}
+}
+}
+tclquit
diff --git a/code/l3switch/resetvlans-tcl.txt b/code/l3switch/resetvlans-tcl.txt
new file mode 100644
index 0000000..2dd93d2
--- /dev/null
+++ b/code/l3switch/resetvlans-tcl.txt
@@ -0,0 +1,12 @@
+tclsh
+puts [ open "flash:resetvlans.tcl" w+ ] {
+foreach vlanItem [regexp -all -line -inline "^\[0-9\]+" [exec "show vlan brief"]] {
+if { ($vlanItem == 1) || (($vlanItem >= 1002) && ($vlanItem <= 1005)) } {
+  puts "Skipping VLAN $vlanItem"
+} else {
+  puts "Removing VLAN $vlanItem"
+  ios_config "no vlan $vlanItem"
+}
+}
+}
+tclquit