Bonjour,
Set WshNetwork = WScript.CreateObject("WScript.Network")
PrinterPath = "\\printserv\DefaultPrinter"
WshNetwork.AddWindowsPrinterConnection PrinterPath
'''''''''
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set oDrives = WshNetwork.EnumNetworkDrives
Set oPrinters = WshNetwork.EnumPrinterConnections
'"Mappages de lecteurs réseau :"
For i = 0 to oDrives.Count - 1 Step 2
drive = vbCrLf& "Lecteur " & oDrives.Item(i) & " = " & oDrives.Item(i+1) & drive &vbCrLf
Next
'"Mappages d'imprimantes réseau :"
For i = 0 to oPrinters.Count - 1 Step 2
imprim = vbCrLf & "Port " & oPrinters.Item(i) & " = " & oPrinters.Item(i+1) & imprim &vbCrLf
Next
MsgBox drive &vbCrLf&vbCrLf& imprim
'''''''''''''
Set WshNetwork = WScript.CreateObject("WScript.Network")
PrinterPath = "\\research\library1"
WshNetwork.AddWindowsPrinterConnection PrinterPath
WshNetwork.SetDefaultPrinter PrinterPath
'''''''''''''''''
Set WshNetwork = WScript.CreateObject("WScript.Network")
PrinterPath = "\\printserv\DefaultPrinter"
WshNetwork.RemovePrinterConnection PrinterPath, true, true
'''''''''''''''
WshNetwork, objet | AddWindowsPrinterConnection, méthode | EnumPrinterConnections, méthode | RemovePrinterConnection, méthode | SetDefaultPrinter, méthode