HOW TO:枚举网络邻居的计算机及其共享文件夹

网络

关键引用空间:System.directoryservices,System.Management

说明:Form上有一个TreeView1,Button1

代码如下:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        GetNetComputerNameAndShareFolder()

    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)

            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))

                    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

 

    Private Function AddNode(ByVal Text As String) As TreeNode

        Return Me.TreeView1.Nodes.Add(Text)

    End Function

 

    Private Function AddNode(ByVal Node As TreeNode, ByVal Text As String) As TreeNode

        Return Node.Nodes.Add(Text)

    End Function

 

 

时间: 2024-11-03 06:34:49

HOW TO:枚举网络邻居的计算机及其共享文件夹的相关文章

服务器-CIFS协议如何枚举网络上的资源(共享文件夹/打印机)

问题描述 CIFS协议如何枚举网络上的资源(共享文件夹/打印机) 最近在学习CIFS协议,用WireShark拦截SMB包发现客户端在连接ipc$之后直接就开始查询服务器端共享目录的信息了,但是没看到服务器端返回的共享目录信息,请问这些信息是怎么发送给客户端的? 谢谢 解决方案 图库了徒劳咯的吗?咯模拟

局域网 共享-win7设置了共享,网上邻居点击提示没有权限,但是输入ip或者计算机名共享文件夹却可以打开

问题描述 win7设置了共享,网上邻居点击提示没有权限,但是输入ip或者计算机名共享文件夹却可以打开 如题,在窗口的地址栏输入 计算机名共享文件夹 或者 ip共享文件夹 可以看到共享的内容 但是仅仅输入 计算机名 或者ip 就无法访问,从网上邻居也可以看到共享的电脑,双击打不开,提示没有权限. 这是怎么回事呢? 解决方案 重新启动下看看,另外检查下电脑是否感染了360等流氓非法的软件 解决方案二: 设置权限为所有人 然后关闭360的防火墙

在“网上邻居”中看不到共享文件夹

  在"网上邻居"中看不到共享的文件夹,但同一电脑上有些文件又能看到. 这种情况是共享属性的一种配置类型.在系统中,共享文件类型主要有两种,一是供系统调用,另一种是供其他用户访问.为系统提供共享文件不在"网上邻居"中,可以用NEVIEW等命令显示.如果是供其他用户访问的文件可以在"网上邻居"中出现.配置不可见的共享文件很简单,只要在共享文件名后加上"$"即可 比如在Windows NT/2000服务器系统中,为用户自动创建的文

C#获取网络邻居所有工作组和机器名称

网络 using System;using System.Drawing;using System.Collections;using System.ComponentModel;using System.Windows.Forms;//查询网络上的计算机IP和用户需要引用using System.Data;using System.IO;using System.Net;using System.Net.Sockets;using System.Threading;//关键引用空间System

vb.net枚举网络中所有的SQL 2000服务器

服务器|网络 对于SQL Server2000来说,打开SQL Server客户端准备连接,当拉开服务器列表的时候,整个局域网所有的SQL Server服务器都被列出来了. vb.net枚举网络中所有的SQL 2000服务器     对于SQL Server2000来说,打开SQL Server客户端准备连接,当拉开服务器列表的时候,整个局域网所有的SQL Server服务器都被列出来了.于是我发现,从我自己的机器(192.168.0.1)上从1434端口广播(192.168.0.255)了这个

如何解决局域网中网络邻居访问响应“慢”

  网络中的问题主要出在硬件和软件两个方面,局域网中"慢"的问题也要从这两个方面来解决. 一.硬件方面: 首先"来硬的"吧.决定网络速度的硬件无非是网卡.集线器和网线. 1.网卡 早期的以太网卡大都是10M,现在10M/100M网卡已经取代10M网卡大行其道了,况且千兆网卡也已经面世.所以,如果你还是用的10M网卡,我劝你还是换一下吧. 2.集线器 集线器是网络的中心元件,所有的数据都要经过它分配给其它计算机.普通集线器即HUB由于其工作方式落后于交换式集线器(交换

如何解决局域网中网络邻居访问响应慢_网络冲浪

你碰到这样的情况吗? 在Windows98和Windows95的对等网中,通过网上邻居访问其它计算机,有时要刷新好多次才能连接得上. 在Windows 2000 Server或者Win dows 2000 Advanced Server中访问其它的计算机,特别是访问Windows 98时很慢,要等30到50秒钟. 上Internet时就够慢了,现在连局域网也这样慢,怎么办?下面我们就和笔者一起来解决局域网"慢"的问题. 网络中的问题主要出在硬件和软件两个方面,局域网中"慢&q

win7访问xp共享文件夹时老是出现输入网络密码

  win7访问xp共享文件夹时,老是出现输入网络密码解决办法如下: 在xp中设置: 运行 gpedit.msc 打开 "本地计算机"策略->计算机配置->Windows 设置 ->安全设置->本地策略->安全选项. 设置 网络访问: 本地帐户的共享和安全模式 为 典型: 本地用户以自己的身份验证

java实现打开网络共享文件夹

问题描述 在不使用网络映射,知道网络IP地址,密码的情况下如何实现直接打开网络共享文件夹,不需要做其他任何操作.最好有实际的代码例子参考 问题补充:dyccsxg 写道 解决方案 试下这个,不过好像不稳定,有时候会取不到JFileChooser chooser = new JFileChooser();chooser.setCurrentDirectory(new File("\\10.163.11.41\share_dir"));int result = chooser.showOp