proc DeleteAllTrafficItems {} {
    foreach trafficItem [ixNet getList [ixNet getRoot]traffic trafficItem] {
	set trafficItemName [ixNet getAttr $trafficItem -name]
	puts "\nDeleteAllTrafficItems: $trafficItemName"
	catch {ixNet remove [ixNet getRoot]traffic $trafficItem} errMsg
	if {$errMsg != "::ixNet::OK"} {
	    puts "\nDeleteAllTrafficItems: $errMsg\n"
	    return 1
	}
	ixNet commit
    }

    return 0
}