获取部门信息

命令说明

获取企业微信里面的部门信息，以数组的形式返回

命令原型

DepartmentArray = WxWork.GetDepartmentList(wxwork_obj, parent_id, recursive)

命令参数

参数	必选	类型	默认值	说明
wxwork_obj	True	expression	WxWorkObject	用WxWork.Create命令创建的企业微信对象
parent_id	True	string	""	指定一个部门ID，获取此部门的下级部门信息。如果指定为空或者空字符串，则获取整个企业下面的部门信息
recursive	True	boolean	True	指定是否包含所有下级部门。如果为否，则只获取下一级部门；如果为是，则还会获取下级部门的下级部门，直到没有下级部门为止

返回结果

return_array，将命令运行后的结果赋值给此变量。

运行实例

/*********************************获取部门信息**************************************
命令原型：
    DepartmentArray = WxWork.GetDepartmentList(wxwork_obj, parent_id, recursive)
入参：
    wxwork_obj--企业微信对象。注：用WxWork.Create命令创建的企业微信对象
    parent_id--上级部门。注：指定一个部门ID，获取此部门的下级部门信息。如果指定为空或者空字符串，则获取整个企业下面的部门信息
    recursive--包含所有下级部门（如下下级部门）。注：指定是否包含所有下级部门。如果为否，则只获取下一级部门；如果为是，则还会获取下级部门的下级部门，直到没有下级部门为止
出参：
    return_array--函数调用的输出保存到的变量。
注意事项：
    无
********************************************************************************/
Dim return_array = ""
DepartmentArray = WxWork.GetDepartmentList(WxWorkObject, "", True)
TracePrint(return_array)