使用VBScript在powerdesigner中检出数据模型

Question

通过VBS代码，我需要从电源设计器中检查出一些数据模型。要求是：连接到powerdesigner存储库，检查一些数据模型。有人能帮我吗？

我在SAP文档中找到了这段代码，但当我执行它时，会出现以下错误。

Dim rc : Set rc = RepositoryConnection
'Check out model
Dim TargetModel
Set TargetModel = rc.FindChildByPath("MyFolder/MyPDM", PdRMG.Cls_RepositoryModel)
TargetModel.CheckOut()
Output "Checked"

错误消息：

Microsoft VBScript运行时错误必需对象(0x800A01A8(在线5

Answer 1

如第一条注释所述，至少验证FindChildByPath返回值：

Set TargetModel = rc.FindChildByPath("MyFolder/MyPDM", PdRMG.Cls_RepositoryModel)
if targetmodel is nothing then
output "nothing"
else
TargetModel.CheckOut()
Output "Checked out"
end if

除此之外，该样本对我有效，并打开我已登记的PDM。