Deshabilitar servicio con vbscript
Publicado por Marc (1 intervención) el 21/10/2004 17:11:01
Buenas,
Que sentencia en visualbasic script se utiliza para deshabilitar un servicio?
Con este codigo puedo pararlo, pero me interesa deshabilitarlo:
strComputer = "."
proceso=inputbox("nombre proceso:")
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service ")
For Each objService in colServiceList
if objservice.name=proceso then
msgbox "Parando servicio"
objService.StopService() <----------PARA EL SERVICIO
end if
Next
Gracias
Que sentencia en visualbasic script se utiliza para deshabilitar un servicio?
Con este codigo puedo pararlo, pero me interesa deshabilitarlo:
strComputer = "."
proceso=inputbox("nombre proceso:")
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service ")
For Each objService in colServiceList
if objservice.name=proceso then
msgbox "Parando servicio"
objService.StopService() <----------PARA EL SERVICIO
end if
Next
Gracias
Valora esta pregunta


0