1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
Private Function GetPrinter(ByVal Computer As String) As ArrayList
Dim objWMIService As Object
Dim objItems As Object
Dim objItem As Object
Dim AllPrinters As New ArrayList
objWMIService = GetObject("winmgmts:\\" & Computer & "\root\CIMV2")
objItems = objWMIService.ExecQuery("SELECT * FROM Win32_Printer")
For Each objItem In objItems
AllPrinters.Add(objItem.Caption)
Next
objWMIService = Nothing
objItems = Nothing
objItem = Nothing
Return AllPrinters
End Function
|