DTS Script Error

• dambalaji

  SSC-Addicted

  Points: 421

  More actions

  September 25, 2002 at 3:19 pm

  #105124

  Hi ,

  The following DTS Active Script works fine in SQL server 7.0. But the same fails to run in sql 2000. I am trying to write to NT event log in the code. It gives activex component can't create object in NT box. Can anyone help me how to write a Log in NT Eventlog.

  Function Main()

  dim objNTLog

  set objNTLog = createobject("ntEventLog.Writer")

  objNTLog.logNTEvent "tCustomer Insert failed.", "tCustomer Insert Failed", 1, 1000

  'Delete Header, & Load data

  Main = DTSTaskExecResult_Success

  End Function

  Thanks

• bmsjr

  Ten Centuries

  Points: 1199

  More actions

  September 27, 2002 at 11:47 am

  #437406

  there is a wscript event that writes to the application event log.

  set wshShell = createObject("wscript.shell")

  WshShell.LogEvent 0, "The following process was killed programatically "

  This works in VBS for me it should work in DTS.

  Bruce

  Bruce Szabo, MCSE+I, MCDBA, MCSD

  
  Bruce Szabo, MCSE+I, MCDBA, MCSD

• Robert W Marda

  SSChampion

  Points: 13413

  More actions

  September 27, 2002 at 2:49 pm

  #437419

  If you don't have to use ActiveX Script then the following SQL will make an entry in the NT Eventlog:

  raiserror ('customer insert failed', 1,1) WITH LOG

  Robert Marda

  SQL Server will deliver its data any way you want it

  when you give your SQL Programmer enough developing time.

  Robert W. Marda
  Billing and OSS Specialist - SQL Programmer
  MCL Systems