能否通过PB脚本实现客户端对SQL SERVER 2000数据库的备份?

从本机和从客户端都是一样的吧，都是备份到服务器所在的文件目录下

string ls_execSql,ls_path
ls_path = sle_1.text

If IsNull(ls_path) or ls_path = '' then
messagebox('提醒','请输入备份路径和文件名!')
cb_1.SetFocus()
Return
End If
ls_execSql = "BACKUP DATABASE test to disk='"+ls_path+"'"

SQLCA.AutoCommit = True
st_5.text = '请稍候，正在备份中...'
execute immediate :ls_execSql using sqlca;
if sqlca.sqlcode <> 0 then
messagebox("备份数据","数据备份失败!")
sle_1.Text = ''
sle_1.SetFocus()
else
messagebox("备份数据","数据备份成功!")
st_3.Text = '备份文件:'
cb_1.Enabled = False
cb_2.Enabled = True
This.Enabled = False
end if
st_5.text = ''
SQLCA.AutoCommit = False