locked
Executar vpscript com windows vista RRS feed

  • Pergunta

  •  

    Boa tarde

     

    Tenho um vbscript para adicionar impressoras, no windows xp é aplicado sem problemas com windows vista é me devolvido um erro e não permite a instalação.

     

    Alguem te ideia do que se trata?

     

    Grato

    segunda-feira, 28 de julho de 2008 10:04

Respostas

  • Peter,

     

    o teu script é parecido com este?

    Code Snippet

     

    Dim p
    p = InputBox("Enter the network path to the printer you want to install:", "Add Printer", "\\Server\PrinterName")

    If p <> "" Then
      Dim cmd
      cmd = "rundll32 printui,PrintUIEntry /in /n" & p
     
      WScript.CreateObject("WScript.Shell").Run cmd
    End If

     

     

     

    Se não for, teste com ele.

     

    terça-feira, 29 de julho de 2008 13:25
  • O que faz a pressa...

     

    Minha informação ficou incompleta. Na Vista o comando não fica na pasta C:\Windows\system32, como no XP, ele fica em C:\Windows\System32\Printing_Admin_Scripts\en-US, portanto precisas alterar o script para ele:

     

    Agora vem o detalhe mais importante, para uma rede mista com Win XP e Win Vista, basta que mandes copiar os arquivos necessários para a pasta %windir%\System32 para que o script anterior funcione. Podes fazer isto manualmente, ou simplesmente usar o script abaixo:

     

     

    Code Snippet

    IF NOT EXIST "C:\Windows\System32\Printing_Admin_Scripts\en-US" GOTO :END

    C:

    CD \Windows\System32\Printing_Admin_Scripts\en-US

    COPY prn*.vbs C:\Windows\System32 /Y

    :END

     

     

    terça-feira, 29 de julho de 2008 14:11

Todas as Respostas

  • Olá Peterc,

     

    Posta aqui o erro para podermos te ajudar.

     

    Sds,

    segunda-feira, 28 de julho de 2008 12:28
    Moderador
  • Peter,

     

    o teu script é parecido com este?

    Code Snippet

     

    Dim p
    p = InputBox("Enter the network path to the printer you want to install:", "Add Printer", "\\Server\PrinterName")

    If p <> "" Then
      Dim cmd
      cmd = "rundll32 printui,PrintUIEntry /in /n" & p
     
      WScript.CreateObject("WScript.Shell").Run cmd
    End If

     

     

     

    Se não for, teste com ele.

     

    terça-feira, 29 de julho de 2008 13:25
  • Peter,

     

    me permita complementar. Um script e uma metodologia úteis são:

    1. instale a impressora no servidor SBS e configure ela para ser acessada via rede;
    2. compartilhe a impressora. Vamos assumir que tenhas dado o nome de "MinImpr" para ela e o nome do seu servidor seja "MServer";
    3. então assegure-se que ela seja adicionada ao perfil do usuário quando este logar na rede, disparando o script a seguir como script de logon:

    Code Snippet
    CSCRIPT %windir%\system32prnmngr.vbs -ac -p \\MServer\MinImpr

     

     

    Note que o nome da impressora deve estar entre parêntesis.
     
     
    terça-feira, 29 de julho de 2008 13:33
  • O que faz a pressa...

     

    Minha informação ficou incompleta. Na Vista o comando não fica na pasta C:\Windows\system32, como no XP, ele fica em C:\Windows\System32\Printing_Admin_Scripts\en-US, portanto precisas alterar o script para ele:

     

    Agora vem o detalhe mais importante, para uma rede mista com Win XP e Win Vista, basta que mandes copiar os arquivos necessários para a pasta %windir%\System32 para que o script anterior funcione. Podes fazer isto manualmente, ou simplesmente usar o script abaixo:

     

     

    Code Snippet

    IF NOT EXIST "C:\Windows\System32\Printing_Admin_Scripts\en-US" GOTO :END

    C:

    CD \Windows\System32\Printing_Admin_Scripts\en-US

    COPY prn*.vbs C:\Windows\System32 /Y

    :END

     

     

    terça-feira, 29 de julho de 2008 14:11