Usuário com melhor resposta
Script Habilitar Serviços e Startar.

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.
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()
NextSet objService = Nothing
Set colServiceList = Nothing
Set objWMIService = Nothing
End Function
'***************************************************
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()
NextSet objService = Nothing
Set colServiceList = Nothing
Set objWMIService = Nothing
End Function
'*************************************************** -
-
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
'*************************************************** -
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()
NextSet objService = Nothing
Set colServiceList = Nothing
Set objWMIService = Nothing