Header image
Jean-René DANIS

 

   Retour à Script d'administration et de connexion                

  


Script de connexion pour installer les imprimantes en fonction des groupes d'utilisateurs

 

Sénario

Supposons qu'il y a 4 services et une imprimante dans chaque service.

Il faut que le script installe les 4 imprimantes pour tous les utilisateurs.

Puis le script devra mettre par défaut l'imprimante du service dans lequel l'utilisateur est affecté.

Principe

1-Créer un groupe pour chaque service sur le contrôleur de domaine : service_compta, service_accueil, service_livraison et service_direction.

2-Mettre les utilisateurs dans un de ces groupes (pour la selection de l'imprimante par defaut)

3-kix32.exe doit être installé sur tous les PC (par exemple par le script de connexion)

3-A chaque connexion de l'utilisateur : faire appel au script imprimantes.kix (décrit ci-dessous)

Détail du fichier

Fichier imprimantes.kix (version en PDF couleur, plus lisible ici : imprimante.kix.pdf)

At (20,10) "Connexion des imprimantes"

; Définition des variables
$ServeurImpression = "\\dc-lyon-03\"
$PrintPortCle = "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\PrinterPorts"

; Installation de l'imprimante Laser_compta si elle n'est pas déjà installé.
$CheminImprimante = "$ServeurImpression" + "Laser_compta"
$ValeurReg = ReadValue("$PrintPortCle", "$CheminImprimante")
If @ERROR <> 0
   At (25,0) AddPrinterConnection ("$CheminImprimante")
EndIf

; Installation de l'imprimante Laser_accueil si elle n'est pas déjà installé.
$CheminImprimante = "$ServeurImpression" + "Laser_accueil"
$ValeurReg = ReadValue("$PrintPortCle", "$CheminImprimante")
If @ERROR <> 0
   At (25,4) AddPrinterConnection ("$CheminImprimante")
EndIf

; Installation de l'imprimante Laser_direction si elle n'est pas déjà installé.
$CheminImprimante = "$ServeurImpression" + "Laser_direction"
$ValeurReg = ReadValue("$PrintPortCle", "$CheminImprimante")
If @ERROR <> 0
   At (25,8) AddPrinterConnection ("$CheminImprimante")
EndIf

; Installation de l'imprimante Laser_livraison si elle n'est pas déjà installé.
$CheminImprimante = "$ServeurImpression" + "Laser_livraison"
$ValeurReg = ReadValue("$PrintPortCle", "$CheminImprimante")
If @ERROR <> 0
   At (25,12) AddPrinterConnection ("$CheminImprimante")
EndIf

; Si l'utilisateur est dans le groupe service_compta
; mettre l'imprimante Laser_compta par défaut
If InGroup ("service_compta")
    If (SetDefaultPrinter ("$ServeurImpression" + "Laser_compta") = 0)
    At (15,10) "Imprimante par défaut : Laser_compta"
    EndIf
EndIf

; Si l'utilisateur est dans le groupe service_accueil
; mettre l'imprimante Laser_accueil par défaut
If InGroup ("service_accueil")
    If (SetDefaultPrinter ("$ServeurImpression" + "Laser_accueil") = 0)
    At (15,10) "Imprimante par défaut : Laser_accueil"
    EndIf
EndIf

; Si l'utilisateur est dans le groupe service_direction
; mettre l'imprimante Laser_direction par défaut
If InGroup ("service_accueil")
    If (SetDefaultPrinter ("$ServeurImpression" + "Laser_direction") = 0)
    At (15,10) "Imprimante par défaut : Laser_accueil"
    EndIf
EndIf


 

Vous pouvez poster vos commentaires sur mon blog : http://installation-silencieuse.blogspot.com