主题：执行代码错，在别机子代码问题的，缺少了什么？

在家里的机子一切正常，到办公室后执
此主题相关图片如下：d9mxc%x%}nbxbrsiz_aty.png

行就出错了，是系统缺少什么程序吗？

什么代码？

Dim access_token As String =Functions.Execute("access_token")    Dim id As String ="1"   ' args(1) Dim client As DingTalk.Api.IDingTalkClient  = new DingTalk.Api.DefaultDingTalkClient("https://oapi.dingtalk.com/department/list") Dim req As DingTalk.Api.Request.OapiDepartmentListRequest = new DingTalk.Api.Request.OapiDepartmentListRequest() req.Id = "1" req.SetHttpMethod("GET") Dim rsp As DingTalk.Api.Response.OapiDepartmentListResponse  = client.Execute(req, access_token) Dim jo As JObject = JObject.Parse(rsp.body) Dim ja As JArray = jo("department") Dim dr As DataRow For i As Integer = 0 To ja.Count - 1     dr = DataTables("departmentlist").Find("部门ID = '" & ja(i)("id").Tostring & "'")     If dr Is Nothing Then         dr=DataTables("departmentlist").addnew()         dr("部门名称")=ja(i)("name")         dr("部门ID")=ja(i)("id").Tostring         dr.save()          End If Next 代码应该没问题，函数：Functions.Execute("access_token") ，没有问题，单独执行是可以有结果的。昨晚在家都很正常的，是否是运行环境缺少点什么，谢谢！

调试一下，具体哪一句代码出错

谢谢！在你指引下查看msgbox(rsp.Body)显示内容，找到原因了，是需要另外添加一个IP进白名单中，谢谢！