代码
Dim mc As New System.Management.ManagementClass("Win32_Printer")
Dim moc = mc.GetInstances()
For Each mo As System.Management.ManagementObject In moc
Output.Show( mo.Properties("name").Value.ToString())
If mo.Properties("name").Value.ToString() = "HP1001" Then
mo.InvokeMethod("RenamePrinter", New Object(){ "HP12345" })
End If
Next