instalar impresora

[guif]

Estoy intentando instalar una impresora pero no me funciona el codigo...
os comento:

Código:

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

porque no se instala?

[guif]

text1= nombre maquina remota
text2= nombre impresora