COMO: Programaticamente criar uma impressora e porta de impressora utilizando PrinterAdmin (Prnadmin.dll) com um script de Visual Basic no Microsoft Windows 2000

Este artigo passo a passo descreve como criar programaticamente uma impressora e porta de impressora utilizando a ferramenta de PrinterAdmin (Prnadmin.dll) e um script do Visual Basic no Microsoft Windows 2000.

Descrição geral de Prnadmin.dll

PrinterAdmin está disponível no Microsoft Windows 2000 Resource Kit. É uma ferramenta Component Object Model COM baseadas em que os administradores podem utilizar para gerir impressoras, controladores e portas em computadores baseados no Windows 2000 de locais e remotos. PrinterAdmin fornece controlo em larga escala e não interactivo de impressoras através da utilização de scripts. Pode criar scripts próprios ou modificar um dos scripts de exemplo fornecido com PrinterAdmin efectuar as seguintes tarefas:

• Adicionar e eliminar uma impressora.
• Adicionar e eliminar um controlador de impressora.
• Adicionar e eliminar uma porta de impressora.
• Adicionar e eliminar um formulário.
• Ver uma lista de impressoras, portas, controladores e formulários num computador específico.
• Controlar e configurar impressoras.
• Imprima uma página de teste.
• Clonar um servidor de impressão.

O exemplo de script do Visual Basic neste artigo demonstra como utilizar Prnadmin.dll para adicionar uma impressora e porta de impressora remotamente computadores baseados no Windows 2000. O script efectua as seguintes tarefas:

• Cria uma nova porta no computador cliente. Neste exemplo, a porta aponta para a pasta C:\MyFolder\MyPort no disco rígido do computador.
• Instala uma impressora que utiliza a nova porta no computador cliente.
• Cria uma pasta c:\PastaPessoal no disco do computador cliente (na qual armazenar documentos que são enviados para a nova impressora).

Como adicionar uma impressora e porta de impressora utilizando Prnadmin.dll com um script de Visual Basic

1. Inicie o bloco de notas e, em seguida, abra um novo ficheiro de texto.
2. Copie e cole as seguintes linhas no ficheiro de texto:
   
   Nota: para utilizar Prnadmin.dll, ele tem de ser registado no computador cliente. O script regista Prnadmin.dll da respectiva localização no servidor. Certifique-se de que alterar \\Servername\Foldername para o caminho correcto para o ficheiro Prnadmin.dll no servidor.

   
   '******** 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. Personalize o script (conforme necessário) aos seus requisitos.
4. No menu ficheiro, clique em Guardar como. Escreva um nome para o script na caixa nome do ficheiro utilizando a extensão de nome de ficheiro de .vbs (por exemplo, MyPrinter.vbs), especifique uma localização onde pretende guardar o ficheiro e, em seguida, clique em Guardar.
   
   Nota: Certifique-se de que inclui as aspas ("") quando escreve o nome de ficheiro. Esta acção cria o ficheiro com a extensão de nome de ficheiro .vbs.
5. Saia do bloco de notas.
6. Implementar o script em computadores dos utilizadores.
   
   Quando o script é executado, é criada uma nova porta, a impressora está instalada e a impressora aparece na pasta Impressoras do computador cliente.

Para mais informações sobre a ferramenta de PrinterAdmin, consulte o ficheiro de Prnadmin.doc está disponível no Windows 2000 Resource Kit. O ficheiro Prnadmin.doc está localizado na pasta programas Files\Resource Kit (se o Windows 2000 Resource Kit está instalado para a localização predefinida).

Para obter mais informações sobre o Windows 2000 Resource Kit, visite o seguinte Web site da Microsoft: Para obter informações adicionais sobre como adicionar uma impressora predefinida utilizando um script do Visual Basic, clique no número de artigo existente abaixo para visualizar o artigo na base de dados de conhecimento da Microsoft: Para obter informações adicionais sobre como migrar uma configuração de servidor de impressão entre o Windows NT 4.0 e computadores do Windows 2000, clique no número de artigo existente abaixo para visualizar o artigo na base de dados de conhecimento da Microsoft: