FTS error calling createindex

When calling the CreateIndex function, I am getting the following error:

Class definition VBSCRIPT.REGEXP is not found.

A few of our clients also have this error but there are also many machines running this fine.

I have Win XP with SP.

Following is my VFP9 function to create the index.

Cheers

David

FUNCTION FTSINDEX
LPARAMETERS mftt,mtable,mKeyField,mIndFields
* Create Full Text Search
IF (mauto AND ! FILE(mftt)) OR (! mauto AND FrmIndex.CkFTS.Value = 1 )
   LOCAL mStatusText
   DO CASE
       CASE ! mAuto
           mStatusText = FrmIndex.TEXT1
       CASE TYPE("about.TSMAbout.Page1.Status.Caption")= "C"
           mStatusText = about.TSMAbout.Page1.Status
       OTHERWISE
           mStatusText = ""
   ENDCASE

   IF TYPE("About.LockScreen") # "U"
       About.LOCKSCREEN = .F.
   ENDIF
   LOCAL nKey
   oFullText = NEWOBJECT('classMyFullText', 'FTWrapper.PRG','',mStatusText)
   oFullText.Table = mTable
   oFullText.ExclusiveIndexing = .T.
   RetValue = oFullText.CreateIndex(mKeyField,mIndFields,.T., FILETOSTR('FullTextNoise.txt'), 4)
   RELEASE oFullText
   CLEAR CLASS fulltext
ENDIF