tclsh
puts [ open "flash:reset.tcl" w+ ] {

puts "Erasing Configuration"
typeahead "r"

puts [ exec "write erase" ]
puts "Erasing VLAN Database"
typeahead "r"

puts [ exec "delete flash:vlan.dat" ]
puts "Copying Base Configuration To Startup"
typeahead "r"

puts [ ios_config "sdm prefer dual-ipv4-and-ipv6 routing" ]
puts "Changing prefered sdm to dual-ipv4-and-ipv6 routing"
typeahead "r"

puts [ exec "copy flash:base.cfg nvram:startup-config" ]
puts "Reloading the layer 3 switch"
typeahead "r"

puts [ exec "reload" ]
}
}
tclquit