none
Script Services RRS feed

  • Pergunta

  •  

    Olá meus amigos,

     

    Gostaria de saber se é possível criar um script que habilite serviços no Windows XP. Se for, como posso fazer ? Alguém poderia me dar um exemplo ?

     

    Obrigado,

    terça-feira, 18 de março de 2008 21:12

Respostas

  • Boas,

     

    Aqui vai, só tens de alterar o Nome do Serviço e o StartMode Enable or Disabled.

     

    strComputer = "."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

    Set colServiceList = objWMIService.ExecQuery _
        ("Select * from Win32_Service where Name = 'Browser'")

    For Each objService in colServiceList
        If objService.State = "Running" Then
            objService.StopService()
            Wscript.Sleep 5000
        End If
        errReturnCode = objService.ChangeStartMode("Disabled")  

     

     

    Um abraço,

    João Dias

    Não te esqueça classificar a mensagem como "respondido", caso tenha ajudado

     

     

    quinta-feira, 20 de março de 2008 12:14