Do you have Windows Scripting 5.X installed?

>ok I put the code in and it looks like this:
>

>LOCAL answer
>oldcname = ALLTRIM(THISFORM.txtoLD.VALUE)
>newcname = ALLTRIM(THISFORM.txtNew.VALUE)
>
>IF oldcname != newcname
>	answer=MESSAGEBOX("Your computer is called " +oldcname +CHR(10) +CHR(13);
>		+"Are you sure you want to" +CHR(10)+CHR(13);
>		+"change it to " +newcname,3,"Confirm Computer name change")
>*Write back the computer name here - goto new method
>	DO CASE
>	CASE answer = 2 &&& Cancel
>*go back to page
>	CASE answer = 6 &&& Yes
>*change the computer name here
>suspend
>		lcComputer = "."
>		loWMIService = GETOBJECT("winmgmts:" ;
>			+ "{impersonationLevel=impersonate}!\\" + lcComputer + "\root\cimv2")
>		colComputers = loWMIService.ExecQuery ;
>			("Select * from Win32_ComputerSystem")
>		FOR EACH loComputer IN colComputers
>			loComputer.RENAME(ALLTRIM(THISFORM.txtNew.Value))
>		NEXT
>	
>	test = GETENV("COMPUTERNAME")
>	CASE answer = 7 &&& No
>	THISFORM.RELEASE()
>		CLEAR EVENTS
>	ENDCASE
>
>ENDIF
>

>HOWEVER THIS DOESN'T WORK WHAT HAVE I MISSED ?