[Resolvido] Gerenciar Windows Services

[Jonas Nogueira 0]

Bom dia pessoal,

 

Gostaria de saber se alguém conhece alguma biblioteca ou componente para gerenciar status de serviços do windows. Na verdade o que eu quero fazer é desenvolver uma sistema que possua uma interface WEB para o gerenciamento dos serviços instalados no meu servidor.

 

Se alguém já fez algo parecido ou conhece algum componente que eu consiga utilizar no desenvolvimento dessa aplicação e puder compartilhar essa informação comigo eu agradeço.

 

Obrigado!

 

Abraços,

Jonas

[Jonas Nogueira 0]

Fala pessoal, beleza?

 

Consegui um exemplo! Agora basta adaptar para a necessidade de cada um!

 

<%
  Sub UpdateProcess(strAction, strSelService)

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

   Set colServiceList = objWMIService.ExecQuery("Select * from Win32_Service WHERE name='" & strSelService & "'")

   For each objService in colServiceList
	Select Case strAction
	 Case "Stop Service"
	  objService.StopService(objService)
	 Case "Start Service"
	  objService.StartService(objService)
	End Select
   Next 
 
   DisplayProcess
  End Sub		

  Sub DisplayProcess
   
	Set objWMIService = GetObject("winmgmts:" _
		   & "{impersonationLevel=impersonate}!\\.\root\cimv2")
   
	Set colServiceList = objWMIService.ExecQuery("Select * from Win32_Service")

	Response.Write "<select name=""service"" size=""10"">"

	For each objService in colServiceList
	 Response.Write "<option value=""" & objService.name & """>" & objService.name & " - " & objService.State & vbcrlf
	Next

	Response.Write "</select>" & vbcrlf				  
   
  End Sub
%>

Abraços,

Jonas

[hargon 64]

Muito bom Jonas. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif