■Topics

---

プリンタに割り当てられたポートを変更する設定するサンプルです。Win32_Printerクラスを使用します。

---

■Sample Code

---

Private Sub Command1_Click()

Dim PrtSet As SWbemObjectSet
Dim Prt As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices

Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer

Set PrtSet = Service.ExecQuery _
    ("Select * From Win32_Printer Where Name = 'EPSON MJ-700V2C By WMI'")

For Each Prt In PrtSet
    
    Prt.PortName = "IP_192.168.100.200"
    Prt.Put_

Next

MsgBox "プリンタ設定を変更しました。"

Set PrtSet = Nothing
Set Prt = Nothing
Set Locator = Nothing
Set Service = Nothing

End Sub

---

■Comment

---

今回のサンプルを実行する条件として、
・EPSON MJ-700V2C By WMI という名前のプリンタがある
・IP_192.168.100.200 という名前のポートがある
ことが条件となります。もちろん別の名前に置き換えてもらえばそれでOK。

実行すると既存のプリンタのポート設定を切り替えます。

---