none
Instalar aplicativo como administrador RRS feed

  • Pergunta

  •  

    Pessoal, andei dando uma lida e meparece que da para fazer instalação de programas via script com permissões de administrador.

     

    Alguem tem um modelo de script pronto???

     

    sexta-feira, 14 de março de 2008 18:26

Respostas

  •  

    Prezada Daniele Schneider,

     

    Experimente o script abaixo:

     

    On Error Resume Next
    Const OverwriteExisting = True


    Set objFSO = CreateObject("Scripting.FileSystemObject")
    ' Verifica de existe o arquivo em uma área compartilhada
    If objFSO.FileExists("\\Servidor\Pasta\Arquivo.exe") Then
    ' Copia o arquivo para máquina do usuário
    objFSO.CopyFile "\\Servidor\Pasta\Arquivo.exe" , "C:\Temp\Arquivo.exe", OverwriteExisting
    ' Executa a função para instalar o arquivo
    Instala
    Else
    Wscript.Echo "Arquivo não está disponivel para instalação"
    End If

    Function Instala
    Set WshShell = CreateObject("Wscript.Shell")
    Set WshEnv = WshShell.Environment("PRocess")
    WshShell.Run "runas.exe /user:" & "dominio\usuario" & " " & Chr(34) & "C:\TEMP\Arquivo.exe" & Chr(34)
    Wscript.Sleep 800
    WshShell.AppActivate WshEnv("SystemRoot") & "\system32\runas.exe"
    Wscript.Sleep 200
    WshShell.SendKeys "DIGITE A SENHA AQUI" & "~"
    Wscript.Sleep 5000
    Set WshShell = Nothing
    Set WshEn = Nothing
    End Function

    Espero ter ajudado,

     

    Atenciosamente,

     

    Heber Lopes

    São José dos Campos

    msn: heber.lopes@gmail.com

     

    Caso este post tenha respondido sua pergunta marque como resposta para auxiliar em futuras pesquisas.

     

     

    sexta-feira, 14 de março de 2008 18:44