os comento:
Código:
porque no se instala? Set objWMIService = GetObject("winmgmts:\\" & Text1.Text & "\root\cimv2") Set colPrinters = objWMIService.ExecQuery("Select * From Win32_Printer Where Local = TRUE") If colPrinters.Count = 0 Then Set objNetwork = CreateObject("WScript.Network") objNetwork.AddWindowsPrinterConnection "\\servimp\" & Text2.Text objNetwork.SetDefaultPrinter "\\servimp\" & Text2.Text End If