1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| Dim Services, ObjetSet, Objet, objWMIService, colServiceList, Ws
'desactivation du service
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colServiceList = objWMIService.ExecQuery("Associators of " _
& "{Win32_Service.Name='wscsvc'} Where " _
& "AssocClass=Win32_DependentService " & "Role=Antecedent" )
For each objService in colServiceList
objService.StopService()
next
Wscript.Sleep 10
Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service where Name='wscsvc'")
For each objService in colServiceList
errReturn = objService.StopService()
next
'type de demarrage > desactiver
Set WS = WScript.CreateObject("WScript.Shell")
Ws.RegWrite"HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\wscsvc\Start",4,"REG_DWORD" |
Partager