测试程序(VB)片段:
1.初始化:
Option Explicit
Private oRegHelper As CCRegistrySet oRegHelper = CreateObject("SAP.CCRegistry.1")
Set rsDestinations = oRegHelper.GetDestinationsSet rsOptions = oRegHelper.GetOptionsAsRecord(rsDestinations.Fields(0))
tbUserID = rsOptions.Fields("User")
tbClient = rsOptions.Fields("Client")
tbPassword = ""
tbLanguage = rsOptions.Fields("Lang")2。登陆:
Option Explicit
Public oSession As ObjectSet oSession = CreateObject("SAP.CCSession.1")oSession.PutSessionInfo sDestination, sUser, sPassword, sLanguage, sClient
  
If oSession.Logon(sError) Then
    MsgBox ("Logon succ.")
Else
    MsgBox ("Logon failed: " + sError)
End If