vb 如何知道访问本机共享资源的是哪些计算机？

Question

各位大侠：   前提：我有多台电脑在同一个局域网。其中只有一台电脑（A电脑）有共享文件，其他计算机都是访问该共享文件。其他电脑上不装任何第二方程序（不互相使用Winsock控件）。
   问题：我如何在A电脑上用VB编程实现当前有哪些电脑正连接在A电脑上？
   目标：要获取其他电脑的IP和用户名。

Answer 1

Dim strComputer As String
Dim objWMIService, colSessions, Connection
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colSessions = objWMIService.InstancesOf("Win32_ServerConnection")
For Each Connection In colSessions
    Debug.Print Connection.ComputerName, Connection.ShareName, Connection.UserName
Next
  
*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码) http://feiyun0112.cnblogs.com/