Condivisione stampanti via script

Questo script (VBS) permette di confividere TUTTE le stamapnti di un pc, tranne quelle di rete, e assegna il nome della condivisione uguale al nome stampante.
è possibile intervenire su questa riga "  objPrinter.ShareName = "" & objPrinter.Name"  e modificarla con "

 objPrinter.ShareName = "Printer" & i " per avere un nome progressivo.

================================== 

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 = "" & objPrinter.Name
    objPrinter.Put_
    i = i + 1
Next