VBA 搜索共享资源

最新推荐文章于 2025-08-15 13:27:42 发布

原创最新推荐文章于 2025-08-15 13:27:42 发布 · 521 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#vba #network #windows #object #网络

本文介绍了一个使用Windows Script Host Object Model来枚举网络打印机连接和网络驱动器的方法。通过VBScript实现，展示了如何获取网络中映射的打印机及其端口信息，并检查当前已连接的网络驱动器。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

'添加引用 Windows Script Host Object Model

Sub SearchShared()

   Dim a As WshNetwork
   Dim oPrinter As WshCollection
   Set a = New WshNetwork
   Set oPrinter = a.EnumPrinterConnections
   Debug.Print "Network printer mappings:"
   For i = 0 To oPrinter.Count - 1 Step 2
       Debug.Print "Port" & oPrinter.Item(i) & oPrinter.Item(i + 1)
   Next

   Dim colDrives As WshCollection
   Set colDrives = a.EnumNetworkDrives
   If colDrives.Count = 0 Then
      MsgBox "no drive"
   Else
   MsgBox colDrives.Count
      strmsg = "当前网络驱动器连接:" & crlf

      For i = 0 To colDrives.Count - 1 Step 1

         Debug.Print colDrives(i)
      Next

   End If

End Sub