3 replies to this topic

[Superfreak3]

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.

[Superfreak3]

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
Wend
objTS.Close
Set objTS = Nothing
objFSO.DeleteFile "C:\Registration.txt", True

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

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

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

.
.
.
.

[Glytzhkof]

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

[Superfreak3]

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?