Option Explicit

Dim objWSN

Set objWSN = CreateObject("WScript.Network")

objWSN.AddWindowsPrinterConnection "\\ALLEYGATO\Bic"

'Cleanup 
Set objWSN = Nothing


WScript.Quit