COMO: Programaticamente criar uma impressora e porta de impressora usando PrinterAdmin (Prnadmin.dll) com um script do VisualBasic no Microsoft Windows 2000

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

Visão geral de Prnadmin.dll

PrinterAdmin está disponível no Microsoft Windows 2000 Resource Kit. É uma ferramenta baseada no modelo objeto componente COM que os administradores podem usar para gerenciar impressoras, drivers e portas em computadores locais e remotos com Windows 2000. PrinterAdmin fornece controle de impressoras através de scripts em larga escala, não interativo. Você pode criar seus próprios scripts ou modificar um dos scripts de exemplo é fornecido com PrinterAdmin executar as seguintes tarefas:

• Adicionar e excluir uma impressora.
• Adicionar e excluir um driver de impressora.
• Adicionar e excluir uma porta de impressora.
• Adicionar e excluir um formulário.
• Exiba uma lista de impressoras, portas, drivers e formulários em um computador específico.
• Controlar e configurar impressoras.
• Imprima uma página de teste.
• Clone um servidor de impressão.

Exemplo de script do VisualBasic neste artigo demonstra como usar Prnadmin.dll para adicionar uma impressora e porta de impressora remotamente em computadores com Windows 2000. O script executa 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 usa a nova porta no computador cliente.
• Cria uma pasta C:\MyFolder no disco de rígido do computador cliente (no qual armazenar documentos enviados para a nova impressora).

Como adicionar uma impressora e porta de impressora usando Prnadmin.dll com um script do VisualBasic

1. Inicie o Notepad e abra um novo arquivo de texto.
2. Copie e cole seguintes linhas no arquivo de texto:
   
   Observação: usar Prnadmin.dll, ele deve ser registrado no computador cliente. O script registra Prnadmin.dll de seu local no servidor. Certifique-se de alterar \\Servername\Foldername para o caminho correto para o arquivo Prnadmin.dll no seu 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) para atender às suas necessidades.
4. No menu arquivo, clique em Salvar como. Tipo de um nome para o script na caixa nome do arquivo usando a extensão de nome de arquivo .vbs (por exemplo, MyPrinter.vbs), especifique um local onde deseja salvar o arquivo e clique em Salvar.
   
   Observação: Certifique-se de incluir as aspas ("") quando você digitar o nome de arquivo. Esta ação cria o arquivo com a extensão de nome de arquivo .vbs.
5. Feche o Notepad.
6. Implante o script para computadores os dos usuários.
   
   Quando o script é executado, uma nova porta é criada, a impressora está instalada e a impressora aparecerá na pasta Impressoras do computador cliente.

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

Para obter mais informações sobre o Windows 2000 Resource Kit, visite o seguinte site: Para obter informações adicionais sobre como adicionar uma impressora padrão usando um script do VisualBasic, clique no número abaixo para ler o artigo na Base de dados de Conhecimento: Para obter informações adicionais sobre como migrar uma configuração de servidor de impressão entre computadores Windows 2000 e Windows NT 4.0, clique no número abaixo para ler o artigo na Base de dados de Conhecimento: