[ネットワークプリンタの接続状況を取得する]

現在接続されているネットワークプリンタを取得します。

【ソースコード】

[tips0103.vbs]
Option Explicit
On Error Resume Next

Dim objWshNetwork   ' WshNetwork オブジェクト
Dim objPrinters     ' プリンタ情報
Dim lngLoop         ' ループカウンタ

Set objWshNetwork = WScript.CreateObject("WScript.Network")
If Err.Number = 0 Then
    Set objPrinters = objWshNetwork.EnumPrinterConnections
    If Err.Number = 0 Then
        WScript.Echo "ネットワークプリンタ："
        For lngLoop = 0 To objPrinters.Count - 1 Step 2
            WScript.Echo "　" & objPrinters.Item(lngLoop) & _
                " => " & objPrinters.Item(lngLoop + 1)
        Next
    Else
        WScript.Echo "エラー: " & Err.Description
    End If
Else
    WScript.Echo "エラー: " & Err.Description
End If

Set objWshNetwork = Nothing

【実行結果】

C:\> cscript //NoLogo tips0103.vbs
ネットワークプリンタ：
　IP_192.168.1.51 => \\Comp01\EPSON LP-8600FX