---------------------------------------------

---------------------------------------------

---------------------------------------------

Es importante el SystemNumber que varia segun la instalacion. Desde cualquier transaccion SAP, pulsando status se puede identificar este dato.

Dim oConnection as object
Dim oLogonCtrl as object

Set oLogonCtrl = CreateObject(SAP.LogonControl.1)
Set OCONNECTION = oLogonCtrl.NewConnection
OCONNECTION.User = ""
OCONNECTION.Client = "910"
OCONNECTION.System = "PS1"
OCONNECTION.Language = "ES"
OCONNECTION.SystemNumber = "00"
OCONNECTION.Password = ""

If Not OCONNECTION.Logon(Me.Hwnd, False) Then
MsgBox "Fallo en la conexion con SAP"

Else
OCONNECTION.SystemInformation

End If