none
script automatico RRS feed

  • Pergunta

  •  

    Gostaria de saber se tem como criar um script que execute um programa de 3 em 3 horas, que não seja pelo agendador de tarefas pois sempre apagam ou param a tarefa nos pc da empresa.
    domingo, 18 de novembro de 2007 22:21

Respostas

  •  

    Beleza, baixei o system admin..... e achei um que atende a necessidade, mais não consegui ativar a opção que executa se estiver conectado e em 3 e 3 horas, tentei modificar-lo mais não tive exito. Com relação ao script acima ele não consta na agendador mais o executa, isto é correto.

     

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

    Set objNewJob = objWMIService.Get("Win32_ScheduledJob")

    errJobCreated = objNewJob.Create _
        ("Notepad.exe", "********123000.000000-420", _
            True , 1 OR 4 OR 16, , , JobID)
    Wscript.Echo errJobCreated

    segunda-feira, 19 de novembro de 2007 22:02

Todas as Respostas

  • Jr_PE

     

    Caro, segue um script abaixo, com a seguinte funcionabilidade.

    "Executa um programa e inicia seu processo no gerenciador"

     

    ' StartProcessLocal.vbs
    ' Free example VBScript to start a process (not interactive)
    ' Author Guy Thomas http://computerperformance.co.uk/ <---------------------------- ( FONTE )
    ' Version 1.8 - December 2005
    ' -------------------------------------------------------'
    Option Explicit
    Dim objWMIService, objProcess, objCalc
    Dim strShell, objProgram, strComputer, strExe

    strComputer = "."
    strExe = "Calc.exe"
    ' Connect to WMI
    set objWMIService = getobject("winmgmts://"_
    & strComputer & "/root/cimv2")

    ' Obtain the Win32_Process class of object.
    Set objProcess = objWMIService.Get("Win32_Process")
    Set objProgram = objProcess.Methods_( _
    "Create").InParameters.SpawnInstance_
    objProgram.CommandLine = strExe

    'Execute the program now at the command line.
    Set strShell = objWMIService.ExecMethod( _
    "Win32_Process", "Create", objProgram)

    WScript.echo "Created: " & strExe & " on " & strComputer
    WSCript.Quit

    ' End of free example of a Process VBScript

    *****************************************************************************************

    Você precisa que execute um 3 em 3 horas, você pode estar implementando em cima desse. Casualmente você pode estar baixando o "System Administration Scripting Guide Script Repository" muito util, para algumas formulações de scripts.

     

    Espero ter ajudado, qualquer novidade post novamente

     

    Atenciosamente

    Kelsen Lima

    segunda-feira, 19 de novembro de 2007 03:14
  •  

    Beleza, baixei o system admin..... e achei um que atende a necessidade, mais não consegui ativar a opção que executa se estiver conectado e em 3 e 3 horas, tentei modificar-lo mais não tive exito. Com relação ao script acima ele não consta na agendador mais o executa, isto é correto.

     

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

    Set objNewJob = objWMIService.Get("Win32_ScheduledJob")

    errJobCreated = objNewJob.Create _
        ("Notepad.exe", "********123000.000000-420", _
            True , 1 OR 4 OR 16, , , JobID)
    Wscript.Echo errJobCreated

    segunda-feira, 19 de novembro de 2007 22:02