HOW TO：枚举网络邻居的计算机及其共享文件夹[4]

                    dim searcher as managementobjectsearcher = new managementobjectsearcher("select * from win32_share")

                    searcher.scope = o.scope

                    for each share as managementobject in searcher.get()

                        addnode(n2, share.getpropertyvalue("name").tostring)

                    next

                end if

            next

        next

    end sub