Discussion :

[Gnifrus]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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,

[Gnifrus]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

@+