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

            for each computer as directoryentry in domain.children

                '枚举指定工作组或域的计算机

                if computer.schemaclassname.equals("computer") then

                    dim n2 as treenode = addnode(n1, computer.name)

                    '枚举指定计算机的共享文件夹

                    dim o as new managementobject

                    o.scope = new managementscope(string.format("\\{0}\root\cimv2", computer.name))