module1.bas

1.打开文件。在计算机上运行可执行程序。 2.登录。在登录对话框中输入用户名

Attribute VB_Name = "Module1"
'获取局域网计算机名称的函数
Function GetNetComputerName(sObj As ListBox)
  Dim shTmp As New Shell 'Shell变量
  Dim NewDict As New Dictionary '新的文件夹变量
  Dim fdTmp As Folder '文件夹变量
  Dim fiTmp As FolderItem '文件夹项目变量
  Dim strTmp As String '字符串变量
  Dim k As Integer '判断网络资源中是否有“邻近的计算机”
  sObj.Clear
  '打开网上邻居
  Set fdTmp = shTmp.NameSpace(ssfNETWORK)
  '搜索网上邻居中的所有项目
  For Each fiTmp In fdTmp.Items
    '取得文件夹的详细摘要信息（0表示取名称）
    strTmp = fdTmp.GetDetailsOf(fiTmp, 0)
    '保存“邻近的计算机”到文件夹变量，以便获取其下的计算机名称
    If strTmp = "邻近的计算机" Then
      NewDict.Add 0, fiTmp
      k = 1 '有“邻近的计算机”的标志
    End If
  Next
  '获取对“邻近的计算机”中的计算机名称
  If k = 1 Then
    Set fiTmp = NewDict(0) '打开“邻近的计算机”
    Set fdTmp = fiTmp.GetFolder '打开“邻近的计算机”中的对象
    '搜索“邻近的计算机”中的所有计算机名称
    For Each fiTmp In fdTmp.Items
      '取得名称
      strTmp = fdTmp.GetDetailsOf(fiTmp, 0)
      If Left$(strTmp, 2) = "\\" Then '保存名称到列表框
        sObj.AddItem Mid$(strTmp, 3)
      End If
    Next
  End If
End Function