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

    end sub

    private sub getnetcomputernameandsharefolder()

        dim n as treenode = addnode("工作组或域")

        dim root as directoryentry = new directoryentry("winnt:")

        for each domain as directoryentry in root.children

            '枚举工作组或域

            dim n1 as treenode = addnode(n, domain.name)