excel - Can't retrieve SharePoint groups and IDs using VBA -

-



i trying sharepoint groups of given site in excel using vba. not vba expert , litteraly leaning how use developper tool , language try this.

i found script retrieves lists , guid sharepoint site on expert-exchange, follows.

sub doit2() dim surl string dim senv string dim xmlhtp new msxml2.xmlhttp dim xmldoc new domdocument surl = "https://xxx/_vti_bin/lists.asmx" senv = "<?xml version=""1.0"" encoding=""utf-8""?>" senv = senv & "<soap:envelope xmlns:xsi=""http://www.w3.org/2001/xmlschema-instance"" xmlns:xsd=""http://www.w3.org/2001/xmlschema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" senv = senv & "  <soap:body>" senv = senv & "    <getlistcollectionresponse xmlns=""http://schemas.microsoft.com/sharepoint/soap/"">" senv = senv & "      <getlistcollectionresult><xsd:schema>schema</xsd:schema>xml</getlistcollectionresult>" senv = senv & "    </getlistcollectionresponse>" senv = senv & "  </soap:body>" senv = senv & "</soap:envelope>"  xmlhtp     .open "post", surl, false     .setrequestheader "host", "webservices.gama-system.com"     .setrequestheader "content-type", "text/xml; charset=utf-8"     .setrequestheader "soapaction", "http://schemas.microsoft.com/sharepoint/soap/getlistcollection"     .send senv     xmldoc.loadxml .responsetext     'xmldoc.save "d:\rainerj\ee\webqueryresult.xml" end  dim xmlnodelist ixmldomnodelist dim xmlnode ixmldomnode dim listguid string dim listname string  set xmlnodelist = xmldoc.selectnodes("//list") ileng = xmlnodelist.length msgbox "list has " + cstr(ileng) + " entries" worksheets(1).activate range("a1").value = "name of list" range("b1").value = "guid of list" range("a1").select  = 0 ileng - 1     set xmlnode = xmlnodelist(i)     listguid = xmlnode.attributes.getnameditem("id").text     listname = xmlnode.attributes.getnameditem("title").text     range("a1").offset(i + 1, 0).value = listname     range("b1").offset(i + 1, 0).value = listguid next msgbox "done" end sub

since seemed quite close wanted do, tried adapt give me group names , id follows.

sub doit2() dim surl string dim senv string dim xmlhtp new msxml2.xmlhttp dim xmldoc new domdocument surl = "http://xxx/_vti_bin/groups.asmx" senv = "<?xml version=""1.0"" encoding=""utf-8""?>" senv = senv & "<soap:envelope xmlns:xsi=""http://www.w3.org/2001/xmlschema-instance"" xmlns:xsd=""http://www.w3.org/2001/xmlschema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" senv = senv & "  <soap:body>" senv = senv & "    <getgroupcollectionresponse xmlns=""http://schemas.microsoft.com/sharepoint/soap/"">" senv = senv & "      <getgroupcollectionresult><xsd:schema>schema</xsd:schema>xml</getgroupcollectionresult>" senv = senv & "    </getgroupcollectionresponse>" senv = senv & "  </soap:body>" senv = senv & "</soap:envelope>"  xmlhtp     .open "post", surl, false     .setrequestheader "host", "webservices.gama-system.com"     .setrequestheader "content-type", "text/xml; charset=utf-8"     .setrequestheader "soapaction", "http://schemas.microsoft.com/sharepoint/soap/getgroupcollection"     .send senv     xmldoc.loadxml .responsetext     'xmldoc.save "d:\rainerj\ee\webqueryresult.xml" end  dim xmlnodelist ixmldomnodelist dim xmlnode ixmldomnode dim groupid string dim groupname string  set xmlnodelist = xmldoc.selectnodes("//list") ileng = xmlnodelist.length msgbox "list has " + cstr(ileng) + " entries" worksheets(1).activate range("a1").value = "name of group" range("b1").value = "id of group" range("a1").select  = 0 ileng - 1     set xmlnode = xmlnodelist(i)     groupid = xmlnode.attributes.getnameditem("id").text     groupname = xmlnode.attributes.getnameditem("title").text     range("a1").offset(i + 1, 0).value = groupname     range("b1").offset(i + 1, 0).value = groupid next msgbox "done" end sub

note surl written when using in editor. xxx here placeholder.

now, problem being original script gives me lists , guid. when try adapt script groups, finds no entries. doing possible ? or did not adapt correctly ?





wiki

Comments

Post a Comment

Popular posts from this blog

python - Read npy file directly from S3 StreamingBody -

-
i have many .npy (numpy) , .json files saved in s3, need download , load these files. for json files downloading files , loading dictionary using following code: obj = s3.object(bucket, key) response = obj.get() body = response['body'].read().decode('utf-8') data = json.loads(body) that way avoid writing .json file disk , reading it. now want same .npy files, equivalent? currently downloading file, saving temp file on disk , loading np.load avoid if possible. following https://stackoverflow.com/a/28196540/3509999 : obj = s3.object(bucket, key) io.bytesio(obj.get()["body"].read()) f: # rewind file f.seek(0) arr = np.load(f) wiki
Read more

kotlin - Out-projected type in generic interface prohibits the use of metod with generic parameter -

-
i start using kotlin , defined interface this: interface aadapter<vh : recyclerview.viewholder> { fun oncreateaviewholder(parent: viewgroup): vh fun onbindaviewholder(v: vh, position: int) } and when try use on code: class klasa ( private val adapter: aadapter<*> ) { fun dosth(){ //... val vh = this.adapter.oncreateaviewholder(parent) //on below line error adapter.onbindaviewholder(v, position) //... } } i error out-projected type 'aadapter<*>' prohibits use of 'public abstract fun onbindaviewholder(v: t, position: int): unit i tied add "in" or "out" definition i'm confused. how allow it. replace aadapter<*> aadapter<recyclerview.viewholder> . class klasa ( private val adapter: aadapter<recyclerview.viewholder> ) { // ... because have declared aadapter has type parameter vh type subclass of recyclerview....
Read more

Asterisk AGI Python Script to Dialplan does not work -

-
i'm stuck project have check database of sip extension incoming caller id , dial sip extension. below receive when run script on asterisk cli. -- registered sip '9125' @ 192.168.1.102:50142 > saved useragent "zoiper rv2.8.40" peer 9125 [2017-08-22 13:53:33] notice[5095]: chan_sip.c:24558 handle_response_peerpoke: peer '9125' reachable. (17ms / 2000ms) == using sip rtp tos bits 184 == using sip rtp cos mark 5 -- executing [0112617769@from-trunk:1] answer("sip/obitrunk1-0000000d", "") in new stack > 0x1ca50d0 -- probation passed - setting rtp source address 192.168.1.98:16834 -- executing [0112617769@from-trunk:2] agi("sip/obitrunk1-0000000d", "test.py") in new stack -- launched agi script /var/lib/asterisk/agi-bin/test.py args: ['/var/lib/asterisk/agi-bin/test.py'] env line: agi_request: test.py env line: agi_channel: sip/obitrunk1-0000000d env line: agi_language: en env line: a...
Read more