企业微信获取人员信息 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

根据帮助文件在获取企业微信人员信息的出现这样的问题，请问如何处理？

Dim ur As String = "https://qyapi.weixin.qq.com/cgi-bin/user/list?access_token={0}&department_id=1&fetch_child=1&status=0"
Dim hc As New HttpClient(CExp(ur,Functions.Execute("GetQYAccessToken")))
Dim jo As JObject = JObject.Parse(hc.GetData())
If jo("errcode") = "0" Then
    DataTables("WXUsers").DataRows.Clear
    Dim nms() As String = {"userid","name","position","mobile","gender","email","weixinid","avatar","status"} '""
    For Each jt As JToken In jo("userlist")
        Dim dr As DataRow = DataTables("WXUsers").AddNew()
        For Each nm As String In nms
            dr(nm) = jt(nm)
        Next
        If dr("department") IsNot Nothing
            dr("department") = CompressJson(jt("department")).Trim("[","]")
        End If
        If jt("extattr") IsNot Nothing Then
            dr("extattr") = ComPressJson(jt("extattr")("attrs")).Trim("[","]")
        End If
    Next
    DataTables("WXUsers").Save()
Else
    MessageBox.Show(jo.ToString)
End If

此主题相关图片如下：qq截图20200206154952.png

https://work.weixin.qq.com/api/doc/90000/90139/90313

60011

指定的成员/部门/标签参数无权限

查看帮助

我已经更新了Secret 还是不行

管理组的Secret 我已经用了重新获取的还是不行

Static CreateTime As Date '记录最近一次生成access_token的时间

Static AccessTocken As String '记录最近一次生成的access_token
Dim CorpID As String= "*******" '企业号的CorpID
Dim Secret As String = "***************" '管理组的Secret
Dim tp As TimeSpan = Date.Now - CreateTime
If tp.TotalSeconds > 3600 Then
    Dim url As String = "https://qyapi.weixin.qq.com/cgi-bin/gettoken?corpid={0}&corpsecret={1}"
    Dim hc As New HttpClient(CExp(url, CorpID, Secret))
    Dim ret As String = hc.GetData()
    If ret = "" Then '如果失败,再尝试一次
        hc.GetData()
    End If
    CreateTime = Date.Now()
    Dim jo As JObject = JObject.Parse(ret)
    If jo("access_token") IsNot Nothing Then
        AccessTocken = jo("access_token")
    Else
        MessageBox.show("获取access_token失败,原因:" & vbcrlf & jo.ToString)
    End If
End If
Return AccessTocken

指定的应用，没有department_id=1这个部门的权限

指定的成员/部门/标签参数无权限。请确认：
1) 变更通讯录接口，需要有通讯录编辑权限。

普通应用的secret仅有只读权限，可使用通讯录同步助手的secret同步。

2) 其它接口，需要满足配置的通讯录范围。

成员：通讯录同步助手access_token可指定任意成员id；应用access_token仅能指定可见范围配置的成员，以及部门/标签包含的成员（递归展开）
部门：通讯录同步助手access_token可指定任意部门id；应用access_token仅能指定可见范围配置的部门id(创建或移动部门，还需要具有父部门的管理权限)，标签包括的部门id，以及上述部门的子部门id
标签：通讯录同步助手access_token可指定超级管理组及通讯录同步助手创建的标签；应用access_token仅能由应用API创建的标签

主题：企业微信获取人员信息

指定的应用，没有department_id=1这个部门的权限