wsh-vbscript no funciona...

[securedigital]

Buenas,

He codeado una mini tool de soporte para automatizar una mini tarea pero me tira error en 'errors += 1'

Alguna idea?

Código:

const HKUS = &H80000003
strKeyPath = ".DEFAULT\Control Panel\Colors"
strComputer = "." 

set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
Dim intRC(2)

intRC(0) = objReg.SetStringValue(HKUS, strKeyPath, "ActiveBorder", "212 208 200")
intRC(1) = objReg.SetStringValue(HKUS, strKeyPath, "ActiveTitle", "10 36 106")
intRC(2) = objReg.SetStringValue(HKUS, strKeyPath, "AppWorkSpace", "128 128 128")

errors = 0
For Each item In intRC

	'If intRC[item] <> 0 Then
	If intRC <> 0 Then
		'err
		errors += 1
	End if
	

Next

WScript.Echo "Error setting values. Found: " & errors "errors"

Saludos y gracias