none
Fazer depoly de .EXE com permissão de Administrador RRS feed

  • Pergunta

  • Blz pessoal!!

    Não consegui implementar ainda um código vbscript que faça o seguinte:

    1 - Parte: matar um processo no caso chamado "t0vnc.exe"

    2 - Parte: Copiar um arquivo do compartilhamento \\10.0.0.8\agente_trauma\agente.exe para o C:\agente das estações clientes, está dando permissão negada devido à GPO que bloquei qualquer alteração no C: das estações.

    3 - Executar o agente.exe mais o parâmetro "-presetex" com o comando "runas /user:dominio\administrator""c:\agente.exe -presetex"

    Segue o meu código que está apresentando erro: (obs: a primeira parte de mtar o processo até funciona pois peguei um script pronto e alterei somente a variável do arquivo.exe para "t0vnc.exe".

    'matando o processo t0vnc.exe

    strComputer = "."
    Set objNetwork = CreateObject("Wscript.Network")
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    ''' Processo que será verificado '''''''
    Set colProcesses = objWMIService.ExecQuery _
        ("Select * from Win32_Process Where Name = 't0vnc.exe'")
    ''' elimina o processo definido '''
    For each Processo in ColProcesses
       Processo.Terminate()
    NEXT

    'Copia o arquivo do agente para máquina local.
    Option Explicit
    Dim objFSO, objFolder, objShell
    Dim FSO1
    Set FSO1 = CreateObject("Scripting.FileSystemObject")
    FSO1.CopyFile  "runas /user:dominio\administrator""\\10.0.0.8\agente-trauma\agente.exe", "c:\agente.exe"
    WScript.Sleep 100
    oShell.Sendkeys "password"
    NEXT


    ' Executa instalação automatizada do agente.
    Dim oShell
    set oShell= Wscript.CreateObject("WScript.Shell")
    oShell.Run "runas /user:dominio\administrator""c:\agente.exe -presetex"
    WScript.Sleep 100
    oShell.Sendkeys "password"
    WScript.Quit

     

    Obrigado e fico no aguardo galera!

    quinta-feira, 27 de janeiro de 2011 15:38

Respostas

  • Blz pessoal!!

    Não consegui implementar ainda um código vbscript que faça o seguinte:

    1 - Parte: matar um processo no caso chamado "t0vnc.exe"

    2 - Parte: Copiar um arquivo do compartilhamento \\10.0.0.8\agente_trauma\agente.exe para o C:\agente das estações clientes, está dando permissão negada devido à GPO que bloquei qualquer alteração no C: das estações.

    3 - Executar o agente.exe mais o parâmetro "-presetex" com o comando "runas /user:dominio\administrator""c:\agente.exe -presetex"

    Segue o meu código que está apresentando erro: (obs: a primeira parte de mtar o processo até funciona pois peguei um script pronto e alterei somente a variável do arquivo.exe para "t0vnc.exe".

    'matando o processo t0vnc.exe

    strComputer = "."
    Set objNetwork = CreateObject("Wscript.Network")
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    ''' Processo que será verificado '''''''
    Set colProcesses = objWMIService.ExecQuery _
        ("Select * from Win32_Process Where Name = 't0vnc.exe'")
    ''' elimina o processo definido '''
    For each Processo in ColProcesses
       Processo.Terminate()
    NEXT

    'Copia o arquivo do agente para máquina local.
    Option Explicit
    Dim objFSO, objFolder, objShell
    Dim FSO1
    Set FSO1 = CreateObject("Scripting.FileSystemObject")
    FSO1.CopyFile  "runas /user:dominio\administrator""\\10.0.0.8\agente-trauma\agente.exe", "c:\agente.exe"
    WScript.Sleep 100
    oShell.Sendkeys "password"
    NEXT


    ' Executa instalação automatizada do agente.
    Dim oShell
    set oShell= Wscript.CreateObject("WScript.Shell")
    oShell.Run "runas /user:dominio\administrator""c:\agente.exe -presetex"
    WScript.Sleep 100
    oShell.Sendkeys "password"
    WScript.Quit

     

    Obrigado e fico no aguardo galera!

    Blz galera!

    Fiz algumas alterações e agora só estou tendo problemas na linha 29, que é a mais complexa, onde ela deveria fazer a cópia do compartilhamento do servidor para o C: das estações e estou tendo problema com o erro "permissão negada" que corresponde à linha 29 do script.

    'matando o processo t0vnc.exe
    strComputer = "."

    Set objNetwork = CreateObject("Wscript.Network")

    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

    ''' Processo que será verificado '''''''
    Set colProcesses = objWMIService.ExecQuery _
        ("Select * from Win32_Process Where Name = 'notepad.exe'")

    ''' elimina o processo definido '''
    For each Processo in ColProcesses
       Processo.Terminate()
    Next

    Dim objFSO, objFolder, objShell, objShell2

    'Copia arquivos do agente para máquina local.

    Dim oShell
    Set oShell= Wscript.CreateObject("WScript.Shell")
    oShell.Run "runas /user:EDIMINAS\tsilvaadm"
    WScript.Sleep 100
    oShell.Sendkeys "dti2010"
    Dim FSO1
    Set FSO1 = CreateObject("Scripting.FileSystemObject")
    FSO1.CopyFile "
    \\10.0.0.8\agente_trauma\agente.exe", "c:\agente.exe"

    ' Executa instalação automatizada do agente.
    Dim oShell2
    Set oShell2= Wscript.CreateObject("WScript.Shell")
    oShell.Run "runas /user:EDIMINAS\tsilvaadm""c:\agente.exe -presetex"
    WScript.Sleep 100
    oShell.Sendkeys "dti2010"
    WScript.Quit

    • Marcado como Resposta Daniel.Alves segunda-feira, 20 de junho de 2011 14:17
    quinta-feira, 27 de janeiro de 2011 16:30

Todas as Respostas

  • Blz pessoal!!

    Não consegui implementar ainda um código vbscript que faça o seguinte:

    1 - Parte: matar um processo no caso chamado "t0vnc.exe"

    2 - Parte: Copiar um arquivo do compartilhamento \\10.0.0.8\agente_trauma\agente.exe para o C:\agente das estações clientes, está dando permissão negada devido à GPO que bloquei qualquer alteração no C: das estações.

    3 - Executar o agente.exe mais o parâmetro "-presetex" com o comando "runas /user:dominio\administrator""c:\agente.exe -presetex"

    Segue o meu código que está apresentando erro: (obs: a primeira parte de mtar o processo até funciona pois peguei um script pronto e alterei somente a variável do arquivo.exe para "t0vnc.exe".

    'matando o processo t0vnc.exe

    strComputer = "."
    Set objNetwork = CreateObject("Wscript.Network")
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    ''' Processo que será verificado '''''''
    Set colProcesses = objWMIService.ExecQuery _
        ("Select * from Win32_Process Where Name = 't0vnc.exe'")
    ''' elimina o processo definido '''
    For each Processo in ColProcesses
       Processo.Terminate()
    NEXT

    'Copia o arquivo do agente para máquina local.
    Option Explicit
    Dim objFSO, objFolder, objShell
    Dim FSO1
    Set FSO1 = CreateObject("Scripting.FileSystemObject")
    FSO1.CopyFile  "runas /user:dominio\administrator""\\10.0.0.8\agente-trauma\agente.exe", "c:\agente.exe"
    WScript.Sleep 100
    oShell.Sendkeys "password"
    NEXT


    ' Executa instalação automatizada do agente.
    Dim oShell
    set oShell= Wscript.CreateObject("WScript.Shell")
    oShell.Run "runas /user:dominio\administrator""c:\agente.exe -presetex"
    WScript.Sleep 100
    oShell.Sendkeys "password"
    WScript.Quit

     

    Obrigado e fico no aguardo galera!

    Blz galera!

    Fiz algumas alterações e agora só estou tendo problemas na linha 29, que é a mais complexa, onde ela deveria fazer a cópia do compartilhamento do servidor para o C: das estações e estou tendo problema com o erro "permissão negada" que corresponde à linha 29 do script.

    'matando o processo t0vnc.exe
    strComputer = "."

    Set objNetwork = CreateObject("Wscript.Network")

    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

    ''' Processo que será verificado '''''''
    Set colProcesses = objWMIService.ExecQuery _
        ("Select * from Win32_Process Where Name = 'notepad.exe'")

    ''' elimina o processo definido '''
    For each Processo in ColProcesses
       Processo.Terminate()
    Next

    Dim objFSO, objFolder, objShell, objShell2

    'Copia arquivos do agente para máquina local.

    Dim oShell
    Set oShell= Wscript.CreateObject("WScript.Shell")
    oShell.Run "runas /user:EDIMINAS\tsilvaadm"
    WScript.Sleep 100
    oShell.Sendkeys "dti2010"
    Dim FSO1
    Set FSO1 = CreateObject("Scripting.FileSystemObject")
    FSO1.CopyFile "
    \\10.0.0.8\agente_trauma\agente.exe", "c:\agente.exe"

    ' Executa instalação automatizada do agente.
    Dim oShell2
    Set oShell2= Wscript.CreateObject("WScript.Shell")
    oShell.Run "runas /user:EDIMINAS\tsilvaadm""c:\agente.exe -presetex"
    WScript.Sleep 100
    oShell.Sendkeys "dti2010"
    WScript.Quit

    • Marcado como Resposta Daniel.Alves segunda-feira, 20 de junho de 2011 14:17
    quinta-feira, 27 de janeiro de 2011 16:30
  • Cara, você saberia me informar se o script que mata o processo funcionária como script de logon de usuários "comuns" do AD?

    Obrigado pelo script me ajudou bastante

    quarta-feira, 28 de agosto de 2013 20:39
  • Blz...cara não precisei disso, mas faz o teste talvez funcione, apesar que eu acho que script de logon so aceita .bat, .vbs....não sei se aceitaria um .ps1 que é script de powershelll e se vc simplesmente renomear o .ps1 para outra extensão que o script de logon aceite como .vbs ele não vai funcionar mais pois as variáreis são de powershell e não de vbscript por exemplo.

    Mas faz o teste colocando o .ps1 na raça...

    quinta-feira, 29 de agosto de 2013 12:15
  • Obrigado Daniel, Fiz algumas alterações para parâmetros de .vbs e apliquei por gpo como sript de inicialização de Computador e deu certo

    Obrigado !

    quarta-feira, 25 de setembro de 2013 16:32
  • E ai..blz!!

    Ue que bom que te ajudou!

    Poste o código de seu script aqui, assim ele pode ajudar outras pessoas no futuro também.

    Abraço

    quarta-feira, 25 de setembro de 2013 17:37