Jump to content

This is a ready-only archive of the InstallSite Forum. You cannot post any new content here. / Dies ist ein Archiv des InstallSite Forums. Hier können keine neuen Beiträge veröffentlicht werden.

Custom Action Errors with 1720.

3 replies to this topic


  • Full Members
  • 437 posts

Posted 28 January 2004 - 19:58

I'm running my install on an XP system. I get the 1720 error when a VB Script Custom Action is attempting to write some information to an Access database.

I've logged it to get the following information:
[1] 1720
[2] WriteRegCode
[3] -21470244769
[4] ADODB.Connection
[6] 47
[7] 9

[Bracketed Information] are the placeholders in the install log for the error.

I run this on another XP machine and the installation runs through to completion without error. I wonder if the system is missing an integral component for VBScripting? Does the ADODB.Connection provide any hints??

Please let me know ASAP!

Thanks in advance for help. sad.gif


  • Full Members
  • 437 posts

Posted 28 January 2004 - 20:24

Here's the first part of the script to where it is erroring...

Dim cn, rs
Dim InstDir, RegCode, sDBDir, EditionType, RealEditionType
Dim objFSO, objTS
Dim iCnt
Dim sTempStr

Set objFSO = CreateObject("Scripting.FileSystemObject")

If objFSO.FileExists("C:\Registration.txt") Then
Set objTS = objFSO.OpenTextFile("C:\Registration.txt", 1)

iCnt = 0
While Not objTS.AtEndOfStream
iCnt = iCnt + 1
If iCnt = 1 Then
InstDir = objTS.ReadLine
End If
If iCnt = 2 Then
RegCode = objTS.ReadLine
End If
If iCnt = 3 Then
EditionType = objTS.ReadLine
End If
If iCnt = 4 Then
RealEditionType = objTS.ReadLine
End If
Set objTS = Nothing
objFSO.DeleteFile "C:\Registration.txt", True

If RegCode <> "" Then
sDBDir = "DBDIR"
if objFSO.FileExists("E:\DBMDIR\Test.mdb") then
end if

I think this is where it's blowing up in the script:

Set cn = CreateObject("ADODB.Connection")
Set cn = CreateObject("ADODB.Connection")



  • Moderators
  • 1,447 posts

Posted 28 January 2004 - 22:27

I suppose the computer where your installer fails lacks the Active X data object module: http://msdn.microsof...ostartpage1.asp
-Stein Åsmul


  • Full Members
  • 437 posts

Posted 06 February 2004 - 17:16

We basically rebuilt the system to try to narrow down what was causing the problem. It appears on this system that the user had some type of Smart Card logon software loaded that was causing the problem.

Does this narrow it down for anyone or give any further clues?