Problème sur Printer

Bonjour,
Je m'en remets à votre aide, car je tourne en rond depuis ce matin, et je ne trouve aucune solution nulle part.

Je crée une imprimante par le script ci-dessous (au moyen de PrnAdmin.dll du ressource kit de windows 2003) et tout se passe correctement, hormis le fait que les champs "Location" et "Commentaire" ne sont pas complétés. je ne comprends pas pourquoi ?

Mon script :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

NomFile="MonImprimante" PortIP="192.168.0.234"   Set oPrinter=CreateObject("Printer.Printer.1") Set oMaster=CreateObject("PrintMaster.PrintMaster.1")   oPrinter.PrinterName = NomFile oPrinter.DriverName = "HP Color LaserJet CP3505 PCL 6" oPrinter.PortName = "IP_"&PortIP oPrinter.Location = "Ici" oPrinter.Comment = "ceci est une imprimante de test" oPrinter.InfFile = "C:\WINDOWS\system32\spool\drivers\w32x86\3\hpc3505c.inf" oMaster.PrinterAdd oPrinter

---

Quelqu'un pourrait-il me venir en aide ????

Merci d'avance,

Bonne fin de journée,

Re,

Bon, et bien, je me réponds à moi-même car, après une journée, j'ai enfin trouvé ! (Et puis, ça peut peut-être servir à quelqu'un d'autre...)
Il faut tout d'abord créer l'imprimante, comme je l'ai fait dans mon précédent Script, puis modifier les champs "Location" et "Comment" grâce au script ci-dessous :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

dim oMaster dim oPrinter   set oMaster = CreateObject("PrintMaster.PrintMaster.1") set oPrinter = CreateObject("Printer.Printer.1")   oMaster.PrinterGet "", "MonImprimante", oPrinter oPrinter.ServerName = "" oPrinter.Location = "Cellule informatique - Provisoirement" oPrinter.Comment = "192.168.0.234" oMaster.PrinterSet oPrinter

---

Voilà, après, il doit y avoir plus simple, mais j'ai pas trouvé !
Merci quand même...

@+