Pues parece que si se puede compartir una impresora mediante scripting :
Cita: http://www.microsoft.com/spain/techn...5/hey0715.mspx
La siguiente secuencia de comandos permitirá compartir todas las impresoras locales en un equipo:
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer Where Network = FALSE")
i = 1
For Each objPrinter in colInstalledPrinters
objPrinter.Shared = TRUE
objPrinter.ShareName = "Printer" & i
objPrinter.Put_
i = i + 1
Next
-----------------------------
esta secuencia de comandos funciona perfectamente, siempre que utilice Windows XP o Windows Server 2003