WMIでプリンタ変更について

環境/言語:[Windows　XP　Pro／VBScript、WMI]
分類:[その他]

ＷＭＩにてプリンタポートの選択とプリンタ名を変更したいのですがうまくいきません。そこで教えてください。

条件
ＰＣには複数の同じプリンタドライバのものが表示されています。

プログラム内容としては、プリンタを検索し、一致したらプリンタ名と
ポート選択をしています。

strPrinterName = "EPSON"
Set PrtSet = Service.ExecQuery _
("Select * From Win32_Printer Where Name = '" & PrinterName & "'")

Set Locator = CreateObject("WbemScripting.SWbemLocator")
Set Service = Locator.ConnectServer
For Each Prt In PrtSet
Prt.Caption = "1F　CANON"
Prt.PortName = "IP_192.168.0.200"
Prt.Put_
Next

Service.ExecQueryを呼び出す位置が明らかにおかしいようですが。もう少し検討されてから投稿してください。