Comment : Créer par programme une imprimante et le port d'imprimante à l'aide de PrinterAdmin (Prnadmin.dll) avec un Script Visual Basic dans Microsoft Windows 2000

Retour au début

Vue d'ensemble de Prnadmin.dll

• Ajouter et supprimer une imprimante.
• Ajouter et supprimer un pilote d'imprimante.
• Ajouter et supprimer un port d'imprimante.
• Ajouter et supprimer un formulaire.
• Afficher une liste des imprimantes, des ports, des pilotes et des formulaires sur un ordinateur spécifique.
• Contrôler et configurer des imprimantes.
• Imprimer une page de test.
• Dupliquer un serveur d'impression.

• Crée un nouveau port sur l'ordinateur client. Dans cet exemple, le port pointe vers le dossier C:\MyFolder\MyPort sur le disque dur.
• Installe une imprimante qui utilise le nouveau port sur l'ordinateur client.
• Crée un dossier c:\dossier sur disque dur de l'ordinateur client (dans lequel stocker les documents sont envoyés à la nouvelle imprimante).

Retour au début

Comment faire pour ajouter une imprimante et le port imprimante avec un Script Visual Basic à l'aide de Prnadmin.dll

1. Démarrez le bloc-notes et ouvrez un nouveau fichier texte.
2. Copiez et collez les lignes suivantes dans le fichier texte :
   
   Remarque : pour utiliser Prnadmin.dll, il doit être inscrit sur l'ordinateur client. Le script inscrit Prnadmin.dll à partir de son emplacement sur le serveur. Assurez-vous de modifier \\Servername\Foldername sur le chemin d'accès correct au fichier Prnadmin.dll sur votre serveur.

   
   '******** Register prnadmin.dll file on client computer *******
   
   Set WshShell = Wscript.CreateObject("Wscript.Shell")
   
   WshShell.Run "regsvr32 /s \\ServerName\FolderName\Prnadmin.dll",1,TRUE
   
   '************** Create the port first *******************************
   
   dim oPort
   
   dim oMaster
   
   set oPort = CreateObject("Port.Port.1")
   
   set oMaster = CreateObject("PrintMaster.PrintMaster.1")
   
   oPort.PortName = "C:\MyFolder\MyPort"
   
   oPort.PortType = 3
   
   oMaster.PortAdd oPort
   
   if Err <> 0 then
   
   msgbox "There was an error creating the port."
   
   end if
   
   '********************************************************************
   
   '************** Create the printer second ***************************
   'Change MyPrinter to the name of the printer that you are adding.
   'Change PrinterDriver to the name of the printer driver that you are adding.
   
   
   dim oPrinter
   
   set oPrinter = CreateObject("Printer.Printer.1")
   
   oPrinter.PrinterName = "MyPrinter"		' name of the printer as it appears in the Printers folder
   
   oPrinter.DriverName = "PrinterDriver"		' name that is referenced in ntprint.inf
   
   oPrinter.PortName = "C:\MyFolder\MyPort"		' Specify a port name. Can also point to LPT or COM port.
   
   oMaster.PrinterAdd oPrinter
   If Err <> 0 then
   
   msgbox "There was an error creating the printer."
   
   end if
   
   '********************************************************************
   
   '************** Create the directory third ***************************
   
   Dim filesys
   
   Set filesys = wscript.createobject("Scripting.FilesystemObject")
   
   filesys.CreateFolder "C:\MyFolder\"			' Create a folder as a repository for the faxes.
   
   If Err <> 0 then
   
   msgbox "There was an error creating the MyFolder folder."
   
   end if
   
   '********************************************************************
   
   msgbox "The script is finished."
   
   					

3. Personnaliser le script (si nécessaire) pour répondre à vos besoins.
4. Dans le menu fichier, cliquez sur Enregistrer sous. Type d'un nom pour le script dans la zone nom de fichier à l'aide de l'extension de nom de fichier .vbs (par exemple, MyPrinter.vbs), spécifiez un emplacement où vous souhaitez enregistrer le fichier, puis cliquez sur Enregistrer.
   
   Remarque : veillez à inclure les guillemets ("") lorsque vous tapez le nom de fichier. Cette action crée le fichier avec l'extension de nom de fichier .vbs.
5. Quittez le bloc-notes.
6. Déployer le script pour ordinateurs les des utilisateurs.
   
   Lorsque le script est exécuté, un nouveau port est créé, l'imprimante est installée et l'imprimante apparaît dans le dossier Imprimantes de l'ordinateur client.

Retour au début