Help me.

Tech-Archive recommends: Fix windows errors by optimizing your registry

From: Jakey (xxy13222293_at_sohu.com)
Date: 05/19/04 

Date: Wed, 19 May 2004 11:21:10 +0800

set myServices = GetObject("winmgmts:")
dim parm(13)
parm(0)="Messenage"
parm(1)="ClipSrv"
parm(2)="FastUserSwitchingCompatibility"
parm(3)="helpsvc"
parm(4)="ERSvc"
parm(5)="RSVP"
parm(6)="Registry"
parm(7)="RDSessMgr"
parm(8)="SCardSvr"
parm(9)="SCardDrv"
parm(10)="srservice"
parm(11)="Schedule"
parm(12)="wuauserv"
parm(13)="Alerter"
for x=0 to 13
set myObject = myServices.Get("Win32_Service.Name='parm{x}'")
myobject.ChangeStartMode(disabled)
myobject.STOPservice()
Wscript.echo parm(x)&" service is "&myobject.startmode
Wscript.echo parm(x)&" service state is "&myobject.state
next
-----------------------------------------------------
This .VBS can't run,please tell me why.Thanks.