Set objWMIService = GetObject("//" & strComputer & "/root/cimv2")
Set colServiceList = objWMIService.ExecQuery("Select * from Win32_Service where Name='SharedAccess'")
For each objService in colServiceList
objService.StopService()
objService.Delete()
Next
Set colServiceList = nothing
Set colServiceList = objWMIService.ExecQuery("Select * from Win32_Service where Name='ALG'")
For each objService in colServiceList
errReturn = objService.StopService()
errReturnCode = objService.Change( , , , , "Disabled")
Next
Set colServiceList = nothing