Dezactiveaza serviciul THEMES pt XP

objWMI = GetObject("winmgmts:\")
cCadWMI = "Select * from Win32_Service Where Name = 'Themes'"
oServ = objWMI.ExecQuery(cCadWMI)

For Each objService in oServ
objService.StopService()
Next

*objService.StartService()