Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1190 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  vbs : besoin d'un aide pour un script d'ajout d'imprimante sous window

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

vbs : besoin d'un aide pour un script d'ajout d'imprimante sous window

n°1771381
serial_xp
Posté le 08-08-2008 à 21:32:06  profilanswer
 

bonjour a tous,
 
je me trouve face un problème et après m'être renseigné, le meilleur serait encore un script vbs.
Ne connaissant pas ce langage, je me tourne vers vous pour un coup de main.
 
L'idée :
je veux que deux imprimantes dans deux locaux différents s'installe automatiquement sur les machines. Pour cela, j'ai un serveur Windows 2003 SBS avec une OU "Printers" contenant deux groupes "OKI1" et "OKI2". Dans ces groupes sont ajoutés des comptes machines puisque je veux que peut importe l'utilisateur, ce soit une tel ou une telle imprimante qui soit liée.
 
Voila l'esquisse de script que j'ai fait, mais je doute que ce soit bon, ou au mieux, imcomplet.
 

Code :
  1. Dim objPrinter
  2. Dim strGroup
  3. Set wshShell = WScript.CreateObject("WScript.shell" )
  4. strGroup = wshShell.ExpandEnvironmentStrings("%USERNAME%" )
  5. Set objPrinter = CreateObject("WScript.Network" )
  6. Select Case strUsername
  7. Case "Oki1"
  8. objPrinter.AddWindowsPrinterConnection "\\SRVDUPONT\Oki1"
  9. objPrinter.AddWindowsPrinterConnection "\\SRVDUPONT\SamsungCPL350"
  10. objPrinter.SetDefaultPrinter "\\SRVDUPONT\Oki1"
  11. Case "Oki2"
  12. objPrinter.AddWindowsPrinterConnection "\\SRVDUPONT\Oki2"
  13. objPrinter.AddWindowsPrinterConnection "\\SRVDUPONT\SamsungCPL350"
  14. objPrinter.SetDefaultPrinter "\\SRVDUPONT\Oki2"
  15. Case Else
  16. objPrinter.AddWindowsPrinterConnection  "\\SRVDUPONT\SamsungCPL350"
  17. End Select


 
J'espère que vous pourrez m'aider car je ne mis retrouve pas.  
 
Un grand merci d'avance.

mood
Publicité
Posté le 08-08-2008 à 21:32:06  profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  vbs : besoin d'un aide pour un script d'ajout d'imprimante sous window

 

Sujets relatifs
Ajout de signet dans word depuis excel[RESOLU] script d'avertissement auto pour disque plein
Besoin d'aide pour programmation simpleScript Réponse automatique
appel d'un script shell dans un autre script shell[Excel]Aide sur fonctions de recherche
Ajout de librairies java "maison"Besoin d'aide pour un script
Plus de sujets relatifs à : vbs : besoin d'un aide pour un script d'ajout d'imprimante sous window


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR