proc DisableTrafficItemByName { Name } {
    foreach trafficItem [ixNet getList [ixNet getRoot]traffic trafficItem] {
	set trafficItemName [ixNet getAttribute $trafficItem -name]

	if {[regexp $Name $trafficItemName]} {
	    catch {ixNet setAttribute $trafficItem -enabled False} errMsg
	    if {$errMsg != "::ixNet::OK"} {
		puts "\nError DisableTrafficItemByName: $Name : $errMsg\n"
		return 1
	    }

	    ixNet commit
	    puts "\nDisableTrafficItemByName: $Name"
	    return 0
	}
    }
    puts "\nError DisableTrafficItemByName: No such traffic item name: $Name\n"
    return 1
}