none
Script Habilitar Serviços e Startar. RRS feed

  • Pergunta

  • Olá pessoal,

     

    tenho 300 estações na minha empresa.

     

    E por padrão o serviço "Messenger" ou "Mensageiro" dependendo do idioma vem desabilitado no Windows XP e windows 2000.

     

    Preciso criar um script para mudar o status de Desabilitado para Automático, alguém sabe como fazer?

     

    Valeu pessoal.

     

    Abraços,

    Eduardo souza.

    quarta-feira, 11 de julho de 2007 16:29

Respostas

  • script desenvolvido por um camara meu....

    Só colocar um if com relação ao nome do serviço e trocar os nomes dos serviços.

    abraço.

    boa sorte.

     

     

    Code Snippet

    '-----------------------------------
    ' SCRIPT PARA HABILITAR OS SERVIÇOS BITS E AUTOMATIC UPDATES
    ' Leonardo Camata - ' 10/11/2004 - Versão 0.5
    ' * Mais informações sobre o script no final do arquivo *

    On Error Resume Next
    Set objWshNet = WScript.CreateObject("Wscript.Network")
    Set WshShell = WScript.CreateObject("WScript.Shell")
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    strComputer = "."

    Set oTextStream = oFSO.CreateTextFile("c:\TEMP\Atualiza.log", TRUE)
    oTextStream.WriteLine(Now() & " Script iniciado...")

    ret=StartService("BITS")
    ret=StartService("wuauserv")


    WScript.Quit

    '***************************************************
    Function StartService(ServiceName)
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colServiceList = objWMIService.ExecQuery _
        ("Select * from Win32_Service where Name = '" & ServiceName & "'")
    For Each objService in colServiceList
      
         objService.ChangeStartMode("Automatic")
         'objService.ChangeStartMode("Disabled") 
         ServiceControl = objService.StartService()
         'ServiceControl = objService.StopService()
     
    Next

    Set objService = Nothing
    Set colServiceList = Nothing
    Set objWMIService = Nothing
    End Function
    '***************************************************

     

     

    quarta-feira, 11 de julho de 2007 19:31

Todas as Respostas

  • script desenvolvido por um camara meu....

    Só colocar um if com relação ao nome do serviço e trocar os nomes dos serviços.

    abraço.

    boa sorte.

     

     

    Code Snippet

    '-----------------------------------
    ' SCRIPT PARA HABILITAR OS SERVIÇOS BITS E AUTOMATIC UPDATES
    ' Leonardo Camata - ' 10/11/2004 - Versão 0.5
    ' * Mais informações sobre o script no final do arquivo *

    On Error Resume Next
    Set objWshNet = WScript.CreateObject("Wscript.Network")
    Set WshShell = WScript.CreateObject("WScript.Shell")
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    strComputer = "."

    Set oTextStream = oFSO.CreateTextFile("c:\TEMP\Atualiza.log", TRUE)
    oTextStream.WriteLine(Now() & " Script iniciado...")

    ret=StartService("BITS")
    ret=StartService("wuauserv")


    WScript.Quit

    '***************************************************
    Function StartService(ServiceName)
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colServiceList = objWMIService.ExecQuery _
        ("Select * from Win32_Service where Name = '" & ServiceName & "'")
    For Each objService in colServiceList
      
         objService.ChangeStartMode("Automatic")
         'objService.ChangeStartMode("Disabled") 
         ServiceControl = objService.StartService()
         'ServiceControl = objService.StopService()
     
    Next

    Set objService = Nothing
    Set colServiceList = Nothing
    Set objWMIService = Nothing
    End Function
    '***************************************************

     

     

    quarta-feira, 11 de julho de 2007 19:31
  • PERFEITO !!!

     

    OBRIGADO !!!

    quinta-feira, 12 de julho de 2007 20:08
  • Olá !

    Testei os script mas não funcionou aqui onde trabalho.

    Aqui o nome do Domínio é NANSEN.ADS
    Onde está o erro? Será no nome do Serviço?

    Não entendi o seguinte: "Só colocar um if com relação ao nome do serviço e trocar os nomes dos serviços"
    Colocar o if onde?

    Vejam abaixo.

    Agradeço a atenção !!!



    '-----------------------------------
    ' SCRIPT PARA HABILITAR OS SERVIÇOS BITS E AUTOMATIC UPDATES
    ' Leonardo Camata - ' 10/11/2004 - Versão 0.5
    ' * Mais informações sobre o script no final do arquivo *

    On Error Resume Next
    Set objWshNet = WScript.CreateObject("Wscript.Network")
    Set WshShell = WScript.CreateObject("WScript.Shell")
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    strComputer = "."

    Set oTextStream = oFSO.CreateTextFile("c:\TEMP\Atualiza.log", TRUE)
    oTextStream.WriteLine(Now() & " Script iniciado...")

    ret=StartService("BITS")
    ret=StartService("wuauserv")


    WScript.Quit

    '***************************************************
    Function StartService(ServiceName)
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colServiceList = objWMIService.ExecQuery _
        ("Select * from Win32_Service where Name = 'Mensageiro'")
    For Each objService in colServiceList
     
         objService.ChangeStartMode("Automatic")
         'objService.ChangeStartMode("Disabled")
         ServiceControl = objService.StartService()
         'ServiceControl = objService.StopService()
     
    Next

    Set objService = Nothing
    Set colServiceList = Nothing
    Set objWMIService = Nothing
    End Function
    '***************************************************

    quinta-feira, 29 de maio de 2008 14:22
  • Julio edite o script assim:

     

    strComputer = "."

    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colServiceList = objWMIService.ExecQuery _
        ("Select * from Win32_Service where Name = 'Mensageiro'")
    For Each objService in colServiceList
      
         objService.ChangeStartMode("Automatic")
         'objService.ChangeStartMode("Disabled") 
         ServiceControl = objService.StartService()
         'ServiceControl = objService.StopService()
     
    Next

    Set objService = Nothing
    Set colServiceList = Nothing
    Set objWMIService = Nothing

    quinta-feira, 29 de maio de 2008 17:11