1Um comentário

• Luiz Dionízio dos Santos Júnior(usuário não autenticado)

  2 de Julho de 2007, 10:27

   

  Saudações a Todos,

  Caro Ângelo,  no momento em que li este post, eu já havia criado meu próprio script *, com a mesma finalidade do seu, mas, em VB script. As principais diferenças são: 

  - A copia dos arquivos do Cacic fica a cargo do CHKCACIC.EXE que já os copia do "ftp gerente";

  - Para executar o script com direito administrativo eu o chamo através do programa "CPAU.exe" (tbm gratuito), ao invés do "LSencrypt.exe";

  - Para dar direito de escrita à pasta CACIC uso uma GPO**, atribuindo a permissão "Modificar" ao grupo "Usuários";

  * inicio do script

  Const ForcarInstalacao = FALSE  'Quando True, Instala mesmo que o programa já exista, Tbm Usado para Atualizar

  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set oShell = CreateObject("WScript.Shell")

  strOrigemCaminhoUNC = "\\ ruralshop-cru.com\Arquivos\Programas\scripts\cacic"
  strDestinoCaminhoUNC = "c:\cacic"

  if (ForcarInstalacao) and (objFSO.FileExists (strDestinoCaminhoUNC & "\cacic2.exe")) then
     instalar()
     'Wscript.Echo "O CACIC foi instalado a Forca!" & " ( Informe essa mesagem ao Admin. da Rede )" 
  else
     if NOT (objFSO.FileExists (strDestinoCaminhoUNC & "\cacic2.exe")) then
        instalar()
        'Wscript.Echo "O CACIC foi instalado com sucesso!" & " ( Informe essa mesagem ao Admin. da Rede )"    
     else
        'Wscript.Echo "O CACIC já existe neste computador!" & " ( Informe essa mesagem ao Admin. da Rede )"    
     end if
  end if

  sub instalar()
     oShell.Run strOrigemCaminhoUNC & "\chkcacic.exe", 0, true
  end sub

  * fim do script

  ** "Editor de Objetos de diretivas de grupo > Configuração do Computador > Configurações do Windows > Configurações de segurança > Sistema de Arquivos"