? Ajout des imprimantes réseau par un script de démarrage ?

[Invité]

Bienvenue, Invité. Veuillez vous connecter ou vous inscrire.

Connexion avec identifiant et mot de passe

[jocelynberger]

Hello,

J'ai un réseau avec plusieurs imprimantes. Pour éviter de devoir les ajouter sur chaque poste client, y'a-t-il une commande pour les ajouter au démarrage d'une session dans un script de démarrage ?    ?

Merci pour vos réponses...

Jocelyn

[Corven]

Salut !

J'ai trouver un script sur hardware.fr pour ton problème, le voici :

Code:

   * Option Explicit
    *   On Error Resume Next
    *    
    *   Dim wshNetwork, wshShell, wshSysEnv, nReturnCode
    *   Dim i, j
    *    
    *   Dim colPrinters, aryPrinters
    *    
    *   aryPrinters = Array("\SERVEUR1IMPRIMANTE", "\SERVEUR2IMPRIMANTE2")
    *   Set wshNetwork = WScript.CreateObject("WScript.Network")
    *   Set wshSysEnv = wshShell.Environment("SYSTEM")
    *    
    *   If (wshSysEnv("OS") = "Windows_NT") Then
    *        
    *      ' Connect printers
    *      Set colPrinters = wshNetwork.EnumPrinterConnections
    *      For i = 0 To colPrinters.Count - 1 Step 2
    *         ' Disconnect already connected printers
    *         For j = LBound(aryPrinters) To UBound(aryPrinters)
    *            If (colPrinters(i) = aryPrinters(j)) Then
    *               wshNetwork.RemovePrinterConnection aryPrinters(j)
    *            End If
    *         Next
    *      Next
    *      For j = LBound(aryPrinters) To UBound(aryPrinters)
    *         wshNetwork.AddWindowsPrinterConnection aryPrinters(j)
    *      Next
    *   Else
    *      WScript.Echo "This WSH logon script supports only Windows NT." & vbNewLine &_
    *                   "Exiting..."
    *      Set wshNetwork = Nothing
    *      WScript.Quit(1)
    *   End If
    *    
    *   Set wshNetwork = Nothing
    *   Set wshShell = Nothing
    *   WScript.Quit(nReturnCode)

Faut le copier là:
Control Pannel -> Administrative Tools -> Active Directory Users and Computers -> Sélectionne ton OU qui contient les comptes utilisateur -> Group Policy (GPO) -> New -> Login Script -> Choisir le script (il sera copié dans SYSVOL)

Après il est dit qu'il te suffira de changer le chemin UNC et les drivers partagés par le serveur d'impression feront le reste.

Si tu veux lire le sujet le voici

Je te laisse lire tout ça parce que je n'y connais pas grand chose si ce n'est pas pour dire rien du tout ...  


Bonne chance !  

[jocelynberger]

Merci, mais je ne comprends vraiment pas cette partie du code :

    *      For i = 0 To colPrinters.Count - 1 Step 2
    *         ' Disconnect already connected printers
    *         For j = LBound(aryPrinters) To UBound(aryPrinters)
    *            If (colPrinters(i) = aryPrinters(j)) Then
    *               wshNetwork.RemovePrinterConnection aryPrinters(j)
    *            End If
    *         Next
    *      Next

Je l'ai implémenté tel quel, mais ça ne fonctionne pas pour déconnecter les imprimantes déjà connectées...

Tu y comprends quelque chose ? T'as une autre idée ?

Merci.