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

vbs : besoin d'un aide pour un script d'ajout d'imprimante sous window - VB/VBA/VBS - Programmation

Marsh Posté le 08-08-2008 à 21:32:06    

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
  4. Set wshShell = WScript.CreateObject("WScript.shell" )
  5. strGroup = wshShell.ExpandEnvironmentStrings("%USERNAME%" )
  6. Set objPrinter = CreateObject("WScript.Network" )
  8. Select Case strUsername
  9. Case "Oki1"
  10. objPrinter.AddWindowsPrinterConnection "\\SRVDUPONT\Oki1"
  11. objPrinter.AddWindowsPrinterConnection "\\SRVDUPONT\SamsungCPL350"
  12. objPrinter.SetDefaultPrinter "\\SRVDUPONT\Oki1"
  13. Case "Oki2"
  14. objPrinter.AddWindowsPrinterConnection "\\SRVDUPONT\Oki2"
  15. objPrinter.AddWindowsPrinterConnection "\\SRVDUPONT\SamsungCPL350"
  16. objPrinter.SetDefaultPrinter "\\SRVDUPONT\Oki2"
  17. Case Else
  18. objPrinter.AddWindowsPrinterConnection  "\\SRVDUPONT\SamsungCPL350"
  19. End Select


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

Reply

Marsh Posté le 08-08-2008 à 21:32:06   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed