Question

按照标题。使用this code example（第3个例子）作为我的起点。

这是我在VBA代码上的努力，但它在第一个障碍停止（“运行时错误438：对象不支持此属性或方法”）

Sub Test()

    Set objConnection = GetObject("WinNT://HM10")

    Set colResources = objConnection.Resources

    For Each objResource In colResources

        Debug.Print objResource.Path

    Next

End Sub

HM10是我的电脑名称。最终它需要成为一个环境变量（如果这是正确的术语），无论它碰巧在哪个机器上。

编辑：好的，更多的搜索让我想到了这个：

Sub test()

   Filename = "."

   Set wmi = GetObject("winmgmts://./root/cimv2")

   qry = "SELECT * FROM Win32_Process WHERE CommandLine LIKE '%" & Filename & "%'"

   For Each p In wmi.ExecQuery(qry)
     Debug.Print p.commandline
   Next

End Sub

更接近，但只显示本地文件，而不是网络文件。我只需要网络文件，我该如何获取它们？

在VBA中使用WMI查询以获取本地计算机上的打开文件列表

0 个答案: