EN VBS :
'Map a printer
Option Explicit
Dim netPrinter, UNCpath
UNCpath = "\\chemin reseau du partage"
Set netPrinter = CreateObject("WScript.Network" )
netPrinter.AddWindowsPrinterConnection UNCpath
netPrinter.SetDefaultPrinter UNCpath
'WScript.Echo "Imprimante mappée depuis : " & UNCpath
WScript.Quit
' End of script
Message édité par xanack le 23-11-2007 à 16:13:45