Bonjour à tous,
 
Je viens vers vous pour une nouvelle demande qui est la suivante :
Je voudrais créer un script qui installe automatiquement les imprimantes d'un serveur.
Les imprimantes ont leur nom commençant par PRT...
 
Voici le script que j'ai mais il faut taper manuellement les imprimantes. Et le problème est que j'ai bcp de site à gérer et j'aimerais automatiser la tâche
 
'Permet de verrouiller les variables pour éviter les erreurs de saisie'
Option explicit
'Je définit les variables pour mon script'
Dim Reseau
'Je créé l'instance de l'objet Reseau en l'occurence l'instance qui touche
'au domaine du réseau'
Set Reseau = Wscript.CreateObject("Wscript.Network" )
'Installation de l'imprimante réseau'
Reseau.AddWindowsPrinterConnection "\\srvcXX\prt0X00X"
 
 
Merci d'avance pour votre aide.  
Si vous pouvez m'expliquer votre solution surtout concernant les variables utilisées.  
 
 

J'ai trouvé cette réponse :
 
Function printerlist() As String
Dim printers As System.Drawing.Printing.PrinterSettings.StringCollection
Dim str As String = String.Empty  
printers = System.Drawing.Printing.PrinterSettings.InstalledPrinters()
For x = 0 To printers.Count - 1  
str = str & printers.Item(x) & vbCrLf
 
Next
 
' MessageBox.Show(str)
Return str  
End Function
 
 
Mais je ne comprends pas le script dans son intégralité.
# Private Function SetInstallPrinter() As Boolean
# ' Si une erreur est détectée.
# On Error GoTo ErrHandler
# frmPrincipal.MousePointer = vbHourglass
#
# ' Déclaration des variables.
# Dim wshnetwork As Object
#
# ' Installation de l'imprimante.
# Set wshnetwork = CreateObject("wscript.network" )
# wshnetwork.addwindowsPrinterConnection "\\" & txtServer & "\" & UCase(txtPrinter.Text)
# If chkPrinter.Value = 1 Then
# wshnetwork.setdefaultprinter "\\" & txtServer & "\" & UCase(txtPrinter.Text)
# End If
#
# ' Fin de l'installation de l'imprimante.
# frmPrincipal.MousePointer = vbNormal
# SetInstallPrinter = True
# Exit Function
#
# ErrHandler:
# SetInstallPrinter = False
# frmPrincipal.MousePointer = vbNormal
#
# End Function