Adding a remote printer using WMI

Private Function AddPrinterViaWMI() As Boolean
 Try
  ' Get the object on which the method will be invoked
  Dim printerClass As New ManagementClass("Win32_Printer")
  ' Invoke using parameter objects
  Dim inParams As ManagementBaseObject = printerClass.GetMethodParameters("AddPrinterConnection")
  ' Fill in input parameter value
  inParams("Name") = "\\<computer name>\<print share name>"
  ' Execute the method
  Dim outParams As ManagementBaseObject = printerClass.InvokeMethod("AddPrinterConnection", inParams, Nothing)
  Return True
 Catch
  Return False
 End Try
End Function