Connecting 2004 thru 2005.

Question

Hi All,
        Im not able to connect the 2004 Application using the 2005 SDK Using DIAPI.My code is
comp.Server =  "server name";          
comp.DbUserName ="sa";
comp.DbPassword =     "sa";
comp.UserName = "manager";
comp.Password =     " manager";
int ConRet =     comp.Connect();
     Here i have used the Dbusername and password since 2005 uses the same.My requirement is to connect both 2004 and 2005A using the 2005 SDK.
What i have to do to reach this requirement.
When i connect to 2005 its working fine.But when i connect 2004 using this 2005 im getting error as "Connection to sbo common has failed".
One more question is ther any possibility to find whether the user has installed 2004 or 2005 using the SDK.please any one of u help to solve this problem.Im struggling with this.
regards,
Ranjani Sampath

Answer 1

Regarding your second question: 
Recently I surfed in the registry and wrote a function
that gets information about the default DIAPI installed.
I haven't deployed this widely so I can't be 100% sure
it will work in all situations.
Therefore, I would be happy to receive everyone's
comments on this.
     Public Function SBOGetDiapiVersionInfo() As String
          Dim s, s1, s2, s3 As String
          Dim strCurrentVersion As String
          Dim strFilename As String
          Dim rk As RegistryKey
          rk = Registry.ClassesRoot.OpenSubKey("SAPbobsCOM.CompanyCurVer", True)
          strCurrentVersion = CType(rk.GetValue(""), String)
          rk = Registry.ClassesRoot.OpenSubKey(strCurrentVersion & "CLSID", True)
          s = CType(rk.GetValue(""), String)
          rk = Registry.ClassesRoot.OpenSubKey("CLSID" & s & "InprocServer32", True)
          strFilename = CType(rk.GetValue(""), String)
          s1 = "DI API Version : " & System.Diagnostics.FileVersionInfo.GetVersionInfo(strFilename).ProductVersion
          s2 = "DI API Date    : " & File.GetCreationTime(strFilename)
          s3 = "DI API File    : " & strFilename
          s = s1 & vbCrLf & s2 & vbCrLf & s3
          Return (s)
     End Function