wmi services control

[sanhen]

_Disabledservices(3)

Func _Disabledservices($s = "")

$strComputer = "."

$objWMIService = ObjGet("winmgmts:" & "{impersonationLevel=impersonate}!\\" & $strComputer & "\root\cimv2")

If $s = 1 Then

Dim $services[2]=["Alerter","dhcp"]

ElseIf $s = 2 Then

Dim $services[3] = ["ALG","BTTS","Browser","Dfc"]

ElseIf $s = 3 Then

Dim $services[23] = ["dhcp","WebClient","Tlntsvr","Dhcp","Dnscache", _

"ERSvc","helpsvc","LmHosts","mnmsrvc","msdtc", _

"PolicyAgent","ProtectedStorage","RdSessMgr","RemoteAccess","RemoteRegistry", _

"Schedule","Spooler","Themes","Trkwks","Tssdis", _

"wuauserv","wzcsvc","TermService"]

EndIf

for $service in $services

$strWMIObjectID = 'Win32_Service.Name="'& $service &'"'

$objService = $objWMIService.Get($strWMIObjectID)

$objService.ChangeStartMode ("Disabled")

Next

EndFunc

$service error? why?

[GEOSoft]

Without testing it I would say that it's the $Services in $Sevices thats giving you the problem.

I have a UDF of service controls here;

http://www.autoitscript.com/forum/index.ph...&hl=geosoft

You should at least get some ideas from it