使用UFT工具完成对ECShop系统添加新商品功能的自动化脚本编写。设计5个测试用例，通过DataTable加载测试用例文件的方式，编写自动化测试脚本。

好的，下面为您提供一个简单的示例脚本，您可以根据自己的需求进行修改和优化。

'引用UFT对象库
Dim qtApp As QuickTest.Application
Set qtApp = CreateObject("QuickTest.Application")

'打开ECShop系统
qtApp.Launch
qtApp.Visible = True
qtApp.Open "http://localhost/ecshop"

'登录ECShop系统
qtApp.WebEdit("name:=username").Set "admin"
qtApp.WebEdit("name:=password").SetSecure "your_password"
qtApp.WebButton("name:=submit").Click

'添加新商品
For i = 1 to DataTable.GetRowCount
    '读取测试数据
    strName = DataTable.Value("name", dtLocalSheet)
    strPrice = DataTable.Value("price", dtLocalSheet)
    strCategory = DataTable.Value("category", dtLocalSheet)
    strDescription = DataTable.Value("description", dtLocalSheet)
    
    '点击商品管理菜单
    qtApp.WebLink("text:=商品管理").Click
    
    '点击添加新商品按钮
    qtApp.WebLink("text:=添加新商品").Click
    
    '填写商品信息
    qtApp.WebEdit("name:=goods_name").Set strName
    qtApp.WebEdit("name:=shop_price").Set strPrice
    qtApp.WebList("name:=cat_id").Select strCategory
    qtApp.WebEdit("name:=goods_desc").Set strDescription
    
    '提交保存
    qtApp.WebButton("name:=Submit").Click
    
    '验证保存结果
    If qtApp.Page("title:=.*成功添加.*").Exist(5) Then
        Reporter.ReportEvent micPass, "添加商品", "商品 " & strName & " 添加成功"
    Else
        Reporter.ReportEvent micFail, "添加商品", "商品 " & strName & " 添加失败"
    End If
Next

'退出ECShop系统
qtApp.WebLink("text:=退出").Click
qtApp.Quit

以上脚本中，我们首先打开了ECShop系统并登录成功。然后，通过循环读取测试数据，依次添加新商品，并验证添加结果。最后退出系统。您只需要在测试数据文件中添加5个测试用例的数据，然后通过DataTable加载即可。

希望这个示例能对您有所帮助。