ÄÉÁÄÉÊÁÓÉÅÓ: ÌÝóù ðñïãñáììáôéóìïý äçìéïõñãßáò åíüò åêôõðùôÞ êáé èýñáò åêôõðùôÞ ìå ÷ñÞóç PrinterAdmin (Prnadmin.dll) ìå ìéá äÝóìç åíåñãåéþí ôçò Visual Basic óôï Microsoft Windows 2000

Áõôü ôï Üñèñï âÞìá ðñïò âÞìá ðåñéãñÜöåé ôïí ôñüðï äçìéïõñãßáò åíüò åêôõðùôÞ êáé ôç èýñá åêôõðùôÞ, ÷ñçóéìïðïéþíôáò ôï åñãáëåßï PrinterAdmin (Prnadmin.dll) êáé ìéá äÝóìç åíåñãåéþí ôçò Visual Basic óôï Microsoft Windows 2000 ìÝóù ðñïãñáììáôéóìïý.

Åðéóêüðçóç ôùí Prnadmin.dll

PrinterAdmin åßíáé äéáèÝóéìç óôï Microsoft Windows 2000 Resource Kit. Ðñüêåéôáé ãéá Ýíá åñãáëåßï âáóßæåôáé óôï ìïíôÝëï áíôéêåéìÝíïõ óôïé÷åßïõ COM ðïõ ìðïñïýí íá ÷ñçóéìïðïéïýí ïé äéá÷åéñéóôÝò ãéá ôç Äéá÷åßñéóç åêôõðùôþí, ðñïãñÜììáôá ïäÞãçóçò êáé èýñåò óå ôïðéêïýò êáé áðïìáêñõóìÝíïõò õðïëïãéóôÝò ìå Windows 2000. PrinterAdmin ðáñÝ÷åé Ýëåã÷ï åõñåßáò êëßìáêáò, ìç áëëçëåðéäñáóôéêÞ åêôõðùôÝò ìÝóù ôçò ÷ñÞóçò ôùí äåóìþí åíåñãåéþí. Ìðïñåßôå íá äçìéïõñãÞóåôå ôéò äéêÝò óáò äÝóìåò åíåñãåéþí Þ íá ôñïðïðïéÞóåôå Ýíá áðü ôá äåßãìáôá äåóìþí åíåñãåéþí ðïõ ðáñÝ÷ïíôáé ìå ôï PrinterAdmin ãéá íá åêôåëÝóåôå ôéò ðáñáêÜôù åñãáóßåò:

• ÐñïóèÞêç êáé äéáãñáöÞ åíüò åêôõðùôÞ.
• ÐñïóèÞêç êáé äéáãñáöÞ ðñïãñÜììáôïò ïäÞãçóçò åêôõðùôÞ.
• ÐñïóèÝóôå êáé äéáãñÜøôå ìéá èýñá åêôõðùôÞ.
• ÐñïóèÝóôå êáé äéáãñÜøôå ìéá öüñìá.
• ÐñïâÜëåôå ìéá ëßóôá ìå ôïõò åêôõðùôÝò, èýñåò, ðñïãñÜììáôá ïäÞãçóçò êáé öüñìåò óå Ýíá óõãêåêñéìÝíï õðïëïãéóôÞ.
• ¸ëåã÷ïò êáé ñýèìéóç ðáñáìÝôñùí åêôõðùôþí.
• Åêôýðùóç äïêéìáóôéêÞò óåëßäáò.
• Ç êëùíïðïßçóç åíüò äéáêïìéóôÞ åêôõðþóåùí.

Ôï ðáñÜäåéãìá äÝóìçò åíåñãåéþí ôçò Visual Basic óå áõôü ôï Üñèñï ðåñéãñÜöåé ôïí ôñüðï ÷ñÞóçò Prnadmin.dll ãéá íá ðñïóèÝóåôå Ýíáí åêôõðùôÞ êáé ôç èýñá ôïõ åêôõðùôÞ óå õðïëïãéóôÝò ðïõ âáóßæïíôáé óå Windows 2000 áðü áðüóôáóç. Ç äÝóìç åíåñãåéþí ðñáãìáôïðïéåß ôéò áêüëïõèåò åñãáóßåò:

• Äçìéïõñãåß ìéá íÝá èýñá ôïõ õðïëïãéóôÞ-ðåëÜôç. Óå áõôü ôï ðáñÜäåéãìá, ç èýñá ïäçãåß óôï öÜêåëï C:\MyFolder\MyPort óôïí óêëçñü äßóêï ôïõ õðïëïãéóôÞ.
• Åãêáèßóôáôáé Ýíáò åêôõðùôÞò ðïõ ÷ñçóéìïðïéåß ôç íÝá èýñá ôïõ õðïëïãéóôÞ-ðåëÜôç.
• Äçìéïõñãåß Ýíá öÜêåëï C:\MyFolder óôïí óêëçñü äßóêï ôïõ õðïëïãéóôÞ-ðåëÜôç, (óôçí ïðïßá èÝëåôå íá áðïèçêåýåôå ôá Ýããñáöá ðïõ áðïóôÝëëïíôáé óôïí íÝï åêôõðùôÞ).

Ôñüðïò ðñïóèÞêçò åíüò åêôõðùôÞ êáé èýñáò åêôõðùôÞ ìå ÷ñÞóç Prnadmin.dll ìå ìéá äÝóìç åíåñãåéþí ôçò Visual Basic

1. Start Notepad, and then open a new text file.
2. Copy and paste the following lines into the text file:
   
   ÓÇÌÅÉÙÓÇ: To use Prnadmin.dll, it must be registered on the client computer. The script registers Prnadmin.dll from its location on the server. Make sure that you change \\Servername\Foldername to the correct path to the Prnadmin.dll file on your server.

   
   '******** 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. Customize the script (as necessary) to meet your requirements.
4. Óôï äéáêïìéóôÞFILEìåíïý, êÜíôå êëéê óôï êïõìðßÁðïèÞêåõóç ùò. Type a name for the script in the¼íïìá áñ÷åßïõbox by using the .vbs file name extension (for example,MyPrinter.vbs), specify a location where you want to save the file, and then clickÁðïèÞêåõóç (Save).
   
   ÓÇÌÅÉÙÓÇ: Make sure that you include the quotation marks ("") when you type the file name. This action creates the file with the .vbs file name extension.
5. Quit Notepad.
6. Deploy the script to users' computers.
   
   When the script is run, a new port is created, the printer is installed, and the printer appears in the Printers folder of the client computer.

For more information about the PrinterAdmin tool, see the Prnadmin.doc file that is available in the Windows 2000 Resource Kit. The Prnadmin.doc file is located in the Program Files\Resource Kit folder (if the Windows 2000 Resource Kit is installed to the default location).

For more information about the Windows 2000 Resource Kit, visit the following Microsoft Web site:For additional information about how to add a default printer by using a Visual Basic script, click the article number below to view the article in the Microsoft Knowledge Base:For additional information about how to migrate a print server configuration between Windows NT 4.0 and Windows 2000 computers, click the article number below to view the article in the Microsoft Knowledge Base: