解放军65037部队:VB如何获取局域网内所有计算机的名字

你看看这3个API ,应该对你有帮助.
WNetGetConnection

VB声明
Declare Function WNetGetConnection Lib "mpr.dll" Alias "WNetGetConnectionA" (ByVal lpszLocalName As String, ByVal lpszRemoteName As String, cbRemoteName As Long) As Long
说明
获取本地或已连接的一个资源的网络名称
返回值
Long，零表示成功。会设置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR，则可用WNetGetLastError取得额外的错误信息
参数表
参数 类型及说明
lpszLocalName String，本地设备的名字
lpszRemoteName String，指定一个字串缓冲区，用于装载设备的资源名称
cbRemoteName Long，lpszRemoteName缓冲区的字符数量。如缓冲区不够大，则设为需要的缓冲区长度

WNetGetUniversalName

VB声明
Declare Function WNetGetUniversalName Lib "mpr" Alias "WNetGetUniversalNameA" (ByVal lpLocalPath As String, ByVal dwInfoLevel As Long, lpBuffer As Any, lpBufferSize As Long) As Long
说明
获取网络中一个文件的远程名称以及/或者UNC（统一命名规范）名称。例如，假设一个已连接的远程驱动器是\\othersystem\CDrive，它对应的本地驱动器是F:，而且在它的子目录temp中包含了文件xyz.doc。那么运算结果如下：LocalPath xyz.doc 或 f:\temp\xyz.doc（或者文件的任何相对路径名）
UNC 名称： \\othersystem\CDrive\temp\xyz.doc
连接名称： \\othersystem\CDrive
剩余名称： \temp\xyz.doc
它们分别对应于由这个函数装载的REMOTE_NAME_INFO结构的字段，对该结构的定义如下：
Type REMOTE_NAME_INFO
pUniversalName As Long
pConnectionName As Long
pRemainingPath As Long
End Type
返回值
Long，零表示成功。会设置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR，则可用WNetGetLastError取得额外的错误信息
参数表
参数 类型及说明
lpLocalPath String，磁盘文件的名字
dwInfoLevel Long，下述常数之一：
UNIVERSAL_NAME_INFO_LEVEL 只设置pUniversalName字段
REMOTE_NAME_INFO_LEVEL 设置REMOTE_NAME_INFO结构中的所有三个字段
lpBuffer Any，指定用于装载UNC信息的一个缓冲区。缓冲区起点与一个REMOTE_NAME_INFO结构对应
lpBufferSize Long，以字节为单位指定lpBuffer缓冲区的长度。如缓冲区不够大，则设为需要的缓冲区长度

WNetGetUser

VB声明
Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" (ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long
说明
获取一个网络资源用以连接的名字
返回值
Long，零表示成功。会设置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR，则可用WNetGetLastError取得额外的错误信息
参数表
参数 类型及说明
lpName String，指定已连接资源的远程名称或本地名称。用vbNullString获取当前用户的名字
lpUserName String，用于装载用户名的一个字串缓冲区
lpnLength Long，lpUserName缓冲区的长度。如缓冲区不够大，则自动设为需要的缓冲区长度