nlsxrfc.dll kenn ich nicht.
Ich benutze die librfc32.dll aus der GUI (ist auch nicht supportet). Diese habe ich im System registriert.
Anschließend läuft folgendes (auf einem nicht UNICODE System)
Sub Initialize()
Dim FunctionCtrl As Variant
Dim SAPConnection As Variant
' ### Init SAP Objekte
Set FunctionCtrl = CreateObject("SAP.Functions")
Set SAPConnection = FunctionCtrl.Connection
Dim rfc As Variant ' der BAPI
Dim rfcExport ' Exportparameter des RFCs
Dim strResult As string
' Anmeldeinformationen
SAPConnection.Client = "930"
SAPConnection.User = "USER_NAME"
SAPConnection.Password = "******"
SAPConnection.Language = "DE"
SAPConnection.Destination = "x1c"
SAPConnection.HostName = "x1c.example.com"
SAPConnection.SystemNumber = "00"
SAPConnection.ApplicationServer = "x1c.example.com"
SAPConnection.System = "X1C"
SAPConnection.UseSAPRFCIni = False
' Am SAP anmelden
If Not SAPConnection.logon(0, True) Then
Error 1000, "Anmeldung fehlgeschlagen"
End If
' RFC init
Set rfc = FunctionCtrl.Add("RFC_SYSTEM_INFO")
' Objekt zum Export des BAPIs vorbereiten
Set rfcExport = rfc.Imports("RFCSI_EXPORT")
' RFC aufrufen
If Not rfc.Call() Then
Error 1000, rfc.Exception
End If
' Result ausgeben
MsgBox "RFCPROTO :" & rfcExport("RFCPROTO") & Chr(10) & _
"RFCCHARTYP:" & rfcExport("RFCCHARTYP") & Chr(10) & _
"RFCINTTYP :" & rfcExport("RFCINTTYP") & Chr(10) & _
"RFCFLOTYP :" & rfcExport("RFCFLOTYP") & Chr(10) & _
"RFCDEST :" & rfcExport("RFCDEST") & Chr(10) & _
"RFCHOST :" & rfcExport("RFCHOST") & Chr(10) & _
"SYSYSID :" & rfcExport("RFCSYSID") & Chr(10) & _
"RFCDATABS :" & rfcExport("RFCDATABS") & Chr(10) & _
"RFCDBHOST :" & rfcExport("RFCDBHOST") & Chr(10) & _
"SYDBSYS :" & rfcExport("RFCDBSYS") & Chr(10) & _
"SYSAPRL :" & rfcExport("RFCSAPRL") & Chr(10) & _
"RFCMACH :" & rfcExport("RFCMACH") & Chr(10) & _
"RFCOPSYS :" & rfcExport("RFCOPSYS") & Chr(10) & _
"RFCTZONE :" & rfcExport("RFCTZONE") & Chr(10) & _
"SYDAYST :" & rfcExport("RFCDAYST") & Chr(10) & _
"RFCIPADDR :" & rfcExport("RFCIPADDR") & Chr(10) & _
"RFCOPSYS :" & rfcExport("RFCOPSYS") & Chr(10) & _
"RFCHOST2 :" & rfcExport("RFCHOST2") & Chr(10) & _
"RFCSI_RESV:" & rfcExport("RFCSI_RESV") & Chr(10)
End Sub
Eine Weitere Alternative ist der SAP Java Connector (JCo). IMHO müsste der aber ausserhalb von Notes laufen. Die von IBM ausgelieferte VM passt nicht in jedem Release zum JCo.
Hth, Roger