question

Imagine a Windows Server 2003 Enterprise x64 Edition. I can create a 'vbscript.regexp' object using a vbscript (confirming that the DLL is registered). I cannot create a 'vbscript.regexp' object using sp_OACreate in a SQL Server 2005 SP3 (.4053)(cluster) environment. OLE Automation is checked ON in surface area configuration. The sp_OACreate was working until very recently. Can you help me? ****CODE**** declare @source varchar(5000), @regexp varchar(1000), @replace varchar(1000), @globalReplace bit, @ignoreCase bit set @source = 'NBG76TF43' set @regexp = '[^0-9]' set @replace = '' set @globalReplace = 1 set @ignoreCase = 1 DECLARE @hr integer DECLARE @objRegExp integer DECLARE @result varchar(5000) EXECUTE @hr = sp_OACreate 'VBScript.RegExp', @objRegExp OUTPUT IF @hr <> 0 BEGIN EXEC @hr = sp_OADestroy @objRegExp PRINT 'A' PRINT @hr END EXECUTE @hr = sp_OASetProperty @objRegExp, 'Pattern', @regexp IF @hr <> 0 BEGIN EXEC @hr = sp_OADestroy @objRegExp PRINT 'B' PRINT @hr END EXECUTE @hr = sp_OASetProperty @objRegExp, 'Global', @globalReplace IF @hr <> 0 BEGIN EXEC @hr = sp_OADestroy @objRegExp PRINT 'C' PRINT @hr END EXECUTE @hr = sp_OASetProperty @objRegExp, 'IgnoreCase', @ignoreCase IF @hr <> 0 BEGIN EXEC @hr = sp_OADestroy @objRegExp PRINT 'D' PRINT @hr END EXECUTE @hr = sp_OAMethod @objRegExp, 'Replace', @result OUTPUT, @source, @replace IF @hr <> 0 BEGIN EXEC @hr = sp_OADestroy @objRegExp PRINT 'E' PRINT @hr END EXECUTE @hr = sp_OADestroy @objRegExp IF @hr <> 0 BEGIN PRINT 'F' PRINT @hr END PRINT @result /* A -2147211480 B -2147211480 C -2147211480 D -2147211480 E -2147211480 F -2147211480 */